fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleaned up a bit

Browse Source
This commit is contained in:
Eddie Runia
1999-05-07 11:53:47 +00:00
parent 98a9d343fa
commit 89f0e4990a
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/tests/working/debugtst.prg
View File

@@ -116,9 +116,10 @@ function ToChar( xTxt, cSeparator, lDebug )
endif
case cValTxt=="A" // Array
cOut := ""
if lDebug
cOut += "{"
else
cOut := ""
endif
nLen := Len( xTxt )
for n := 1 to nLen // For each item : Recurse !
@@ -140,9 +141,7 @@ function ToChar( xTxt, cSeparator, lDebug )
case cValTxt=="O" // Object
if lDebug
if lDebug
cOut := "Class#"+ToChar( xTxt:ClassH() )+"{"
endif
cOut := "Class#"+ToChar( xTxt:ClassH() )+"{"
nLen := Len( xTxt )
for n := 1 to nLen // For each item : Recurse !
cOut += ToChar( xTxt[n], cSeparator, lDebug )
@@ -150,9 +149,7 @@ function ToChar( xTxt, cSeparator, lDebug )
cOut += cSeparator
endif
next n
if lDebug
cOut += ";" + ToChar( aoData( xTxt ), ", " ) + "}"
endif
cOut += ";" + ToChar( aoData( xTxt ), ", " ) + "}"
else
cOut := ToChar( xTxt:Run(), cSeparator, lDebug )
endif