From 4038613721dec53ec99a3aff0d4bbfbd15e490c7 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 17 Oct 1999 11:49:28 +0000 Subject: [PATCH] 19991017-13:34 GMT+1 --- harbour/ChangeLog | 13 + harbour/include/hbextern.ch | 285 +++++++++++++------- harbour/source/rtl/dummy.prg | 19 ++ harbour/source/rtl/harbinit.prg | 4 + harbour/source/runner/stdalone/external.prg | 285 +++++++++++++------- harbour/source/vm/hvm.c | 9 + 6 files changed, 431 insertions(+), 184 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c9abef07e1..2cec9da83d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,16 @@ +19991017-13:34 GMT+1 Victor Szel + * source/rtl/dummy.prg + + Some more undocumented and internal functions added. + * source/rtl/harbinit.prg + + ANNOUNCE CLIPPER520, ANNCOUNT CLIPPER530 added for complete + compatibility. + * source/vm/hvm.c + + PROCFILE() function added. It does nothing, but it's there + in Clipper. + * include/hbextern.ch + source/runner/stdalone/external.prg + * Updated. ANNOUNCE-s also added this time. + 19991017-13:04 GMT+1 Bruno Cantero * source/rtl/dummy.prg - __dbLocate() and __dbContinue() functions removed. diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch index 38d55aacd0..a34940aeed 100644 --- a/harbour/include/hbextern.ch +++ b/harbour/include/hbextern.ch @@ -36,9 +36,6 @@ #ifndef HB_EXTERN_CH_ #define HB_EXTERN_CH_ -EXTERNAL MEMOLINE -EXTERNAL MLCOUNT - // Files from: vm // // @@ -51,14 +48,12 @@ EXTERNAL __ARGV // //symbols from file: vm\debug.c // -EXTERNAL __VMPARLLIST -EXTERNAL __VMVARLGET -EXTERNAL __VMVARSGET -EXTERNAL __VMVARSLIST EXTERNAL __VMSTKGCOUNT EXTERNAL __VMSTKGLIST EXTERNAL __VMSTKLCOUNT EXTERNAL __VMSTKLLIST +EXTERNAL __VMPARLLIST +EXTERNAL __VMVARLGET // //symbols from file: vm\dynsym.c // @@ -68,8 +63,6 @@ EXTERNAL __DYNSGETINDEX // //symbols from file: vm\hvm.c // -EXTERNAL ERRORSYS -EXTERNAL ERRORNEW EXTERNAL LEN EXTERNAL EMPTY EXTERNAL VALTYPE @@ -77,18 +70,27 @@ EXTERNAL TYPE EXTERNAL WORD EXTERNAL PROCNAME EXTERNAL PROCLINE -EXTERNAL __QUIT +EXTERNAL PROCFILE EXTERNAL ERRORLEVEL EXTERNAL PCOUNT EXTERNAL PVALUE +EXTERNAL __QUIT EXTERNAL BREAK EXTERNAL __XHELP -// -//symbols from file: vm\hvm_.c -// +EXTERNAL __VMVARSLIST +EXTERNAL __VMVARSGET // //symbols from file: vm\initsymb.c // +// +//symbols from file: vm\main.c +// +// +//symbols from file: vm\mainstd.c +// +// +//symbols from file: vm\mainwin.c +// //------------------------------------------------------------ // Files from: rtl // @@ -123,6 +125,11 @@ EXTERNAL __CLS_CNTCLSDATA EXTERNAL __CLS_CNTDATA EXTERNAL __CLS_DECDATA EXTERNAL __CLS_INCDATA +EXTERNAL __CLASSNEW +EXTERNAL __CLASSINSTANCE +EXTERNAL __CLASSADD +EXTERNAL __CLASSNAME +EXTERNAL __CLASSSEL // //symbols from file: rtl\codebloc.c // @@ -139,6 +146,7 @@ EXTERNAL SETPOSBS EXTERNAL DEVPOS EXTERNAL DEVOUT EXTERNAL DISPOUT +EXTERNAL DISPOUTAT EXTERNAL __EJECT EXTERNAL PROW EXTERNAL PCOL @@ -203,10 +211,13 @@ EXTERNAL EVAL EXTERNAL OS EXTERNAL VERSION EXTERNAL GETENV +EXTERNAL GETE EXTERNAL __RUN // //symbols from file: rtl\errorapi.c // +EXTERNAL ERRORNEW +EXTERNAL __ERRINHANDLER EXTERNAL ERRORBLOCK EXTERNAL DOSERROR EXTERNAL __ERRRT_BASE @@ -232,18 +243,21 @@ EXTERNAL DIRCHANGE EXTERNAL MAKEDIR EXTERNAL DIRREMOVE EXTERNAL DISKSPACE +EXTERNAL ISDISK EXTERNAL DISKCHANGE EXTERNAL DISKNAME +EXTERNAL BIN2W EXTERNAL BIN2I EXTERNAL BIN2L -EXTERNAL BIN2W EXTERNAL I2BIN EXTERNAL L2BIN EXTERNAL HB_FNAMESPLIT EXTERNAL HB_FNAMEMERGE +EXTERNAL FSETDEVMOD // //symbols from file: rtl\fm.c // +EXTERNAL MEMORY // //symbols from file: rtl\gtapi.c // @@ -288,9 +302,14 @@ EXTERNAL SQRT EXTERNAL MEMOREAD EXTERNAL MEMOWRIT // +//symbols from file: rtl\memoline.c +// +EXTERNAL MEMOLINE +// //symbols from file: rtl\memvars.c // EXTERNAL __MVPUBLIC +EXTERNAL __QQPUB EXTERNAL __MVPRIVATE EXTERNAL __MVXRELEASE EXTERNAL __MVRELEASE @@ -307,6 +326,10 @@ EXTERNAL __MXRELEASE EXTERNAL __MSAVE EXTERNAL __MRESTORE // +//symbols from file: rtl\mlcount.c +// +EXTERNAL MLCOUNT +// //symbols from file: rtl\mouseapi.c // // @@ -320,11 +343,24 @@ EXTERNAL __MRESTORE // EXTERNAL MEMOTRAN // +//symbols from file: rtl\oldbox.c +// +EXTERNAL __BOX +EXTERNAL __BOXD +EXTERNAL __BOXS +// +//symbols from file: rtl\oldclear.c +// +EXTERNAL __ATCLEAR +EXTERNAL __CLEAR +// //symbols from file: rtl\set.c // EXTERNAL SETCANCEL EXTERNAL __SETCENTURY EXTERNAL SET +EXTERNAL DEFPATH +EXTERNAL __DEFPATH // //symbols from file: rtl\setcolor.c // @@ -361,6 +397,7 @@ EXTERNAL STRTRAN EXTERNAL VAL EXTERNAL STR EXTERNAL STRZERO +EXTERNAL HB_VALTOSTR // //symbols from file: rtl\tone.c // @@ -390,14 +427,109 @@ EXTERNAL ASORT //symbols from file: rtl\browdb.prg // EXTERNAL TBROWSEDB +EXTERNAL _DBSKIPPER +EXTERNAL DBSKIPPER +// +//symbols from file: rtl\browse.prg +// +EXTERNAL BROWSE // //symbols from file: rtl\devoutp.prg // EXTERNAL DEVOUTPICT // +//symbols from file: rtl\dircmd.prg +// +EXTERNAL __DIR +// +//symbols from file: rtl\dummy.prg +// +EXTERNAL ORDBAGEXT +EXTERNAL ORDBAGNAME +EXTERNAL ORDCONDSET +EXTERNAL ORDCREATE +EXTERNAL ORDDESTROY +EXTERNAL ORDFOR +EXTERNAL ORDKEY +EXTERNAL ORDLISTADD +EXTERNAL ORDLISTCLEAR +EXTERNAL ORDLISTREBUILD +EXTERNAL ORDNAME +EXTERNAL ORDNUMBER +EXTERNAL ORDSETFOCUS +EXTERNAL INDEXORD +EXTERNAL DBSEEK +EXTERNAL DBSETRELATION +EXTERNAL DBCLEARRELATION +EXTERNAL DBEVAL +EXTERNAL MEMOEDIT +EXTERNAL MLCTOPOS +EXTERNAL MLPOS +EXTERNAL MPOSTOLC +EXTERNAL __DBAPP +EXTERNAL __DBCONTINUE +EXTERNAL __DBCOPY +EXTERNAL __DBCOPYSTRUCT +EXTERNAL __DBCOPYXSTRUCT +EXTERNAL __DBCREATE +EXTERNAL __DBDELIM +EXTERNAL __DBJOIN +EXTERNAL __DBLIST +EXTERNAL __DBLOCATE +EXTERNAL __DBPACK +EXTERNAL __DBSDF +EXTERNAL __DBSORT +EXTERNAL __DBTOTAL +EXTERNAL __DBUPDATE +EXTERNAL __DBZAP +EXTERNAL DBEDIT +EXTERNAL ISPRINTER +EXTERNAL NETNAME +EXTERNAL __TYPEFILE +EXTERNAL __LABELFORM +EXTERNAL __REPORTFORM +EXTERNAL GETACTIVE +EXTERNAL GETAPPLYKEY +EXTERNAL GETDOSETKEY +EXTERNAL GETPOSTVALIDATE +EXTERNAL GETPREVALIDATE +EXTERNAL GETREADER +EXTERNAL READFORMAT +EXTERNAL READKILL +EXTERNAL READUPDATED +EXTERNAL UPDATED +EXTERNAL __SETFORMAT +EXTERNAL AMPM +EXTERNAL TSTRING +EXTERNAL SECS +EXTERNAL DAYS +EXTERNAL LENNUM +EXTERNAL ELAPTIME +EXTERNAL __BNAMES +EXTERNAL __LNAMES +EXTERNAL __SNAMES +EXTERNAL __SRCNAME +EXTERNAL _NATSORTVER +EXTERNAL ISAFFIRM +EXTERNAL ISNEGATIVE +EXTERNAL NATIONMSG +EXTERNAL _NATMSGVER +// //symbols from file: rtl\errorsys.prg // // +//symbols from file: rtl\fieldbl.prg +// +EXTERNAL FIELDBLOCK +EXTERNAL FIELDWBLOCK +// +//symbols from file: rtl\harbinit.prg +// +// +//symbols from file: rtl\input.prg +// +EXTERNAL __INPUT +// //symbols from file: rtl\memvarbl.prg // EXTERNAL MEMVARBLOCK @@ -424,10 +556,27 @@ EXTERNAL __OBJDELMETHOD EXTERNAL __OBJDELINLINE EXTERNAL __OBJDELDATA // +//symbols from file: rtl\rddord.prg +// +EXTERNAL DBCREATEINDEX +EXTERNAL DBSETINDEX +EXTERNAL DBCLEARINDEX +EXTERNAL DBREINDEX +EXTERNAL DBSETORDER +EXTERNAL INDEXEXT +EXTERNAL INDEXKEY +// +//symbols from file: rtl\readkey.prg +// +EXTERNAL READKEY +// //symbols from file: rtl\readvar.prg // EXTERNAL READVAR // +//symbols from file: rtl\setfunc.prg +// +// //symbols from file: rtl\setkey.prg // EXTERNAL SETKEY @@ -435,6 +584,10 @@ EXTERNAL HB_SETKEYGET EXTERNAL HB_SETKEYSAVE EXTERNAL HB_SETKEYCHECK // +//symbols from file: rtl\setta.prg +// +EXTERNAL SETTYPEAHEAD +// //symbols from file: rtl\tbcolumn.prg // EXTERNAL TBCOLUMNNEW @@ -449,7 +602,11 @@ EXTERNAL TCLASS // //symbols from file: rtl\terror.prg // -EXTERNAL ERRORNEW +// +//symbols from file: rtl\text.prg +// +EXTERNAL __TEXTSAVE +EXTERNAL __TEXTRESTORE // //symbols from file: rtl\tget.prg // @@ -460,6 +617,12 @@ EXTERNAL _GET_ //symbols from file: rtl\tgetlist.prg // EXTERNAL READMODAL +EXTERNAL READEXIT +EXTERNAL READINSERT +// +//symbols from file: rtl\wait.prg +// +EXTERNAL __WAIT // //symbols from file: rtl\xsavescr.prg // @@ -479,6 +642,7 @@ EXTERNAL AFIELDS EXTERNAL ALIAS EXTERNAL BOF EXTERNAL DBAPPEND +EXTERNAL DBCLEARFILTER EXTERNAL DBCLOSEALL EXTERNAL DBCLOSEAREA EXTERNAL DBCOMMIT @@ -486,6 +650,7 @@ EXTERNAL DBCOMMITALL EXTERNAL DBCREATE EXTERNAL DBDELETE EXTERNAL DBF +EXTERNAL DBFILTER EXTERNAL DBGOBOTTOM EXTERNAL DBGOTO EXTERNAL DBGOTOP @@ -495,6 +660,7 @@ EXTERNAL DBRLOCKLIST EXTERNAL DBRUNLOCK EXTERNAL DBSELECTAREA EXTERNAL DBSETDRIVER +EXTERNAL DBSETFILTER EXTERNAL DBSKIP EXTERNAL DBSTRUCT EXTERNAL DBTABLEEXT @@ -525,6 +691,7 @@ EXTERNAL RECSIZE EXTERNAL RLOCK EXTERNAL SELECT EXTERNAL USED +EXTERNAL __RDDSETDEFAULT // //symbols from file: rdd\dbf1.c // @@ -555,19 +722,6 @@ EXTERNAL SDF_GETFUNCTABLE //------------------------------------------------------------ // Files from: hbpp // -// -//symbols from file: hbpp\hbpp.c -// -// -//symbols from file: hbpp\hbppint.c -// -// -//symbols from file: hbpp\hbpplib.c -// -EXTERNAL __PREPROCESS -// -//symbols from file: hbpp\table.c -// //------------------------------------------------------------ // Files from: tools // @@ -733,70 +887,17 @@ EXTERNAL NUMTOTXTHU EXTERNAL DEFAULT EXTERNAL TOCHAR EXTERNAL DEBUG -// -//symbols from file: rtl\dummy.prg -// -EXTERNAL ORDBAGEXT -EXTERNAL ORDBAGNAME -EXTERNAL ORDCONDSET -EXTERNAL ORDCREATE -EXTERNAL ORDDESTROY -EXTERNAL ORDFOR -EXTERNAL ORDKEY -EXTERNAL ORDLISTADD -EXTERNAL ORDLISTCLEAR -EXTERNAL ORDLISTREBUILD -EXTERNAL ORDNAME -EXTERNAL ORDNUMBER -EXTERNAL ORDSETFOCUS -EXTERNAL INDEXORD -EXTERNAL DBSEEK -EXTERNAL DBSETFILTER -EXTERNAL DBCLEARFILTER -EXTERNAL DBSETRELATION -EXTERNAL DBCLEARRELATION -EXTERNAL DBEVAL -EXTERNAL DBFILTER -EXTERNAL MEMOEDIT -EXTERNAL MLCTOPOS -EXTERNAL MLPOS -EXTERNAL MPOSTOLC -EXTERNAL __DBAPP -EXTERNAL __DBCONTINUE -EXTERNAL __DBCOPY -EXTERNAL __DBCOPYSTRUCT -EXTERNAL __DBCOPYXSTRUCT -EXTERNAL __DBCREATE -EXTERNAL __DBDELIM -EXTERNAL __DBJOIN -EXTERNAL __DBLIST -EXTERNAL __DBLOCATE -EXTERNAL __DBPACK -EXTERNAL __DBSDF -EXTERNAL __DBSORT -EXTERNAL __DBTOTAL -EXTERNAL __DBUPDATE -EXTERNAL __DBZAP -EXTERNAL __LABELFORM -EXTERNAL __REPORTFORM -EXTERNAL __SETFORMAT -EXTERNAL __TYPEFILE -EXTERNAL BROWSE -EXTERNAL DBEDIT -EXTERNAL ISPRINTER -EXTERNAL NETNAME -EXTERNAL READKEY -EXTERNAL GETACTIVE -EXTERNAL GETAPPLYKEY -EXTERNAL GETDOSETKEY -EXTERNAL GETPOSTVALIDATE -EXTERNAL GETPREVALIDATE -EXTERNAL GETREADER -EXTERNAL READFORMAT -EXTERNAL READKILL -EXTERNAL READUPDATED -EXTERNAL UPDATED -EXTERNAL __QQPUB //------------------------------------------------------------ +EXTERNAL DBFCDX +EXTERNAL DBFNTX +EXTERNAL RDDSYS +EXTERNAL _DBF +EXTERNAL _DELIM +EXTERNAL RDDSYS +EXTERNAL _SDF +EXTERNAL SysInit +EXTERNAL CLIPPER520 +EXTERNAL CLIPPER530 + #endif /* HB_EXTERN_CH_ */ diff --git a/harbour/source/rtl/dummy.prg b/harbour/source/rtl/dummy.prg index b4e47a906d..8ab06a7c57 100644 --- a/harbour/source/rtl/dummy.prg +++ b/harbour/source/rtl/dummy.prg @@ -93,3 +93,22 @@ FUNCTION ReadKill() ; RETURN .F. FUNCTION ReadUpdated() ; RETURN .T. FUNCTION Updated() ; RETURN .T. FUNCTION __SetFormat() ; RETURN NIL + +FUNCTION AMPM() ; RETURN "" +FUNCTION TString() ; RETURN "" +FUNCTION Secs() ; RETURN 0 +FUNCTION Days() ; RETURN 0 +FUNCTION LenNum() ; RETURN 0 +FUNCTION ElapTime() ; RETURN 0 + +FUNCTION __BNames() ; RETURN NIL +FUNCTION __LNames() ; RETURN NIL +FUNCTION __SNames() ; RETURN NIL +FUNCTION __SrcName() ; RETURN NIL + +FUNCTION _NatSortVer() ; RETURN "" +FUNCTION IsAffirm() ; RETURN .F. +FUNCTION IsNegative() ; RETURN .F. +FUNCTION NationMsg() ; RETURN "" +FUNCTION _NatMsgVer() ; RETURN "" + diff --git a/harbour/source/rtl/harbinit.prg b/harbour/source/rtl/harbinit.prg index 857115517f..5b35c4d82c 100644 --- a/harbour/source/rtl/harbinit.prg +++ b/harbour/source/rtl/harbinit.prg @@ -37,6 +37,10 @@ ANNOUNCE SysInit +/* NOTE: For complete compatibility */ +ANNOUNCE CLIPPER520 +ANNOUNCE CLIPPER530 + INIT PROCEDURE ClipInit MEMVAR GetList diff --git a/harbour/source/runner/stdalone/external.prg b/harbour/source/runner/stdalone/external.prg index df3c46d3ff..e98b61e833 100644 --- a/harbour/source/runner/stdalone/external.prg +++ b/harbour/source/runner/stdalone/external.prg @@ -33,9 +33,6 @@ * */ -EXTERNAL MEMOLINE -EXTERNAL MLCOUNT - // Files from: vm // // @@ -48,14 +45,12 @@ EXTERNAL __ARGV // //symbols from file: vm\debug.c // -EXTERNAL __VMPARLLIST -EXTERNAL __VMVARLGET -EXTERNAL __VMVARSGET -EXTERNAL __VMVARSLIST EXTERNAL __VMSTKGCOUNT EXTERNAL __VMSTKGLIST EXTERNAL __VMSTKLCOUNT EXTERNAL __VMSTKLLIST +EXTERNAL __VMPARLLIST +EXTERNAL __VMVARLGET // //symbols from file: vm\dynsym.c // @@ -65,8 +60,6 @@ EXTERNAL __DYNSGETINDEX // //symbols from file: vm\hvm.c // -EXTERNAL ERRORSYS -EXTERNAL ERRORNEW EXTERNAL LEN EXTERNAL EMPTY EXTERNAL VALTYPE @@ -74,18 +67,27 @@ EXTERNAL TYPE EXTERNAL WORD EXTERNAL PROCNAME EXTERNAL PROCLINE -EXTERNAL __QUIT +EXTERNAL PROCFILE EXTERNAL ERRORLEVEL EXTERNAL PCOUNT EXTERNAL PVALUE +EXTERNAL __QUIT EXTERNAL BREAK EXTERNAL __XHELP -// -//symbols from file: vm\hvm_.c -// +EXTERNAL __VMVARSLIST +EXTERNAL __VMVARSGET // //symbols from file: vm\initsymb.c // +// +//symbols from file: vm\main.c +// +// +//symbols from file: vm\mainstd.c +// +// +//symbols from file: vm\mainwin.c +// //------------------------------------------------------------ // Files from: rtl // @@ -120,6 +122,11 @@ EXTERNAL __CLS_CNTCLSDATA EXTERNAL __CLS_CNTDATA EXTERNAL __CLS_DECDATA EXTERNAL __CLS_INCDATA +EXTERNAL __CLASSNEW +EXTERNAL __CLASSINSTANCE +EXTERNAL __CLASSADD +EXTERNAL __CLASSNAME +EXTERNAL __CLASSSEL // //symbols from file: rtl\codebloc.c // @@ -136,6 +143,7 @@ EXTERNAL SETPOSBS EXTERNAL DEVPOS EXTERNAL DEVOUT EXTERNAL DISPOUT +EXTERNAL DISPOUTAT EXTERNAL __EJECT EXTERNAL PROW EXTERNAL PCOL @@ -200,10 +208,13 @@ EXTERNAL EVAL EXTERNAL OS EXTERNAL VERSION EXTERNAL GETENV +EXTERNAL GETE EXTERNAL __RUN // //symbols from file: rtl\errorapi.c // +EXTERNAL ERRORNEW +EXTERNAL __ERRINHANDLER EXTERNAL ERRORBLOCK EXTERNAL DOSERROR EXTERNAL __ERRRT_BASE @@ -229,18 +240,21 @@ EXTERNAL DIRCHANGE EXTERNAL MAKEDIR EXTERNAL DIRREMOVE EXTERNAL DISKSPACE +EXTERNAL ISDISK EXTERNAL DISKCHANGE EXTERNAL DISKNAME +EXTERNAL BIN2W EXTERNAL BIN2I EXTERNAL BIN2L -EXTERNAL BIN2W EXTERNAL I2BIN EXTERNAL L2BIN EXTERNAL HB_FNAMESPLIT EXTERNAL HB_FNAMEMERGE +EXTERNAL FSETDEVMOD // //symbols from file: rtl\fm.c // +EXTERNAL MEMORY // //symbols from file: rtl\gtapi.c // @@ -285,9 +299,14 @@ EXTERNAL SQRT EXTERNAL MEMOREAD EXTERNAL MEMOWRIT // +//symbols from file: rtl\memoline.c +// +EXTERNAL MEMOLINE +// //symbols from file: rtl\memvars.c // EXTERNAL __MVPUBLIC +EXTERNAL __QQPUB EXTERNAL __MVPRIVATE EXTERNAL __MVXRELEASE EXTERNAL __MVRELEASE @@ -304,6 +323,10 @@ EXTERNAL __MXRELEASE EXTERNAL __MSAVE EXTERNAL __MRESTORE // +//symbols from file: rtl\mlcount.c +// +EXTERNAL MLCOUNT +// //symbols from file: rtl\mouseapi.c // // @@ -317,11 +340,24 @@ EXTERNAL __MRESTORE // EXTERNAL MEMOTRAN // +//symbols from file: rtl\oldbox.c +// +EXTERNAL __BOX +EXTERNAL __BOXD +EXTERNAL __BOXS +// +//symbols from file: rtl\oldclear.c +// +EXTERNAL __ATCLEAR +EXTERNAL __CLEAR +// //symbols from file: rtl\set.c // EXTERNAL SETCANCEL EXTERNAL __SETCENTURY EXTERNAL SET +EXTERNAL DEFPATH +EXTERNAL __DEFPATH // //symbols from file: rtl\setcolor.c // @@ -358,6 +394,7 @@ EXTERNAL STRTRAN EXTERNAL VAL EXTERNAL STR EXTERNAL STRZERO +EXTERNAL HB_VALTOSTR // //symbols from file: rtl\tone.c // @@ -387,14 +424,109 @@ EXTERNAL ASORT //symbols from file: rtl\browdb.prg // EXTERNAL TBROWSEDB +EXTERNAL _DBSKIPPER +EXTERNAL DBSKIPPER +// +//symbols from file: rtl\browse.prg +// +EXTERNAL BROWSE // //symbols from file: rtl\devoutp.prg // EXTERNAL DEVOUTPICT // +//symbols from file: rtl\dircmd.prg +// +EXTERNAL __DIR +// +//symbols from file: rtl\dummy.prg +// +EXTERNAL ORDBAGEXT +EXTERNAL ORDBAGNAME +EXTERNAL ORDCONDSET +EXTERNAL ORDCREATE +EXTERNAL ORDDESTROY +EXTERNAL ORDFOR +EXTERNAL ORDKEY +EXTERNAL ORDLISTADD +EXTERNAL ORDLISTCLEAR +EXTERNAL ORDLISTREBUILD +EXTERNAL ORDNAME +EXTERNAL ORDNUMBER +EXTERNAL ORDSETFOCUS +EXTERNAL INDEXORD +EXTERNAL DBSEEK +EXTERNAL DBSETRELATION +EXTERNAL DBCLEARRELATION +EXTERNAL DBEVAL +EXTERNAL MEMOEDIT +EXTERNAL MLCTOPOS +EXTERNAL MLPOS +EXTERNAL MPOSTOLC +EXTERNAL __DBAPP +EXTERNAL __DBCONTINUE +EXTERNAL __DBCOPY +EXTERNAL __DBCOPYSTRUCT +EXTERNAL __DBCOPYXSTRUCT +EXTERNAL __DBCREATE +EXTERNAL __DBDELIM +EXTERNAL __DBJOIN +EXTERNAL __DBLIST +EXTERNAL __DBLOCATE +EXTERNAL __DBPACK +EXTERNAL __DBSDF +EXTERNAL __DBSORT +EXTERNAL __DBTOTAL +EXTERNAL __DBUPDATE +EXTERNAL __DBZAP +EXTERNAL DBEDIT +EXTERNAL ISPRINTER +EXTERNAL NETNAME +EXTERNAL __TYPEFILE +EXTERNAL __LABELFORM +EXTERNAL __REPORTFORM +EXTERNAL GETACTIVE +EXTERNAL GETAPPLYKEY +EXTERNAL GETDOSETKEY +EXTERNAL GETPOSTVALIDATE +EXTERNAL GETPREVALIDATE +EXTERNAL GETREADER +EXTERNAL READFORMAT +EXTERNAL READKILL +EXTERNAL READUPDATED +EXTERNAL UPDATED +EXTERNAL __SETFORMAT +EXTERNAL AMPM +EXTERNAL TSTRING +EXTERNAL SECS +EXTERNAL DAYS +EXTERNAL LENNUM +EXTERNAL ELAPTIME +EXTERNAL __BNAMES +EXTERNAL __LNAMES +EXTERNAL __SNAMES +EXTERNAL __SRCNAME +EXTERNAL _NATSORTVER +EXTERNAL ISAFFIRM +EXTERNAL ISNEGATIVE +EXTERNAL NATIONMSG +EXTERNAL _NATMSGVER +// //symbols from file: rtl\errorsys.prg // // +//symbols from file: rtl\fieldbl.prg +// +EXTERNAL FIELDBLOCK +EXTERNAL FIELDWBLOCK +// +//symbols from file: rtl\harbinit.prg +// +// +//symbols from file: rtl\input.prg +// +EXTERNAL __INPUT +// //symbols from file: rtl\memvarbl.prg // EXTERNAL MEMVARBLOCK @@ -421,10 +553,27 @@ EXTERNAL __OBJDELMETHOD EXTERNAL __OBJDELINLINE EXTERNAL __OBJDELDATA // +//symbols from file: rtl\rddord.prg +// +EXTERNAL DBCREATEINDEX +EXTERNAL DBSETINDEX +EXTERNAL DBCLEARINDEX +EXTERNAL DBREINDEX +EXTERNAL DBSETORDER +EXTERNAL INDEXEXT +EXTERNAL INDEXKEY +// +//symbols from file: rtl\readkey.prg +// +EXTERNAL READKEY +// //symbols from file: rtl\readvar.prg // EXTERNAL READVAR // +//symbols from file: rtl\setfunc.prg +// +// //symbols from file: rtl\setkey.prg // EXTERNAL SETKEY @@ -432,6 +581,10 @@ EXTERNAL HB_SETKEYGET EXTERNAL HB_SETKEYSAVE EXTERNAL HB_SETKEYCHECK // +//symbols from file: rtl\setta.prg +// +EXTERNAL SETTYPEAHEAD +// //symbols from file: rtl\tbcolumn.prg // EXTERNAL TBCOLUMNNEW @@ -446,7 +599,11 @@ EXTERNAL TCLASS // //symbols from file: rtl\terror.prg // -EXTERNAL ERRORNEW +// +//symbols from file: rtl\text.prg +// +EXTERNAL __TEXTSAVE +EXTERNAL __TEXTRESTORE // //symbols from file: rtl\tget.prg // @@ -457,6 +614,12 @@ EXTERNAL _GET_ //symbols from file: rtl\tgetlist.prg // EXTERNAL READMODAL +EXTERNAL READEXIT +EXTERNAL READINSERT +// +//symbols from file: rtl\wait.prg +// +EXTERNAL __WAIT // //symbols from file: rtl\xsavescr.prg // @@ -476,6 +639,7 @@ EXTERNAL AFIELDS EXTERNAL ALIAS EXTERNAL BOF EXTERNAL DBAPPEND +EXTERNAL DBCLEARFILTER EXTERNAL DBCLOSEALL EXTERNAL DBCLOSEAREA EXTERNAL DBCOMMIT @@ -483,6 +647,7 @@ EXTERNAL DBCOMMITALL EXTERNAL DBCREATE EXTERNAL DBDELETE EXTERNAL DBF +EXTERNAL DBFILTER EXTERNAL DBGOBOTTOM EXTERNAL DBGOTO EXTERNAL DBGOTOP @@ -492,6 +657,7 @@ EXTERNAL DBRLOCKLIST EXTERNAL DBRUNLOCK EXTERNAL DBSELECTAREA EXTERNAL DBSETDRIVER +EXTERNAL DBSETFILTER EXTERNAL DBSKIP EXTERNAL DBSTRUCT EXTERNAL DBTABLEEXT @@ -522,6 +688,7 @@ EXTERNAL RECSIZE EXTERNAL RLOCK EXTERNAL SELECT EXTERNAL USED +EXTERNAL __RDDSETDEFAULT // //symbols from file: rdd\dbf1.c // @@ -552,19 +719,6 @@ EXTERNAL SDF_GETFUNCTABLE //------------------------------------------------------------ // Files from: hbpp // -// -//symbols from file: hbpp\hbpp.c -// -// -//symbols from file: hbpp\hbppint.c -// -// -//symbols from file: hbpp\hbpplib.c -// -EXTERNAL __PREPROCESS -// -//symbols from file: hbpp\table.c -// //------------------------------------------------------------ // Files from: tools // @@ -730,68 +884,15 @@ EXTERNAL NUMTOTXTHU EXTERNAL DEFAULT EXTERNAL TOCHAR EXTERNAL DEBUG -// -//symbols from file: rtl\dummy.prg -// -EXTERNAL ORDBAGEXT -EXTERNAL ORDBAGNAME -EXTERNAL ORDCONDSET -EXTERNAL ORDCREATE -EXTERNAL ORDDESTROY -EXTERNAL ORDFOR -EXTERNAL ORDKEY -EXTERNAL ORDLISTADD -EXTERNAL ORDLISTCLEAR -EXTERNAL ORDLISTREBUILD -EXTERNAL ORDNAME -EXTERNAL ORDNUMBER -EXTERNAL ORDSETFOCUS -EXTERNAL INDEXORD -EXTERNAL DBSEEK -EXTERNAL DBSETFILTER -EXTERNAL DBCLEARFILTER -EXTERNAL DBSETRELATION -EXTERNAL DBCLEARRELATION -EXTERNAL DBEVAL -EXTERNAL DBFILTER -EXTERNAL MEMOEDIT -EXTERNAL MLCTOPOS -EXTERNAL MLPOS -EXTERNAL MPOSTOLC -EXTERNAL __DBAPP -EXTERNAL __DBCONTINUE -EXTERNAL __DBCOPY -EXTERNAL __DBCOPYSTRUCT -EXTERNAL __DBCOPYXSTRUCT -EXTERNAL __DBCREATE -EXTERNAL __DBDELIM -EXTERNAL __DBJOIN -EXTERNAL __DBLIST -EXTERNAL __DBLOCATE -EXTERNAL __DBPACK -EXTERNAL __DBSDF -EXTERNAL __DBSORT -EXTERNAL __DBTOTAL -EXTERNAL __DBUPDATE -EXTERNAL __DBZAP -EXTERNAL __LABELFORM -EXTERNAL __REPORTFORM -EXTERNAL __SETFORMAT -EXTERNAL __TYPEFILE -EXTERNAL BROWSE -EXTERNAL DBEDIT -EXTERNAL ISPRINTER -EXTERNAL NETNAME -EXTERNAL READKEY -EXTERNAL GETACTIVE -EXTERNAL GETAPPLYKEY -EXTERNAL GETDOSETKEY -EXTERNAL GETPOSTVALIDATE -EXTERNAL GETPREVALIDATE -EXTERNAL GETREADER -EXTERNAL READFORMAT -EXTERNAL READKILL -EXTERNAL READUPDATED -EXTERNAL UPDATED -EXTERNAL __QQPUB //------------------------------------------------------------ + +EXTERNAL DBFCDX +EXTERNAL DBFNTX +EXTERNAL RDDSYS +EXTERNAL _DBF +EXTERNAL _DELIM +EXTERNAL RDDSYS +EXTERNAL _SDF +EXTERNAL SysInit +EXTERNAL CLIPPER520 +EXTERNAL CLIPPER530 diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index b49d68c015..216fb0292a 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -40,6 +40,7 @@ * Copyright 1999 Victor Szel * HB_WORD() * HB___XHELP() + * HB_PROCFILE() * * Copyright 1999 Eddie Runia * HB___VMVARSGET() @@ -3382,6 +3383,14 @@ HARBOUR HB_PROCLINE( void ) hb_retni( 0 ); } +/* NOTE: Clipper undocumented function, which always returns an empty + string. */ + +HARBOUR HB_PROCFILE( void ) +{ + hb_retc( "" ); +} + HARBOUR HB_ERRORLEVEL( void ) { hb_retni( s_byErrorLevel );