[Harbour] How to retrieve the CallStack

[Alex Strickland]

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