0e8db70888
* utils/hbdoc/bld_vc.bat
* utils/hbmake/bld_vc.bat
% Minor cleanup.
* contrib/hbwhat32/whticon.c
* contrib/hbwhat32/whtcret.c
* contrib/hbwhat32/whthead.c
* contrib/hbwhat32/whtmous.c
* contrib/hbwhat32/whtmeta.c
* contrib/hbwhat32/whtrgn.c
* contrib/hbwhat32/whttbar.c
* contrib/hbwhat32/whtrect.c
* contrib/hbwhat32/whtbrsh.c
* contrib/hbwhat32/whtgdi.c
* contrib/hbwhat32/whtview.c
* contrib/hbwhat32/whtlv.c
* contrib/hbwhat32/whtwnd.c
* contrib/hbwhat32/whtcomm.c
* contrib/hbwhat32/whtprn.c
* contrib/hbwhat32/whttab.c
* contrib/hbwhat32/whtfont.c
* contrib/hbwhat32/whtbmp.c
* contrib/hbwhat32/whtpen.c
* contrib/hbwhat32/whtkbrd.c
* contrib/hbwhat32/whttext.c
* contrib/hbwhat32/whtdc.c
* contrib/hbwhat32/whtdraw.c
* contrib/hbnf/fttext.c
* contrib/hbnf/peek.c
* contrib/hbnf/ontick.c
* contrib/hbnf/origin.c
* contrib/hbnf/mouse.c
* contrib/hbnf/poke.c
! Fixed to use Harbour API instead of legacy Clipper API.
+ contrib/hbbtree/tests/bld_b32.bat
+ contrib/hbbtree/tests/bld_vc.bat
+ contrib/hbbtree/tests/bld_djgp.bat
- contrib/hbbtree/tests/mktest.bat
* contrib/hbbtree/tests/ctest.c
+ Added make files.
* Minor cleanups.
; One of the tests fail.
* contrib/hbbtree/tbtree.prg
! Fixed crash due to scope problem in class declaration.
* contrib/examples/pe/editorlo.c
! #include <x> -> #include "x" for Harbour headers.
67 lines
1.5 KiB
C
67 lines
1.5 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* File......: origin.c
|
|
* Author....: Steve Larsen
|
|
* CIS ID....: 76370,1532
|
|
*
|
|
* This is an original work by K. Stephan Larsen and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.1 09 Nov 1992 22:35:52 GLENN
|
|
* Function was inadvertently named origin() instead of ft_origin() when
|
|
* it went from an .asm to a .c file. Renamed it back to ft_origin().
|
|
*
|
|
* Rev 1.0 03 Oct 1992 02:13:54 GLENN
|
|
* Initial revision.
|
|
*
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* FT_ORIGIN()
|
|
* $CATEGORY$
|
|
* Environment
|
|
* $ONELINER$
|
|
* Report the drive, path and filename of the current program
|
|
* $SYNTAX$
|
|
* FT_ORIGIN() -> cString
|
|
* $ARGUMENTS$
|
|
* None
|
|
* $RETURNS$
|
|
* A string containing the full drive/directory/filename of
|
|
* the currently executing file.
|
|
* $DESCRIPTION$
|
|
* Often users will install multiple copies of application software,
|
|
* especially on networks and in situations where the user is trying
|
|
* to get around a copy protection scheme.
|
|
*
|
|
* This function enables you to learn the name and source location
|
|
* of the currently executing file, so that you may take whatever
|
|
* action you need to.
|
|
*
|
|
* Requires DOS v3.xx and above.
|
|
* $EXAMPLES$
|
|
* cMyFile := FT_ORIGIN()
|
|
*
|
|
* IF cMyFile != "C:\appdir\myfile.exe"
|
|
* ?"Incorrect startup file. Please remove/rename and start again"
|
|
* QUIT
|
|
* ENDIF
|
|
* $SEEALSO$
|
|
* FT_WHEREIS() FT_TREE()
|
|
* $END$
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
|
|
HB_FUNC( FT_ORIGIN )
|
|
{
|
|
hb_retc( hb_cmdargARGV()[ 0 ] );
|
|
}
|