francesco perillo wrote:
I now ask if is it possible to get a prg-level CallStack array in
order to use it in the errorsys handler.
I use:
function Stack2Str(n)
local cStackStr := ""
local cProcFile
DEFAULT n TO 2
while !empty(procname(n))
cStackStr += "Called from " + procname(n) + "(" +
alltrim(str(procline(n))) + ")" + iif(empty(cProcFile := procfile(n)), "", " in
" + cProcFile) + chr(13) + chr(10)
n++
end
return cStackStr
HTH
Alex
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
