29b7b02404
* tests/ainstest.prg
* tests/codebloc.prg
* tests/procname.prg
* tests/server.prg
* tests/testrdd2.prg
* tests/tstuse.prg
* more cleanups
40 lines
396 B
Plaintext
40 lines
396 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// 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 ) )
|
|
QQOut( "Called from: ", ProcName( n ), ProcLine( n++ ), hb_eol() )
|
|
ENDDO
|
|
|
|
RETURN nil
|