Difference between revisions of "ArrayDeepDump"
Bug fix: added sv_destruct at the end
imported>QQuix (Added a note about a Catch 22 when compiling a recursive function for the first time) |
imported>QQuix (Bug fix: added sv_destruct at the end) |
||
| (One intermediate revision by the same user not shown) | |||
| Line 194: | Line 194: | ||
StringToTxtFile psFile psLine ;#Pluggy# | StringToTxtFile psFile psLine ;#Pluggy# | ||
endif | endif | ||
if | |||
if xDepth > 1 ; stops recursion at the last level initialized | |||
set xNextLevel to xMode * 100 + xLevel + 1 | set xNextLevel to xMode * 100 + xLevel + 1 | ||
let sText := sPrefix + sKey1 | let sText := sPrefix + sKey1 | ||
;;;; Uncomment the next line after the first successful compilation | |||
;;;; call ArrayDeepDump aEntry [Value] , sText , xNextLevel, xDepth - 1 | ;;;; call ArrayDeepDump aEntry [Value] , sText , xNextLevel, xDepth - 1 | ||
elseif | elseif xDepth == 1 && xMode == 2 | ||
let sLine := sPrefix + sKey1 + " . . ." | let sLine := sPrefix + sKey1 + " . . ." | ||
printc "PrintArray>> %z " sLine | printc "PrintArray>> %z " sLine | ||
| Line 208: | Line 210: | ||
endif | endif | ||
sv_destruct sPrefix, sKey1, sType, sText, sLine | |||
end | end | ||