From 8a61908828438ffd8eda3d47336f10dd3bc82ec0 Mon Sep 17 00:00:00 2001 From: Ryszard Glab Date: Tue, 28 Feb 2006 15:58:08 +0000 Subject: [PATCH] 2006-02-28 17:00 UTC+0100 Ryszard Glab * include/hbpp.h * source/pp/ppcore.c * source/pp/pptable.c * fixed handling of optional clauses in command/translate e.g. #command PRINT TO => [:=]PrintPage() * fixed <-x-> match marker * added fixed length of command/translate/define name to speed translation * source/compiler/harbour.l * fixed GPF in handling of '¯o.tekst' syntax (introduced recently) --- harbour/ChangeLog | 16 + harbour/include/hbpp.h | 2 + harbour/source/compiler/harbour.l | 4 +- harbour/source/pp/ppcore.c | 675 ++++++++++++++++++----------- harbour/source/pp/pptable.c | 694 +++++++++++++++--------------- 5 files changed, 781 insertions(+), 610 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1a36ce6163..2e81a16e2f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,22 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ * harbour/makefile.vc + + added basic support for GFX operations + + + harbour/source/rtl/gtalleg/Makefile + + harbour/source/rtl/gtalleg/fixedth.sfc + + harbour/source/rtl/gtalleg/gtalleg.c + + harbour/source/rtl/gtalleg/ssf.c + + harbour/source/rtl/gtalleg/ssf.h + + added new GT by Mauricio Abre based on Allegro cross platform + graphic libraries. + Code borrowed from xHarbour and modified by my for new Harbour + GT API. + +2006-02-28 17:00 UTC+0100 Ryszard Glab + * include/hbpp.h + * source/pp/ppcore.c + * source/pp/pptable.c * fixed handling of optional clauses in command/translate #command PRINT TO => [:=]PrintPage() diff --git a/harbour/include/hbpp.h b/harbour/include/hbpp.h index f53003e0ef..bc4c497df1 100644 --- a/harbour/include/hbpp.h +++ b/harbour/include/hbpp.h @@ -64,6 +64,7 @@ struct _DEFINES; typedef struct _DEFINES { char * name; + int namelen; char * pars; int npars; char * value; @@ -75,6 +76,7 @@ typedef struct _COMMANDS { int com_or_xcom; char * name; + int namelen; char * mpatt; char * value; struct _COMMANDS * last; diff --git a/harbour/source/compiler/harbour.l b/harbour/source/compiler/harbour.l index ab13696f63..ef27e6b0c4 100644 --- a/harbour/source/compiler/harbour.l +++ b/harbour/source/compiler/harbour.l @@ -1753,21 +1753,19 @@ Separator {SpaceTab} } {MacroEnd} { -/* yylval.string = hb_strupr( hb_strdup( yytext ) );*/ yylval.string = yytext; hb_comp_iState = MACROTEXT; return MACROTEXT; } {MacroId} { -/* yylval.string = hb_strupr( hb_strdup( yytext ) );*/ yylval.string = yytext; hb_comp_iState = MACROTEXT; return MACROTEXT; } {MacroTxt} { -/* yylval.string = hb_strupr( hb_strdup( yytext ) );*/ + yylval.string = yytext; hb_comp_iState = MACROTEXT; return MACROTEXT; } diff --git a/harbour/source/pp/ppcore.c b/harbour/source/pp/ppcore.c index fc1a16f312..598e15225d 100644 --- a/harbour/source/pp/ppcore.c +++ b/harbour/source/pp/ppcore.c @@ -131,6 +131,8 @@ static int NextParm( char **, char * ); static BOOL OpenInclude( char *, HB_PATHNAMES *, PHB_FNAME, BOOL bStandardOnly, char * ); static BOOL IsIdentifier( char *szProspect ); static int IsMacroVar( char *szText, BOOL isCommand ); +static void RemoveOptional( char *cpatt ); +static int ConvertOptional( char *cpatt, int len ); #define ISNAME( c ) ( isalnum( c ) || ( c ) == '_' || ( c ) > 0x7E ) #define MAX_NAME 255 @@ -156,6 +158,10 @@ static int IsMacroVar( char *szText, BOOL isCommand ); #define HB_PP_MAX_INCLUDES FOPEN_MAX - 5 - 1 +#define HB_PP_MATCH_MARK '\1' +#define HB_PP_OPT_START '\2' +#define HB_PP_OPT_END '\3' + /* Ron Pinkas added 2000-01-24 */ #define IS_2CHAR_OPERATOR( p ) ( p[0] && p[1] && ( strncmp( p, ":=", 2 ) == 0 || \ strncmp( p, "+=", 2 ) == 0 || \ @@ -706,7 +712,7 @@ int hb_pp_ParseDefine( char * sLine ) } iOldPos +=iPos + iPar; } - tmp = cPos+1; + if( cPos ) tmp = cPos+1; } } lastdef = hb_pp_AddDefine( defname, ( *sLine == '\0' ) ? NULL : sLine ); @@ -745,6 +751,7 @@ DEFINES * hb_pp_AddDefine( char * defname, char * value ) stdef->last = hb_pp_topDefine; hb_pp_topDefine = stdef; stdef->name = hb_strdup( defname ); + stdef->namelen = strlen( defname ); stdef->npars = -1; s_kolAddDefs++; @@ -777,6 +784,7 @@ static int ParseUndef( char * sLine ) stdef->pars = NULL; stdef->value = NULL; stdef->name = NULL; + stdef->namelen = 0; } return 0; @@ -989,7 +997,6 @@ static void ParseCommand( char * sLine, BOOL com_or_xcom, BOOL com_or_tra ) /* Ron Pinkas removed 2000-12-03 stroncpy( mpatt, sLine, ipos-1 ); */ - RemoveSlash( mpatt ); mlen = strotrim( mpatt, TRUE ); /* Ron Pinkas removed 2000-12-03 @@ -1001,6 +1008,8 @@ static void ParseCommand( char * sLine, BOOL com_or_xcom, BOOL com_or_tra ) rlen = strotrim( rpatt, TRUE ); ConvertPatterns( mpatt, mlen, rpatt, rlen ); + mlen = RemoveSlash( mpatt ); + rlen = RemoveSlash( rpatt ); if( com_or_tra ) stcmd = AddCommand( cmdname ); @@ -1024,6 +1033,121 @@ static void ParseCommand( char * sLine, BOOL com_or_xcom, BOOL com_or_tra ) } } +/* Remove escape characters and check '[' optional markers +*/ +static int ConvertOptional( char *cpatt, int len ) +{ + int i = 0; + int iOpenBrackets = 0; + + while( cpatt[ i ] != '\0' ) + { + if( cpatt[ i ] == '"' || cpatt[ i ] == '\'' ) + { + char c = cpatt[ i ]; + i++; + while( cpatt[ i ] && cpatt[ i ] != c ) + { + i++; + } + i++; + continue; /* skip "strings" */ + } + + if( cpatt[ i ] == '[' ) + { + if( i && cpatt[ i - 1 ] == '\\' ) + { + hb_pp_Stuff( "", cpatt + i - 1, 0, 1, len - i + 1 ); + len--; + continue; + } + else + { + iOpenBrackets++; + cpatt[i] = HB_PP_OPT_START; + } + } + else if( cpatt[ i ] == ']' ) + { + if ( i && cpatt[ i - 1 ] == '\\' ) + { + hb_pp_Stuff( "", cpatt + i - 1, 0, 1, len - i + 1 ); + len--; + continue; + } + else + { + iOpenBrackets--; + cpatt[i] = HB_PP_OPT_END; + } + } + i++; + } + + if( iOpenBrackets ) + { + hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); + /* error */ + } + return len; +} + +static void RemoveOptional( char *cpatt ) +{ + int i = 0; + int len = strlen( cpatt ); + int iOpenBra = 0; + + while( cpatt[ i ] != '\0' ) + { + if( cpatt[ i ] == '"' || cpatt[ i ] == '\'' ) + { + char c = cpatt[ i ]; + i++; + while( cpatt[ i ] && cpatt[ i ] != c ) + { + i++; + } + i++; + continue; /* skip "strings" */ + } + if( cpatt[ i ] == '[' ) + { + i++; + iOpenBra++; + while( cpatt[ i ] && (cpatt[ i ] != ']' || iOpenBra) ) + { + if( cpatt[i] == '[' ) + { + iOpenBra++; + } + else if( cpatt[i] == ']' ) + { + iOpenBra--; + if( iOpenBra == 0 ) + { + i++; + break; + } + } + i++; + } + i++; + continue; /* skip [strings] */ + } + + if( cpatt[ i ] == HB_PP_OPT_START || cpatt[ i ] == HB_PP_OPT_END ) + { + hb_pp_Stuff( "", cpatt + i, 0, 1, len - i + 1 ); + len--; + } + else + i++; + } +} + + /* ConvertPatterns() * Converts result pattern in #command and #translate to inner format */ @@ -1032,150 +1156,169 @@ static void ConvertPatterns( char * mpatt, int mlen, char * rpatt, int rlen ) { int i = 0, ipos, ifou; int explen, rmlen; - char exppatt[ MAX_NAME ], expreal[ 5 ] = "\1 0"; + char exppatt[ MAX_NAME ], expreal[ 5 ] = " 0"; char lastchar = '@', exptype; char * ptr, * ptrtmp; HB_TRACE(HB_TR_DEBUG, ("ConvertPatterns(%s, %d, %s, %d)", mpatt, mlen, rpatt, rlen)); + expreal[0] = HB_PP_MATCH_MARK; + mlen = ConvertOptional( mpatt, mlen ); + rlen = ConvertOptional( rpatt, rlen ); + while( *(mpatt+i) != '\0' ) + { + if( mpatt[ i ] == '"' || mpatt[ i ] == '\'' ) { - if( *(mpatt+i) == '<' ) - { /* Drag match marker, determine it type */ - explen = 0; ipos = i; i++; exptype = '0'; - while( *(mpatt+i) == ' ' || *(mpatt+i) == '\t' ) i++; - if( *(mpatt+i) == '*' ) /* Wild match marker */ - { exptype = '3'; i++; } - else if( *(mpatt+i) == '(' ) /* Extended expression match marker */ - { exptype = '4'; i++; } - else if( *(mpatt+i) == '!' ) /* Extended expression match marker */ - { exptype = '5'; i++; } - ptr = mpatt + i; - while( *ptr != '>' ) - { - if( *ptr == '\0' || *ptr == '<' || *ptr == '[' || *ptr == ']' ) - { - hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); - return; - } - ptr++; - } - while( *(mpatt+i) != '>' ) - { - if( *(mpatt+i) == ',' ) /* List match marker */ - { - exptype = '1'; - while( *(mpatt+i) != '>' ) i++; - break; - } - else if( *(mpatt+i) == ':' ) /* Restricted match marker */ - { - exptype = '2'; - *(mpatt+i--) = ' '; - break; - } - if( *(mpatt+i) != ' ' && *(mpatt+i) != '\t' ) - *(exppatt+explen++) = *(mpatt+i); - i++; - } - if( exptype == '3' ) - { - if( *(exppatt+explen-1) == '*' ) explen--; - else - hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); - } - else if( exptype == '4' ) - { - if( *(exppatt+explen-1) == ')' ) explen--; - else - hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); - } - else if( exptype == '5' ) - { - if( *(exppatt+explen-1) == '!' ) explen--; - else - hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); - } - - rmlen = i - ipos + 1; - /* Convert match marker into inner format */ - lastchar = (lastchar!='Z') ? ( (char) ( (unsigned int)lastchar + 1 ) ): - 'a'; - expreal[1] = lastchar; - expreal[2] = exptype; - hb_pp_Stuff( expreal, mpatt+ipos, 4, rmlen, mlen-ipos ); - mlen += 4 - rmlen; - i += 4 - rmlen; - - /* Look for appropriate result markers */ - ptr = rpatt; - while( (ifou = hb_strAt( exppatt, explen, ptr, rlen-(ptr-rpatt) )) > 0 ) - { - /* Convert result marker into inner format */ - ifou --; - ptr += ifou; - ptrtmp = ptr + 1; - rmlen = explen; - exptype = '0'; - do - { - ptr--; - rmlen++; - ifou--; - if( *ptr == '<' ) - continue; - else if( *ptr == '\"' ) - exptype = '2'; - else if( *ptr == '(' ) - exptype = '3'; - else if( *ptr == '{' ) - exptype = '4'; - else if( *ptr == '.' ) - exptype = '5'; - else if( *ptr == '-' ) - exptype = '6'; - else if( *ptr == ' ' || *ptr == '\t' ) - continue; - else - ifou = -1; - } - while( ifou >= 0 && *ptr!='<' && *(ptr-1)!= '\\' ); - if( ifou >=0 && *ptr=='<' ) - { - ptr += rmlen++; - while( *ptr != '\0' && *ptr != '>' && *(ptr-1) != '\\' ) - { - if( *ptr != ' ' && *ptr != '\t' && *ptr != '\"' && *ptr != ')' && *ptr != '}' && *ptr != '.' && *ptr != '-' ) - { - ifou = -1; - break; - } - rmlen++; - ptr++; - } - if( ifou >=0 && *ptr=='>' ) - { - ptr -= rmlen; - ptr++; - if( exptype == '0' && *(ptr-1) == '#' && *(ptr-2) != '\\' ) - { - exptype = '1'; - ptr--; - rmlen++; - } - expreal[2] = exptype; - hb_pp_Stuff( expreal, ptr, 4, rmlen, rlen+(rpatt-ptr) ); - rlen += 4 - rmlen; - } - else - ptr = ptrtmp; - } - else - ptr = ptrtmp; - } - } + char c = mpatt[ i ]; i++; + while( mpatt[ i ] && mpatt[ i ] != c ) + { + i++; + } + i++; + continue; /* skip "strings" */ + } + + if( *(mpatt+i) == '<' ) + { + /* Drag match marker, determine it type */ + explen = 0; ipos = i; i++; exptype = '0'; + while( *(mpatt+i) == ' ' || *(mpatt+i) == '\t' ) i++; + if( *(mpatt+i) == '*' ) /* Wild match marker */ + { exptype = '3'; i++; } + else if( *(mpatt+i) == '(' ) /* Extended expression match marker */ + { exptype = '4'; i++; } + else if( *(mpatt+i) == '!' ) /* Minimal expression match marker */ + { exptype = '5'; i++; } + ptr = mpatt + i; + while( *ptr != '>' ) + { + if( *ptr == '\0' || *ptr == '<' || *ptr == '[' || *ptr == ']' ) + { + hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); + return; + } + ptr++; + } + + while( *(mpatt+i) != '>' ) + { + if( *(mpatt+i) == ',' ) /* List match marker */ + { + exptype = '1'; + while( *(mpatt+i) != '>' ) i++; + break; + } + else if( *(mpatt+i) == ':' ) /* Restricted match marker */ + { + exptype = '2'; + *(mpatt+i--) = ' '; + break; + } + if( *(mpatt+i) != ' ' && *(mpatt+i) != '\t' ) + *(exppatt+explen++) = *(mpatt+i); + i++; + } + + if( exptype == '3' ) + { + if( *(exppatt+explen-1) == '*' ) explen--; + else + hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); + } + else if( exptype == '4' ) + { + if( *(exppatt+explen-1) == ')' ) explen--; + else + hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); + } + else if( exptype == '5' ) + { + if( *(exppatt+explen-1) == '!' ) explen--; + else + hb_compGenError( hb_pp_szErrors, 'F', HB_PP_ERR_PATTERN_DEFINITION, NULL, NULL ); + } + + rmlen = i - ipos + 1; + /* Convert match marker into inner format */ + lastchar = (lastchar!='Z') ? ( (char) ( (unsigned int)lastchar + 1 ) ): 'a'; + expreal[1] = lastchar; + expreal[2] = exptype; + hb_pp_Stuff( expreal, mpatt+ipos, 4, rmlen, mlen-ipos ); + mlen += 4 - rmlen; + i += 4 - rmlen; + + /* Look for appropriate result markers */ + ptr = rpatt; + while( (ifou = hb_strAt( exppatt, explen, ptr, rlen-(ptr-rpatt) )) > 0 ) + { + /* Convert result marker into inner format */ + ifou --; + ptr += ifou; + ptrtmp = ptr + 1; + rmlen = explen; + exptype = '0'; /* regular result marker */ + do + { + ptr--; + rmlen++; + ifou--; + if( *ptr == '<' ) + continue; + else if( *ptr == '\"' ) + exptype = '2'; /* normal stringify result marker */ + else if( *ptr == '(' ) + exptype = '3'; /* Smart stringify result marker */ + else if( *ptr == '{' ) + exptype = '4'; /* Blockify result marker */ + else if( *ptr == '.' ) + exptype = '5'; /* Logify result marker */ + else if( *ptr == '-' ) + exptype = '6'; /* ommit (remove) result marker */ + else if( *ptr == ' ' || *ptr == '\t' ) + continue; + else + ifou = -1; + } + while( ifou >= 0 && *ptr!='<' && *(ptr-1)!= '\\' ); + + if( ifou >=0 && *ptr=='<' ) + { + ptr += rmlen++; + while( *ptr != '\0' && *ptr != '>' && *(ptr-1) != '\\' ) + { + if( *ptr != ' ' && *ptr != '\t' && *ptr != '\"' && *ptr != ')' && *ptr != '}' && *ptr != '.' && *ptr != '-' ) + { + ifou = -1; + break; + } + rmlen++; + ptr++; + } + if( ifou >=0 && *ptr=='>' ) + { + ptr -= rmlen; + ptr++; + if( exptype == '0' && *(ptr-1) == '#' && *(ptr-2) != '\\' ) + { + exptype = '1'; /* dumb stringify result marker */ + ptr--; + rmlen++; + } + expreal[2] = exptype; + hb_pp_Stuff( expreal, ptr, 4, rmlen, rlen+(rpatt-ptr) ); + rlen += 4 - rmlen; + } + else + ptr = ptrtmp; + } + else + ptr = ptrtmp; + } } + i++; + } } static COMMANDS * AddCommand( char * cmdname ) @@ -1188,6 +1331,7 @@ static COMMANDS * AddCommand( char * cmdname ) stcmd->last = hb_pp_topCommand; hb_pp_topCommand = stcmd; stcmd->name = hb_strdup( cmdname ); + stcmd->namelen = strlen( cmdname ); s_kolAddComs++; return stcmd; } @@ -1202,6 +1346,7 @@ static COMMANDS* AddTranslate( char * traname ) sttra->last = hb_pp_topTranslate; hb_pp_topTranslate = sttra; sttra->name = hb_strdup( traname ); + sttra->namelen = strlen( traname ); s_kolAddTras++; return sttra; } @@ -1313,7 +1458,7 @@ int hb_pp_ParseExpression( char * sLine, char * sOutLine ) while( stcmd != NULL ) { ptri = sLine + isdvig; - lenToken = strlen(stcmd->name); + lenToken = stcmd->namelen; while( ( ifou = md_strAt( stcmd->name, lenToken, ptri, TRUE, FALSE, FALSE, MD_STR_AT_USESUBCASE )) > 0 ) { @@ -1462,7 +1607,13 @@ int hb_pp_ParseExpression( char * sLine, char * sOutLine ) } } while( rezDef || rezTra || rezCom ); - + + RemoveOptional( sLine ); + if( *sOutLine ) + { + RemoveOptional( sOutLine ); + } + #if 0 if( *sOutLine ) printf( "Out: >%s<\n", sOutLine ); @@ -1631,7 +1782,10 @@ static int WorkCommand( char * ptri, char * ptro, COMMANDS * stcmd ) while( rez < 0 && stcmd != NULL ); *(ptro+lenres) = '\0'; - if( rez >= 0 ) return lenres; + if( rez >= 0 ) + { + return lenres; + } return -1; } @@ -1681,6 +1835,7 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr char * lastopti[ MAX_OPTIONALS ], * strtopti = NULL, * strtptri = NULL; char * ptri = inputLine, * ptr, tmpname[ MAX_NAME ]; int isWordInside = 0; + char szMatch[2]; /* printf( "MP: >%s<\nIn: >%s<\n", ptrmp, ptri ); @@ -1700,7 +1855,7 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr while( *ptri != '\0' && !endTranslation ) { HB_SKIPTABSPACES( ptrmp ); - if( *ptrmp == '[' && !s_numBrackets && !strtopti ) + if( *ptrmp == HB_PP_OPT_START && !s_numBrackets && !strtopti ) { strtopti = ptrmp; } @@ -1722,7 +1877,7 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr } switch( *ptrmp ) { - case '[': + case HB_PP_OPT_START: if( !s_numBrackets ) isWordInside = 0; s_numBrackets++; s_aIsRepeate[ s_Repeate ] = 0; @@ -1734,7 +1889,7 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr } break; - case ']': + case HB_PP_OPT_END: if( s_Repeate ) { s_Repeate--; @@ -1799,7 +1954,7 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr } break; - case '\1': /* Match marker */ + case HB_PP_MATCH_MARK: /* Match marker */ if( !s_numBrackets ) strtopti = NULL; if( s_numBrackets == 1 && *(ptrmp+2) == '2' ) isWordInside = 1; /* restricted match marker */ if( !WorkMarkers( &ptrmp, &ptri, ptro, lenres, com_or_tra, com_or_xcom ) ) @@ -1845,12 +2000,12 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr HB_SKIPTABSPACES( ptrmp ); if( *ptrmp != '\0' ) switch( *ptrmp ) { - case '[': + case HB_PP_OPT_START: ptrmp++; SkipOptional( &ptrmp ); ptrmp++; break; - case ']': ptrmp++; break; + case HB_PP_OPT_END: ptrmp++; break; default: return -1; } @@ -1858,60 +2013,52 @@ static int CommandStuff( char * ptrmp, char * inputLine, char * ptro, int * lenr while( *ptrmp != '\0' ); } - SearnRep( "\1","",0,ptro,lenres); + szMatch[ 0 ] = HB_PP_MATCH_MARK; + szMatch[ 1 ] = '\0'; + SearnRep( szMatch,"",0,ptro,lenres); *(ptro + *lenres) = '\0'; - *lenres = RemoveSlash( ptro ); /* Removing '\' from result string */ if( com_or_tra ) return 1; else return (ptri-inputLine); } -static int RemoveSlash( char * stroka ) +static int RemoveSlash( char * cpatt ) { - char *ptr = stroka; - int State = STATE_INIT; - BOOL bDirective = FALSE; - int lenres = strlen( stroka ); - - HB_TRACE(HB_TR_DEBUG, ("RemoveSlash(%s)", stroka)); - - while( *ptr != '\0' ) + int i; + int lenres = strlen( cpatt ); + + while( cpatt[ i ] != '\0' ) + { + if( cpatt[ i ] == '"' || cpatt[ i ] == '\'' ) { - switch( State ) { - case STATE_INIT: - if( *ptr != ' ' && *ptr != '\t' ) State = STATE_NORMAL; - if( *ptr == '#' ) bDirective = TRUE; - case STATE_NORMAL: - if( *ptr == '\'' ) State = STATE_QUOTE1; - else if( *ptr == '\"' ) State = STATE_QUOTE2; - else if( *ptr == '[' ) State = STATE_QUOTE3; - else if( *ptr == ';' ) - { - State = STATE_INIT; - bDirective = FALSE; - } - else if( !bDirective ) - { - if( *ptr == '\\' && ( *(ptr+1) == '[' || *(ptr+1) == ']' || - *(ptr+1) == '{' || *(ptr+1) == '}' || *(ptr+1) == '<' || - *(ptr+1) == '>' || *(ptr+1) == '\'' || *(ptr+1) == '\"' ) ) - { - hb_pp_Stuff( "", ptr, 0, 1, lenres - (ptr - stroka) ); - lenres--; - } - } - break; - case STATE_QUOTE1: - if( *ptr == '\'' ) State = STATE_NORMAL; - break; - case STATE_QUOTE2: - if( *ptr == '\"' ) State = STATE_NORMAL; - break; - case STATE_QUOTE3: - if( *ptr == ']' ) State = STATE_NORMAL; - break; + char c = cpatt[ i ]; + i++; + while( cpatt[ i ] && cpatt[ i ] != c ) + { + i++; } - ptr++; + i++; + continue; /* skip "strings" */ + } + if( cpatt[ i ] == '[' ) + { + i++; + while( cpatt[ i ] && cpatt[ i ] != ']' ) + { + i++; + } + i++; + continue; /* skip [strings] */ + } + + if( cpatt[ i ] == '\\' ) + { + hb_pp_Stuff( "", cpatt + i, 0, 1, lenres - i + 1 ); + lenres--; + i++; } + else + i++; + } return lenres; } @@ -1944,23 +2091,23 @@ static int WorkMarkers( char ** ptrmp, char ** ptri, char * ptro, int * lenres, ptrtemp = *ptrmp; - if( *(exppatt+2) != '2' && *ptrtemp == ']' ) + if( *(exppatt+2) != '2' && *ptrtemp == HB_PP_OPT_END ) { ptrtemp++; HB_SKIPTABSPACES( ptrtemp ); - while( *ptrtemp == '[' ) + while( *ptrtemp == HB_PP_OPT_START ) { nBra = 0; ptrtemp++; - while( ( *ptrtemp != ']' || nBra ) && *ptrtemp != '\0') + while( ( *ptrtemp != HB_PP_OPT_END || nBra ) && *ptrtemp != '\0') { - if( *ptrtemp == '[' ) + if( *ptrtemp == HB_PP_OPT_START ) { nBra++; } - else if( *ptrtemp == ']' ) + else if( *ptrtemp == HB_PP_OPT_END ) { nBra --; } @@ -1972,7 +2119,7 @@ static int WorkMarkers( char ** ptrmp, char ** ptri, char * ptro, int * lenres, } } - if( *(exppatt+2) != '2' && *ptrtemp != '\1' && *ptrtemp != ',' && *ptrtemp != '[' && *ptrtemp != ']' && *ptrtemp != '\0' ) + if( *(exppatt+2) != '2' && *ptrtemp != HB_PP_MATCH_MARK && *ptrtemp != ',' && *ptrtemp != HB_PP_OPT_START && *ptrtemp != HB_PP_OPT_END && *ptrtemp != '\0' ) { lenreal = strincpy( expreal, ptrtemp ); @@ -2232,14 +2379,9 @@ static int getExpReal( char * expreal, char ** ptri, BOOL prlist, int maxrez, BO int State; int StBr1 = 0, StBr2 = 0, StBr3 = 0; BOOL rez = FALSE; - - /* Ron Pinkas added 2000-06-02 */ BOOL bMacro = FALSE; - /* Ron Pinkas end 2000-06-02 */ - /* Ron Pinkas added 2000-06-17 */ char cLastChar = '\0'; - /* Ron Pinkas end 2000-06-17 */ HB_TRACE(HB_TR_DEBUG, ("getExpReal(%s, %p, %d, %d, %d)", expreal, ptri, prlist, maxrez, bStrict)); @@ -2249,8 +2391,11 @@ static int getExpReal( char * expreal, char ** ptri, BOOL prlist, int maxrez, BO while( **ptri != '\0' && !rez && lens < maxrez ) { - /* Added by Ron Pinkas 2000-11-08 ( removed lots of related scattered logic below! */ - if( State == STATE_EXPRES || ( cLastChar && strchr( "({[.|,$!#=<>^%*/+-", cLastChar ) ) ) /* Ron Pinkas added if on State 2001-05-02 to avoid multiple strings concatination. */ + if( State == STATE_EXPRES || + ( cLastChar && strchr( "({[.|,$!#=<>^%*/+-", cLastChar ) ) ) + /* Ron Pinkas added if on State 2001-05-02 to avoid + multiple strings concatination. + */ { if( **ptri == '"' ) { @@ -2336,7 +2481,11 @@ static int getExpReal( char * expreal, char ** ptri, BOOL prlist, int maxrez, BO State = ( StBr1==0 && StBr2==0 && StBr3==0 )? STATE_ID_END: STATE_BRACKET; continue; } - else if( **ptri == '[' /* ( see below 5-2-2001 && ( State == STATE_EXPRES || ( strchr( ")]}.", cLastChar ) == NULL && ! ISNAME( ( BYTE ) cLastChar ) ) )*/ ) + else if( **ptri == '[' ) + /* ( see below 5-2-2001 + && ( State == STATE_EXPRES || ( strchr( ")]}.", cLastChar ) == NULL + && ! ISNAME( ( BYTE ) cLastChar ) ) ) + */ { char *pString; @@ -2392,10 +2541,13 @@ static int getExpReal( char * expreal, char ** ptri, BOOL prlist, int maxrez, BO State = ( StBr1==0 && StBr2==0 && StBr3==0 )? STATE_ID_END: STATE_BRACKET; continue; } - /* Added by Ron Pinkas 2001-05-02 ( removed lots of related scattered logic below! */ + /* Added by Ron Pinkas 2001-05-02 + ( removed lots of related scattered logic below! + */ } - else if( strchr( "'\"", **ptri ) ) /* New String, can't belong to extracted expression. */ + else if( strchr( "'\"", **ptri ) ) { + /* New String, can't belong to extracted expression. */ break; } else if( **ptri == '[' && ( strchr( ")]}.", cLastChar ) == NULL && ! ISNAME( ( BYTE ) cLastChar ) ) ) /* New String, can't belong to extracted expression. */ @@ -2702,23 +2854,26 @@ static BOOL TestOptional( char *ptr1, char *ptr2 ) while( ptr1 <= ptr2 ) { - if( *ptr1 == '[' ) nbr++; - else if( *ptr1 == ']' ) + if( *ptr1 == HB_PP_OPT_START ) + { + nbr++; + } + else if( *ptr1 == HB_PP_OPT_END ) + { + if( nbr ) { - if( nbr ) - { - nbr--; - flagname = FALSE; - } - else return 0; + nbr--; + flagname = FALSE; } - else if( *ptr1 == '\1' && *(ptr1+2) == '2' && nbr ) statevar = 1; + else return 0; + } + else if( *ptr1 == HB_PP_MATCH_MARK && *(ptr1+2) == '2' && nbr ) statevar = 1; else if( *ptr1 == '>' && statevar ) statevar = 0; else if( *ptr1 != ' ' && *ptr1 != '\t' && !statevar ) - { - if( nbr ) flagname = TRUE; - else return 0; - } + { + if( nbr ) flagname = TRUE; + else return 0; + } ptr1++; } /* if( !flagname ) @@ -2748,14 +2903,15 @@ static BOOL CheckOptional( char * ptrmp, char * ptri, char * ptro, int * lenres, { HB_SKIPTABSPACES( ptrmp ); switch( *ptrmp ) { - case '[': + case HB_PP_OPT_START: s_numBrackets++; s_aIsRepeate[ s_Repeate ] = 0; lastInputptr[s_Repeate] = ptri; lastopti[s_Repeate++] = ptrmp; ptrmp++; break; - case ']': + + case HB_PP_OPT_END: if( s_numBrackets == save_numBr ) endTranslation = TRUE; else @@ -2769,6 +2925,7 @@ static BOOL CheckOptional( char * ptrmp, char * ptri, char * ptro, int * lenres, s_numBrackets--; } break; + case ',': if( *ptri == ',' ) { ptrmp++; ptri++; } else @@ -2781,7 +2938,8 @@ static BOOL CheckOptional( char * ptrmp, char * ptri, char * ptro, int * lenres, else bResult = FALSE; } break; - case '\1': /* Match marker */ + + case HB_PP_MATCH_MARK: /* Match marker */ if( !WorkMarkers( &ptrmp, &ptri, ptro, lenres, com_or_tra, com_or_xcom ) ) { if( s_numBrackets - save_numBr > 0 ) @@ -2792,8 +2950,10 @@ static BOOL CheckOptional( char * ptrmp, char * ptri, char * ptro, int * lenres, else bResult = FALSE; } break; + case '\0': bResult = FALSE; + default: /* Key word */ ptr = ptri; if( *ptri == ',' || truncmp( &ptri, &ptrmp, !com_or_xcom ) ) @@ -2809,17 +2969,18 @@ static BOOL CheckOptional( char * ptrmp, char * ptri, char * ptro, int * lenres, } HB_SKIPTABSPACES( ptri ); }; + if( *ptri == '\0' ) { do { HB_SKIPTABSPACES( ptrmp ); - if( *ptrmp == '[' ) + if( *ptrmp == HB_PP_OPT_START ) { ptrmp++; SkipOptional( &ptrmp ); } - else if( *ptrmp == ']' ) + else if( *ptrmp == HB_PP_OPT_END ) break; else { @@ -2841,12 +3002,12 @@ static void SkipOptional( char ** ptri ) HB_TRACE(HB_TR_DEBUG, ("SkipOptional(%p)", ptri)); - while( **ptri != ']' || nbr ) + while( **ptri != HB_PP_OPT_END || nbr ) { switch( **ptri ) { - case '[': nbr++; break; - case ']': nbr--; break; - case '\1': + case HB_PP_OPT_START: nbr++; break; + case HB_PP_OPT_END: nbr--; break; + case HB_PP_MATCH_MARK: (*ptri) += 3; if( *(*ptri-1) == '2' ) while( **ptri != '>' ) (*ptri)++; @@ -2854,7 +3015,7 @@ static void SkipOptional( char ** ptri ) } (*ptri)++; } - if( **ptri == ']' && s_numBrackets > 0 ) + if( **ptri == HB_PP_OPT_END && s_numBrackets > 0 ) { if( s_Repeate ) s_Repeate--; s_numBrackets--; (*ptri)++; @@ -2892,9 +3053,9 @@ static void SearnRep( char * exppatt, char * expreal, int lenreal, char * ptro, return; ptr2 = ptrOut + ifou + 3; - while( *ptr2 != ']' || *(ptr2-1) == '\\' ) + while( *ptr2 != HB_PP_OPT_END || *(ptr2-1) == '\\' ) { - if( *ptr2 == '\1' ) kolmarkers++; + if( *ptr2 == HB_PP_MATCH_MARK ) kolmarkers++; ptr2++; } @@ -2934,7 +3095,7 @@ static void SearnRep( char * exppatt, char * expreal, int lenreal, char * ptro, { s_groupchar = (char) ( (unsigned int)s_groupchar + 1 ); for( i=0; i bound ) { - if( State == STATE_QUOTE1 ) + if( kolmark && *ptr == HB_PP_MATCH_MARK ) { - if( *ptr == '\'' ) State = STATE_NORMAL; + (*kolmark)++; } - else if( State == STATE_QUOTE2 ) + else if( *ptr == HB_PP_OPT_START || *ptr == HB_PP_OPT_END ) { - if( *ptr == '\"' ) State = STATE_NORMAL; - } - else - { - if( *ptr == '\"' && *(ptr-1) != '\\' ) State = STATE_QUOTE2; - else if( *ptr == '\'' && *(ptr-1) != '\\' ) State = STATE_QUOTE1; - else if( kolmark && *ptr == '\1' ) (*kolmark)++; - else if( ( *ptr == '[' || *ptr == ']' ) && *(ptr-1) != '\\' ) - break; + break; } ptr--; } - return ( *ptr == '[' && State == STATE_NORMAL )? ptr:NULL; + return ( *ptr == HB_PP_OPT_START ) ? ptr : NULL; } static int IsInStr( char symb, char * s ) @@ -3832,13 +3983,13 @@ static BOOL truncmp( char ** ptro, char ** ptri, BOOL lTrunc ) HB_TRACE(HB_TR_DEBUG, ("truncmp(%p, %p, %d)", ptro, ptri, lTrunc)); - for( ; **ptri != ' ' && **ptri != '\t' && **ptri != ',' && **ptri != '[' && **ptri != ']' && - **ptri != '\1' && **ptri != '\0' && toupper(**ptri)==toupper(**ptro); + for( ; **ptri != ' ' && **ptri != '\t' && **ptri != ',' && **ptri != HB_PP_OPT_START && **ptri != HB_PP_OPT_END && + **ptri != HB_PP_MATCH_MARK && **ptri != '\0' && toupper(**ptri)==toupper(**ptro); (*ptro)++, (*ptri)++ ); co = *(*ptro-1); ci = **ptri; - if( ( ( ci == ' ' || ci == ',' || ci == '[' || - ci == ']' || ci == '\1' || ci == '\0' ) && + if( ( ( ci == ' ' || ci == ',' || ci == HB_PP_OPT_START || + ci == HB_PP_OPT_END || ci == HB_PP_MATCH_MARK || ci == '\0' ) && ( ( !ISNAME(( BYTE ) **ptro) && ISNAME(( BYTE ) co) ) || ( !ISNAME(( BYTE ) co) ) ) ) ) return FALSE; @@ -3856,13 +4007,13 @@ static BOOL strincmp( char * ptro, char ** ptri, BOOL lTrunc ) HB_TRACE(HB_TR_DEBUG, ("strincmp(%s, %p)", ptro, ptri)); - for( ; **ptri != ',' && **ptri != '[' && **ptri != ']' && - **ptri != '\1' && **ptri != '\0' && toupper(**ptri)==toupper(*ptro); + for( ; **ptri != ',' && **ptri != HB_PP_OPT_START && **ptri != HB_PP_OPT_END && + **ptri != HB_PP_MATCH_MARK && **ptri != '\0' && toupper(**ptri)==toupper(*ptro); ptro++, (*ptri)++ ); co = *(ptro-1); ci = **ptri; - if( ( ( ci == ' ' || ci == ',' || ci == '[' || - ci == ']' || ci == '\1' || ci == '\0' ) && + if( ( ( ci == ' ' || ci == ',' || ci == HB_PP_OPT_START || + ci == HB_PP_OPT_END || ci == HB_PP_MATCH_MARK || ci == '\0' ) && ( ( !ISNAME(( BYTE ) *ptro) && ISNAME(( BYTE ) co) ) || ( !ISNAME(( BYTE ) co) ) ) ) ) return FALSE; @@ -3880,8 +4031,8 @@ static int strincpy( char * ptro, char * ptri ) HB_TRACE(HB_TR_DEBUG, ("strincpy(%s, %s)", ptro, ptri)); - for( ; *ptri != ' ' && *ptri != ',' && *ptri != '[' && *ptri != ']' && - *ptri != '\1' && *ptri != '\0'; ptro++, ptri++, lens++ ) + for( ; *ptri != ' ' && *ptri != ',' && *ptri != HB_PP_OPT_START && *ptri != HB_PP_OPT_END && + *ptri != HB_PP_MATCH_MARK && *ptri != '\0'; ptro++, ptri++, lens++ ) *ptro = *ptri; return lens; } @@ -4042,6 +4193,10 @@ static int NextName( char ** sSource, char * sDest ) /* END - Ron Pinkas added 2000-11-08 */ } } + else if( (*sSource)[0] == HB_PP_OPT_START || (*sSource)[0] == HB_PP_OPT_END ) + { + State = STATE_NORMAL; + } /* Ron Pinkas added 2001-02-21 */ else if( (*sSource)[0] == '.' && toupper( (*sSource)[1] ) == 'A' && toupper( (*sSource)[2] ) == 'N' && toupper( (*sSource)[3] ) == 'D' && (*sSource)[4] == '.' ) { diff --git a/harbour/source/pp/pptable.c b/harbour/source/pp/pptable.c index c133aedb81..2ac187c04e 100644 --- a/harbour/source/pp/pptable.c +++ b/harbour/source/pp/pptable.c @@ -69,386 +69,386 @@ DEFINES * hb_pp_topDefine = NULL; void hb_pp_Table( void ) { - static DEFINES sD___01 = {"_SET_ALTERNATE",NULL,-1,"18", NULL }; - static DEFINES sD___02 = {"_SET_ALTFILE",NULL,-1,"19", &sD___01 }; - static DEFINES sD___03 = {"_SET_BELL",NULL,-1,"26", &sD___02 }; - static DEFINES sD___04 = {"_SET_CANCEL",NULL,-1,"12", &sD___03 }; - static DEFINES sD___05 = {"_SET_COLOR",NULL,-1,"15", &sD___04 }; - static DEFINES sD___06 = {"_SET_CONFIRM",NULL,-1,"27", &sD___05 }; - static DEFINES sD___07 = {"_SET_CONSOLE",NULL,-1,"17", &sD___06 }; - static DEFINES sD___08 = {"_SET_CURSOR",NULL,-1,"16", &sD___07 }; - static DEFINES sD___09 = {"_SET_DATEFORMAT",NULL,-1,"4", &sD___08 }; - static DEFINES sD___10 = {"_SET_DEBUG",NULL,-1,"13", &sD___09 }; - static DEFINES sD___11 = {"_SET_DECIMALS",NULL,-1,"3", &sD___10 }; - static DEFINES sD___12 = {"_SET_DEFAULT",NULL,-1,"7", &sD___11 }; - static DEFINES sD___13 = {"_SET_DELETED",NULL,-1,"11", &sD___12 }; - static DEFINES sD___14 = {"_SET_DELIMCHARS",NULL,-1,"34", &sD___13 }; - static DEFINES sD___15 = {"_SET_DELIMITERS",NULL,-1,"33", &sD___14 }; - static DEFINES sD___16 = {"_SET_DEVICE",NULL,-1,"20", &sD___15 }; - static DEFINES sD___17 = {"_SET_EPOCH",NULL,-1,"5", &sD___16 }; - static DEFINES sD___18 = {"_SET_ESCAPE",NULL,-1,"28", &sD___17 }; - static DEFINES sD___19 = {"_SET_EVENTMASK",NULL,-1,"39", &sD___18 }; - static DEFINES sD___20 = {"_SET_EXACT",NULL,-1,"1", &sD___19 }; - static DEFINES sD___21 = {"_SET_EXCLUSIVE",NULL,-1,"8", &sD___20 }; - static DEFINES sD___22 = {"_SET_EXIT",NULL,-1,"30", &sD___21 }; - static DEFINES sD___23 = {"_SET_EXTRA",NULL,-1,"21", &sD___22 }; - static DEFINES sD___24 = {"_SET_EXTRAFILE",NULL,-1,"22", &sD___23 }; - static DEFINES sD___25 = {"_SET_FIXED",NULL,-1,"2", &sD___24 }; - static DEFINES sD___26 = {"_SET_INSERT",NULL,-1,"29", &sD___25 }; - static DEFINES sD___27 = {"_SET_INTENSITY",NULL,-1,"31", &sD___26 }; - static DEFINES sD___28 = {"_SET_MARGIN",NULL,-1,"25", &sD___27 }; - static DEFINES sD___29 = {"_SET_MCENTER",NULL,-1,"37", &sD___28 }; - static DEFINES sD___30 = {"_SET_MESSAGE",NULL,-1,"36", &sD___29 }; - static DEFINES sD___31 = {"_SET_PATH",NULL,-1,"6", &sD___30 }; - static DEFINES sD___32 = {"_SET_PRINTER",NULL,-1,"23", &sD___31 }; - static DEFINES sD___33 = {"_SET_PRINTFILE",NULL,-1,"24", &sD___32 }; - static DEFINES sD___34 = {"_SET_SCOREBOARD",NULL,-1,"32", &sD___33 }; - static DEFINES sD___35 = {"_SET_SCROLLBREAK",NULL,-1,"38", &sD___34 }; - static DEFINES sD___36 = {"_SET_SOFTSEEK",NULL,-1,"9", &sD___35 }; - static DEFINES sD___37 = {"_SET_TYPEAHEAD",NULL,-1,"14", &sD___36 }; - static DEFINES sD___38 = {"_SET_UNIQUE",NULL,-1,"10", &sD___37 }; - static DEFINES sD___39 = {"_SET_WRAP",NULL,-1,"35", &sD___38 }; - static DEFINES sD___40 = {"_SET_COUNT",NULL,-1,"47", &sD___39 }; - static DEFINES sD___41 = {"_SET_CH",NULL,-1,NULL, &sD___40 }; - static DEFINES sD___42 = {"_DFSET","\001x,\001y",2,"Set( _SET_DATEFORMAT, if(__SetCentury(), \001x, \001y) )", &sD___41 }; - static DEFINES sD___43 = {"_SET_VIDEOMODE",NULL,-1,"40", &sD___42 }; - static DEFINES sD___44 = {"_SET_MBLOCKSIZE",NULL,-1,"41", &sD___43 }; - static DEFINES sD___45 = {"_SET_MFILEEXT",NULL,-1,"42", &sD___44 }; - static DEFINES sD___46 = {"_SET_STRICTREAD",NULL,-1,"43", &sD___45 }; - static DEFINES sD___47 = {"_SET_OPTIMIZE",NULL,-1,"44", &sD___46 }; - static DEFINES sD___48 = {"_SET_AUTOPEN",NULL,-1,"45", &sD___47 }; - static DEFINES sD___49 = {"_SET_AUTORDER",NULL,-1,"46", &sD___48 }; - static DEFINES sD___50 = {"_SET_AUTOSHARE",NULL,-1,"47", &sD___49 }; - static DEFINES sD___51 = {"_SET_LANGUAGE",NULL,-1,"100", &sD___50 }; - static DEFINES sD___52 = {"_SET_IDLEREPEAT",NULL,-1,"101", &sD___51 }; - static DEFINES sD___53 = {"_SET_FILECASE",NULL,-1,"102", &sD___52 }; - static DEFINES sD___54 = {"_SET_DIRCASE",NULL,-1,"103", &sD___53 }; - static DEFINES sD___55 = {"_SET_DIRSEPARATOR",NULL,-1,"104", &sD___54 }; - static DEFINES sD___56 = {"_SET_EOF",NULL,-1,"105", &sD___55 }; - static DEFINES sD___57 = {"_SET_HARDCOMMIT",NULL,-1,"106", &sD___56 }; - static DEFINES sD___58 = {"_SET_FORCEOPT",NULL,-1,"107", &sD___57 }; - static DEFINES sD___59 = {"_SET_DBFLOCKSCHEME",NULL,-1,"108", &sD___58 }; + static DEFINES sD___01 = {"_SET_ALTERNATE", 14,NULL,-1,"18", NULL }; + static DEFINES sD___02 = {"_SET_ALTFILE", 12,NULL,-1,"19", &sD___01 }; + static DEFINES sD___03 = {"_SET_BELL", 9,NULL,-1,"26", &sD___02 }; + static DEFINES sD___04 = {"_SET_CANCEL", 11,NULL,-1,"12", &sD___03 }; + static DEFINES sD___05 = {"_SET_COLOR", 10,NULL,-1,"15", &sD___04 }; + static DEFINES sD___06 = {"_SET_CONFIRM", 12,NULL,-1,"27", &sD___05 }; + static DEFINES sD___07 = {"_SET_CONSOLE", 12,NULL,-1,"17", &sD___06 }; + static DEFINES sD___08 = {"_SET_CURSOR", 11,NULL,-1,"16", &sD___07 }; + static DEFINES sD___09 = {"_SET_DATEFORMAT", 15,NULL,-1,"4", &sD___08 }; + static DEFINES sD___10 = {"_SET_DEBUG", 10,NULL,-1,"13", &sD___09 }; + static DEFINES sD___11 = {"_SET_DECIMALS", 13,NULL,-1,"3", &sD___10 }; + static DEFINES sD___12 = {"_SET_DEFAULT", 12,NULL,-1,"7", &sD___11 }; + static DEFINES sD___13 = {"_SET_DELETED", 12,NULL,-1,"11", &sD___12 }; + static DEFINES sD___14 = {"_SET_DELIMCHARS", 15,NULL,-1,"34", &sD___13 }; + static DEFINES sD___15 = {"_SET_DELIMITERS", 15,NULL,-1,"33", &sD___14 }; + static DEFINES sD___16 = {"_SET_DEVICE", 11,NULL,-1,"20", &sD___15 }; + static DEFINES sD___17 = {"_SET_EPOCH", 10,NULL,-1,"5", &sD___16 }; + static DEFINES sD___18 = {"_SET_ESCAPE", 11,NULL,-1,"28", &sD___17 }; + static DEFINES sD___19 = {"_SET_EVENTMASK", 14,NULL,-1,"39", &sD___18 }; + static DEFINES sD___20 = {"_SET_EXACT", 10,NULL,-1,"1", &sD___19 }; + static DEFINES sD___21 = {"_SET_EXCLUSIVE", 14,NULL,-1,"8", &sD___20 }; + static DEFINES sD___22 = {"_SET_EXIT", 9,NULL,-1,"30", &sD___21 }; + static DEFINES sD___23 = {"_SET_EXTRA", 10,NULL,-1,"21", &sD___22 }; + static DEFINES sD___24 = {"_SET_EXTRAFILE", 14,NULL,-1,"22", &sD___23 }; + static DEFINES sD___25 = {"_SET_FIXED", 10,NULL,-1,"2", &sD___24 }; + static DEFINES sD___26 = {"_SET_INSERT", 11,NULL,-1,"29", &sD___25 }; + static DEFINES sD___27 = {"_SET_INTENSITY", 14,NULL,-1,"31", &sD___26 }; + static DEFINES sD___28 = {"_SET_MARGIN", 11,NULL,-1,"25", &sD___27 }; + static DEFINES sD___29 = {"_SET_MCENTER", 12,NULL,-1,"37", &sD___28 }; + static DEFINES sD___30 = {"_SET_MESSAGE", 12,NULL,-1,"36", &sD___29 }; + static DEFINES sD___31 = {"_SET_PATH", 9,NULL,-1,"6", &sD___30 }; + static DEFINES sD___32 = {"_SET_PRINTER", 12,NULL,-1,"23", &sD___31 }; + static DEFINES sD___33 = {"_SET_PRINTFILE", 14,NULL,-1,"24", &sD___32 }; + static DEFINES sD___34 = {"_SET_SCOREBOARD", 15,NULL,-1,"32", &sD___33 }; + static DEFINES sD___35 = {"_SET_SCROLLBREAK", 16,NULL,-1,"38", &sD___34 }; + static DEFINES sD___36 = {"_SET_SOFTSEEK", 13,NULL,-1,"9", &sD___35 }; + static DEFINES sD___37 = {"_SET_TYPEAHEAD", 14,NULL,-1,"14", &sD___36 }; + static DEFINES sD___38 = {"_SET_UNIQUE", 11,NULL,-1,"10", &sD___37 }; + static DEFINES sD___39 = {"_SET_WRAP", 9,NULL,-1,"35", &sD___38 }; + static DEFINES sD___40 = {"_SET_COUNT", 10,NULL,-1,"47", &sD___39 }; + static DEFINES sD___41 = {"_SET_CH", 7,NULL,-1,NULL, &sD___40 }; + static DEFINES sD___42 = {"_DFSET", 6,"\001x,\001y",2,"Set( _SET_DATEFORMAT, if(__SetCentury(), \001x, \001y) )", &sD___41 }; + static DEFINES sD___43 = {"_SET_VIDEOMODE", 14,NULL,-1,"40", &sD___42 }; + static DEFINES sD___44 = {"_SET_MBLOCKSIZE", 15,NULL,-1,"41", &sD___43 }; + static DEFINES sD___45 = {"_SET_MFILEEXT", 13,NULL,-1,"42", &sD___44 }; + static DEFINES sD___46 = {"_SET_STRICTREAD", 15,NULL,-1,"43", &sD___45 }; + static DEFINES sD___47 = {"_SET_OPTIMIZE", 13,NULL,-1,"44", &sD___46 }; + static DEFINES sD___48 = {"_SET_AUTOPEN", 12,NULL,-1,"45", &sD___47 }; + static DEFINES sD___49 = {"_SET_AUTORDER", 13,NULL,-1,"46", &sD___48 }; + static DEFINES sD___50 = {"_SET_AUTOSHARE", 14,NULL,-1,"47", &sD___49 }; + static DEFINES sD___51 = {"_SET_LANGUAGE", 13,NULL,-1,"100", &sD___50 }; + static DEFINES sD___52 = {"_SET_IDLEREPEAT", 15,NULL,-1,"101", &sD___51 }; + static DEFINES sD___53 = {"_SET_FILECASE", 13,NULL,-1,"102", &sD___52 }; + static DEFINES sD___54 = {"_SET_DIRCASE", 12,NULL,-1,"103", &sD___53 }; + static DEFINES sD___55 = {"_SET_DIRSEPARATOR", 17,NULL,-1,"104", &sD___54 }; + static DEFINES sD___56 = {"_SET_EOF", 8,NULL,-1,"105", &sD___55 }; + static DEFINES sD___57 = {"_SET_HARDCOMMIT", 15,NULL,-1,"106", &sD___56 }; + static DEFINES sD___58 = {"_SET_FORCEOPT", 13,NULL,-1,"107", &sD___57 }; + static DEFINES sD___59 = {"_SET_DBFLOCKSCHEME", 18,NULL,-1,"108", &sD___58 }; - 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;",&sC___66 }; - static COMMANDS sC___68 = {0,"TEXT","TO FILE \1A40","text QOut; __TextSave( \1A30 )",&sC___67 }; - static COMMANDS sC___69 = {0,"TEXT","TO PRINTER","text QOut;__TextSave('PRINTER')",&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", + static COMMANDS sC___1 = {0,"NOTE", 4,"\1A30",NULL,NULL }; + static COMMANDS sC___2 = {0,"DO",2,"WHILE \1A00","while \1A00",&sC___1 }; + static COMMANDS sC___3 = {0,"END",3,"\1A00","end",&sC___2 }; + static COMMANDS sC___4 = {0,"END",3,"SEQUENCE","end",&sC___3 }; + static COMMANDS sC___5 = {0,"ENDSEQUENCE",11,"","end",&sC___4 }; + static COMMANDS sC___6 = {0,"ENDDO",5,"\1A30","enddo",&sC___5 }; + static COMMANDS sC___7 = {0,"ENDIF",5,"\1A30","endif",&sC___6 }; + static COMMANDS sC___8 = {0,"ENDCASE",7,"\1A30","endcase",&sC___7 }; + static COMMANDS sC___9 = {0,"ENDFOR",6,"\2 \1A30 \3","next",&sC___8 }; + static COMMANDS sC___10 = {0,"NEXT",4,"\1A00 \2TO \1B00\3 \2STEP \1C00\3","next",&sC___9 }; + static COMMANDS sC___11 = {0,"DO",2,"\1A00.PRG \2WITH \1B10\3","do \1A00 \2 WITH \1B00\3",&sC___10 }; + static COMMANDS sC___12 = {0,"CALL",4,"\1A00() \2WITH \1B10\3","call \1A00 \2 WITH \1B00\3",&sC___11 }; + static COMMANDS sC___13 = {0,"STORE",5,"\1A00 TO \1B00 \2, \1C00 \3","\1B00 := \2 \1C00 := \3 \1A00",&sC___12 }; + static COMMANDS sC___14 = {0,"SET",3,"ECHO \1A30",NULL,&sC___13 }; + static COMMANDS sC___15 = {0,"SET",3,"HEADING \1A30",NULL,&sC___14 }; + static COMMANDS sC___16 = {0,"SET",3,"MENU \1A30",NULL,&sC___15 }; + static COMMANDS sC___17 = {0,"SET",3,"STATUS \1A30",NULL,&sC___16 }; + static COMMANDS sC___18 = {0,"SET",3,"STEP \1A30",NULL,&sC___17 }; + static COMMANDS sC___19 = {0,"SET",3,"SAFETY \1A30",NULL,&sC___18 }; + static COMMANDS sC___20 = {0,"SET",3,"TALK \1A30",NULL,&sC___19 }; + static COMMANDS sC___21 = {0,"SET",3,"PROCEDURE TO",NULL,&sC___20 }; + static COMMANDS sC___22 = {0,"SET",3,"PROCEDURE TO \1A00","_ProcReq_( \1A30 )",&sC___21 }; + static COMMANDS sC___23 = {0,"SET",3,"EXACT \1A20ON,OFF,&>","Set( _SET_EXACT, \1A30 )",&sC___22 }; + static COMMANDS sC___24 = {0,"SET",3,"EXACT (\1A00)","Set( _SET_EXACT, \1A00 )",&sC___23 }; + static COMMANDS sC___25 = {0,"SET",3,"FIXED \1A20ON,OFF,&>","Set( _SET_FIXED, \1A30 )",&sC___24 }; + static COMMANDS sC___26 = {0,"SET",3,"FIXED (\1A00)","Set( _SET_FIXED, \1A00 )",&sC___25 }; + static COMMANDS sC___27 = {0,"SET",3,"DECIMALS TO \1A00","Set( _SET_DECIMALS, \1A00 )",&sC___26 }; + static COMMANDS sC___28 = {0,"SET",3,"DECIMALS TO","Set( _SET_DECIMALS, 0 )",&sC___27 }; + static COMMANDS sC___29 = {0,"SET",3,"PATH TO \1A30","Set( _SET_PATH, \1A30 )",&sC___28 }; + static COMMANDS sC___30 = {0,"SET",3,"PATH TO","Set( _SET_PATH, "" )",&sC___29 }; + static COMMANDS sC___31 = {0,"SET",3,"DEFAULT TO \1A40","Set( _SET_DEFAULT, \1A30 )",&sC___30 }; + static COMMANDS sC___32 = {0,"SET",3,"DEFAULT TO","Set( _SET_DEFAULT, "" )",&sC___31 }; + static COMMANDS sC___33 = {0,"SET",3,"CENTURY \1A20ON,OFF,&>","__SetCentury( \1A30 )",&sC___32 }; + static COMMANDS sC___34 = {0,"SET",3,"CENTURY (\1A00)","__SetCentury( \1A00 )",&sC___33 }; + static COMMANDS sC___35 = {0,"SET",3,"EPOCH TO \1A00","Set( _SET_EPOCH, \1A00 )",&sC___34 }; + static COMMANDS sC___36 = {0,"SET",3,"DATE FORMAT \2TO\3 \1A00","Set( _SET_DATEFORMAT, \1A00 )",&sC___35 }; + static COMMANDS sC___37 = {0,"SET",3,"DATE \2TO\3 AMERICAN","_DFSET( 'mm/dd/yyyy', 'mm/dd/yy' )",&sC___36 }; + static COMMANDS sC___38 = {0,"SET",3,"DATE \2TO\3 ANSI","_DFSET( 'yyyy.mm.dd', 'yy.mm.dd' )",&sC___37 }; + static COMMANDS sC___39 = {0,"SET",3,"DATE \2TO\3 BRITISH","_DFSET( 'dd/mm/yyyy', 'dd/mm/yy' )",&sC___38 }; + static COMMANDS sC___40 = {0,"SET",3,"DATE \2TO\3 FRENCH","_DFSET( 'dd/mm/yyyy', 'dd/mm/yy' )",&sC___39 }; + static COMMANDS sC___41 = {0,"SET",3,"DATE \2TO\3 GERMAN","_DFSET( 'dd.mm.yyyy', 'dd.mm.yy' )",&sC___40 }; + static COMMANDS sC___42 = {0,"SET",3,"DATE \2TO\3 ITALIAN","_DFSET( 'dd-mm-yyyy', 'dd-mm-yy' )",&sC___41 }; + static COMMANDS sC___43 = {0,"SET",3,"DATE \2TO\3 JAPANESE","_DFSET( 'yyyy/mm/dd', 'yy/mm/dd' )",&sC___42 }; + static COMMANDS sC___44 = {0,"SET",3,"DATE \2TO\3 USA","_DFSET( 'mm-dd-yyyy', 'mm-dd-yy' )",&sC___43 }; + static COMMANDS sC___45 = {0,"SET",3,"ALTERNATE \1A20ON,OFF,&>","Set( _SET_ALTERNATE, \1A30 )",&sC___44 }; + static COMMANDS sC___46 = {0,"SET",3,"ALTERNATE (\1A00)","Set( _SET_ALTERNATE, \1A00 )",&sC___45 }; + static COMMANDS sC___47 = {0,"SET",3,"ALTERNATE TO","Set( _SET_ALTFILE, "" )",&sC___46 }; + static COMMANDS sC___48 = {0,"SET",3,"ALTERNATE TO \1A40 \2\1B20 ADDITIVE>\3","Set( _SET_ALTFILE, \1A30, \1B50 )",&sC___47 }; + static COMMANDS sC___49 = {0,"SET",3,"CONSOLE \1A20ON,OFF,&>","Set( _SET_CONSOLE, \1A30 )",&sC___48 }; + static COMMANDS sC___50 = {0,"SET",3,"CONSOLE (\1A00)","Set( _SET_CONSOLE, \1A00 )",&sC___49 }; + static COMMANDS sC___51 = {0,"SET",3,"MARGIN TO \1A00","Set( _SET_MARGIN, \1A00 )",&sC___50 }; + static COMMANDS sC___52 = {0,"SET",3,"MARGIN TO","Set( _SET_MARGIN, 0 )",&sC___51 }; + static COMMANDS sC___53 = {0,"SET",3,"PRINTER \1A20ON,OFF,&>","Set( _SET_PRINTER, \1A30 )",&sC___52 }; + static COMMANDS sC___54 = {0,"SET",3,"PRINTER (\1A00)","Set( _SET_PRINTER, \1A00 )",&sC___53 }; + static COMMANDS sC___55 = {0,"SET",3,"PRINTER TO","Set( _SET_PRINTFILE, '""' )",&sC___54 }; + static COMMANDS sC___56 = {0,"SET",3,"PRINTER TO \1A40 \2\1B20 ADDITIVE>\3","Set( _SET_PRINTFILE, \1A30, \1B50 )",&sC___55 }; + static COMMANDS sC___57 = {0,"SET",3,"DEVICE TO SCREEN","Set( _SET_DEVICE, 'SCREEN' )",&sC___56 }; + static COMMANDS sC___58 = {0,"SET",3,"DEVICE TO PRINTER","Set( _SET_DEVICE, 'PRINTER' )",&sC___57 }; + static COMMANDS sC___59 = {0,"SET",3,"COLOR TO \2\1A30\3","SetColor( \1A10 )",&sC___58 }; + static COMMANDS sC___60 = {0,"SET",3,"COLOR TO ( \1A00 )","SetColor( \1A00 )",&sC___59 }; + static COMMANDS sC___61 = {0,"SET",3,"COLOUR TO \2\1A30\3","SET COLOR TO \2\1A00\3",&sC___60 }; + static COMMANDS sC___62 = {0,"SET",3,"CURSOR \1A20ON,OFF,&>","SetCursor( if(Upper(\1A30) == 'ON', 1, 0) )",&sC___61 }; + static COMMANDS sC___63 = {0,"SET",3,"CURSOR (\1A00)","SetCursor( if(\1A00, 1, 0) )",&sC___62 }; + static COMMANDS sC___64 = {0,"?",1,"\2 \1A10\3","QOut( \1A00 )",&sC___63 }; + static COMMANDS sC___65 = {0,"?",1,"? \2 \1A10\3","QQOut( \1A00 )",&sC___64 }; + static COMMANDS sC___66 = {0,"EJECT",5,"","__Eject()",&sC___65 }; + static COMMANDS sC___67 = {0,"TEXT",4,"","text QOut;",&sC___66 }; + static COMMANDS sC___68 = {0,"TEXT",4,"TO FILE \1A40","text QOut; __TextSave( \1A30 )",&sC___67 }; + static COMMANDS sC___69 = {0,"TEXT",4,"TO PRINTER","text QOut;__TextSave('PRINTER')",&sC___68 }; + static COMMANDS sC___70 = {0,"CLS",3,"","Scroll() ; SetPos(0,0)",&sC___69 }; + static COMMANDS sC___71 = {0,"CLEAR",5,"SCREEN","CLS",&sC___70 }; + static COMMANDS sC___72 = {0,"@",1,"\1A00, \1B00","Scroll( \1A00, \1B00, \1A00 ) ; SetPos( \1A00, \1B00 )",&sC___71 }; + static COMMANDS sC___73 = {0,"@",1,"\1A00, \1B00 CLEAR","Scroll( \1A00, \1B00 ) ; SetPos( \1A00, \1B00 )",&sC___72 }; + static COMMANDS sC___74 = {0,"@",1,"\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", + static COMMANDS sC___75 = {0,"@",1,"\1A00, \1B00, \1C00, \1D00 BOX \1E00 \2COLOR \1F00\3", + "DispBox( \1A00, \1B00, \1C00, \1D00, \1E00 \2, \1F00 \3 )",&sC___74 }; + static COMMANDS sC___76 = {0,"@",1,"\1A00, \1B00 TO \1C00, \1D00 \2DOUBLE\3 \2COLOR \1E00\3", + "DispBox( \1A00, \1B00, \1C00, \1D00, 2 \2, \1E00 \3 )",&sC___75 }; + static COMMANDS sC___77 = {0,"@",1,"\1A00, \1B00 TO \1C00, \1D00 \2COLOR \1E00\3", + "DispBox( \1A00, \1B00, \1C00, \1D00, 1 \2, \1E00 \3 )",&sC___76 }; + static COMMANDS sC___78 = {0,"@",1,"\1A00, \1B00 SAY \1C00 \2PICTURE \1D00\3 \2COLOR \1E00\3", + "DevPos( \1A00, \1B00 ) ; DevOutPict( \1C00, \1D00 \2, \1E00\3 )",&sC___77 }; + static COMMANDS sC___79 = {0,"@",1,"\1A00, \1B00 SAY \1C00 \2COLOR \1D00\3", + "DevPos( \1A00, \1B00 ) ; DevOut( \1C00 \2, \1D00\3 )",&sC___78 }; + static COMMANDS sC___80 = {0,"SET",3,"BELL \1A20ON,OFF,&>","Set( _SET_BELL, \1A30 )",&sC___79 }; + static COMMANDS sC___81 = {0,"SET",3,"BELL (\1A00)","Set( _SET_BELL, \1A00 )",&sC___80 }; + static COMMANDS sC___82 = {0,"SET",3,"CONFIRM \1A20ON,OFF,&>","Set( _SET_CONFIRM, \1A30 )",&sC___81 }; + static COMMANDS sC___83 = {0,"SET",3,"CONFIRM (\1A00)","Set( _SET_CONFIRM, \1A00 )",&sC___82 }; + static COMMANDS sC___84 = {0,"SET",3,"ESCAPE \1A20ON,OFF,&>","Set( _SET_ESCAPE, \1A30 )",&sC___83 }; + static COMMANDS sC___85 = {0,"SET",3,"ESCAPE (\1A00)","Set( _SET_ESCAPE, \1A00 )",&sC___84 }; + static COMMANDS sC___86 = {0,"SET",3,"INTENSITY \1A20ON,OFF,&>","Set( _SET_INTENSITY, \1A30 )",&sC___85 }; + static COMMANDS sC___87 = {0,"SET",3,"INTENSITY (\1A00)","Set( _SET_INTENSITY, \1A00 )",&sC___86 }; + static COMMANDS sC___88 = {0,"SET",3,"SCOREBOARD \1A20ON,OFF,&>","Set( _SET_SCOREBOARD, \1A30 )",&sC___87 }; + static COMMANDS sC___89 = {0,"SET",3,"SCOREBOARD (\1A00)","Set( _SET_SCOREBOARD, \1A00 )",&sC___88 }; + static COMMANDS sC___90 = {0,"SET",3,"DELIMITERS \1A20ON,OFF,&>","Set( _SET_DELIMITERS, \1A30 )",&sC___89 }; + static COMMANDS sC___91 = {0,"SET",3,"DELIMITERS (\1A00)","Set( _SET_DELIMITERS, \1A00 )",&sC___90 }; + static COMMANDS sC___92 = {0,"SET",3,"DELIMITERS TO \1A00","Set( _SET_DELIMCHARS, \1A00 )",&sC___91 }; + static COMMANDS sC___93 = {0,"SET",3,"DELIMITERS TO DEFAULT","Set( _SET_DELIMCHARS, '::' )",&sC___92 }; + static COMMANDS sC___94 = {0,"SET",3,"DELIMITERS TO","Set( _SET_DELIMCHARS, '::' )",&sC___93 }; + static COMMANDS sC___95 = {0,"SET",3,"FORMAT TO \1A00","_ProcReq_( \1A30 + '.fmt' ) ; __SetFormat( {|| \1A00()} )",&sC___94 }; + static COMMANDS sC___96 = {0,"SET",3,"FORMAT TO \1A00.\1B00", "_ProcReq_( \1A30 + '.' + \1B30 ) ; __SetFormat( {|| \1A00()} )",&sC___95 }; - static COMMANDS sC___97 = {0,"SET","FORMAT TO \1A20&>", + static COMMANDS sC___97 = {0,"SET",3,"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 ):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>]", + static COMMANDS sC___98 = {0,"SET",3,"FORMAT TO","__SetFormat()",&sC___97 }; + static COMMANDS sC___99 = {0,"@",1,"\1A00, \1B00 GET \1C00 \2PICTURE \1D00\3 \2VALID \1E00\3 \2WHEN \1F00\3 \2SEND \1G00\3", + "SetPos( \1A00, \1B00 ) ; AAdd( GetList, _GET_( \1C00, \1C20, \1D00, \1E40, \1F40 ):display() ) \2; ATail(GetList):\1G00\3",&sC___98 }; + static COMMANDS sC___100 = {0,"@",1,"\1A00, \1B00 SAY \1C00 \2\1D10\3 GET \1E00 \2\1F10\3", + "@ \1A00, \1B00 SAY \1C00 \2\1D00\3 ; @ Row(), Col()+1 GET \1E00 \2\1F00\3",&sC___99 }; + static COMMANDS sC___101 = {0,"@",1,"\1A00, \1B00 GET \1C00 \2\1D10\3 RANGE \1E00, \1F00 \2\1G10\3", + "@ \1A00, \1B00 GET \1C00 \2\1D00\3 VALID {|_1| RangeCheck(_1,, \1E00, \1F00)} \2\1G00\3",&sC___100 }; + static COMMANDS sC___102 = {0,"@",1,"\1A00, \1B00 GET \1C00 \2\1D10\3 COLOR \1E00 \2\1F10\3", + "@ \1A00, \1B00 GET \1C00 \2\1D00\3 SEND colorDisp(\1E00) \2\1F00\3",&sC___101 }; + static COMMANDS sC___103 = {0,"READ",4,"SAVE","ReadModal(GetList)",&sC___102 }; + static COMMANDS sC___104 = {0,"READ",4,"","ReadModal(GetList) ; GetList := {}",&sC___103 }; + static COMMANDS sC___105 = {0,"CLEAR",5,"GETS","ReadKill(.T.) ; GetList := {}",&sC___104 }; + static COMMANDS sC___106 = {0,"@",1,"\2\1A10\3 COLOUR \2\1B10\3","@ \2\1A00\3 COLOR \2\1B00\3",&sC___105 }; + static COMMANDS sC___107 = {0,"SET",3,"WRAP \1A20ON,OFF,&>","Set( _SET_WRAP, \1A30 )",&sC___106 }; + static COMMANDS sC___108 = {0,"SET",3,"WRAP (\1A00)","Set( _SET_WRAP, \1A00 )",&sC___107 }; + static COMMANDS sC___109 = {0,"SET",3,"MESSAGE TO \1A00 \2\1B20 CENTER, CENTRE>\3", "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] [COLOR \1E00]", + static COMMANDS sC___110 = {0,"SET",3,"MESSAGE TO","Set( _SET_MESSAGE, 0 ) ; Set( _SET_MCENTER, .f. )",&sC___109 }; + static COMMANDS sC___111 = {0,"@",1,"\1A00, \1B00 PROMPT \1C00 \2MESSAGE \1D00\3 \2COLOR \1E00\3", "__AtPrompt( \1A00, \1B00, \1C00 , \1D00 , \1E00 )",&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", + static COMMANDS sC___112 = {0,"MENU",4,"TO \1A00","\1A00 := __MenuTo( {|_1| if(PCount() == 0, \1A00, \1A00 := _1)}, \1A10 )",&sC___111 }; + static COMMANDS sC___113 = {0,"SAVE",4,"SCREEN","__XSaveScreen()",&sC___112 }; + static COMMANDS sC___114 = {0,"RESTORE",7,"SCREEN","__XRestScreen()",&sC___113 }; + static COMMANDS sC___115 = {0,"SAVE",4,"SCREEN TO \1A00","\1A00 := SaveScreen( 0, 0, Maxrow(), Maxcol() )",&sC___114 }; + static COMMANDS sC___116 = {0,"RESTORE",7,"SCREEN FROM \1A00","RestScreen( 0, 0, Maxrow(), Maxcol(), \1A00 )",&sC___115 }; + static COMMANDS sC___117 = {0,"WAIT",4,"\2\1A00\3","__Wait( \1A00 )",&sC___116 }; + static COMMANDS sC___118 = {0,"WAIT",4,"\2\1A00\3 TO \1B00","\1B00 := __Wait( \1A00 )",&sC___117 }; + static COMMANDS sC___119 = {0,"ACCEPT",6,"\2\1A00\3 TO \1B00","\1B00 := __Accept( \1A00 )",&sC___118 }; + static COMMANDS sC___120 = {0,"INPUT",5,"\2\1A00\3 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&>", + static COMMANDS sC___121 = {0,"KEYBOARD",8,"\1A00","__Keyboard( \1A00 )",&sC___120 }; + static COMMANDS sC___122 = {0,"CLEAR",5,"TYPEAHEAD","__Keyboard()",&sC___121 }; + static COMMANDS sC___123 = {0,"SET",3,"TYPEAHEAD TO \1A00","Set( _SET_TYPEAHEAD, \1A00 )",&sC___122 }; + static COMMANDS sC___124 = {0,"SET",3,"KEY \1A00 TO \1B00","SetKey( \1A00, {|p, l, v| \1B00(p, l, v)} )",&sC___123 }; + static COMMANDS sC___125 = {0,"SET",3,"KEY \1A00 TO \1B00 ( \2\1C10\3 )","SET KEY \1A00 TO \1B00",&sC___124 }; + static COMMANDS sC___126 = {0,"SET",3,"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>] [CODEPAGE \1H00] [INDEX \1I40 [, \1J40]]", - "dbUseArea( \1D50, \1B00, \1A30, \1C30, if(\1F50 .or. \1E50, !\1E50, NIL), \1G50, \1H30 ) [; dbSetIndex( \1I30 )] [; dbSetIndex( \1J30 )]",&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]", + static COMMANDS sC___127 = {0,"SET",3,"KEY \1A00 \2TO\3","SetKey( \1A00, NIL )",&sC___126 }; + static COMMANDS sC___128 = {0,"SET",3,"FUNCTION \1A00 \2TO\3 \2\1B00\3","__SetFunction( \1A00, \1B00 )",&sC___127 }; + static COMMANDS sC___129 = {0,"CLEAR",5,"MEMORY","__MVClear()",&sC___128 }; + static COMMANDS sC___130 = {0,"RELEASE",7," \1A10","__MVXRelease( \1A30 )",&sC___129 }; + static COMMANDS sC___131 = {0,"RELEASE",7,"ALL","__MVRelease('*', .t.)",&sC___130 }; + static COMMANDS sC___132 = {0,"RELEASE",7,"ALL LIKE \1A00","__MVRelease( \1A10, .t. )",&sC___131 }; + static COMMANDS sC___133 = {0,"RELEASE",7,"ALL EXCEPT \1A00","__MVRelease( \1A10, .f. )",&sC___132 }; + static COMMANDS sC___134 = {0,"RESTORE",7,"\2FROM \1A40\3 \2\1B20 ADDITIVE>\3","__MVRestore( \1A30, \1B50 )",&sC___133 }; + static COMMANDS sC___135 = {0,"SAVE",4,"ALL LIKE \1A00 TO \1B40","__MVSave( \1B30, \1A30, .t. )",&sC___134 }; + static COMMANDS sC___136 = {0,"SAVE",4,"TO \1A40 ALL LIKE \1B00","__MVSave( \1A30, \1B30, .t. )",&sC___135 }; + static COMMANDS sC___137 = {0,"SAVE",4,"ALL EXCEPT \1A00 TO \1B40","__MVSave( \1B30, \1A30, .f. )",&sC___136 }; + static COMMANDS sC___138 = {0,"SAVE",4,"TO \1A40 ALL EXCEPT \1B00","__MVSave( \1A30, \1B30, .f. )",&sC___137 }; + static COMMANDS sC___139 = {0,"SAVE",4,"\2TO \1A40\3 \2ALL\3","__MVSave( \1A30, '*', .t. )",&sC___138 }; + static COMMANDS sC___140 = {0,"ERASE",5,"\1A40","FErase( \1A30 )",&sC___139 }; + static COMMANDS sC___141 = {0,"DELETE",6,"FILE \1A40","FErase( \1A30 )",&sC___140 }; + static COMMANDS sC___142 = {0,"RENAME",6,"\1A40 TO \1B40","FRename( \1A30, \1B30 )",&sC___141 }; + static COMMANDS sC___143 = {0,"COPY",4,"FILE \1A40 TO \1B40","__CopyFile( \1A30, \1B30 )",&sC___142 }; + static COMMANDS sC___144 = {0,"DIR",3,"\2\1A40\3","__Dir( \1A30 )",&sC___143 }; + static COMMANDS sC___145 = {0,"TYPE",4,"\1A40 \2\1B20 TO PRINTER>\3 \2TO FILE \1C40\3", + "__TypeFile( \1A30, \1B50 ) \2; COPY FILE \1A30 TO \1C30 \3",&sC___144 }; + static COMMANDS sC___146 = {0,"TYPE",4,"\1A40 \2\1B20 TO PRINTER>\3","__TypeFile( \1A30, \1B50 )",&sC___145 }; + static COMMANDS sC___147 = {0,"REQUEST",7,"\1A10","EXTERNAL \1A00",&sC___146 }; + static COMMANDS sC___148 = {0,"CANCEL",6,"","__Quit()",&sC___147 }; + static COMMANDS sC___149 = {0,"QUIT",4,"","__Quit()",&sC___148 }; + static COMMANDS sC___150 = {0,"RUN",3,"\1A30","__Run( \1A10 )",&sC___149 }; + static COMMANDS sC___151 = {0,"RUN",3,"( \1A00 )","__Run( \1A00 )",&sC___150 }; + static COMMANDS sC___152 = {0,"!",1,"\1A30","RUN \1A00",&sC___151 }; + static COMMANDS sC___153 = {0,"RUN",3,"= \1A00","( run := \1A00 )",&sC___152 }; + static COMMANDS sC___154 = {0,"RUN",3,":= \1A00","( run := \1A00 )",&sC___153 }; + static COMMANDS sC___155 = {0,"SET",3,"EXCLUSIVE \1A20ON,OFF,&>","Set( _SET_EXCLUSIVE, \1A30 )",&sC___154 }; + static COMMANDS sC___156 = {0,"SET",3,"EXCLUSIVE (\1A00)","Set( _SET_EXCLUSIVE, \1A00 )",&sC___155 }; + static COMMANDS sC___157 = {0,"SET",3,"SOFTSEEK \1A20ON,OFF,&>","Set( _SET_SOFTSEEK, \1A30 )",&sC___156 }; + static COMMANDS sC___158 = {0,"SET",3,"SOFTSEEK (\1A00)","Set( _SET_SOFTSEEK, \1A00 )",&sC___157 }; + static COMMANDS sC___159 = {0,"SET",3,"UNIQUE \1A20ON,OFF,&>","Set( _SET_UNIQUE, \1A30 )",&sC___158 }; + static COMMANDS sC___160 = {0,"SET",3,"UNIQUE (\1A00)","Set( _SET_UNIQUE, \1A00 )",&sC___159 }; + static COMMANDS sC___161 = {0,"SET",3,"DELETED \1A20ON,OFF,&>","Set( _SET_DELETED, \1A30 )",&sC___160 }; + static COMMANDS sC___162 = {0,"SET",3,"DELETED (\1A00)","Set( _SET_DELETED, \1A00 )",&sC___161 }; + static COMMANDS sC___163 = {0,"SELECT",6,"\1A00","dbSelectArea( \1A30 )",&sC___162 }; + static COMMANDS sC___164 = {0,"SELECT",6,"\1A00(\2\1B10\3)","dbSelectArea( \1A00(\1B00) )",&sC___163 }; + static COMMANDS sC___165 = {0,"USE",3,"","dbCloseArea()",&sC___164 }; + static COMMANDS sC___166 = {0,"USE",3,"\1A40 \2VIA \1B00\3 \2ALIAS \1C00\3 \2\1D20 NEW>\3 \2\1E20 EXCLUSIVE>\3 \2\1F20 SHARED>\3 \2\1G20 READONLY>\3 \2CODEPAGE \1H00\3 \2INDEX \1I40 \2, \1J40\3\3", + "dbUseArea( \1D50, \1B00, \1A30, \1C30, if(\1F50 .or. \1E50, !\1E50, NIL), \1G50, \1H30 ) \2; dbSetIndex( \1I30 )\3 \2; dbSetIndex( \1J30 )\3",&sC___165 }; + static COMMANDS sC___167 = {0,"APPEND",6,"BLANK","dbAppend()",&sC___166 }; + static COMMANDS sC___168 = {0,"PACK",4,"","__dbPack()",&sC___167 }; + static COMMANDS sC___169 = {0,"ZAP",3,"","__dbZap()",&sC___168 }; + static COMMANDS sC___170 = {0,"UNLOCK",6,"","dbUnlock()",&sC___169 }; + static COMMANDS sC___171 = {0,"UNLOCK",6,"ALL","dbUnlockAll()",&sC___170 }; + static COMMANDS sC___172 = {0,"COMMIT",6,"","dbCommitAll()",&sC___171 }; + static COMMANDS sC___173 = {0,"GOTO",4,"\1A00","dbGoto(\1A00)",&sC___172 }; + static COMMANDS sC___174 = {0,"GO",2,"\1A00","dbGoto(\1A00)",&sC___173 }; + static COMMANDS sC___175 = {0,"GOTO",4,"TOP","dbGoTop()",&sC___174 }; + static COMMANDS sC___176 = {0,"GO",2,"TOP","dbGoTop()",&sC___175 }; + static COMMANDS sC___177 = {0,"GOTO",4,"BOTTOM","dbGoBottom()",&sC___176 }; + static COMMANDS sC___178 = {0,"GO",2,"BOTTOM","dbGoBottom()",&sC___177 }; + static COMMANDS sC___179 = {0,"SKIP",4,"","dbSkip(1)",&sC___178 }; + static COMMANDS sC___180 = {0,"SKIP",4,"\1A00","dbSkip( \1A00 )",&sC___179 }; + static COMMANDS sC___181 = {0,"SKIP",4,"ALIAS \1A00","\1A00 -> ( dbSkip(1) )",&sC___180 }; + static COMMANDS sC___182 = {0,"SKIP",4,"\1A00 ALIAS \1B00","\1B00 -> ( dbSkip(\1A00) )",&sC___181 }; + static COMMANDS sC___183 = {0,"SEEK",4,"\1A00 \2\1B20 SOFTSEEK>\3","dbSeek( \1A00, if( \1B50, .T., NIL ) )",&sC___182 }; + static COMMANDS sC___184 = {0,"FIND",4,"\1A30","dbSeek( \1A30 )",&sC___183 }; + static COMMANDS sC___185 = {0,"FIND",4,":= \1A00","( find := \1A00 )",&sC___184 }; + static COMMANDS sC___186 = {0,"FIND",4,"= \1A00","( find := \1A00 )",&sC___185 }; + static COMMANDS sC___187 = {0,"CONTINUE",8,"","__dbContinue()",&sC___186 }; + static COMMANDS sC___188 = {0,"LOCATE",6,"\2FOR \1A00\3 \2WHILE \1B00\3 \2NEXT \1C00\3 \2RECORD \1D00\3 \2\1E20REST>\3 \2ALL\3", "__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 [\1A20 ADDITIVE>] [TO \1C00 INTO \1D40 [\1B20 SCOPED>] [,[TO] \1E00 INTO \1F40 [\1G20 SCOPED>]]]", - "if (!\1A50 ) ; dbClearRelation() ; end ; dbSetRelation(\1D30,\1C40,\1C20,\1B50 ) [; dbSetRelation(\1F30,\1E40,\1E20,\1G50 )]",&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&>", + static COMMANDS sC___189 = {0,"SET",3,"RELATION TO","dbClearRelation()",&sC___188 }; + static COMMANDS sC___190 = {0,"SET",3,"RELATION \2\1A20 ADDITIVE>\3 \2TO \1C00 INTO \1D40 \2\1B20 SCOPED>\3 \2,\2TO\3 \1E00 INTO \1F40 \2\1G20 SCOPED>\3\3\3", + "if (!\1A50 ) ; dbClearRelation() ; end ; dbSetRelation(\1D30,\1C40,\1C20,\1B50 ) \2; dbSetRelation(\1F30,\1E40,\1E20,\1G50 )\3",&sC___189 }; + static COMMANDS sC___191 = {0,"SET",3,"FILTER TO","dbClearFilter(NIL)",&sC___190 }; + static COMMANDS sC___192 = {0,"SET",3,"FILTER TO \1A00","dbSetFilter( \1A40, \1A20 )",&sC___191 }; + static COMMANDS sC___193 = {0,"SET",3,"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]", + static COMMANDS sC___194 = {0,"REPLACE",7,"\2 \1A00 WITH \1B00 \2, \1C00 WITH \1D00\3 \3 \2FOR \1E00\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2ALL\3", + "DBEval( {|| _FIELD->\1A00 := \1B00 \2,_FIELD->\1C00 := \1D00\3},\1E40,\1F40,\1G00,\1H00,\1I50)",&sC___193 }; + static COMMANDS sC___195 = {0,"REPLACE",7,"\1A00 WITH \1B00 \2, \1C00 WITH \1D00 \3", + "_FIELD->\1A00 := \1B00 \2; _FIELD->\1C00 := \1D00\3",&sC___194 }; + static COMMANDS sC___196 = {0,"DELETE",6,"\2FOR \1A00\3 \2WHILE \1B00\3 \2NEXT \1C00\3 \2RECORD \1D00\3 \2\1E20REST>\3 \2ALL\3", "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]", + static COMMANDS sC___197 = {0,"RECALL",6,"\2FOR \1A00\3 \2WHILE \1B00\3 \2NEXT \1C00\3 \2RECORD \1D00\3 \2\1E20REST>\3 \2ALL\3", "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>] [CODEPAGE \1F00]", + static COMMANDS sC___198 = {0,"DELETE",6,"","dbDelete()",&sC___197 }; + static COMMANDS sC___199 = {0,"RECALL",6,"","dbRecall()",&sC___198 }; + static COMMANDS sC___200 = {0,"CREATE",6,"\1A40 \2FROM \1B40\3 \2VIA \1C00\3 \2ALIAS \1D00\3 \2\1E20 NEW>\3 \2CODEPAGE \1F00\3", "__dbCreate( \1A30, \1B30, \1C00, \1E50, \1D30, \1F30 )",&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]", + static COMMANDS sC___201 = {0,"COPY",4,"\2STRUCTURE\3 \2EXTENDED\3 \2TO \1A40\3","__dbCopyXStruct( \1A30 )",&sC___200 }; + static COMMANDS sC___202 = {0,"COPY",4,"\2STRUCTURE\3 \2TO \1A40\3 \2FIELDS \1B10\3","__dbCopyStruct( \1A30, { \1B30 } )",&sC___201 }; + static COMMANDS sC___203 = {0,"COPY",4,"\2TO \1A40\3 \2DELIMITED \2WITH \1B30\3\3 \2FIELDS \1C10\3 \2FOR \1D00\3 \2WHILE \1E00\3 \2NEXT \1F00\3 \2RECORD \1G00\3 \2\1H20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___204 = {0,"COPY",4,"\2TO \1A40\3 \2SDF\3 \2FIELDS \1B10\3 \2FOR \1C00\3 \2WHILE \1D00\3 \2NEXT \1E00\3 \2RECORD \1F00\3 \2\1G20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___205 = {0,"COPY",4,"\2TO \1A40\3 \2FIELDS \1B10\3 \2FOR \1C00\3 \2WHILE \1D00\3 \2NEXT \1E00\3 \2RECORD \1F00\3 \2\1G20REST>\3 \2VIA \1H00\3 \2ALL\3", "__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]", + static COMMANDS sC___206 = {0,"APPEND",6,"\2FROM \1A40\3 \2DELIMITED \2WITH \1B30\3\3 \2FIELDS \1C10\3 \2FOR \1D00\3 \2WHILE \1E00\3 \2NEXT \1F00\3 \2RECORD \1G00\3 \2\1H20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___207 = {0,"APPEND",6,"\2FROM \1A40\3 \2SDF\3 \2FIELDS \1B10\3 \2FOR \1C00\3 \2WHILE \1D00\3 \2NEXT \1E00\3 \2RECORD \1F00\3 \2\1G20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___208 = {0,"APPEND",6,"\2FROM \1A40\3 \2FIELDS \1B10\3 \2FOR \1C00\3 \2WHILE \1D00\3 \2NEXT \1E00\3 \2RECORD \1F00\3 \2\1G20REST>\3 \2VIA \1H00\3 \2ALL\3", "__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]", + static COMMANDS sC___209 = {0,"SORT",4,"\2TO \1A40\3 \2ON \1B10\3 \2FOR \1C00\3 \2WHILE \1D00\3 \2NEXT \1E00\3 \2RECORD \1F00\3 \2\1G20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___210 = {0,"TOTAL",5,"\2TO \1A40\3 \2ON \1B00\3 \2FIELDS \1C10\3 \2FOR \1D00\3 \2WHILE \1E00\3 \2NEXT \1F00\3 \2RECORD \1G00\3 \2\1H20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___211 = {0,"UPDATE",6,"\2FROM \1A40\3 \2ON \1B00\3 \2REPLACE \1C00 WITH \1D00 \2, \1E00 WITH \1F00\3\3 \2\1G20RANDOM>\3", + "__dbUpdate( \1A30, \1B40, \1G50, {|| _FIELD->\1C00 := \1D00 \2, _FIELD->\1E00 := \1F00\3} )",&sC___210 }; + static COMMANDS sC___212 = {0,"JOIN",4,"\2WITH \1A40\3 \2TO \1B00\3 \2FIELDS \1C10\3 \2FOR \1D00\3", "__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]", + static COMMANDS sC___213 = {0,"COUNT",5,"\2TO \1A00\3 \2FOR \1B00\3 \2WHILE \1C00\3 \2NEXT \1D00\3 \2RECORD \1E00\3 \2\1F20REST>\3 \2ALL\3", "\1A00 := 0 ; DBEval( {|| \1A00++}, \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 += \1A00 [, \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]", + static COMMANDS sC___214 = {0,"SUM",3,"\2 \1A00 \2, \1B00\3 TO \1C00 \2, \1D00\3 \3 \2FOR \1E00\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2ALL\3", + "\1C00 := \2 \1D00 := \3 0 ; DBEval( {|| \1C00 += \1A00 \2, \1D00 += \1B00 \3}, \1E40, \1F40, \1G00, \1H00, \1I50 )",&sC___213 }; + static COMMANDS sC___215 = {0,"AVERAGE",7,"\2 \1A00 \2, \1B00\3 TO \1C00 \2, \1D00\3 \3 \2FOR \1E00\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2ALL\3", + "M->__Avg := \1C00 := \2 \1D00 := \3 0 ; DBEval( {|| M->__Avg := M->__Avg + 1, \1C00 := \1C00 + \1A00 \2, \1D00 := \1D00 + \1B00\3 }, \1E40, \1F40, \1G00, \1H00, \1I50 ) ; \1C00 := \1C00 / M->__Avg \2; \1D00 := \1D00 / M->__Avg \3",&sC___214 }; + static COMMANDS sC___216 = {0,"LIST",4,"\2\1A10\3 \2\1B20OFF>\3 \2\1C20 TO PRINTER>\3 \2TO FILE \1D40\3 \2FOR \1E00\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2ALL\3", "__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>]", + static COMMANDS sC___217 = {0,"DISPLAY",7,"\2\1A10\3 \2\1B20OFF>\3 \2\1C20 TO PRINTER>\3 \2TO FILE \1D40\3 \2FOR \1E00\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2\1J20ALL>\3", "__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]", + static COMMANDS sC___218 = {0,"REPORT",6,"FORM \1A00 \2HEADING \1B00\3 \2\1C20 PLAIN>\3 \2\1D20 NOEJECT>\3 \2\1E20 SUMMARY>\3 \2\1F20 NOCONSOLE>\3 \2\1G20 TO PRINTER>\3 \2TO FILE \1H40\3 \2FOR \1I00\3 \2WHILE \1J00\3 \2NEXT \1K00\3 \2RECORD \1L00\3 \2\1M20REST>\3 \2ALL\3", "__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]", + static COMMANDS sC___219 = {0,"LABEL",5,"FORM \1A00 \2\1B20 SAMPLE>\3 \2\1C20 NOCONSOLE>\3 \2\1D20 TO PRINTER>\3 \2TO FILE \1E40\3 \2FOR \1F00\3 \2WHILE \1G00\3 \2NEXT \1H00\3 \2RECORD \1I00\3 \2\1J20REST>\3 \2ALL\3", "__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", + static COMMANDS sC___220 = {0,"CLOSE",5,"\1A00","\1A00->( dbCloseArea() )",&sC___219 }; + static COMMANDS sC___221 = {0,"CLOSE",5,"","dbCloseArea()",&sC___220 }; + static COMMANDS sC___222 = {0,"CLOSE",5,"DATABASES","dbCloseAll()",&sC___221 }; + static COMMANDS sC___223 = {0,"CLOSE",5,"ALTERNATE","Set(_SET_ALTFILE, "")",&sC___222 }; + static COMMANDS sC___224 = {0,"CLOSE",5,"FORMAT","__SetFormat(NIL)",&sC___223 }; + static COMMANDS sC___225 = {0,"CLOSE",5,"INDEXES","dbClearIndex()",&sC___224 }; + static COMMANDS sC___226 = {0,"CLOSE",5,"PROCEDURE",NULL,&sC___225 }; + static COMMANDS sC___227 = {0,"CLOSE",5,"ALL","CLOSE DATABASES ; SELECT 1 ; CLOSE FORMAT",&sC___226 }; + static COMMANDS sC___228 = {0,"CLEAR",5,"","CLEAR SCREEN ; CLEAR GETS",&sC___227 }; + static COMMANDS sC___229 = {0,"CLEAR",5,"ALL", "CLOSE DATABASES ; CLOSE FORMAT ; CLEAR MEMORY ; CLEAR GETS ; SET ALTERNATE OFF ; SET ALTERNATE TO",&sC___228 }; #ifdef HB_EXTENSION - 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>] [\1O20 USECURRENT>] [\1P20 ADDITIVE>] [\1R20 CUSTOM>] [\1S20 NOOPTIMIZE>] [\1T20 MEMORY>]", - "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50],, [\1P50], [\1O50], [\1R50], [\1S50], \1F20, [\1T50] ) ; 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>] [\1O20 USECURRENT>] [\1P20 ADDITIVE>] [\1R20 CUSTOM>] [\1S20 NOOPTIMIZE>] [\1T20 MEMORY>]", - "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50],, [\1P50], [\1O50], [\1R50], [\1S50], \1F20, [\1T50] ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, [\1L50] )",&sC___230 }; + static COMMANDS sC___230 = {0,"INDEX",5,"ON \1A00 \2TAG \1B40 \3 TO \1C40 \2FOR \1D00\3 \2\1E20ALL>\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2EVAL \1J00\3 \2EVERY \1K00\3 \2\1L20 UNIQUE>\3 \2\1M20 ASCENDING>\3 \2\1N20 DESCENDING>\3 \2\1O20 USECURRENT>\3 \2\1P20 ADDITIVE>\3 \2\1R20 CUSTOM>\3 \2\1S20 NOOPTIMIZE>\3 \2\1T20 MEMORY>\3", + "ordCondSet( \1D20, \1D40, \2\1E50\3, \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, \2\1I50\3, \2\1N50\3,, \2\1P50\3, \2\1O50\3, \2\1R50\3, \2\1S50\3, \1F20, \2\1T50\3 ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, \2\1L50\3 )",&sC___229 }; + static COMMANDS sC___231 = {0,"INDEX",5,"ON \1A00 TAG \1B40 \2TO \1C40\3 \2FOR \1D00\3 \2\1E20ALL>\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2EVAL \1J00\3 \2EVERY \1K00\3 \2\1L20 UNIQUE>\3 \2\1M20 ASCENDING>\3 \2\1N20 DESCENDING>\3 \2\1O20 USECURRENT>\3 \2\1P20 ADDITIVE>\3 \2\1R20 CUSTOM>\3 \2\1S20 NOOPTIMIZE>\3 \2\1T20 MEMORY>\3", + "ordCondSet( \1D20, \1D40, \2\1E50\3, \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, \2\1I50\3, \2\1N50\3,, \2\1P50\3, \2\1O50\3, \2\1R50\3, \2\1S50\3, \1F20, \2\1T50\3 ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, \2\1L50\3 )",&sC___230 }; #else - 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>] [\1O20 USECURRENT>] [\1P20 ADDITIVE>] [\1R20 CUSTOM>] [\1S20 NOOPTIMIZE>]", - "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50],, [\1P50], [\1O50], [\1R50], [\1S50], \1F20 ) ; 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>] [\1O20 USECURRENT>] [\1P20 ADDITIVE>] [\1R20 CUSTOM>] [\1S20 NOOPTIMIZE>]", - "ordCondSet( \1D20, \1D40, [\1E50], \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, [\1I50], [\1N50],, [\1P50], [\1O50], [\1R50], [\1S50], \1F20 ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, [\1L50] )",&sC___230 }; + static COMMANDS sC___230 = {0,"INDEX",5,"ON \1A00 \2TAG \1B40 \3 TO \1C40 \2FOR \1D00\3 \2\1E20ALL>\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2EVAL \1J00\3 \2EVERY \1K00\3 \2\1L20 UNIQUE>\3 \2\1M20 ASCENDING>\3 \2\1N20 DESCENDING>\3 \2\1O20 USECURRENT>\3 \2\1P20 ADDITIVE>\3 \2\1R20 CUSTOM>\3 \2\1S20 NOOPTIMIZE>\3", + "ordCondSet( \1D20, \1D40, \2\1E50\3, \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, \2\1I50\3, \2\1N50\3,, \2\1P50\3, \2\1O50\3, \2\1R50\3, \2\1S50\3, \1F20 ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, \2\1L50\3 )",&sC___229 }; + static COMMANDS sC___231 = {0,"INDEX",5,"ON \1A00 TAG \1B40 \2TO \1C40\3 \2FOR \1D00\3 \2\1E20ALL>\3 \2WHILE \1F00\3 \2NEXT \1G00\3 \2RECORD \1H00\3 \2\1I20REST>\3 \2EVAL \1J00\3 \2EVERY \1K00\3 \2\1L20 UNIQUE>\3 \2\1M20 ASCENDING>\3 \2\1N20 DESCENDING>\3 \2\1O20 USECURRENT>\3 \2\1P20 ADDITIVE>\3 \2\1R20 CUSTOM>\3 \2\1S20 NOOPTIMIZE>\3", + "ordCondSet( \1D20, \1D40, \2\1E50\3, \1F40, \1J40, \1K00, RECNO(), \1G00, \1H00, \2\1I50\3, \2\1N50\3,, \2\1P50\3, \2\1O50\3, \2\1R50\3, \2\1S50\3, \1F20 ) ; ordCreate(\1C30, \1B30, \1A20, \1A40, \2\1L50\3 )",&sC___230 }; #endif - static COMMANDS sC___232 = {0,"INDEX","ON \1A00 TO \1B40 [\1C20 UNIQUE>]", + static COMMANDS sC___232 = {0,"INDEX",5,"ON \1A00 TO \1B40 \2\1C20 UNIQUE>\3", "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]", + static COMMANDS sC___233 = {0,"DELETE",6,"TAG \1A40 \2 IN \1B40 \3 \2, \1C40 \2 IN \1D40 \3 \3", + "ordDestroy( \1A30, \1B30 ) \2; ordDestroy( \1C30, \1D30 ) \3",&sC___232 }; + static COMMANDS sC___234 = {0,"REINDEX",7,"\2EVAL \1A00\3 \2EVERY \1B00\3", "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___240 = {0,"SET","EVENTMASK TO \1A00","Set( _SET_EVENTMASK, \1A00 )",&sC___239 }; - static COMMANDS sC___241 = {0,"SET","OPTIMIZE \1A20ON,OFF,&>","Set( _SET_OPTIMIZE, \1A30 )",&sC___240 }; - static COMMANDS sC___242 = {0,"SET","OPTIMIZE (\1A00)","Set( _SET_OPTIMIZE, \1A00 )",&sC___241 }; - static COMMANDS sC___243 = {0,"SET","AUTOPEN \1A20 ON,OFF,&>","Set(_SET_AUTOPEN,\1A30 )",&sC___242 }; - static COMMANDS sC___244 = {0,"SET","AUTOPEN (\1A00)","Set(_SET_AUTOPEN,\1A00 )",&sC___243 }; - static COMMANDS sC___245 = {0,"SET","FILECASE \1A30","Set(_SET_FILECASE, \1A10 )",&sC___244 }; - static COMMANDS sC___246 = {0,"SET","FILECASE ( \1A00 )","Set(_SET_FILECASE, \1A00 )",&sC___245 }; - static COMMANDS sC___247 = {0,"SET","DIRCASE \1A30","Set(_SET_DIRCASE, \1A10 )",&sC___246 }; - static COMMANDS sC___248 = {0,"SET","DIRCASE ( \1A00 )","Set(_SET_DIRCASE, \1A00 )",&sC___247 }; - static COMMANDS sC___249 = {0,"SET","DIRSEPARATOR \1A30","Set(_SET_DIRSEPARATOR, \1A10 )",&sC___248 }; - static COMMANDS sC___250 = {0,"SET","DIRSEPARATOR ( \1A00 )","Set(_SET_DIRSEPARATOR, \1A00 )",&sC___249 }; - static COMMANDS sC___251 = {0,"SET","MBLOCKSIZE TO \1A00","Set( _SET_MBLOCKSIZE, \1A00 )",&sC___250 }; - static COMMANDS sC___252 = {0,"SET","MEMOBLOCK TO \1A00","Set( _SET_MBLOCKSIZE, \1A00 )",&sC___251 }; - static COMMANDS sC___253 = {0,"SET","MFILEEXT TO \1A00","Set( _SET_MFILEEXT, \1A00 )",&sC___252 }; - static COMMANDS sC___254 = {0,"SET","AUTOSHARE TO \1A00","Set( _SET_AUTOSHARE, \1A00 )",&sC___253 }; - static COMMANDS sC___255 = {0,"SET","AUTOSHARE TO","Set( _SET_AUTOSHARE, 0 )",&sC___254 }; - static COMMANDS sC___256 = {0,"SET","AUTORDER TO \1A00","Set( _SET_AUTORDER, \1A00 )",&sC___255 }; - static COMMANDS sC___257 = {0,"SET","AUTORDER TO","Set( _SET_AUTORDER, 0 )",&sC___256 }; - static COMMANDS sC___258 = {0,"SET","STRICTREAD \1A20 ON,OFF,&>","Set(_SET_STRICTREAD,\1A30 )",&sC___257 }; - static COMMANDS sC___259 = {0,"SET","STRICTREAD (\1A00)","Set(_SET_STRICTREAD,\1A00 )",&sC___258 }; - static COMMANDS sC___260 = {0,"SET","HARDCOMMIT \1A20 ON,OFF,&>","Set(_SET_HARDCOMMIT,\1A30 )",&sC___259 }; - static COMMANDS sC___261 = {0,"SET","HARDCOMMIT (\1A00)","Set(_SET_HARDCOMMIT,\1A00 )",&sC___260 }; - static COMMANDS sC___262 = {0,"SET","DBFLOCKSCHEME TO \1A00","Set(_SET_DBFLOCKSCHEME, \1A00 )",&sC___261 }; - static COMMANDS sC___263 = {0,"SET","DBFLOCKSCHEME TO","Set(_SET_DBFLOCKSCHEME, 0 )",&sC___262 }; + static COMMANDS sC___235 = {0,"REINDEX",7,"","ordListRebuild()",&sC___234 }; + static COMMANDS sC___236 = {0,"SET",3,"INDEX TO \2 \1A40 \2, \1B40\3\3 \2\1C20 ADDITIVE>\3", + "if !\1C50 ; ordListClear() ; end \2; ordListAdd( \1A30 )\3 \2; ordListAdd( \1B30 )\3",&sC___235 }; + static COMMANDS sC___237 = {0,"SET",3,"ORDER TO \1A00 \2IN \1B40\3","ordSetFocus( \1A00 \2, \1B30\3 )",&sC___236 }; + static COMMANDS sC___238 = {0,"SET",3,"ORDER TO TAG \1A40 \2IN \1B40\3","ordSetFocus( \1A30 \2, \1B30\3 )",&sC___237 }; + static COMMANDS sC___239 = {0,"SET",3,"ORDER TO","ordSetFocus(0)",&sC___238 }; + static COMMANDS sC___240 = {0,"SET",3,"EVENTMASK TO \1A00","Set( _SET_EVENTMASK, \1A00 )",&sC___239 }; + static COMMANDS sC___241 = {0,"SET",3,"OPTIMIZE \1A20ON,OFF,&>","Set( _SET_OPTIMIZE, \1A30 )",&sC___240 }; + static COMMANDS sC___242 = {0,"SET",3,"OPTIMIZE (\1A00)","Set( _SET_OPTIMIZE, \1A00 )",&sC___241 }; + static COMMANDS sC___243 = {0,"SET",3,"AUTOPEN \1A20 ON,OFF,&>","Set(_SET_AUTOPEN,\1A30 )",&sC___242 }; + static COMMANDS sC___244 = {0,"SET",3,"AUTOPEN (\1A00)","Set(_SET_AUTOPEN,\1A00 )",&sC___243 }; + static COMMANDS sC___245 = {0,"SET",3,"FILECASE \1A30","Set(_SET_FILECASE, \1A10 )",&sC___244 }; + static COMMANDS sC___246 = {0,"SET",3,"FILECASE ( \1A00 )","Set(_SET_FILECASE, \1A00 )",&sC___245 }; + static COMMANDS sC___247 = {0,"SET",3,"DIRCASE \1A30","Set(_SET_DIRCASE, \1A10 )",&sC___246 }; + static COMMANDS sC___248 = {0,"SET",3,"DIRCASE ( \1A00 )","Set(_SET_DIRCASE, \1A00 )",&sC___247 }; + static COMMANDS sC___249 = {0,"SET",3,"DIRSEPARATOR \1A30","Set(_SET_DIRSEPARATOR, \1A10 )",&sC___248 }; + static COMMANDS sC___250 = {0,"SET",3,"DIRSEPARATOR ( \1A00 )","Set(_SET_DIRSEPARATOR, \1A00 )",&sC___249 }; + static COMMANDS sC___251 = {0,"SET",3,"MBLOCKSIZE TO \1A00","Set( _SET_MBLOCKSIZE, \1A00 )",&sC___250 }; + static COMMANDS sC___252 = {0,"SET",3,"MEMOBLOCK TO \1A00","Set( _SET_MBLOCKSIZE, \1A00 )",&sC___251 }; + static COMMANDS sC___253 = {0,"SET",3,"MFILEEXT TO \1A00","Set( _SET_MFILEEXT, \1A00 )",&sC___252 }; + static COMMANDS sC___254 = {0,"SET",3,"AUTOSHARE TO \1A00","Set( _SET_AUTOSHARE, \1A00 )",&sC___253 }; + static COMMANDS sC___255 = {0,"SET",3,"AUTOSHARE TO","Set( _SET_AUTOSHARE, 0 )",&sC___254 }; + static COMMANDS sC___256 = {0,"SET",3,"AUTORDER TO \1A00","Set( _SET_AUTORDER, \1A00 )",&sC___255 }; + static COMMANDS sC___257 = {0,"SET",3,"AUTORDER TO","Set( _SET_AUTORDER, 0 )",&sC___256 }; + static COMMANDS sC___258 = {0,"SET",3,"STRICTREAD \1A20 ON,OFF,&>","Set(_SET_STRICTREAD,\1A30 )",&sC___257 }; + static COMMANDS sC___259 = {0,"SET",3,"STRICTREAD (\1A00)","Set(_SET_STRICTREAD,\1A00 )",&sC___258 }; + static COMMANDS sC___260 = {0,"SET",3,"HARDCOMMIT \1A20 ON,OFF,&>","Set(_SET_HARDCOMMIT,\1A30 )",&sC___259 }; + static COMMANDS sC___261 = {0,"SET",3,"HARDCOMMIT (\1A00)","Set(_SET_HARDCOMMIT,\1A00 )",&sC___260 }; + static COMMANDS sC___262 = {0,"SET",3,"DBFLOCKSCHEME TO \1A00","Set(_SET_DBFLOCKSCHEME, \1A00 )",&sC___261 }; + static COMMANDS sC___263 = {0,"SET",3,"DBFLOCKSCHEME TO","Set(_SET_DBFLOCKSCHEME, 0 )",&sC___262 }; hb_pp_topDefine = &sD___59; hb_pp_topCommand = &sC___263;