ae412b486e
To complete previous commit Change-Id: I21f7e530848d022456bda17a86d42bc14a921efd Reviewed-on: https://gerrit.libreoffice.org/53896 Tested-by: Jenkins Reviewed-by: Thorsten Behrens <Thorsten.Behrens@CIB.de>
50 lines
2.0 KiB
XML
50 lines
2.0 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
|
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Compatible" script:language="StarBasic"
|
|
REM =======================================================================================================================
|
|
REM === The Access2Base library is a part of the LibreOffice project. ===
|
|
REM === Full documentation is available on http://www.access2base.com ===
|
|
REM =======================================================================================================================
|
|
|
|
Option Compatible
|
|
Option Explicit
|
|
|
|
REM -----------------------------------------------------------------------------------------------------------------------
|
|
Public Sub DebugPrint(ParamArray pvArgs() As Variant)
|
|
|
|
'Print arguments unconditionally in console
|
|
'Arguments are separated by a TAB (simulated by spaces)
|
|
'Some pvArgs might be missing: a TAB is still generated
|
|
|
|
Dim vVarTypes() As Variant, i As Integer
|
|
Const cstTab = 5
|
|
On Local Error Goto Exit_Sub ' Never interrupt processing
|
|
Utils._SetCalledSub("DebugPrint")
|
|
vVarTypes = Utils._AddNumeric(Array(vbEmpty, vbNull, vbDate, vbString, vbBoolean, vbObject, vbVariant, vbByte, vbArray + vbByte))
|
|
|
|
If UBound(pvArgs) >= 0 Then
|
|
For i = 0 To UBound(pvArgs)
|
|
If Not Utils._CheckArgument(pvArgs(i), i + 1, vVarTypes(), , False) Then pvArgs(i) = "[TYPE?]"
|
|
Next i
|
|
End If
|
|
|
|
Dim sOutput As String, sArg As String
|
|
sOutput = ""
|
|
For i = 0 To UBound(pvArgs)
|
|
sArg = Replace(Utils._CStr(pvArgs(i), _A2B_.DebugPrintShort), "\;", ";")
|
|
' Add argument to output
|
|
If i = 0 Then
|
|
sOutput = sArg
|
|
Else
|
|
sOutput = sOutput & Space(cstTab - (Len(sOutput) Mod cstTab)) & sArg
|
|
End If
|
|
Next i
|
|
|
|
TraceLog(TRACEANY, sOutput, False)
|
|
|
|
Exit_Sub:
|
|
Utils._ResetCalledSub("DebugPrint")
|
|
Exit Sub
|
|
End Sub ' DebugPrint V0.9.5
|
|
|
|
</script:module> |