03ac58b17b
* bin/commit.hb
* config/detect.mk
* config/detfun.mk
* config/detplat.mk
* config/dir.mk
* config/dirsh.mk
* config/global.mk
* config/globsh.mk
* config/instsh.mk
* config/lang.hb
* config/lang2po.hb
* config/po2lang.hb
* config/postinst.hb
* contrib/hbexpat/tests/tohash.prg
* contrib/hbformat/utils/hbformat.ini
* contrib/hbmisc/hbedit.prg
* contrib/hbmxml/tests/testmxml.prg
* contrib/hbnetio/utils/hbnetio/_console.prg
* contrib/hbnetio/utils/hbnetio/_winsvc.prg
* contrib/hbnetio/utils/hbnetio/hbnetio.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
* contrib/hbwin/tests/ole.prg
* contrib/hbwin/tests/oletst2.js
* contrib/hbwin/tests/oletst2.vbs
* contrib/hbxpp/doc/en/binnumx.txt
* contrib/hbxpp/doc/en/dbcmdx.txt
* contrib/xhb/htmutil.prg
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/thtm.prg
* ChangeLog.txt
* debian/copyright
* doc/class_tp.txt
* doc/hdr_tpl.txt
* doc/xhb-diff.txt
* LICENSE.txt
* package/harbour-wce.spec.in
* package/harbour-win.spec.in
* package/harbour.spec
* package/mpkg_rpm_wce.sh
* package/mpkg_rpm_win.sh
* package/mpkg_rpm.sh
* package/mpkg_src.sh
* package/mpkg_ver.sh
* src/rtl/achoice.prg
* src/rtl/getsys53.prg
* src/rtl/tgetlist.prg
* src/rtl/tlabel.prg
* src/rtl/tmenusys.prg
* tests/hbdoc.prg
* tests/langmsg.prg
* tests/rto_get.prg
* tests/rto_tb.prg
+ doc/en/ati.txt
+ doc/en/dirdrive.txt
+ doc/en/hashfunc.txt
+ doc/en/hbtoken.txt
+ doc/en/left.txt
+ doc/en/proc.txt
+ doc/en/strtran.txt
+ doc/en/transfrm.txt
+ doc/en/typefile.txt
* doc/en/*
* more partial sync with 3.4 fork
116 lines
2.6 KiB
Plaintext
116 lines
2.6 KiB
Plaintext
/* $DOC$
|
|
$AUTHOR$
|
|
Copyright 1999 Jose Lalin <dezac@corevia.com>
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
ProcName()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Application
|
|
$ONELINER$
|
|
Gets the name of the current function on the stack
|
|
$SYNTAX$
|
|
ProcName( <nLevel> ) --> cProcName
|
|
$ARGUMENTS$
|
|
<nLevel> is the function level required.
|
|
$RETURNS$
|
|
<cProcName> The name of the function that it is being executed.
|
|
$DESCRIPTION$
|
|
This function looks at the top of the stack and gets the current
|
|
executed function if no arguments are passed. Otherwise it returns
|
|
the name of the function or procedure at <nLevel>.
|
|
$EXAMPLES$
|
|
// This test will show the functions and procedures in stack.
|
|
// before executing it.
|
|
LOCAL n := 1
|
|
DO WHILE ! Empty( ProcName( n ) )
|
|
? ProcName( n++ )
|
|
ENDDO
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is core
|
|
$SEEALSO$
|
|
ProcLine(), ProcFile()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$AUTHOR$
|
|
Copyright 1999 Jose Lanin <dezac@corevia.com>
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
ProcLine()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Application
|
|
$ONELINER$
|
|
Gets the line number of the current function on the stack.
|
|
$SYNTAX$
|
|
ProcLine( <nLevel> ) --> nLine
|
|
$ARGUMENTS$
|
|
<nLevel> is the function level required.
|
|
$RETURNS$
|
|
<nLine> The line number of the function that it is being executed.
|
|
$DESCRIPTION$
|
|
This function looks at the top of the stack and gets the current
|
|
line number of the executed function if no arguments are passed.
|
|
Otherwise it returns the line number of the function or procedure
|
|
at <nLevel>.
|
|
$EXAMPLES$
|
|
? ProcLine( 0 )
|
|
? ProcName( 2 )
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is core
|
|
$SEEALSO$
|
|
ProcName(), ProcFile()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$AUTHOR$
|
|
Copyright 1999 Jose Lanin <dezac@corevia.com>
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
ProcFile()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Application
|
|
$ONELINER$
|
|
This function always returns an empty string.
|
|
$SYNTAX$
|
|
ProcFile( <xExp> ) --> cEmptyString
|
|
$ARGUMENTS$
|
|
<xExp> is any valid type.
|
|
$RETURNS$
|
|
<cEmptyString> Return an empty string
|
|
$DESCRIPTION$
|
|
This function is added to the RTL for full compatibility. It
|
|
always returns an empty string.
|
|
$EXAMPLES$
|
|
? ProcFile()
|
|
? ProcFile( NIL )
|
|
? ProcFile( 2 )
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is core
|
|
$SEEALSO$
|
|
ProcName(), ProcLine()
|
|
$END$
|
|
*/
|