From 176ed31f8151c2479e3003003af5d97ce0c2a84f Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 1 Mar 2000 02:04:02 +0000 Subject: [PATCH] 20000301-03:04 GMT+1 Victor Szakats --- harbour/ChangeLog | 13 + harbour/doc/funclist.txt | 1 + harbour/include/hbpp.h | 2 +- harbour/source/pp/hbpp.c | 78 +++- harbour/source/pp/hbppint.c | 19 +- harbour/source/pp/hbpplib.c | 4 +- harbour/source/pp/stdalone/hbpp.c | 18 +- harbour/source/pp/table.c | 686 +++++++++++++++--------------- harbour/source/rtl/filesys.c | 8 +- 9 files changed, 437 insertions(+), 392 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1a05901dac..44cbcd22de 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,16 @@ +20000301-03:04 GMT+1 Victor Szakats + * source/pp/* + include/hbpp.h + + Added support for __DATE__ and __TIME__ predefined macros. + Note that this will not work in the library version. + * hb_pp_AddDefine() fixed to work without any hacks from the caller side. + * hb_pp_Init() moved to hbpp.c and is used from standalone hbpp.c, too. + * doc/funclist.txt + + "+T" symbol explained. + * source/rtl/filesys.c + - Some "add documentation" note removed. + + One copyright added. + 20000229-23:13 GMT+1 Victor Szakats + doc/en/array.txt + doc/en/binnum.txt diff --git a/harbour/doc/funclist.txt b/harbour/doc/funclist.txt index aa15b9fcb4..ddf6507f43 100644 --- a/harbour/doc/funclist.txt +++ b/harbour/doc/funclist.txt @@ -23,6 +23,7 @@ ; mac[-mpw][+T] ; ; Examples: w32-gcc+T, w32, w32-icc +; (+T means multithreading ready) ; ; Use ';' for comments ; diff --git a/harbour/include/hbpp.h b/harbour/include/hbpp.h index b5956e25d1..f13bb138ed 100644 --- a/harbour/include/hbpp.h +++ b/harbour/include/hbpp.h @@ -76,6 +76,7 @@ typedef struct _COMMANDS /* HBPP.C exported functions */ +extern void hb_pp_Init( void ); extern int hb_pp_ParseDirective( char * ); /* Parsing preprocessor directives ( #... ) */ extern int hb_pp_ParseExpression( char *, char * ); /* Parsing a line ( without preprocessor directive ) */ extern int hb_pp_WrStr( FILE *, char * ); @@ -86,7 +87,6 @@ extern DEFINES * hb_pp_AddDefine( char *, char * ); /* Add new #define t /* HBPPINT.C exported functions */ -extern void hb_pp_Init( void ); extern int hb_pp_Internal( FILE *, char * ); /* HBPP.C exported variables */ diff --git a/harbour/source/pp/hbpp.c b/harbour/source/pp/hbpp.c index 75b70023ba..210c071629 100644 --- a/harbour/source/pp/hbpp.c +++ b/harbour/source/pp/hbpp.c @@ -58,6 +58,13 @@ #include #include #include +#include +#if defined( OS_UNIX_COMPATIBLE ) + #include +#else + #include +#endif + #include "hbpp.h" #include "hberrors.h" #include "compiler.h" @@ -68,9 +75,9 @@ static DEFINES * DefSearch( char *, BOOL * ); static COMMANDS * ComSearch( char *, COMMANDS * ); static COMMANDS * TraSearch( char *, COMMANDS * ); -static int ParseDefine( char * ); /* Process #define directive */ -static int ParseUndef( char * ); /* Process #undef directive */ -static int ParseIfdef( char *, int ); /* Process #ifdef directive */ +static int ParseDefine( char * ); /* Process #define directive */ +static int ParseUndef( char * ); /* Process #undef directive */ +static int ParseIfdef( char *, int ); /* Process #ifdef directive */ static void ParseCommand( char *, BOOL, BOOL ); /* Process #command or #translate directive */ static void ConvertPatterns( char *, int, char *, int ); /* Converting result pattern in #command and #translate */ static int WorkDefine( char **, char *, DEFINES * ); /* Replace fragment of code with a #defined result text */ @@ -144,8 +151,8 @@ static char s_groupchar; static char s_prevchar = 'A'; extern int hb_comp_iLine; /* currently parsed file line number */ -int * hb_pp_aCondCompile; -int hb_pp_nCondCompile = 0; +int * hb_pp_aCondCompile; +int hb_pp_nCondCompile = 0; /* Table with parse errors */ char * hb_pp_szErrors[] = @@ -166,6 +173,28 @@ char * hb_pp_szErrors[] = "Value out of range in #pragma directive" }; +void hb_pp_Init( void ) +{ + HB_TRACE(HB_TR_DEBUG, ("hb_pp_Init()")); + + hb_pp_aCondCompile = ( int * ) hb_xgrab( sizeof( int ) * 5 ); + + { + char szResult[ 11 ]; + time_t t; + struct tm * oTime; + + time( &t ); + oTime = localtime( &t ); + + sprintf( szResult, "\"%04d%02d%02d\"", oTime->tm_year + 1900, oTime->tm_mon + 1, oTime->tm_mday ); + hb_pp_AddDefine( "__DATE__", szResult ); + + sprintf( szResult, "\"%02d:%02d:%02d\"", oTime->tm_hour, oTime->tm_min, oTime->tm_sec ); + hb_pp_AddDefine( "__TIME__", szResult ); + } +} + /* Table with parse warnings */ /* NOTE: The first character stores the warning's level that triggers this * warning. The warning's level is set by -w command line option. @@ -268,14 +297,14 @@ int hb_pp_ParseDirective( char * sLine ) static int ParseDefine( char * sLine ) { - char defname[MAX_NAME], pars[MAX_NAME]; + char defname[ MAX_NAME ], pars[ MAX_NAME ]; int i, npars = -1; DEFINES * lastdef; HB_TRACE(HB_TR_DEBUG, ("ParseDefine(%s)", sLine)); HB_SKIPTABSPACES( sLine ); - if( isalpha( *sLine ) || *sLine == '_' || *sLine > 0x7e ) + if( ISNAME( *sLine ) ) { NextName( &sLine, defname ); if( *sLine == '(' ) /* If pseudofunction was found */ @@ -294,20 +323,21 @@ static int ParseDefine( char * sLine ) } HB_SKIPTABSPACES(sLine); - lastdef = hb_pp_AddDefine( defname, ( *sLine == '\0' )? NULL : sLine ); + lastdef = hb_pp_AddDefine( defname, ( *sLine == '\0' ) ? NULL : sLine ); lastdef->npars = npars; - lastdef->pars = ( npars <= 0 )? NULL : hb_strdup( pars ); + lastdef->pars = ( npars <= 0 ) ? NULL : hb_strdup( pars ); } else hb_compGenError( hb_pp_szErrors, 'F', ERR_DEFINE_ABSENT, NULL, NULL ); + return 0; } DEFINES * hb_pp_AddDefine( char * defname, char * value ) { BOOL isNew; - DEFINES* stdef = DefSearch( defname, &isNew ); + DEFINES * stdef = DefSearch( defname, &isNew ); HB_TRACE(HB_TR_DEBUG, ("hb_pp_AddDefine(%s, %s)", defname, value)); @@ -320,21 +350,25 @@ DEFINES * hb_pp_AddDefine( char * defname, char * value ) } } else - { - stdef = ( DEFINES * ) hb_xgrab( sizeof( DEFINES ) ); - stdef->last = hb_pp_topDefine; - hb_pp_topDefine = stdef; - stdef->name = hb_strdup( defname ); - s_kolAddDefs++; - } - stdef->value = ( value == NULL )? NULL : hb_strdup( value ); + { + stdef = ( DEFINES * ) hb_xgrab( sizeof( DEFINES ) ); + stdef->last = hb_pp_topDefine; + hb_pp_topDefine = stdef; + stdef->name = hb_strdup( defname ); + stdef->npars = -1; + + s_kolAddDefs++; + } + + stdef->value = ( value == NULL ) ? NULL : hb_strdup( value ); + return stdef; } static int ParseUndef( char * sLine ) { - char defname[MAX_NAME]; - DEFINES* stdef; + char defname[ MAX_NAME ]; + DEFINES * stdef; BOOL isNew; HB_TRACE(HB_TR_DEBUG, ("ParseUndef(%s)", sLine)); @@ -351,6 +385,7 @@ static int ParseUndef( char * sLine ) } stdef->name = NULL; } + return 0; } @@ -660,6 +695,7 @@ int hb_pp_ParseExpression( char * sLine, char * sOutLine ) else { /* Look for macros from #define */ while( ( lenToken = NextName( &ptri, sToken ) ) > 0 ) + { if( (stdef=DefSearch(sToken,NULL)) != NULL ) { ptrb = ptri - lenToken; @@ -681,7 +717,7 @@ int hb_pp_ParseExpression( char * sLine, char * sOutLine ) ptri += i - (ptri-ptrb); } } - + } /* Look for definitions from #translate */ stcmd = hb_pp_topTranslate; while( stcmd != NULL ) diff --git a/harbour/source/pp/hbppint.c b/harbour/source/pp/hbppint.c index 67355f12ca..603b0285fd 100644 --- a/harbour/source/pp/hbppint.c +++ b/harbour/source/pp/hbppint.c @@ -50,36 +50,29 @@ #include "compiler.h" extern FILES hb_comp_files; -extern int hb_comp_iLine; /* currently parsed file line number */ +extern int hb_comp_iLine; /* currently parsed file line number */ static char s_szLine[ HB_PP_STR_SIZE ]; static char s_szOutLine[ HB_PP_STR_SIZE ]; -void hb_pp_Init( void ) -{ - HB_TRACE(HB_TR_DEBUG, ("Hbpp_init()")); - - hb_pp_aCondCompile = ( int * ) hb_xgrab( sizeof( int ) * 5 ); -} - int hb_pp_Internal( FILE * handl_o, char * sOut ) { PFILE pFile; - char *ptr, *ptrOut; + char * ptr, * ptrOut; int lContinue; int lens, rdlen; int nEmptyStrings = 0, lLine = 0, i; HB_TRACE(HB_TR_DEBUG, ("PreProcess(%p, %p, %s)", handl_o, sOut)); - while( 1 ) + while( TRUE ) { pFile = hb_comp_files.pLast; lens = lContinue = 0; ptrOut = sOut; while( ( rdlen = hb_pp_RdStr( pFile->handle, s_szLine + lens, HB_PP_STR_SIZE - - lens, lContinue, (char*)pFile->pBuffer, &(pFile->lenBuffer), - &(pFile->iBuffer) ) ) >= 0 ) + lens, lContinue, ( char * ) pFile->pBuffer, &( pFile->lenBuffer ), + &( pFile->iBuffer ) ) ) >= 0 ) { lens += rdlen; @@ -92,7 +85,7 @@ int hb_pp_Internal( FILE * handl_o, char * sOut ) s_szLine[ ++lens ] = ' '; s_szLine[ ++lens ] = '\0'; - nEmptyStrings++; + nEmptyStrings++; } else { diff --git a/harbour/source/pp/hbpplib.c b/harbour/source/pp/hbpplib.c index 0e4f0f7674..90631331ff 100644 --- a/harbour/source/pp/hbpplib.c +++ b/harbour/source/pp/hbpplib.c @@ -53,9 +53,9 @@ #include "hberrors.h" PATHNAMES * hb_comp_pIncludePath = NULL; -PHB_FNAME hb_comp_pFileName = NULL; +PHB_FNAME hb_comp_pFileName = NULL; FILES hb_comp_files; -int hb_comp_iLine; /* currently parsed file line number */ +int hb_comp_iLine; /* currently parsed file line number */ /* These are need for the PP #pragma support */ BOOL hb_comp_bPPO = FALSE; /* flag indicating, is ppo output needed */ diff --git a/harbour/source/pp/stdalone/hbpp.c b/harbour/source/pp/stdalone/hbpp.c index 1be88d03d4..e7a7189633 100644 --- a/harbour/source/pp/stdalone/hbpp.c +++ b/harbour/source/pp/stdalone/hbpp.c @@ -63,9 +63,9 @@ static char s_szOutLine[ HB_PP_STR_SIZE ]; static int s_iWarnings = 0; PATHNAMES * hb_comp_pIncludePath = NULL; -PHB_FNAME hb_comp_pFileName = NULL; +PHB_FNAME hb_comp_pFileName = NULL; FILES hb_comp_files; -int hb_comp_iLine = 1; /* currently parsed file line number */ +int hb_comp_iLine = 1; /* currently parsed file line number */ /* These are need for the PP #pragma support */ BOOL hb_comp_bPPO = FALSE; /* flag indicating, is ppo output needed */ @@ -150,6 +150,7 @@ int main( int argc, char * argv[] ) else hb_comp_pFileName = hb_fsFNameSplit( argv[ iArg ] ); iArg++; } + if( hb_comp_pFileName ) { if( ! hb_comp_pFileName->szExtension ) @@ -210,9 +211,10 @@ int main( int argc, char * argv[] ) AddSearchPath( pPath, &hb_comp_pIncludePath ); } } - hb_pp_aCondCompile = ( int * ) hb_xgrab( sizeof( int ) * 5 ); - while ( hb_pp_Parse( handl_o ) > 0 ); + hb_pp_Init(); + + while( hb_pp_Parse( handl_o ) > 0 ); fclose( hb_comp_files.pLast->handle ); hb_xfree( hb_comp_files.pLast->pBuffer ); hb_xfree( hb_comp_files.pLast ); @@ -231,14 +233,14 @@ int main( int argc, char * argv[] ) int hb_pp_Parse( FILE * handl_o ) { PFILE pFile; - char *ptr; + char * ptr; int lContinue; int lens, rdlen; int nEmptyStrings = 0, lLine = 0, i; HB_TRACE(HB_TR_DEBUG, ("PreProcess(%p, %p, %s)", handl_o, sOut)); - while( 1 ) + while( TRUE ) { pFile = hb_comp_files.pLast; lens = lContinue = 0; @@ -257,7 +259,7 @@ int hb_pp_Parse( FILE * handl_o ) s_szLine[ ++lens ] = ' '; s_szLine[ ++lens ] = '\0'; - nEmptyStrings++; + nEmptyStrings++; } else { @@ -612,4 +614,4 @@ BOOL hb_pp_fopen( char * szFileName ) hb_comp_files.iFiles = 1; return TRUE; -} \ No newline at end of file +} diff --git a/harbour/source/pp/table.c b/harbour/source/pp/table.c index 772a7c8115..b7752baa2d 100644 --- a/harbour/source/pp/table.c +++ b/harbour/source/pp/table.c @@ -45,349 +45,349 @@ #include #include "hbpp.h" - static DEFINES sD___01 = {"__HARBOUR__",NULL,-1,"1", NULL }; - static DEFINES sD___02 = {"_SET_ALTERNATE",NULL,-1,"18", &sD___01 }; - static DEFINES sD___03 = {"_SET_ALTFILE",NULL,-1,"19", &sD___02 }; - static DEFINES sD___04 = {"_SET_BELL",NULL,-1,"26", &sD___03 }; - static DEFINES sD___05 = {"_SET_CANCEL",NULL,-1,"12", &sD___04 }; - static DEFINES sD___06 = {"_SET_COLOR",NULL,-1,"15", &sD___05 }; - static DEFINES sD___07 = {"_SET_CONFIRM",NULL,-1,"27", &sD___06 }; - static DEFINES sD___08 = {"_SET_CONSOLE",NULL,-1,"17", &sD___07 }; - static DEFINES sD___09 = {"_SET_CURSOR",NULL,-1,"16", &sD___08 }; - static DEFINES sD___10 = {"_SET_DATEFORMAT",NULL,-1,"4", &sD___09 }; - static DEFINES sD___11 = {"_SET_DEBUG",NULL,-1,"13", &sD___10 }; - static DEFINES sD___12 = {"_SET_DECIMALS",NULL,-1,"3", &sD___11 }; - static DEFINES sD___13 = {"_SET_DEFAULT",NULL,-1,"7", &sD___12 }; - static DEFINES sD___14 = {"_SET_DELETED",NULL,-1,"11", &sD___13 }; - static DEFINES sD___15 = {"_SET_DELIMCHARS",NULL,-1,"34", &sD___14 }; - static DEFINES sD___16 = {"_SET_DELIMITERS",NULL,-1,"33", &sD___15 }; - static DEFINES sD___17 = {"_SET_DEVICE",NULL,-1,"20", &sD___16 }; - static DEFINES sD___18 = {"_SET_EPOCH",NULL,-1,"5", &sD___17 }; - static DEFINES sD___19 = {"_SET_ESCAPE",NULL,-1,"28", &sD___18 }; - static DEFINES sD___20 = {"_SET_EVENTMASK",NULL,-1,"39", &sD___19 }; - static DEFINES sD___21 = {"_SET_EXACT",NULL,-1,"1", &sD___20 }; - static DEFINES sD___22 = {"_SET_EXCLUSIVE",NULL,-1,"8", &sD___21 }; - static DEFINES sD___23 = {"_SET_EXIT",NULL,-1,"30", &sD___22 }; - static DEFINES sD___24 = {"_SET_EXTRA",NULL,-1,"21", &sD___23 }; - static DEFINES sD___25 = {"_SET_EXTRAFILE",NULL,-1,"22", &sD___24 }; - static DEFINES sD___26 = {"_SET_FIXED",NULL,-1,"2", &sD___25 }; - static DEFINES sD___27 = {"_SET_INSERT",NULL,-1,"29", &sD___26 }; - static DEFINES sD___28 = {"_SET_INTENSITY",NULL,-1,"31", &sD___27 }; - static DEFINES sD___29 = {"_SET_MARGIN",NULL,-1,"25", &sD___28 }; - static DEFINES sD___30 = {"_SET_MCENTER",NULL,-1,"37", &sD___29 }; - static DEFINES sD___31 = {"_SET_MESSAGE",NULL,-1,"36", &sD___30 }; - static DEFINES sD___32 = {"_SET_PATH",NULL,-1,"6", &sD___31 }; - static DEFINES sD___33 = {"_SET_PRINTER",NULL,-1,"23", &sD___32 }; - static DEFINES sD___34 = {"_SET_PRINTFILE",NULL,-1,"24", &sD___33 }; - static DEFINES sD___35 = {"_SET_SCOREBOARD",NULL,-1,"32", &sD___34 }; - static DEFINES sD___36 = {"_SET_SCROLLBREAK",NULL,-1,"38", &sD___35 }; - static DEFINES sD___37 = {"_SET_SOFTSEEK",NULL,-1,"9", &sD___36 }; - static DEFINES sD___38 = {"_SET_TYPEAHEAD",NULL,-1,"14", &sD___37 }; - static DEFINES sD___39 = {"_SET_UNIQUE",NULL,-1,"10", &sD___38 }; - static DEFINES sD___40 = {"_SET_WRAP",NULL,-1,"35", &sD___39 }; - static DEFINES sD___41 = {"_SET_COUNT",NULL,-1,"47", &sD___40 }; - static DEFINES sD___42 = {"_SET_CH",NULL,-1,NULL, &sD___41 }; - static DEFINES sD___43 = {"_DFSET","x,y",2,"Set( _SET_DATEFORMAT, if(__SetCentury(), x, y) )", &sD___42 }; - static DEFINES sD___44 = {"_SET_VIDEOMODE",NULL,-1,"40", &sD___43 }; - static DEFINES sD___45 = {"_SET_MBLOCKSIZE",NULL,-1,"41", &sD___44 }; - static DEFINES sD___46 = {"_SET_MFILEEXT",NULL,-1,"42", &sD___45 }; - static DEFINES sD___47 = {"_SET_STRICTREAD",NULL,-1,"43", &sD___46 }; - static DEFINES sD___48 = {"_SET_OPTIMIZE",NULL,-1,"44", &sD___47 }; - static DEFINES sD___49 = {"_SET_AUTOPEN",NULL,-1,"45", &sD___48 }; - static DEFINES sD___50 = {"_SET_AUTORDER",NULL,-1,"46", &sD___49 }; - static DEFINES sD___51 = {"_SET_AUTOSHARE",NULL,-1,"47", &sD___50 }; +static DEFINES sD___01 = {"__HARBOUR__",NULL,-1,"1", NULL }; +static DEFINES sD___02 = {"_SET_ALTERNATE",NULL,-1,"18", &sD___01 }; +static DEFINES sD___03 = {"_SET_ALTFILE",NULL,-1,"19", &sD___02 }; +static DEFINES sD___04 = {"_SET_BELL",NULL,-1,"26", &sD___03 }; +static DEFINES sD___05 = {"_SET_CANCEL",NULL,-1,"12", &sD___04 }; +static DEFINES sD___06 = {"_SET_COLOR",NULL,-1,"15", &sD___05 }; +static DEFINES sD___07 = {"_SET_CONFIRM",NULL,-1,"27", &sD___06 }; +static DEFINES sD___08 = {"_SET_CONSOLE",NULL,-1,"17", &sD___07 }; +static DEFINES sD___09 = {"_SET_CURSOR",NULL,-1,"16", &sD___08 }; +static DEFINES sD___10 = {"_SET_DATEFORMAT",NULL,-1,"4", &sD___09 }; +static DEFINES sD___11 = {"_SET_DEBUG",NULL,-1,"13", &sD___10 }; +static DEFINES sD___12 = {"_SET_DECIMALS",NULL,-1,"3", &sD___11 }; +static DEFINES sD___13 = {"_SET_DEFAULT",NULL,-1,"7", &sD___12 }; +static DEFINES sD___14 = {"_SET_DELETED",NULL,-1,"11", &sD___13 }; +static DEFINES sD___15 = {"_SET_DELIMCHARS",NULL,-1,"34", &sD___14 }; +static DEFINES sD___16 = {"_SET_DELIMITERS",NULL,-1,"33", &sD___15 }; +static DEFINES sD___17 = {"_SET_DEVICE",NULL,-1,"20", &sD___16 }; +static DEFINES sD___18 = {"_SET_EPOCH",NULL,-1,"5", &sD___17 }; +static DEFINES sD___19 = {"_SET_ESCAPE",NULL,-1,"28", &sD___18 }; +static DEFINES sD___20 = {"_SET_EVENTMASK",NULL,-1,"39", &sD___19 }; +static DEFINES sD___21 = {"_SET_EXACT",NULL,-1,"1", &sD___20 }; +static DEFINES sD___22 = {"_SET_EXCLUSIVE",NULL,-1,"8", &sD___21 }; +static DEFINES sD___23 = {"_SET_EXIT",NULL,-1,"30", &sD___22 }; +static DEFINES sD___24 = {"_SET_EXTRA",NULL,-1,"21", &sD___23 }; +static DEFINES sD___25 = {"_SET_EXTRAFILE",NULL,-1,"22", &sD___24 }; +static DEFINES sD___26 = {"_SET_FIXED",NULL,-1,"2", &sD___25 }; +static DEFINES sD___27 = {"_SET_INSERT",NULL,-1,"29", &sD___26 }; +static DEFINES sD___28 = {"_SET_INTENSITY",NULL,-1,"31", &sD___27 }; +static DEFINES sD___29 = {"_SET_MARGIN",NULL,-1,"25", &sD___28 }; +static DEFINES sD___30 = {"_SET_MCENTER",NULL,-1,"37", &sD___29 }; +static DEFINES sD___31 = {"_SET_MESSAGE",NULL,-1,"36", &sD___30 }; +static DEFINES sD___32 = {"_SET_PATH",NULL,-1,"6", &sD___31 }; +static DEFINES sD___33 = {"_SET_PRINTER",NULL,-1,"23", &sD___32 }; +static DEFINES sD___34 = {"_SET_PRINTFILE",NULL,-1,"24", &sD___33 }; +static DEFINES sD___35 = {"_SET_SCOREBOARD",NULL,-1,"32", &sD___34 }; +static DEFINES sD___36 = {"_SET_SCROLLBREAK",NULL,-1,"38", &sD___35 }; +static DEFINES sD___37 = {"_SET_SOFTSEEK",NULL,-1,"9", &sD___36 }; +static DEFINES sD___38 = {"_SET_TYPEAHEAD",NULL,-1,"14", &sD___37 }; +static DEFINES sD___39 = {"_SET_UNIQUE",NULL,-1,"10", &sD___38 }; +static DEFINES sD___40 = {"_SET_WRAP",NULL,-1,"35", &sD___39 }; +static DEFINES sD___41 = {"_SET_COUNT",NULL,-1,"47", &sD___40 }; +static DEFINES sD___42 = {"_SET_CH",NULL,-1,NULL, &sD___41 }; +static DEFINES sD___43 = {"_DFSET","x,y",2,"Set( _SET_DATEFORMAT, if(__SetCentury(), x, y) )", &sD___42 }; +static DEFINES sD___44 = {"_SET_VIDEOMODE",NULL,-1,"40", &sD___43 }; +static DEFINES sD___45 = {"_SET_MBLOCKSIZE",NULL,-1,"41", &sD___44 }; +static DEFINES sD___46 = {"_SET_MFILEEXT",NULL,-1,"42", &sD___45 }; +static DEFINES sD___47 = {"_SET_STRICTREAD",NULL,-1,"43", &sD___46 }; +static DEFINES sD___48 = {"_SET_OPTIMIZE",NULL,-1,"44", &sD___47 }; +static DEFINES sD___49 = {"_SET_AUTOPEN",NULL,-1,"45", &sD___48 }; +static DEFINES sD___50 = {"_SET_AUTORDER",NULL,-1,"46", &sD___49 }; +static DEFINES sD___51 = {"_SET_AUTOSHARE",NULL,-1,"47", &sD___50 }; - DEFINES * hb_pp_topDefine = &sD___51; +DEFINES * hb_pp_topDefine = &sD___51; - static COMMANDS sC___1 = {0,"NOTE","\1A30",NULL,NULL }; - static COMMANDS sC___2 = {0,"DO","WHILE \1A00","while \1A00",&sC___1 }; - static COMMANDS sC___3 = {0,"END","\1A00","end",&sC___2 }; - static COMMANDS sC___4 = {0,"END","SEQUENCE","end",&sC___3 }; - static COMMANDS sC___5 = {0,"ENDSEQUENCE","","end",&sC___4 }; - static COMMANDS sC___6 = {0,"ENDDO","\1A30","enddo",&sC___5 }; - static COMMANDS sC___7 = {0,"ENDIF","\1A30","endif",&sC___6 }; - static COMMANDS sC___8 = {0,"ENDCASE","\1A30","endcase",&sC___7 }; - static COMMANDS sC___9 = {0,"ENDFOR","[ \1A30 ]","next",&sC___8 }; - static COMMANDS sC___10 = {0,"NEXT","\1A00 [TO \1B00] [STEP \1C00]","next",&sC___9 }; - static COMMANDS sC___11 = {0,"DO","\1A00.PRG [WITH \1B10]","do \1A00 [ WITH \1B00]",&sC___10 }; - static COMMANDS sC___12 = {0,"CALL","\1A00() [WITH \1B10]","call \1A00 [ WITH \1B00]",&sC___11 }; - static COMMANDS sC___13 = {0,"STORE","\1A00 TO \1B00 [, \1C00 ]","\1B00 := [ \1C00 := ] \1A00",&sC___12 }; - static COMMANDS sC___14 = {0,"SET","ECHO \1A30",NULL,&sC___13 }; - static COMMANDS sC___15 = {0,"SET","HEADING \1A30",NULL,&sC___14 }; - static COMMANDS sC___16 = {0,"SET","MENU \1A30",NULL,&sC___15 }; - static COMMANDS sC___17 = {0,"SET","STATUS \1A30",NULL,&sC___16 }; - static COMMANDS sC___18 = {0,"SET","STEP \1A30",NULL,&sC___17 }; - static COMMANDS sC___19 = {0,"SET","SAFETY \1A30",NULL,&sC___18 }; - static COMMANDS sC___20 = {0,"SET","TALK \1A30",NULL,&sC___19 }; - static COMMANDS sC___21 = {0,"SET","PROCEDURE TO",NULL,&sC___20 }; - static COMMANDS sC___22 = {0,"SET","PROCEDURE TO \1A00","_ProcReq_( \1A30 )",&sC___21 }; - static COMMANDS sC___23 = {0,"SET","EXACT \1A20ON,OFF,&>","Set( _SET_EXACT, \1A30 )",&sC___22 }; - static COMMANDS sC___24 = {0,"SET","EXACT (\1A00)","Set( _SET_EXACT, \1A00 )",&sC___23 }; - static COMMANDS sC___25 = {0,"SET","FIXED \1A20ON,OFF,&>","Set( _SET_FIXED, \1A30 )",&sC___24 }; - static COMMANDS sC___26 = {0,"SET","FIXED (\1A00)","Set( _SET_FIXED, \1A00 )",&sC___25 }; - static COMMANDS sC___27 = {0,"SET","DECIMALS TO \1A00","Set( _SET_DECIMALS, \1A00 )",&sC___26 }; - static COMMANDS sC___28 = {0,"SET","DECIMALS TO","Set( _SET_DECIMALS, 0 )",&sC___27 }; - static COMMANDS sC___29 = {0,"SET","PATH TO \1A30","Set( _SET_PATH, \1A30 )",&sC___28 }; - static COMMANDS sC___30 = {0,"SET","PATH TO","Set( _SET_PATH, "" )",&sC___29 }; - static COMMANDS sC___31 = {0,"SET","DEFAULT TO \1A40","Set( _SET_DEFAULT, \1A30 )",&sC___30 }; - static COMMANDS sC___32 = {0,"SET","DEFAULT TO","Set( _SET_DEFAULT, "" )",&sC___31 }; - static COMMANDS sC___33 = {0,"SET","CENTURY \1A20ON,OFF,&>","__SetCentury( \1A30 )",&sC___32 }; - static COMMANDS sC___34 = {0,"SET","CENTURY (\1A00)","__SetCentury( \1A00 )",&sC___33 }; - static COMMANDS sC___35 = {0,"SET","EPOCH TO \1A00","Set( _SET_EPOCH, \1A00 )",&sC___34 }; - static COMMANDS sC___36 = {0,"SET","DATE FORMAT [TO] \1A00","Set( _SET_DATEFORMAT, \1A00 )",&sC___35 }; - static COMMANDS sC___37 = {0,"SET","DATE [TO] AMERICAN","_DFSET( 'mm/dd/yyyy', 'mm/dd/yy' )",&sC___36 }; - static COMMANDS sC___38 = {0,"SET","DATE [TO] ANSI","_DFSET( 'yyyy.mm.dd', 'yy.mm.dd' )",&sC___37 }; - static COMMANDS sC___39 = {0,"SET","DATE [TO] BRITISH","_DFSET( 'dd/mm/yyyy', 'dd/mm/yy' )",&sC___38 }; - static COMMANDS sC___40 = {0,"SET","DATE [TO] FRENCH","_DFSET( 'dd/mm/yyyy', 'dd/mm/yy' )",&sC___39 }; - static COMMANDS sC___41 = {0,"SET","DATE [TO] GERMAN","_DFSET( 'dd.mm.yyyy', 'dd.mm.yy' )",&sC___40 }; - static COMMANDS sC___42 = {0,"SET","DATE [TO] ITALIAN","_DFSET( 'dd-mm-yyyy', 'dd-mm-yy' )",&sC___41 }; - static COMMANDS sC___43 = {0,"SET","DATE [TO] JAPANESE","_DFSET( 'yyyy/mm/dd', 'yy/mm/dd' )",&sC___42 }; - static COMMANDS sC___44 = {0,"SET","DATE [TO] USA","_DFSET( 'mm-dd-yyyy', 'mm-dd-yy' )",&sC___43 }; - static COMMANDS sC___45 = {0,"SET","ALTERNATE \1A20ON,OFF,&>","Set( _SET_ALTERNATE, \1A30 )",&sC___44 }; - static COMMANDS sC___46 = {0,"SET","ALTERNATE (\1A00)","Set( _SET_ALTERNATE, \1A00 )",&sC___45 }; - static COMMANDS sC___47 = {0,"SET","ALTERNATE TO","Set( _SET_ALTFILE, "" )",&sC___46 }; - static COMMANDS sC___48 = {0,"SET","ALTERNATE TO \1A40 [\1B20 ADDITIVE>]","Set( _SET_ALTFILE, \1A30, \1B50 )",&sC___47 }; - static COMMANDS sC___49 = {0,"SET","CONSOLE \1A20ON,OFF,&>","Set( _SET_CONSOLE, \1A30 )",&sC___48 }; - static COMMANDS sC___50 = {0,"SET","CONSOLE (\1A00)","Set( _SET_CONSOLE, \1A00 )",&sC___49 }; - static COMMANDS sC___51 = {0,"SET","MARGIN TO \1A00","Set( _SET_MARGIN, \1A00 )",&sC___50 }; - static COMMANDS sC___52 = {0,"SET","MARGIN TO","Set( _SET_MARGIN, 0 )",&sC___51 }; - static COMMANDS sC___53 = {0,"SET","PRINTER \1A20ON,OFF,&>","Set( _SET_PRINTER, \1A30 )",&sC___52 }; - static COMMANDS sC___54 = {0,"SET","PRINTER (\1A00)","Set( _SET_PRINTER, \1A00 )",&sC___53 }; - static COMMANDS sC___55 = {0,"SET","PRINTER TO","Set( _SET_PRINTFILE, "" )",&sC___54 }; - static COMMANDS sC___56 = {0,"SET","PRINTER TO \1A40 [\1B20 ADDITIVE>]","Set( _SET_PRINTFILE, \1A30, \1B50 )",&sC___55 }; - static COMMANDS sC___57 = {0,"SET","DEVICE TO SCREEN","Set( _SET_DEVICE, 'SCREEN' )",&sC___56 }; - static COMMANDS sC___58 = {0,"SET","DEVICE TO PRINTER","Set( _SET_DEVICE, 'PRINTER' )",&sC___57 }; - static COMMANDS sC___59 = {0,"SET","COLOR TO [\1A30]","SetColor( \1A10 )",&sC___58 }; - static COMMANDS sC___60 = {0,"SET","COLOR TO ( \1A00 )","SetColor( \1A00 )",&sC___59 }; - static COMMANDS sC___61 = {0,"SET","COLOUR TO [\1A30]","SET COLOR TO [\1A00]",&sC___60 }; - static COMMANDS sC___62 = {0,"SET","CURSOR \1A20ON,OFF,&>","SetCursor( if(Upper(\1A30) == 'ON', 1, 0) )",&sC___61 }; - static COMMANDS sC___63 = {0,"SET","CURSOR (\1A00)","SetCursor( if(\1A00, 1, 0) )",&sC___62 }; - static COMMANDS sC___64 = {0,"?","[ \1A10]","QOut( \1A00 )",&sC___63 }; - static COMMANDS sC___65 = {0,"??","[ \1A10]","QQOut( \1A00 )",&sC___64 }; - static COMMANDS sC___66 = {0,"EJECT","","__Eject()",&sC___65 }; - static COMMANDS sC___67 = {0,"TEXT","","text QOut, QQOut",&sC___66 }; - static COMMANDS sC___68 = {0,"TEXT","TO FILE \1A40","__TextSave( \1A30 ) ; text QOut, __TextRestore",&sC___67 }; - static COMMANDS sC___69 = {0,"TEXT","TO PRINTER","__TextSave('PRINTER') ; text QOut, __TextRestore",&sC___68 }; - static COMMANDS sC___70 = {0,"CLS","","Scroll() ; SetPos(0,0)",&sC___69 }; - static COMMANDS sC___71 = {0,"CLEAR","SCREEN","CLS",&sC___70 }; - static COMMANDS sC___72 = {0,"@","\1A00, \1B00","Scroll( \1A00, \1B00, \1A00 ) ; SetPos( \1A00, \1B00 )",&sC___71 }; - static COMMANDS sC___73 = {0,"@","\1A00, \1B00 CLEAR","Scroll( \1A00, \1B00 ) ; SetPos( \1A00, \1B00 )",&sC___72 }; - static COMMANDS sC___74 = {0,"@","\1A00, \1B00 CLEAR TO \1C00, \1D00", - "Scroll( \1A00, \1B00, \1C00, \1D00 ) ; SetPos( \1A00, \1B00 )",&sC___73 }; - static COMMANDS sC___75 = {0,"@","\1A00, \1B00, \1C00, \1D00 BOX \1E00 [COLOR \1F00]", - "DispBox( \1A00, \1B00, \1C00, \1D00, \1E00 [, \1F00 ] )",&sC___74 }; - static COMMANDS sC___76 = {0,"@","\1A00, \1B00 TO \1C00, \1D00 [DOUBLE] [COLOR \1E00]", - "DispBox( \1A00, \1B00, \1C00, \1D00, 2 [, \1E00 ] )",&sC___75 }; - static COMMANDS sC___77 = {0,"@","\1A00, \1B00 TO \1C00, \1D00 [COLOR \1E00]", - "DispBox( \1A00, \1B00, \1C00, \1D00, 1 [, \1E00 ] )",&sC___76 }; - static COMMANDS sC___78 = {0,"@","\1A00, \1B00 SAY \1C00 [PICTURE \1D00] [COLOR \1E00]", - "DevPos( \1A00, \1B00 ) ; DevOutPict( \1C00, \1D00 [, \1E00] )",&sC___77 }; - static COMMANDS sC___79 = {0,"@","\1A00, \1B00 SAY \1C00 [COLOR \1D00]", - "DevPos( \1A00, \1B00 ) ; DevOut( \1C00 [, \1D00] )",&sC___78 }; - static COMMANDS sC___80 = {0,"SET","BELL \1A20ON,OFF,&>","Set( _SET_BELL, \1A30 )",&sC___79 }; - static COMMANDS sC___81 = {0,"SET","BELL (\1A00)","Set( _SET_BELL, \1A00 )",&sC___80 }; - static COMMANDS sC___82 = {0,"SET","CONFIRM \1A20ON,OFF,&>","Set( _SET_CONFIRM, \1A30 )",&sC___81 }; - static COMMANDS sC___83 = {0,"SET","CONFIRM (\1A00)","Set( _SET_CONFIRM, \1A00 )",&sC___82 }; - static COMMANDS sC___84 = {0,"SET","ESCAPE \1A20ON,OFF,&>","Set( _SET_ESCAPE, \1A30 )",&sC___83 }; - static COMMANDS sC___85 = {0,"SET","ESCAPE (\1A00)","Set( _SET_ESCAPE, \1A00 )",&sC___84 }; - static COMMANDS sC___86 = {0,"SET","INTENSITY \1A20ON,OFF,&>","Set( _SET_INTENSITY, \1A30 )",&sC___85 }; - static COMMANDS sC___87 = {0,"SET","INTENSITY (\1A00)","Set( _SET_INTENSITY, \1A00 )",&sC___86 }; - static COMMANDS sC___88 = {0,"SET","SCOREBOARD \1A20ON,OFF,&>","Set( _SET_SCOREBOARD, \1A30 )",&sC___87 }; - static COMMANDS sC___89 = {0,"SET","SCOREBOARD (\1A00)","Set( _SET_SCOREBOARD, \1A00 )",&sC___88 }; - static COMMANDS sC___90 = {0,"SET","DELIMITERS \1A20ON,OFF,&>","Set( _SET_DELIMITERS, \1A30 )",&sC___89 }; - static COMMANDS sC___91 = {0,"SET","DELIMITERS (\1A00)","Set( _SET_DELIMITERS, \1A00 )",&sC___90 }; - static COMMANDS sC___92 = {0,"SET","DELIMITERS TO \1A00","Set( _SET_DELIMCHARS, \1A00 )",&sC___91 }; - static COMMANDS sC___93 = {0,"SET","DELIMITERS TO DEFAULT","Set( _SET_DELIMCHARS, '::' )",&sC___92 }; - static COMMANDS sC___94 = {0,"SET","DELIMITERS TO","Set( _SET_DELIMCHARS, '::' )",&sC___93 }; - static COMMANDS sC___95 = {0,"SET","FORMAT TO \1A00","_ProcReq_( \1A30 + '.FMT' ) ; __SetFormat( {|| \1A00()} )",&sC___94 }; - static COMMANDS sC___96 = {0,"SET","FORMAT TO \1A00.\1B00", - "_ProcReq_( \1A30 + '.' + \1B30 ) ; __SetFormat( {|| \1A00()} )",&sC___95 }; - static COMMANDS sC___97 = {0,"SET","FORMAT TO \1A20&>", - "if ( Empty(\1A30) ) ; SET FORMAT TO ; else ; __SetFormat( &('{||' + \1A30 + '()}') ) ; end",&sC___96 }; - static COMMANDS sC___98 = {0,"SET","FORMAT TO","__SetFormat()",&sC___97 }; - static COMMANDS sC___99 = {0,"@","\1A00, \1B00 GET \1C00 [PICTURE \1D00] [VALID \1E00] [WHEN \1F00] [SEND \1G00]", - "SetPos( \1A00, \1B00 ) ; AAdd( GetList, _GET_( \1C00, \1C20, \1D00, \1E40, \1F40,{|u| If( PCount()==0,\1C00,\1C00:=u )} ):display() ) [; ATail(GetList):\1G00]",&sC___98 }; - static COMMANDS sC___100 = {0,"@","\1A00, \1B00 SAY \1C00 [\1D10] GET \1E00 [\1F10]", - "@ \1A00, \1B00 SAY \1C00 [\1D00] ; @ Row(), Col()+1 GET \1E00 [\1F00]",&sC___99 }; - static COMMANDS sC___101 = {0,"@","\1A00, \1B00 GET \1C00 [\1D10] RANGE \1E00, \1F00 [\1G10]", - "@ \1A00, \1B00 GET \1C00 [\1D00] VALID {|_1| RangeCheck(_1,, \1E00, \1F00)} [\1G00]",&sC___100 }; - static COMMANDS sC___102 = {0,"@","\1A00, \1B00 GET \1C00 [\1D10] COLOR \1E00 [\1F10]", - "@ \1A00, \1B00 GET \1C00 [\1D00] SEND colorDisp(\1E00) [\1F00]",&sC___101 }; - static COMMANDS sC___103 = {0,"READ","SAVE","ReadModal(GetList)",&sC___102 }; - static COMMANDS sC___104 = {0,"READ","","ReadModal(GetList) ; GetList := {}",&sC___103 }; - static COMMANDS sC___105 = {0,"CLEAR","GETS","ReadKill(.T.) ; GetList := {}",&sC___104 }; - static COMMANDS sC___106 = {0,"@","[\1A10] COLOUR [\1B10]","@ [\1A00] COLOR [\1B00]",&sC___105 }; - static COMMANDS sC___107 = {0,"SET","WRAP \1A20ON,OFF,&>","Set( _SET_WRAP, \1A30 )",&sC___106 }; - static COMMANDS sC___108 = {0,"SET","WRAP (\1A00)","Set( _SET_WRAP, \1A00 )",&sC___107 }; - static COMMANDS sC___109 = {0,"SET","MESSAGE TO \1A00 [\1B20 CENTER, CENTRE>]", - "Set( _SET_MESSAGE, \1A00 ) ; Set( _SET_MCENTER, \1B50 )",&sC___108 }; - static COMMANDS sC___110 = {0,"SET","MESSAGE TO","Set( _SET_MESSAGE, 0 ) ; Set( _SET_MCENTER, .f. )",&sC___109 }; - static COMMANDS sC___111 = {0,"@","\1A00, \1B00 PROMPT \1C00 [MESSAGE \1D00]", - "__AtPrompt( \1A00, \1B00, \1C00 , \1D00 )",&sC___110 }; - static COMMANDS sC___112 = {0,"MENU","TO \1A00","\1A00 := __MenuTo( {|_1| if(PCount() == 0, \1A00, \1A00 := _1)}, \1A10 )",&sC___111 }; - static COMMANDS sC___113 = {0,"SAVE","SCREEN","__XSaveScreen()",&sC___112 }; - static COMMANDS sC___114 = {0,"RESTORE","SCREEN","__XRestScreen()",&sC___113 }; - static COMMANDS sC___115 = {0,"SAVE","SCREEN TO \1A00","\1A00 := SaveScreen( 0, 0, Maxrow(), Maxcol() )",&sC___114 }; - static COMMANDS sC___116 = {0,"RESTORE","SCREEN FROM \1A00","RestScreen( 0, 0, Maxrow(), Maxcol(), \1A00 )",&sC___115 }; - static COMMANDS sC___117 = {0,"WAIT","[\1A00]","__Wait( \1A00 )",&sC___116 }; - static COMMANDS sC___118 = {0,"WAIT","[\1A00] TO \1B00","\1B00 := __Wait( \1A00 )",&sC___117 }; - static COMMANDS sC___119 = {0,"ACCEPT","[\1A00] TO \1B00","\1B00 := __Accept( \1A00 )",&sC___118 }; - static COMMANDS sC___120 = {0,"INPUT","[\1A00] TO \1B00", - "if ( !Empty(__Accept(\1A00)) ) ; \1B00 := &( __AcceptStr() ) ; end",&sC___119 }; - static COMMANDS sC___121 = {0,"KEYBOARD","\1A00","__Keyboard( \1A00 )",&sC___120 }; - static COMMANDS sC___122 = {0,"CLEAR","TYPEAHEAD","__Keyboard()",&sC___121 }; - static COMMANDS sC___123 = {0,"SET","TYPEAHEAD TO \1A00","Set( _SET_TYPEAHEAD, \1A00 )",&sC___122 }; - static COMMANDS sC___124 = {0,"SET","KEY \1A00 TO \1B00","SetKey( \1A00, {|p, l, v| \1B00(p, l, v)} )",&sC___123 }; - static COMMANDS sC___125 = {0,"SET","KEY \1A00 TO \1B00 ( [\1C10] )","SET KEY \1A00 TO \1B00",&sC___124 }; - static COMMANDS sC___126 = {0,"SET","KEY \1A00 TO \1B20&>", - "if ( Empty(\1B30) ) ; SetKey( \1A00, NIL ) ; else ; SetKey( \1A00, {|p, l, v| \1B00(p, l, v)} ) ; end",&sC___125 }; - static COMMANDS sC___127 = {0,"SET","KEY \1A00 [TO]","SetKey( \1A00, NIL )",&sC___126 }; - static COMMANDS sC___128 = {0,"SET","FUNCTION \1A00 [TO] [\1B00]","__SetFunction( \1A00, \1B00 )",&sC___127 }; - static COMMANDS sC___129 = {0,"CLEAR","MEMORY","__MVClear()",&sC___128 }; - static COMMANDS sC___130 = {0,"RELEASE"," \1A10","__MVXRelease( \1A30 )",&sC___129 }; - static COMMANDS sC___131 = {0,"RELEASE","ALL","__MVRelease('*', .t.)",&sC___130 }; - static COMMANDS sC___132 = {0,"RELEASE","ALL LIKE \1A00","__MVRelease( \1A10, .t. )",&sC___131 }; - static COMMANDS sC___133 = {0,"RELEASE","ALL EXCEPT \1A00","__MVRelease( \1A10, .f. )",&sC___132 }; - static COMMANDS sC___134 = {0,"RESTORE","[FROM \1A40] [\1B20 ADDITIVE>]","__MVRestore( \1A30, \1B50 )",&sC___133 }; - static COMMANDS sC___135 = {0,"SAVE","ALL LIKE \1A00 TO \1B40","__MVSave( \1B30, \1A30, .t. )",&sC___134 }; - static COMMANDS sC___136 = {0,"SAVE","TO \1A40 ALL LIKE \1B00","__MVSave( \1A30, \1B30, .t. )",&sC___135 }; - static COMMANDS sC___137 = {0,"SAVE","ALL EXCEPT \1A00 TO \1B40","__MVSave( \1B30, \1A30, .f. )",&sC___136 }; - static COMMANDS sC___138 = {0,"SAVE","TO \1A40 ALL EXCEPT \1B00","__MVSave( \1A30, \1B30, .f. )",&sC___137 }; - static COMMANDS sC___139 = {0,"SAVE","[TO \1A40] [ALL]","__MVSave( \1A30, '*', .t. )",&sC___138 }; - static COMMANDS sC___140 = {0,"ERASE","\1A40","FErase( \1A30 )",&sC___139 }; - static COMMANDS sC___141 = {0,"DELETE","FILE \1A40","FErase( \1A30 )",&sC___140 }; - static COMMANDS sC___142 = {0,"RENAME","\1A40 TO \1B40","FRename( \1A30, \1B30 )",&sC___141 }; - static COMMANDS sC___143 = {0,"COPY","FILE \1A40 TO \1B40","__CopyFile( \1A30, \1B30 )",&sC___142 }; - static COMMANDS sC___144 = {0,"DIR","[\1A40]","__Dir( \1A30 )",&sC___143 }; - static COMMANDS sC___145 = {0,"TYPE","\1A40 [\1B20 TO PRINTER>] [TO FILE \1C40]", - "__TypeFile( \1A30, \1B50 ) [; COPY FILE \1A30 TO \1C30 ]",&sC___144 }; - static COMMANDS sC___146 = {0,"TYPE","\1A40 [\1B20 TO PRINTER>]","__TypeFile( \1A30, \1B50 )",&sC___145 }; - static COMMANDS sC___147 = {0,"REQUEST","\1A10","EXTERNAL \1A00",&sC___146 }; - static COMMANDS sC___148 = {0,"CANCEL","","__Quit()",&sC___147 }; - static COMMANDS sC___149 = {0,"QUIT","","__Quit()",&sC___148 }; - static COMMANDS sC___150 = {0,"RUN","\1A30","__Run( \1A10 )",&sC___149 }; - static COMMANDS sC___151 = {0,"RUN","( \1A00 )","__Run( \1A00 )",&sC___150 }; - static COMMANDS sC___152 = {0,"!","\1A30","RUN \1A00",&sC___151 }; - static COMMANDS sC___153 = {0,"RUN","= \1A00","( run := \1A00 )",&sC___152 }; - static COMMANDS sC___154 = {0,"RUN",":= \1A00","( run := \1A00 )",&sC___153 }; - static COMMANDS sC___155 = {0,"SET","EXCLUSIVE \1A20ON,OFF,&>","Set( _SET_EXCLUSIVE, \1A30 )",&sC___154 }; - static COMMANDS sC___156 = {0,"SET","EXCLUSIVE (\1A00)","Set( _SET_EXCLUSIVE, \1A00 )",&sC___155 }; - static COMMANDS sC___157 = {0,"SET","SOFTSEEK \1A20ON,OFF,&>","Set( _SET_SOFTSEEK, \1A30 )",&sC___156 }; - static COMMANDS sC___158 = {0,"SET","SOFTSEEK (\1A00)","Set( _SET_SOFTSEEK, \1A00 )",&sC___157 }; - static COMMANDS sC___159 = {0,"SET","UNIQUE \1A20ON,OFF,&>","Set( _SET_UNIQUE, \1A30 )",&sC___158 }; - static COMMANDS sC___160 = {0,"SET","UNIQUE (\1A00)","Set( _SET_UNIQUE, \1A00 )",&sC___159 }; - static COMMANDS sC___161 = {0,"SET","DELETED \1A20ON,OFF,&>","Set( _SET_DELETED, \1A30 )",&sC___160 }; - static COMMANDS sC___162 = {0,"SET","DELETED (\1A00)","Set( _SET_DELETED, \1A00 )",&sC___161 }; - static COMMANDS sC___163 = {0,"SELECT","\1A00","dbSelectArea( \1A30 )",&sC___162 }; - static COMMANDS sC___164 = {0,"SELECT","\1A00([\1B10])","dbSelectArea( \1A00(\1B00) )",&sC___163 }; - static COMMANDS sC___165 = {0,"USE","","dbCloseArea()",&sC___164 }; - static COMMANDS sC___166 = {0,"USE","\1A40 [VIA \1B00] [ALIAS \1C00] [\1D20 NEW>] [\1E20 EXCLUSIVE>] [\1F20 SHARED>] [\1G20 READONLY>] [INDEX \1H40 [, \1I40]]", - "dbUseArea( \1D50, \1B00, \1A30, \1C30, if(\1F50 .or. \1E50, !\1E50, NIL), \1G50 ) [; dbSetIndex( \1H30 )] [; dbSetIndex( \1I30 )]",&sC___165 }; - static COMMANDS sC___167 = {0,"APPEND","BLANK","dbAppend()",&sC___166 }; - static COMMANDS sC___168 = {0,"PACK","","__dbPack()",&sC___167 }; - static COMMANDS sC___169 = {0,"ZAP","","__dbZap()",&sC___168 }; - static COMMANDS sC___170 = {0,"UNLOCK","","dbUnlock()",&sC___169 }; - static COMMANDS sC___171 = {0,"UNLOCK","ALL","dbUnlockAll()",&sC___170 }; - static COMMANDS sC___172 = {0,"COMMIT","","dbCommitAll()",&sC___171 }; - static COMMANDS sC___173 = {0,"GOTO","\1A00","dbGoto(\1A00)",&sC___172 }; - static COMMANDS sC___174 = {0,"GO","\1A00","dbGoto(\1A00)",&sC___173 }; - static COMMANDS sC___175 = {0,"GOTO","TOP","dbGoTop()",&sC___174 }; - static COMMANDS sC___176 = {0,"GO","TOP","dbGoTop()",&sC___175 }; - static COMMANDS sC___177 = {0,"GOTO","BOTTOM","dbGoBottom()",&sC___176 }; - static COMMANDS sC___178 = {0,"GO","BOTTOM","dbGoBottom()",&sC___177 }; - static COMMANDS sC___179 = {0,"SKIP","","dbSkip(1)",&sC___178 }; - static COMMANDS sC___180 = {0,"SKIP","\1A00","dbSkip( \1A00 )",&sC___179 }; - static COMMANDS sC___181 = {0,"SKIP","ALIAS \1A00","\1A00 -> ( dbSkip(1) )",&sC___180 }; - static COMMANDS sC___182 = {0,"SKIP","\1A00 ALIAS \1B00","\1B00 -> ( dbSkip(\1A00) )",&sC___181 }; - static COMMANDS sC___183 = {0,"SEEK","\1A00 [\1B20 SOFTSEEK>]","dbSeek( \1A00, if( \1B50, .T., NIL ) )",&sC___182 }; - static COMMANDS sC___184 = {0,"FIND","\1A30","dbSeek( \1A30 )",&sC___183 }; - static COMMANDS sC___185 = {0,"FIND",":= \1A00","( find := \1A00 )",&sC___184 }; - static COMMANDS sC___186 = {0,"FIND","= \1A00","( find := \1A00 )",&sC___185 }; - static COMMANDS sC___187 = {0,"CONTINUE","","__dbContinue()",&sC___186 }; - static COMMANDS sC___188 = {0,"LOCATE","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", - "__dbLocate(\1A40,\1B40,\1C00,\1D00,\1E50)",&sC___187 }; - static COMMANDS sC___189 = {0,"SET","RELATION TO","dbClearRelation()",&sC___188 }; - static COMMANDS sC___190 = {0,"SET","RELATION [\1A20ADDITIVE>] [TO \1B00 INTO \1C40 [, [TO] \1D00 INTO \1E40]]", - "if ( !\1A50 ) ; dbClearRelation() ; end ; dbSetRelation(\1C30,\1B40,\1B20) [; dbSetRelation(\1E30,\1D40,\1D20)]",&sC___189 }; - static COMMANDS sC___191 = {0,"SET","FILTER TO","dbClearFilter(NIL)",&sC___190 }; - static COMMANDS sC___192 = {0,"SET","FILTER TO \1A00","dbSetFilter( \1A40, \1A20 )",&sC___191 }; - static COMMANDS sC___193 = {0,"SET","FILTER TO \1A20&>", - "if ( Empty(\1A30) ) ; dbClearFilter() ; else ; dbSetFilter(\1A40,\1A30) ; end",&sC___192 }; - static COMMANDS sC___194 = {0,"REPLACE","[ \1A00 WITH \1B00 [, \1C00 WITH \1D00] ] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", - "DBEval( {|| _FIELD->\1A00 := \1B00 [,_FIELD->\1C00 := \1D00]},\1E40,\1F40,\1G00,\1H00,\1I50)",&sC___193 }; - static COMMANDS sC___195 = {0,"REPLACE","\1A00 WITH \1B00 [, \1C00 WITH \1D00 ]", - "_FIELD->\1A00 := \1B00 [; _FIELD->\1C00 := \1D00]",&sC___194 }; - static COMMANDS sC___196 = {0,"DELETE","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", - "DBEval( {|| dbDelete()}, \1A40, \1B40, \1C00, \1D00, \1E50 )",&sC___195 }; - static COMMANDS sC___197 = {0,"RECALL","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", - "DBEval( {|| dbRecall()}, \1A40, \1B40, \1C00, \1D00, \1E50 )",&sC___196 }; - static COMMANDS sC___198 = {0,"DELETE","","dbDelete()",&sC___197 }; - static COMMANDS sC___199 = {0,"RECALL","","dbRecall()",&sC___198 }; - static COMMANDS sC___200 = {0,"CREATE","\1A40 [FROM \1B40] [VIA \1C00] [ALIAS \1D00] [\1E20 NEW>]", - "__dbCreate( \1A30, \1B30, \1C00, \1E50, \1D30 )",&sC___199 }; - static COMMANDS sC___201 = {0,"COPY","[STRUCTURE] [EXTENDED] [TO \1A40]","__dbCopyXStruct( \1A30 )",&sC___200 }; - static COMMANDS sC___202 = {0,"COPY","[STRUCTURE] [TO \1A40] [FIELDS \1B10]","__dbCopyStruct( \1A30, { \1B30 } )",&sC___201 }; - static COMMANDS sC___203 = {0,"COPY","[TO \1A40] [DELIMITED [WITH \1B30]] [FIELDS \1C10] [FOR \1D00] [WHILE \1E00] [NEXT \1F00] [RECORD \1G00] [\1H20REST>] [ALL]", - "__dbDelim( .T., \1A30, \1B30, { \1C30 }, \1D40, \1E40, \1F00, \1G00, \1H50 )",&sC___202 }; - static COMMANDS sC___204 = {0,"COPY","[TO \1A40] [SDF] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [ALL]", - "__dbSDF( .T., \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50 )",&sC___203 }; - static COMMANDS sC___205 = {0,"COPY","[TO \1A40] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [VIA \1H00] [ALL]", - "__dbCopy( \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50, \1H00 )",&sC___204 }; - static COMMANDS sC___206 = {0,"APPEND","[FROM \1A40] [DELIMITED [WITH \1B30]] [FIELDS \1C10] [FOR \1D00] [WHILE \1E00] [NEXT \1F00] [RECORD \1G00] [\1H20REST>] [ALL]", - "__dbDelim( .F., \1A30, \1B30, { \1C30 }, \1D40, \1E40, \1F00, \1G00, \1H50 )",&sC___205 }; - static COMMANDS sC___207 = {0,"APPEND","[FROM \1A40] [SDF] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [ALL]", - "__dbSDF( .F., \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50 )",&sC___206 }; - static COMMANDS sC___208 = {0,"APPEND","[FROM \1A40] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [VIA \1H00] [ALL]", - "__dbApp( \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50, \1H00 )",&sC___207 }; - static COMMANDS sC___209 = {0,"SORT","[TO \1A40] [ON \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [ALL]", - "__dbSort( \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50 )",&sC___208 }; - static COMMANDS sC___210 = {0,"TOTAL","[TO \1A40] [ON \1B00] [FIELDS \1C10] [FOR \1D00] [WHILE \1E00] [NEXT \1F00] [RECORD \1G00] [\1H20REST>] [ALL]", - "__dbTotal( \1A30, \1B40, { \1C30 }, \1D40, \1E40, \1F00, \1G00, \1H50 )",&sC___209 }; - static COMMANDS sC___211 = {0,"UPDATE","[FROM \1A40] [ON \1B00] [REPLACE \1C00 WITH \1D00 [, \1E00 WITH \1F00]] [\1G20RANDOM>]", - "__dbUpdate( \1A30, \1B40, \1G50, {|| _FIELD->\1C00 := \1D00 [, _FIELD->\1E00 := \1F00]} )",&sC___210 }; - static COMMANDS sC___212 = {0,"JOIN","[WITH \1A40] [TO \1B00] [FIELDS \1C10] [FOR \1D00]", - "__dbJoin( \1A30, \1B30, { \1C30 }, \1D40 )",&sC___211 }; - static COMMANDS sC___213 = {0,"COUNT","[TO \1A00] [FOR \1B00] [WHILE \1C00] [NEXT \1D00] [RECORD \1E00] [\1F20REST>] [ALL]", - "\1A00 := 0 ; DBEval( {|| \1A00 := \1A00 + 1}, \1B40, \1C40, \1D00, \1E00, \1F50 )",&sC___212 }; - static COMMANDS sC___214 = {0,"SUM","[ \1A00 [, \1B00] TO \1C00 [, \1D00] ] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", - "\1C00 := [ \1D00 := ] 0 ; DBEval( {|| \1C00 := \1C00 + \1A00 [, \1D00 := \1D00 + \1B00 ]}, \1E40, \1F40, \1G00, \1H00, \1I50 )",&sC___213 }; - static COMMANDS sC___215 = {0,"AVERAGE","[ \1A00 [, \1B00] TO \1C00 [, \1D00] ] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", - "M->__Avg := \1C00 := [ \1D00 := ] 0 ; DBEval( {|| M->__Avg := M->__Avg + 1, \1C00 := \1C00 + \1A00 [, \1D00 := \1D00 + \1B00] }, \1E40, \1F40, \1G00, \1H00, \1I50 ) ; \1C00 := \1C00 / M->__Avg [; \1D00 := \1D00 / M->__Avg ]",&sC___214 }; - static COMMANDS sC___216 = {0,"LIST","[\1A10] [\1B20OFF>] [\1C20 TO PRINTER>] [TO FILE \1D40] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", - "__dbList( \1B50, { \1A40 }, .t., \1E40, \1F40, \1G00, \1H00, \1I50, \1C50, \1D30 )",&sC___215 }; - static COMMANDS sC___217 = {0,"DISPLAY","[\1A10] [\1B20OFF>] [\1C20 TO PRINTER>] [TO FILE \1D40] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [\1J20ALL>]", - "__DBList( \1B50, { \1A40 }, \1J50, \1E40, \1F40, \1G00, \1H00, \1I50, \1C50, \1D30 )",&sC___216 }; - static COMMANDS sC___218 = {0,"REPORT","FORM \1A00 [HEADING \1B00] [\1C20 PLAIN>] [\1D20 NOEJECT>] [\1E20 SUMMARY>] [\1F20 NOCONSOLE>] [\1G20 TO PRINTER>] [TO FILE \1H40] [FOR \1I00] [WHILE \1J00] [NEXT \1K00] [RECORD \1L00] [\1M20REST>] [ALL]", - "__ReportForm( \1A30, \1G50, \1H30, \1F50, \1I40, \1J40, \1K00, \1L00, \1M50, \1C50, \1B00, \1D50, \1E50 )",&sC___217 }; - static COMMANDS sC___219 = {0,"LABEL","FORM \1A00 [\1B20 SAMPLE>] [\1C20 NOCONSOLE>] [\1D20 TO PRINTER>] [TO FILE \1E40] [FOR \1F00] [WHILE \1G00] [NEXT \1H00] [RECORD \1I00] [\1J20REST>] [ALL]", - "__LabelForm( \1A30, \1D50, \1E30, \1C50, \1F40, \1G40, \1H00, \1I00, \1J50, \1B50 )",&sC___218 }; - static COMMANDS sC___220 = {0,"CLOSE","\1A00","\1A00->( dbCloseArea() )",&sC___219 }; - static COMMANDS sC___221 = {0,"CLOSE","","dbCloseArea()",&sC___220 }; - static COMMANDS sC___222 = {0,"CLOSE","DATABASES","dbCloseAll()",&sC___221 }; - static COMMANDS sC___223 = {0,"CLOSE","ALTERNATE","Set(_SET_ALTFILE, "")",&sC___222 }; - static COMMANDS sC___224 = {0,"CLOSE","FORMAT","__SetFormat(NIL)",&sC___223 }; - static COMMANDS sC___225 = {0,"CLOSE","INDEXES","dbClearIndex()",&sC___224 }; - static COMMANDS sC___226 = {0,"CLOSE","PROCEDURE",NULL,&sC___225 }; - static COMMANDS sC___227 = {0,"CLOSE","ALL","CLOSE DATABASES ; SELECT 1 ; CLOSE FORMAT",&sC___226 }; - static COMMANDS sC___228 = {0,"CLEAR","","CLEAR SCREEN ; CLEAR GETS",&sC___227 }; - static COMMANDS sC___229 = {0,"CLEAR","ALL", - "CLOSE DATABASES ; CLOSE FORMAT ; CLEAR MEMORY ; CLEAR GETS ; SET ALTERNATE OFF ; SET ALTERNATE TO",&sC___228 }; - static COMMANDS sC___230 = {0,"INDEX","ON \1A00 [TAG \1B40 ] TO \1C40 [FOR \1D00] [\1E20ALL>] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [EVAL \1J00] [EVERY \1K00] [\1L20 UNIQUE>] [\1M20 ASCENDING>] [\1N20 DESCENDING>]", - "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50] ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, [\1L50] )",&sC___229 }; - static COMMANDS sC___231 = {0,"INDEX","ON \1A00 TAG \1B40 [TO \1C40] [FOR \1D00] [\1E20ALL>] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [EVAL \1J00] [EVERY \1K00] [\1L20 UNIQUE>] [\1M20 ASCENDING>] [\1N20 DESCENDING>]", - "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50] ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, [\1L50] )",&sC___230 }; - static COMMANDS sC___232 = {0,"INDEX","ON \1A00 TO \1B40 [\1C20 UNIQUE>]", - "dbCreateIndex( \1B30, \1A20, \1A40, if( \1C50, .t., NIL ) )",&sC___231 }; - static COMMANDS sC___233 = {0,"DELETE","TAG \1A40 [ IN \1B40 ] [, \1C40 [ IN \1D40 ] ]", - "ordDestroy( \1A30, \1B30 ) [; ordDestroy( \1C30, \1D30 ) ]",&sC___232 }; - static COMMANDS sC___234 = {0,"REINDEX","[EVAL \1A00] [EVERY \1B00]", - "ordCondSet(,,,, \1A40, \1B00,,,,,,,) ; ordListRebuild()",&sC___233 }; - static COMMANDS sC___235 = {0,"REINDEX","","ordListRebuild()",&sC___234 }; - static COMMANDS sC___236 = {0,"SET","INDEX TO [ \1A40 [, \1B40]] [\1C20 ADDITIVE>]", - "if !\1C50 ; ordListClear() ; end [; ordListAdd( \1A30 )] [; ordListAdd( \1B30 )]",&sC___235 }; - static COMMANDS sC___237 = {0,"SET","ORDER TO \1A00 [IN \1B40]","ordSetFocus( \1A00 [, \1B30] )",&sC___236 }; - static COMMANDS sC___238 = {0,"SET","ORDER TO TAG \1A40 [IN \1B40]","ordSetFocus( \1A30 [, \1B30] )",&sC___237 }; - static COMMANDS sC___239 = {0,"SET","ORDER TO","ordSetFocus(0)",&sC___238 }; +static COMMANDS sC___1 = {0,"NOTE","\1A30",NULL,NULL }; +static COMMANDS sC___2 = {0,"DO","WHILE \1A00","while \1A00",&sC___1 }; +static COMMANDS sC___3 = {0,"END","\1A00","end",&sC___2 }; +static COMMANDS sC___4 = {0,"END","SEQUENCE","end",&sC___3 }; +static COMMANDS sC___5 = {0,"ENDSEQUENCE","","end",&sC___4 }; +static COMMANDS sC___6 = {0,"ENDDO","\1A30","enddo",&sC___5 }; +static COMMANDS sC___7 = {0,"ENDIF","\1A30","endif",&sC___6 }; +static COMMANDS sC___8 = {0,"ENDCASE","\1A30","endcase",&sC___7 }; +static COMMANDS sC___9 = {0,"ENDFOR","[ \1A30 ]","next",&sC___8 }; +static COMMANDS sC___10 = {0,"NEXT","\1A00 [TO \1B00] [STEP \1C00]","next",&sC___9 }; +static COMMANDS sC___11 = {0,"DO","\1A00.PRG [WITH \1B10]","do \1A00 [ WITH \1B00]",&sC___10 }; +static COMMANDS sC___12 = {0,"CALL","\1A00() [WITH \1B10]","call \1A00 [ WITH \1B00]",&sC___11 }; +static COMMANDS sC___13 = {0,"STORE","\1A00 TO \1B00 [, \1C00 ]","\1B00 := [ \1C00 := ] \1A00",&sC___12 }; +static COMMANDS sC___14 = {0,"SET","ECHO \1A30",NULL,&sC___13 }; +static COMMANDS sC___15 = {0,"SET","HEADING \1A30",NULL,&sC___14 }; +static COMMANDS sC___16 = {0,"SET","MENU \1A30",NULL,&sC___15 }; +static COMMANDS sC___17 = {0,"SET","STATUS \1A30",NULL,&sC___16 }; +static COMMANDS sC___18 = {0,"SET","STEP \1A30",NULL,&sC___17 }; +static COMMANDS sC___19 = {0,"SET","SAFETY \1A30",NULL,&sC___18 }; +static COMMANDS sC___20 = {0,"SET","TALK \1A30",NULL,&sC___19 }; +static COMMANDS sC___21 = {0,"SET","PROCEDURE TO",NULL,&sC___20 }; +static COMMANDS sC___22 = {0,"SET","PROCEDURE TO \1A00","_ProcReq_( \1A30 )",&sC___21 }; +static COMMANDS sC___23 = {0,"SET","EXACT \1A20ON,OFF,&>","Set( _SET_EXACT, \1A30 )",&sC___22 }; +static COMMANDS sC___24 = {0,"SET","EXACT (\1A00)","Set( _SET_EXACT, \1A00 )",&sC___23 }; +static COMMANDS sC___25 = {0,"SET","FIXED \1A20ON,OFF,&>","Set( _SET_FIXED, \1A30 )",&sC___24 }; +static COMMANDS sC___26 = {0,"SET","FIXED (\1A00)","Set( _SET_FIXED, \1A00 )",&sC___25 }; +static COMMANDS sC___27 = {0,"SET","DECIMALS TO \1A00","Set( _SET_DECIMALS, \1A00 )",&sC___26 }; +static COMMANDS sC___28 = {0,"SET","DECIMALS TO","Set( _SET_DECIMALS, 0 )",&sC___27 }; +static COMMANDS sC___29 = {0,"SET","PATH TO \1A30","Set( _SET_PATH, \1A30 )",&sC___28 }; +static COMMANDS sC___30 = {0,"SET","PATH TO","Set( _SET_PATH, "" )",&sC___29 }; +static COMMANDS sC___31 = {0,"SET","DEFAULT TO \1A40","Set( _SET_DEFAULT, \1A30 )",&sC___30 }; +static COMMANDS sC___32 = {0,"SET","DEFAULT TO","Set( _SET_DEFAULT, "" )",&sC___31 }; +static COMMANDS sC___33 = {0,"SET","CENTURY \1A20ON,OFF,&>","__SetCentury( \1A30 )",&sC___32 }; +static COMMANDS sC___34 = {0,"SET","CENTURY (\1A00)","__SetCentury( \1A00 )",&sC___33 }; +static COMMANDS sC___35 = {0,"SET","EPOCH TO \1A00","Set( _SET_EPOCH, \1A00 )",&sC___34 }; +static COMMANDS sC___36 = {0,"SET","DATE FORMAT [TO] \1A00","Set( _SET_DATEFORMAT, \1A00 )",&sC___35 }; +static COMMANDS sC___37 = {0,"SET","DATE [TO] AMERICAN","_DFSET( 'mm/dd/yyyy', 'mm/dd/yy' )",&sC___36 }; +static COMMANDS sC___38 = {0,"SET","DATE [TO] ANSI","_DFSET( 'yyyy.mm.dd', 'yy.mm.dd' )",&sC___37 }; +static COMMANDS sC___39 = {0,"SET","DATE [TO] BRITISH","_DFSET( 'dd/mm/yyyy', 'dd/mm/yy' )",&sC___38 }; +static COMMANDS sC___40 = {0,"SET","DATE [TO] FRENCH","_DFSET( 'dd/mm/yyyy', 'dd/mm/yy' )",&sC___39 }; +static COMMANDS sC___41 = {0,"SET","DATE [TO] GERMAN","_DFSET( 'dd.mm.yyyy', 'dd.mm.yy' )",&sC___40 }; +static COMMANDS sC___42 = {0,"SET","DATE [TO] ITALIAN","_DFSET( 'dd-mm-yyyy', 'dd-mm-yy' )",&sC___41 }; +static COMMANDS sC___43 = {0,"SET","DATE [TO] JAPANESE","_DFSET( 'yyyy/mm/dd', 'yy/mm/dd' )",&sC___42 }; +static COMMANDS sC___44 = {0,"SET","DATE [TO] USA","_DFSET( 'mm-dd-yyyy', 'mm-dd-yy' )",&sC___43 }; +static COMMANDS sC___45 = {0,"SET","ALTERNATE \1A20ON,OFF,&>","Set( _SET_ALTERNATE, \1A30 )",&sC___44 }; +static COMMANDS sC___46 = {0,"SET","ALTERNATE (\1A00)","Set( _SET_ALTERNATE, \1A00 )",&sC___45 }; +static COMMANDS sC___47 = {0,"SET","ALTERNATE TO","Set( _SET_ALTFILE, "" )",&sC___46 }; +static COMMANDS sC___48 = {0,"SET","ALTERNATE TO \1A40 [\1B20 ADDITIVE>]","Set( _SET_ALTFILE, \1A30, \1B50 )",&sC___47 }; +static COMMANDS sC___49 = {0,"SET","CONSOLE \1A20ON,OFF,&>","Set( _SET_CONSOLE, \1A30 )",&sC___48 }; +static COMMANDS sC___50 = {0,"SET","CONSOLE (\1A00)","Set( _SET_CONSOLE, \1A00 )",&sC___49 }; +static COMMANDS sC___51 = {0,"SET","MARGIN TO \1A00","Set( _SET_MARGIN, \1A00 )",&sC___50 }; +static COMMANDS sC___52 = {0,"SET","MARGIN TO","Set( _SET_MARGIN, 0 )",&sC___51 }; +static COMMANDS sC___53 = {0,"SET","PRINTER \1A20ON,OFF,&>","Set( _SET_PRINTER, \1A30 )",&sC___52 }; +static COMMANDS sC___54 = {0,"SET","PRINTER (\1A00)","Set( _SET_PRINTER, \1A00 )",&sC___53 }; +static COMMANDS sC___55 = {0,"SET","PRINTER TO","Set( _SET_PRINTFILE, "" )",&sC___54 }; +static COMMANDS sC___56 = {0,"SET","PRINTER TO \1A40 [\1B20 ADDITIVE>]","Set( _SET_PRINTFILE, \1A30, \1B50 )",&sC___55 }; +static COMMANDS sC___57 = {0,"SET","DEVICE TO SCREEN","Set( _SET_DEVICE, 'SCREEN' )",&sC___56 }; +static COMMANDS sC___58 = {0,"SET","DEVICE TO PRINTER","Set( _SET_DEVICE, 'PRINTER' )",&sC___57 }; +static COMMANDS sC___59 = {0,"SET","COLOR TO [\1A30]","SetColor( \1A10 )",&sC___58 }; +static COMMANDS sC___60 = {0,"SET","COLOR TO ( \1A00 )","SetColor( \1A00 )",&sC___59 }; +static COMMANDS sC___61 = {0,"SET","COLOUR TO [\1A30]","SET COLOR TO [\1A00]",&sC___60 }; +static COMMANDS sC___62 = {0,"SET","CURSOR \1A20ON,OFF,&>","SetCursor( if(Upper(\1A30) == 'ON', 1, 0) )",&sC___61 }; +static COMMANDS sC___63 = {0,"SET","CURSOR (\1A00)","SetCursor( if(\1A00, 1, 0) )",&sC___62 }; +static COMMANDS sC___64 = {0,"?","[ \1A10]","QOut( \1A00 )",&sC___63 }; +static COMMANDS sC___65 = {0,"??","[ \1A10]","QQOut( \1A00 )",&sC___64 }; +static COMMANDS sC___66 = {0,"EJECT","","__Eject()",&sC___65 }; +static COMMANDS sC___67 = {0,"TEXT","","text QOut, QQOut",&sC___66 }; +static COMMANDS sC___68 = {0,"TEXT","TO FILE \1A40","__TextSave( \1A30 ) ; text QOut, __TextRestore",&sC___67 }; +static COMMANDS sC___69 = {0,"TEXT","TO PRINTER","__TextSave('PRINTER') ; text QOut, __TextRestore",&sC___68 }; +static COMMANDS sC___70 = {0,"CLS","","Scroll() ; SetPos(0,0)",&sC___69 }; +static COMMANDS sC___71 = {0,"CLEAR","SCREEN","CLS",&sC___70 }; +static COMMANDS sC___72 = {0,"@","\1A00, \1B00","Scroll( \1A00, \1B00, \1A00 ) ; SetPos( \1A00, \1B00 )",&sC___71 }; +static COMMANDS sC___73 = {0,"@","\1A00, \1B00 CLEAR","Scroll( \1A00, \1B00 ) ; SetPos( \1A00, \1B00 )",&sC___72 }; +static COMMANDS sC___74 = {0,"@","\1A00, \1B00 CLEAR TO \1C00, \1D00", + "Scroll( \1A00, \1B00, \1C00, \1D00 ) ; SetPos( \1A00, \1B00 )",&sC___73 }; +static COMMANDS sC___75 = {0,"@","\1A00, \1B00, \1C00, \1D00 BOX \1E00 [COLOR \1F00]", + "DispBox( \1A00, \1B00, \1C00, \1D00, \1E00 [, \1F00 ] )",&sC___74 }; +static COMMANDS sC___76 = {0,"@","\1A00, \1B00 TO \1C00, \1D00 [DOUBLE] [COLOR \1E00]", + "DispBox( \1A00, \1B00, \1C00, \1D00, 2 [, \1E00 ] )",&sC___75 }; +static COMMANDS sC___77 = {0,"@","\1A00, \1B00 TO \1C00, \1D00 [COLOR \1E00]", + "DispBox( \1A00, \1B00, \1C00, \1D00, 1 [, \1E00 ] )",&sC___76 }; +static COMMANDS sC___78 = {0,"@","\1A00, \1B00 SAY \1C00 [PICTURE \1D00] [COLOR \1E00]", + "DevPos( \1A00, \1B00 ) ; DevOutPict( \1C00, \1D00 [, \1E00] )",&sC___77 }; +static COMMANDS sC___79 = {0,"@","\1A00, \1B00 SAY \1C00 [COLOR \1D00]", + "DevPos( \1A00, \1B00 ) ; DevOut( \1C00 [, \1D00] )",&sC___78 }; +static COMMANDS sC___80 = {0,"SET","BELL \1A20ON,OFF,&>","Set( _SET_BELL, \1A30 )",&sC___79 }; +static COMMANDS sC___81 = {0,"SET","BELL (\1A00)","Set( _SET_BELL, \1A00 )",&sC___80 }; +static COMMANDS sC___82 = {0,"SET","CONFIRM \1A20ON,OFF,&>","Set( _SET_CONFIRM, \1A30 )",&sC___81 }; +static COMMANDS sC___83 = {0,"SET","CONFIRM (\1A00)","Set( _SET_CONFIRM, \1A00 )",&sC___82 }; +static COMMANDS sC___84 = {0,"SET","ESCAPE \1A20ON,OFF,&>","Set( _SET_ESCAPE, \1A30 )",&sC___83 }; +static COMMANDS sC___85 = {0,"SET","ESCAPE (\1A00)","Set( _SET_ESCAPE, \1A00 )",&sC___84 }; +static COMMANDS sC___86 = {0,"SET","INTENSITY \1A20ON,OFF,&>","Set( _SET_INTENSITY, \1A30 )",&sC___85 }; +static COMMANDS sC___87 = {0,"SET","INTENSITY (\1A00)","Set( _SET_INTENSITY, \1A00 )",&sC___86 }; +static COMMANDS sC___88 = {0,"SET","SCOREBOARD \1A20ON,OFF,&>","Set( _SET_SCOREBOARD, \1A30 )",&sC___87 }; +static COMMANDS sC___89 = {0,"SET","SCOREBOARD (\1A00)","Set( _SET_SCOREBOARD, \1A00 )",&sC___88 }; +static COMMANDS sC___90 = {0,"SET","DELIMITERS \1A20ON,OFF,&>","Set( _SET_DELIMITERS, \1A30 )",&sC___89 }; +static COMMANDS sC___91 = {0,"SET","DELIMITERS (\1A00)","Set( _SET_DELIMITERS, \1A00 )",&sC___90 }; +static COMMANDS sC___92 = {0,"SET","DELIMITERS TO \1A00","Set( _SET_DELIMCHARS, \1A00 )",&sC___91 }; +static COMMANDS sC___93 = {0,"SET","DELIMITERS TO DEFAULT","Set( _SET_DELIMCHARS, '::' )",&sC___92 }; +static COMMANDS sC___94 = {0,"SET","DELIMITERS TO","Set( _SET_DELIMCHARS, '::' )",&sC___93 }; +static COMMANDS sC___95 = {0,"SET","FORMAT TO \1A00","_ProcReq_( \1A30 + '.FMT' ) ; __SetFormat( {|| \1A00()} )",&sC___94 }; +static COMMANDS sC___96 = {0,"SET","FORMAT TO \1A00.\1B00", + "_ProcReq_( \1A30 + '.' + \1B30 ) ; __SetFormat( {|| \1A00()} )",&sC___95 }; +static COMMANDS sC___97 = {0,"SET","FORMAT TO \1A20&>", + "if ( Empty(\1A30) ) ; SET FORMAT TO ; else ; __SetFormat( &('{||' + \1A30 + '()}') ) ; end",&sC___96 }; +static COMMANDS sC___98 = {0,"SET","FORMAT TO","__SetFormat()",&sC___97 }; +static COMMANDS sC___99 = {0,"@","\1A00, \1B00 GET \1C00 [PICTURE \1D00] [VALID \1E00] [WHEN \1F00] [SEND \1G00]", + "SetPos( \1A00, \1B00 ) ; AAdd( GetList, _GET_( \1C00, \1C20, \1D00, \1E40, \1F40,{|u| If( PCount()==0,\1C00,\1C00:=u )} ):display() ) [; ATail(GetList):\1G00]",&sC___98 }; +static COMMANDS sC___100 = {0,"@","\1A00, \1B00 SAY \1C00 [\1D10] GET \1E00 [\1F10]", + "@ \1A00, \1B00 SAY \1C00 [\1D00] ; @ Row(), Col()+1 GET \1E00 [\1F00]",&sC___99 }; +static COMMANDS sC___101 = {0,"@","\1A00, \1B00 GET \1C00 [\1D10] RANGE \1E00, \1F00 [\1G10]", + "@ \1A00, \1B00 GET \1C00 [\1D00] VALID {|_1| RangeCheck(_1,, \1E00, \1F00)} [\1G00]",&sC___100 }; +static COMMANDS sC___102 = {0,"@","\1A00, \1B00 GET \1C00 [\1D10] COLOR \1E00 [\1F10]", + "@ \1A00, \1B00 GET \1C00 [\1D00] SEND colorDisp(\1E00) [\1F00]",&sC___101 }; +static COMMANDS sC___103 = {0,"READ","SAVE","ReadModal(GetList)",&sC___102 }; +static COMMANDS sC___104 = {0,"READ","","ReadModal(GetList) ; GetList := {}",&sC___103 }; +static COMMANDS sC___105 = {0,"CLEAR","GETS","ReadKill(.T.) ; GetList := {}",&sC___104 }; +static COMMANDS sC___106 = {0,"@","[\1A10] COLOUR [\1B10]","@ [\1A00] COLOR [\1B00]",&sC___105 }; +static COMMANDS sC___107 = {0,"SET","WRAP \1A20ON,OFF,&>","Set( _SET_WRAP, \1A30 )",&sC___106 }; +static COMMANDS sC___108 = {0,"SET","WRAP (\1A00)","Set( _SET_WRAP, \1A00 )",&sC___107 }; +static COMMANDS sC___109 = {0,"SET","MESSAGE TO \1A00 [\1B20 CENTER, CENTRE>]", + "Set( _SET_MESSAGE, \1A00 ) ; Set( _SET_MCENTER, \1B50 )",&sC___108 }; +static COMMANDS sC___110 = {0,"SET","MESSAGE TO","Set( _SET_MESSAGE, 0 ) ; Set( _SET_MCENTER, .f. )",&sC___109 }; +static COMMANDS sC___111 = {0,"@","\1A00, \1B00 PROMPT \1C00 [MESSAGE \1D00]", + "__AtPrompt( \1A00, \1B00, \1C00 , \1D00 )",&sC___110 }; +static COMMANDS sC___112 = {0,"MENU","TO \1A00","\1A00 := __MenuTo( {|_1| if(PCount() == 0, \1A00, \1A00 := _1)}, \1A10 )",&sC___111 }; +static COMMANDS sC___113 = {0,"SAVE","SCREEN","__XSaveScreen()",&sC___112 }; +static COMMANDS sC___114 = {0,"RESTORE","SCREEN","__XRestScreen()",&sC___113 }; +static COMMANDS sC___115 = {0,"SAVE","SCREEN TO \1A00","\1A00 := SaveScreen( 0, 0, Maxrow(), Maxcol() )",&sC___114 }; +static COMMANDS sC___116 = {0,"RESTORE","SCREEN FROM \1A00","RestScreen( 0, 0, Maxrow(), Maxcol(), \1A00 )",&sC___115 }; +static COMMANDS sC___117 = {0,"WAIT","[\1A00]","__Wait( \1A00 )",&sC___116 }; +static COMMANDS sC___118 = {0,"WAIT","[\1A00] TO \1B00","\1B00 := __Wait( \1A00 )",&sC___117 }; +static COMMANDS sC___119 = {0,"ACCEPT","[\1A00] TO \1B00","\1B00 := __Accept( \1A00 )",&sC___118 }; +static COMMANDS sC___120 = {0,"INPUT","[\1A00] TO \1B00", + "if ( !Empty(__Accept(\1A00)) ) ; \1B00 := &( __AcceptStr() ) ; end",&sC___119 }; +static COMMANDS sC___121 = {0,"KEYBOARD","\1A00","__Keyboard( \1A00 )",&sC___120 }; +static COMMANDS sC___122 = {0,"CLEAR","TYPEAHEAD","__Keyboard()",&sC___121 }; +static COMMANDS sC___123 = {0,"SET","TYPEAHEAD TO \1A00","Set( _SET_TYPEAHEAD, \1A00 )",&sC___122 }; +static COMMANDS sC___124 = {0,"SET","KEY \1A00 TO \1B00","SetKey( \1A00, {|p, l, v| \1B00(p, l, v)} )",&sC___123 }; +static COMMANDS sC___125 = {0,"SET","KEY \1A00 TO \1B00 ( [\1C10] )","SET KEY \1A00 TO \1B00",&sC___124 }; +static COMMANDS sC___126 = {0,"SET","KEY \1A00 TO \1B20&>", + "if ( Empty(\1B30) ) ; SetKey( \1A00, NIL ) ; else ; SetKey( \1A00, {|p, l, v| \1B00(p, l, v)} ) ; end",&sC___125 }; +static COMMANDS sC___127 = {0,"SET","KEY \1A00 [TO]","SetKey( \1A00, NIL )",&sC___126 }; +static COMMANDS sC___128 = {0,"SET","FUNCTION \1A00 [TO] [\1B00]","__SetFunction( \1A00, \1B00 )",&sC___127 }; +static COMMANDS sC___129 = {0,"CLEAR","MEMORY","__MVClear()",&sC___128 }; +static COMMANDS sC___130 = {0,"RELEASE"," \1A10","__MVXRelease( \1A30 )",&sC___129 }; +static COMMANDS sC___131 = {0,"RELEASE","ALL","__MVRelease('*', .t.)",&sC___130 }; +static COMMANDS sC___132 = {0,"RELEASE","ALL LIKE \1A00","__MVRelease( \1A10, .t. )",&sC___131 }; +static COMMANDS sC___133 = {0,"RELEASE","ALL EXCEPT \1A00","__MVRelease( \1A10, .f. )",&sC___132 }; +static COMMANDS sC___134 = {0,"RESTORE","[FROM \1A40] [\1B20 ADDITIVE>]","__MVRestore( \1A30, \1B50 )",&sC___133 }; +static COMMANDS sC___135 = {0,"SAVE","ALL LIKE \1A00 TO \1B40","__MVSave( \1B30, \1A30, .t. )",&sC___134 }; +static COMMANDS sC___136 = {0,"SAVE","TO \1A40 ALL LIKE \1B00","__MVSave( \1A30, \1B30, .t. )",&sC___135 }; +static COMMANDS sC___137 = {0,"SAVE","ALL EXCEPT \1A00 TO \1B40","__MVSave( \1B30, \1A30, .f. )",&sC___136 }; +static COMMANDS sC___138 = {0,"SAVE","TO \1A40 ALL EXCEPT \1B00","__MVSave( \1A30, \1B30, .f. )",&sC___137 }; +static COMMANDS sC___139 = {0,"SAVE","[TO \1A40] [ALL]","__MVSave( \1A30, '*', .t. )",&sC___138 }; +static COMMANDS sC___140 = {0,"ERASE","\1A40","FErase( \1A30 )",&sC___139 }; +static COMMANDS sC___141 = {0,"DELETE","FILE \1A40","FErase( \1A30 )",&sC___140 }; +static COMMANDS sC___142 = {0,"RENAME","\1A40 TO \1B40","FRename( \1A30, \1B30 )",&sC___141 }; +static COMMANDS sC___143 = {0,"COPY","FILE \1A40 TO \1B40","__CopyFile( \1A30, \1B30 )",&sC___142 }; +static COMMANDS sC___144 = {0,"DIR","[\1A40]","__Dir( \1A30 )",&sC___143 }; +static COMMANDS sC___145 = {0,"TYPE","\1A40 [\1B20 TO PRINTER>] [TO FILE \1C40]", + "__TypeFile( \1A30, \1B50 ) [; COPY FILE \1A30 TO \1C30 ]",&sC___144 }; +static COMMANDS sC___146 = {0,"TYPE","\1A40 [\1B20 TO PRINTER>]","__TypeFile( \1A30, \1B50 )",&sC___145 }; +static COMMANDS sC___147 = {0,"REQUEST","\1A10","EXTERNAL \1A00",&sC___146 }; +static COMMANDS sC___148 = {0,"CANCEL","","__Quit()",&sC___147 }; +static COMMANDS sC___149 = {0,"QUIT","","__Quit()",&sC___148 }; +static COMMANDS sC___150 = {0,"RUN","\1A30","__Run( \1A10 )",&sC___149 }; +static COMMANDS sC___151 = {0,"RUN","( \1A00 )","__Run( \1A00 )",&sC___150 }; +static COMMANDS sC___152 = {0,"!","\1A30","RUN \1A00",&sC___151 }; +static COMMANDS sC___153 = {0,"RUN","= \1A00","( run := \1A00 )",&sC___152 }; +static COMMANDS sC___154 = {0,"RUN",":= \1A00","( run := \1A00 )",&sC___153 }; +static COMMANDS sC___155 = {0,"SET","EXCLUSIVE \1A20ON,OFF,&>","Set( _SET_EXCLUSIVE, \1A30 )",&sC___154 }; +static COMMANDS sC___156 = {0,"SET","EXCLUSIVE (\1A00)","Set( _SET_EXCLUSIVE, \1A00 )",&sC___155 }; +static COMMANDS sC___157 = {0,"SET","SOFTSEEK \1A20ON,OFF,&>","Set( _SET_SOFTSEEK, \1A30 )",&sC___156 }; +static COMMANDS sC___158 = {0,"SET","SOFTSEEK (\1A00)","Set( _SET_SOFTSEEK, \1A00 )",&sC___157 }; +static COMMANDS sC___159 = {0,"SET","UNIQUE \1A20ON,OFF,&>","Set( _SET_UNIQUE, \1A30 )",&sC___158 }; +static COMMANDS sC___160 = {0,"SET","UNIQUE (\1A00)","Set( _SET_UNIQUE, \1A00 )",&sC___159 }; +static COMMANDS sC___161 = {0,"SET","DELETED \1A20ON,OFF,&>","Set( _SET_DELETED, \1A30 )",&sC___160 }; +static COMMANDS sC___162 = {0,"SET","DELETED (\1A00)","Set( _SET_DELETED, \1A00 )",&sC___161 }; +static COMMANDS sC___163 = {0,"SELECT","\1A00","dbSelectArea( \1A30 )",&sC___162 }; +static COMMANDS sC___164 = {0,"SELECT","\1A00([\1B10])","dbSelectArea( \1A00(\1B00) )",&sC___163 }; +static COMMANDS sC___165 = {0,"USE","","dbCloseArea()",&sC___164 }; +static COMMANDS sC___166 = {0,"USE","\1A40 [VIA \1B00] [ALIAS \1C00] [\1D20 NEW>] [\1E20 EXCLUSIVE>] [\1F20 SHARED>] [\1G20 READONLY>] [INDEX \1H40 [, \1I40]]", + "dbUseArea( \1D50, \1B00, \1A30, \1C30, if(\1F50 .or. \1E50, !\1E50, NIL), \1G50 ) [; dbSetIndex( \1H30 )] [; dbSetIndex( \1I30 )]",&sC___165 }; +static COMMANDS sC___167 = {0,"APPEND","BLANK","dbAppend()",&sC___166 }; +static COMMANDS sC___168 = {0,"PACK","","__dbPack()",&sC___167 }; +static COMMANDS sC___169 = {0,"ZAP","","__dbZap()",&sC___168 }; +static COMMANDS sC___170 = {0,"UNLOCK","","dbUnlock()",&sC___169 }; +static COMMANDS sC___171 = {0,"UNLOCK","ALL","dbUnlockAll()",&sC___170 }; +static COMMANDS sC___172 = {0,"COMMIT","","dbCommitAll()",&sC___171 }; +static COMMANDS sC___173 = {0,"GOTO","\1A00","dbGoto(\1A00)",&sC___172 }; +static COMMANDS sC___174 = {0,"GO","\1A00","dbGoto(\1A00)",&sC___173 }; +static COMMANDS sC___175 = {0,"GOTO","TOP","dbGoTop()",&sC___174 }; +static COMMANDS sC___176 = {0,"GO","TOP","dbGoTop()",&sC___175 }; +static COMMANDS sC___177 = {0,"GOTO","BOTTOM","dbGoBottom()",&sC___176 }; +static COMMANDS sC___178 = {0,"GO","BOTTOM","dbGoBottom()",&sC___177 }; +static COMMANDS sC___179 = {0,"SKIP","","dbSkip(1)",&sC___178 }; +static COMMANDS sC___180 = {0,"SKIP","\1A00","dbSkip( \1A00 )",&sC___179 }; +static COMMANDS sC___181 = {0,"SKIP","ALIAS \1A00","\1A00 -> ( dbSkip(1) )",&sC___180 }; +static COMMANDS sC___182 = {0,"SKIP","\1A00 ALIAS \1B00","\1B00 -> ( dbSkip(\1A00) )",&sC___181 }; +static COMMANDS sC___183 = {0,"SEEK","\1A00 [\1B20 SOFTSEEK>]","dbSeek( \1A00, if( \1B50, .T., NIL ) )",&sC___182 }; +static COMMANDS sC___184 = {0,"FIND","\1A30","dbSeek( \1A30 )",&sC___183 }; +static COMMANDS sC___185 = {0,"FIND",":= \1A00","( find := \1A00 )",&sC___184 }; +static COMMANDS sC___186 = {0,"FIND","= \1A00","( find := \1A00 )",&sC___185 }; +static COMMANDS sC___187 = {0,"CONTINUE","","__dbContinue()",&sC___186 }; +static COMMANDS sC___188 = {0,"LOCATE","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", + "__dbLocate(\1A40,\1B40,\1C00,\1D00,\1E50)",&sC___187 }; +static COMMANDS sC___189 = {0,"SET","RELATION TO","dbClearRelation()",&sC___188 }; +static COMMANDS sC___190 = {0,"SET","RELATION [\1A20ADDITIVE>] [TO \1B00 INTO \1C40 [, [TO] \1D00 INTO \1E40]]", + "if ( !\1A50 ) ; dbClearRelation() ; end ; dbSetRelation(\1C30,\1B40,\1B20) [; dbSetRelation(\1E30,\1D40,\1D20)]",&sC___189 }; +static COMMANDS sC___191 = {0,"SET","FILTER TO","dbClearFilter(NIL)",&sC___190 }; +static COMMANDS sC___192 = {0,"SET","FILTER TO \1A00","dbSetFilter( \1A40, \1A20 )",&sC___191 }; +static COMMANDS sC___193 = {0,"SET","FILTER TO \1A20&>", + "if ( Empty(\1A30) ) ; dbClearFilter() ; else ; dbSetFilter(\1A40,\1A30) ; end",&sC___192 }; +static COMMANDS sC___194 = {0,"REPLACE","[ \1A00 WITH \1B00 [, \1C00 WITH \1D00] ] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", + "DBEval( {|| _FIELD->\1A00 := \1B00 [,_FIELD->\1C00 := \1D00]},\1E40,\1F40,\1G00,\1H00,\1I50)",&sC___193 }; +static COMMANDS sC___195 = {0,"REPLACE","\1A00 WITH \1B00 [, \1C00 WITH \1D00 ]", + "_FIELD->\1A00 := \1B00 [; _FIELD->\1C00 := \1D00]",&sC___194 }; +static COMMANDS sC___196 = {0,"DELETE","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", + "DBEval( {|| dbDelete()}, \1A40, \1B40, \1C00, \1D00, \1E50 )",&sC___195 }; +static COMMANDS sC___197 = {0,"RECALL","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", + "DBEval( {|| dbRecall()}, \1A40, \1B40, \1C00, \1D00, \1E50 )",&sC___196 }; +static COMMANDS sC___198 = {0,"DELETE","","dbDelete()",&sC___197 }; +static COMMANDS sC___199 = {0,"RECALL","","dbRecall()",&sC___198 }; +static COMMANDS sC___200 = {0,"CREATE","\1A40 [FROM \1B40] [VIA \1C00] [ALIAS \1D00] [\1E20 NEW>]", + "__dbCreate( \1A30, \1B30, \1C00, \1E50, \1D30 )",&sC___199 }; +static COMMANDS sC___201 = {0,"COPY","[STRUCTURE] [EXTENDED] [TO \1A40]","__dbCopyXStruct( \1A30 )",&sC___200 }; +static COMMANDS sC___202 = {0,"COPY","[STRUCTURE] [TO \1A40] [FIELDS \1B10]","__dbCopyStruct( \1A30, { \1B30 } )",&sC___201 }; +static COMMANDS sC___203 = {0,"COPY","[TO \1A40] [DELIMITED [WITH \1B30]] [FIELDS \1C10] [FOR \1D00] [WHILE \1E00] [NEXT \1F00] [RECORD \1G00] [\1H20REST>] [ALL]", + "__dbDelim( .T., \1A30, \1B30, { \1C30 }, \1D40, \1E40, \1F00, \1G00, \1H50 )",&sC___202 }; +static COMMANDS sC___204 = {0,"COPY","[TO \1A40] [SDF] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [ALL]", + "__dbSDF( .T., \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50 )",&sC___203 }; +static COMMANDS sC___205 = {0,"COPY","[TO \1A40] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [VIA \1H00] [ALL]", + "__dbCopy( \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50, \1H00 )",&sC___204 }; +static COMMANDS sC___206 = {0,"APPEND","[FROM \1A40] [DELIMITED [WITH \1B30]] [FIELDS \1C10] [FOR \1D00] [WHILE \1E00] [NEXT \1F00] [RECORD \1G00] [\1H20REST>] [ALL]", + "__dbDelim( .F., \1A30, \1B30, { \1C30 }, \1D40, \1E40, \1F00, \1G00, \1H50 )",&sC___205 }; +static COMMANDS sC___207 = {0,"APPEND","[FROM \1A40] [SDF] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [ALL]", + "__dbSDF( .F., \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50 )",&sC___206 }; +static COMMANDS sC___208 = {0,"APPEND","[FROM \1A40] [FIELDS \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [VIA \1H00] [ALL]", + "__dbApp( \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50, \1H00 )",&sC___207 }; +static COMMANDS sC___209 = {0,"SORT","[TO \1A40] [ON \1B10] [FOR \1C00] [WHILE \1D00] [NEXT \1E00] [RECORD \1F00] [\1G20REST>] [ALL]", + "__dbSort( \1A30, { \1B30 }, \1C40, \1D40, \1E00, \1F00, \1G50 )",&sC___208 }; +static COMMANDS sC___210 = {0,"TOTAL","[TO \1A40] [ON \1B00] [FIELDS \1C10] [FOR \1D00] [WHILE \1E00] [NEXT \1F00] [RECORD \1G00] [\1H20REST>] [ALL]", + "__dbTotal( \1A30, \1B40, { \1C30 }, \1D40, \1E40, \1F00, \1G00, \1H50 )",&sC___209 }; +static COMMANDS sC___211 = {0,"UPDATE","[FROM \1A40] [ON \1B00] [REPLACE \1C00 WITH \1D00 [, \1E00 WITH \1F00]] [\1G20RANDOM>]", + "__dbUpdate( \1A30, \1B40, \1G50, {|| _FIELD->\1C00 := \1D00 [, _FIELD->\1E00 := \1F00]} )",&sC___210 }; +static COMMANDS sC___212 = {0,"JOIN","[WITH \1A40] [TO \1B00] [FIELDS \1C10] [FOR \1D00]", + "__dbJoin( \1A30, \1B30, { \1C30 }, \1D40 )",&sC___211 }; +static COMMANDS sC___213 = {0,"COUNT","[TO \1A00] [FOR \1B00] [WHILE \1C00] [NEXT \1D00] [RECORD \1E00] [\1F20REST>] [ALL]", + "\1A00 := 0 ; DBEval( {|| \1A00 := \1A00 + 1}, \1B40, \1C40, \1D00, \1E00, \1F50 )",&sC___212 }; +static COMMANDS sC___214 = {0,"SUM","[ \1A00 [, \1B00] TO \1C00 [, \1D00] ] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", + "\1C00 := [ \1D00 := ] 0 ; DBEval( {|| \1C00 := \1C00 + \1A00 [, \1D00 := \1D00 + \1B00 ]}, \1E40, \1F40, \1G00, \1H00, \1I50 )",&sC___213 }; +static COMMANDS sC___215 = {0,"AVERAGE","[ \1A00 [, \1B00] TO \1C00 [, \1D00] ] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", + "M->__Avg := \1C00 := [ \1D00 := ] 0 ; DBEval( {|| M->__Avg := M->__Avg + 1, \1C00 := \1C00 + \1A00 [, \1D00 := \1D00 + \1B00] }, \1E40, \1F40, \1G00, \1H00, \1I50 ) ; \1C00 := \1C00 / M->__Avg [; \1D00 := \1D00 / M->__Avg ]",&sC___214 }; +static COMMANDS sC___216 = {0,"LIST","[\1A10] [\1B20OFF>] [\1C20 TO PRINTER>] [TO FILE \1D40] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [ALL]", + "__dbList( \1B50, { \1A40 }, .t., \1E40, \1F40, \1G00, \1H00, \1I50, \1C50, \1D30 )",&sC___215 }; +static COMMANDS sC___217 = {0,"DISPLAY","[\1A10] [\1B20OFF>] [\1C20 TO PRINTER>] [TO FILE \1D40] [FOR \1E00] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [\1J20ALL>]", + "__DBList( \1B50, { \1A40 }, \1J50, \1E40, \1F40, \1G00, \1H00, \1I50, \1C50, \1D30 )",&sC___216 }; +static COMMANDS sC___218 = {0,"REPORT","FORM \1A00 [HEADING \1B00] [\1C20 PLAIN>] [\1D20 NOEJECT>] [\1E20 SUMMARY>] [\1F20 NOCONSOLE>] [\1G20 TO PRINTER>] [TO FILE \1H40] [FOR \1I00] [WHILE \1J00] [NEXT \1K00] [RECORD \1L00] [\1M20REST>] [ALL]", + "__ReportForm( \1A30, \1G50, \1H30, \1F50, \1I40, \1J40, \1K00, \1L00, \1M50, \1C50, \1B00, \1D50, \1E50 )",&sC___217 }; +static COMMANDS sC___219 = {0,"LABEL","FORM \1A00 [\1B20 SAMPLE>] [\1C20 NOCONSOLE>] [\1D20 TO PRINTER>] [TO FILE \1E40] [FOR \1F00] [WHILE \1G00] [NEXT \1H00] [RECORD \1I00] [\1J20REST>] [ALL]", + "__LabelForm( \1A30, \1D50, \1E30, \1C50, \1F40, \1G40, \1H00, \1I00, \1J50, \1B50 )",&sC___218 }; +static COMMANDS sC___220 = {0,"CLOSE","\1A00","\1A00->( dbCloseArea() )",&sC___219 }; +static COMMANDS sC___221 = {0,"CLOSE","","dbCloseArea()",&sC___220 }; +static COMMANDS sC___222 = {0,"CLOSE","DATABASES","dbCloseAll()",&sC___221 }; +static COMMANDS sC___223 = {0,"CLOSE","ALTERNATE","Set(_SET_ALTFILE, "")",&sC___222 }; +static COMMANDS sC___224 = {0,"CLOSE","FORMAT","__SetFormat(NIL)",&sC___223 }; +static COMMANDS sC___225 = {0,"CLOSE","INDEXES","dbClearIndex()",&sC___224 }; +static COMMANDS sC___226 = {0,"CLOSE","PROCEDURE",NULL,&sC___225 }; +static COMMANDS sC___227 = {0,"CLOSE","ALL","CLOSE DATABASES ; SELECT 1 ; CLOSE FORMAT",&sC___226 }; +static COMMANDS sC___228 = {0,"CLEAR","","CLEAR SCREEN ; CLEAR GETS",&sC___227 }; +static COMMANDS sC___229 = {0,"CLEAR","ALL", + "CLOSE DATABASES ; CLOSE FORMAT ; CLEAR MEMORY ; CLEAR GETS ; SET ALTERNATE OFF ; SET ALTERNATE TO",&sC___228 }; +static COMMANDS sC___230 = {0,"INDEX","ON \1A00 [TAG \1B40 ] TO \1C40 [FOR \1D00] [\1E20ALL>] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [EVAL \1J00] [EVERY \1K00] [\1L20 UNIQUE>] [\1M20 ASCENDING>] [\1N20 DESCENDING>]", + "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50] ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, [\1L50] )",&sC___229 }; +static COMMANDS sC___231 = {0,"INDEX","ON \1A00 TAG \1B40 [TO \1C40] [FOR \1D00] [\1E20ALL>] [WHILE \1F00] [NEXT \1G00] [RECORD \1H00] [\1I20REST>] [EVAL \1J00] [EVERY \1K00] [\1L20 UNIQUE>] [\1M20 ASCENDING>] [\1N20 DESCENDING>]", + "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50] ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, [\1L50] )",&sC___230 }; +static COMMANDS sC___232 = {0,"INDEX","ON \1A00 TO \1B40 [\1C20 UNIQUE>]", + "dbCreateIndex( \1B30, \1A20, \1A40, if( \1C50, .t., NIL ) )",&sC___231 }; +static COMMANDS sC___233 = {0,"DELETE","TAG \1A40 [ IN \1B40 ] [, \1C40 [ IN \1D40 ] ]", + "ordDestroy( \1A30, \1B30 ) [; ordDestroy( \1C30, \1D30 ) ]",&sC___232 }; +static COMMANDS sC___234 = {0,"REINDEX","[EVAL \1A00] [EVERY \1B00]", + "ordCondSet(,,,, \1A40, \1B00,,,,,,,) ; ordListRebuild()",&sC___233 }; +static COMMANDS sC___235 = {0,"REINDEX","","ordListRebuild()",&sC___234 }; +static COMMANDS sC___236 = {0,"SET","INDEX TO [ \1A40 [, \1B40]] [\1C20 ADDITIVE>]", + "if !\1C50 ; ordListClear() ; end [; ordListAdd( \1A30 )] [; ordListAdd( \1B30 )]",&sC___235 }; +static COMMANDS sC___237 = {0,"SET","ORDER TO \1A00 [IN \1B40]","ordSetFocus( \1A00 [, \1B30] )",&sC___236 }; +static COMMANDS sC___238 = {0,"SET","ORDER TO TAG \1A40 [IN \1B40]","ordSetFocus( \1A30 [, \1B30] )",&sC___237 }; +static COMMANDS sC___239 = {0,"SET","ORDER TO","ordSetFocus(0)",&sC___238 }; - COMMANDS * hb_pp_topCommand = &sC___239; - COMMANDS * hb_pp_topTranslate = NULL; +COMMANDS * hb_pp_topCommand = &sC___239; +COMMANDS * hb_pp_topTranslate = NULL; diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c index 4318d7c3c6..3d60f059ae 100644 --- a/harbour/source/rtl/filesys.c +++ b/harbour/source/rtl/filesys.c @@ -42,6 +42,7 @@ * hb_fsSetDevMode() * hb_fsReadLarge() * hb_fsWriteLarge() + * hb_fsCurDirBuff() * HB_CURDIR() * HB_CURDRIVE() * HB_DIRCHANGE() @@ -1069,7 +1070,9 @@ USHORT hb_fsCurDirBuff( USHORT uiDrive, BYTE * pbyBuffer, ULONG ulLen ) s_uiErrorLast = errno; /* Strip the leading drive spec, and leading underscore. */ - /* NOTE: The trailing underscore is not returned on this platform */ + + /* NOTE: A trailing underscore is not returned on this platform, + so we don't need to strip it. [vszakats] */ if( pbyStart[ 1 ] == ':' ) pbyStart += 2; @@ -1090,7 +1093,6 @@ USHORT hb_fsCurDirBuff( USHORT uiDrive, BYTE * pbyBuffer, ULONG ulLen ) } /* NOTE: 0=A:, 1=B:, 2=C:, 3=D:, ... */ -/* TODO: add documentation */ USHORT hb_fsChDrv( BYTE nDrive ) { @@ -1157,7 +1159,6 @@ USHORT hb_fsChDrv( BYTE nDrive ) } /* NOTE: 0=A:, 1=B:, 2=C:, 3=D:, ... */ -/* TODO: add documentation */ /* TOFIX: This isn't fully compliant because CA-Cl*pper doesn't access the drive before checking. hb_fsIsDrv only returns TRUE @@ -1249,7 +1250,6 @@ BOOL hb_fsIsDevice( FHANDLE hFileHandle ) } /* NOTE: 0=A:, 1=B:, 2=C:, 3=D:, ... */ -/* TODO: add documentation */ BYTE hb_fsCurDrv( void ) {