9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
36 lines
374 B
Plaintext
36 lines
374 B
Plaintext
// Testing Harbour ProcName() and ProcLine()
|
|
|
|
PROCEDURE Main()
|
|
|
|
Two()
|
|
|
|
RETURN
|
|
|
|
FUNCTION Two()
|
|
|
|
Three()
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION Three()
|
|
|
|
Four()
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION Four()
|
|
|
|
Five()
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION Five()
|
|
|
|
LOCAL n := 0
|
|
|
|
WHILE ! Empty( ProcName( n ) )
|
|
?? "Called from: ", ProcName( n ), ProcLine( n++ ), hb_eol()
|
|
ENDDO
|
|
|
|
RETURN NIL
|