////////////////////////////////////////////////////////////////////// // CopyRight Ph Bergougnoux Consulting "; // EndUser4GL V.2.0A.00 " ; // Tous droits réservés "; // // phone/ fax : 00 33 2 47 28 58 19 // Ph Bergougnoux " ; // // email:bergou@club-internet.fr // www.enduser4gl.comm ////////////////////////////////////////////////////////////////////// #include "stdafx.h" /* **************************************** */ /* - ENDUSER4GL V2.0.A0 */ /* Copyright : Ph Bergougnoux /* **************************************** */ extern char *ligneToken[] = { // Conventions informelles Les T_ : TOKENS", // Les M_ : LES MOTS CLES", // Les I_ : LES INSTRUCTIONS", // Les L_ : les variables (entiers,strings etc qui seront", // empilées", // Attn : Ne pas DEPASSER 30 Cellules Rules/REgles par REGLES "#TOKEN MAIN", "#TOKEN T_DIVISIONS", "#TOKEN T_DIVISIONS2 ********** division des proc et functions", // tokens des déclarations variables globales", "#TOKEN T_DECLARE", "#TOKEN T_DECLARE_OTHER", "#TOKEN T_DECLARE_OTHER_STRUCT ", "#TOKEN T_DECLARE_TABLE", "#TOKEN T_DECLARE_TABLE_DEC ", "#TOKEN T_DECLARE_TABLEBTREE", "#TOKEN T_DECLARE_TABLEBTREE_STRING ", "#TOKEN T_DECLARE_INIT", "#TOKEN T_CONSTANT_NUM", "#TOKEN T_CONSTANT_STRING", "#TOKEN T_INTEGER ", "#TOKEN T_LONG", "#TOKEN T_FLOAT", "#TOKEN T_DOUBLE", "#TOKEN T_CHAR", "#TOKEN T_NUMERIC", "#TOKEN T_ALNUMORSTRING ", "#TOKEN T_BTREESTRING " , "#TOKEN T_AFFECT", "#TOKEN T_PONCTUATION", "#TOKEN T_PONCTUATION_INT ", "#TOKEN T_PONCTUATION_DOUBLE", "#TOKEN T_PONCTUATION_FLOAT", "#TOKEN T_PONCTUATION_LONG", "#TOKEN T_PONCTUATION_CHAR", // tokens des déclarations des tables et tableaux", "#TOKEN T_TABLEAU", "* ", //tokens des déclarations variables locales", "#TOKEN T_LOCALE ", // tokens des instructions", "#TOKEN T_INSTRUCTION ", "#TOKEN T_INSTRUCTIONS", "#TOKEN T_INSTRUCTION_PRINT", "#TOKEN T_INST_LIST", // tokens des instructions affectation numériques := + * / -", "#TOKEN T_AFFECT_NUM ", "#TOKEN T_AFFECT_GLOBAL_CHAR ", "#TOKEN T_AFFECT_GLOBAL_NUM", "#TOKEN T_AFFECT_NUM_GLOBAL", "#TOKEN T_AFFECT_ALPHA_GLOBAL ", "#TOKEN T_EXPRESSION_NUM ", "#TOKEN T_EXPRESSION_NUM_NOAFFECT", "#TOKEN T_SUITE_EXPRES", "#TOKEN T_OPBIN", "#TOKEN T_OPBIN_INCREMENT ", //tokens des instructions affectation alpnumériques := ", "#TOKEN T_AFFECT_ALPHA ", "#TOKEN T_EXPRESSION2 ", "#TOKEN T_SUITE_EXPRESSION2", "#TOKEN T_SUITE2_EXPRESSION2", "#TOKEN T_ADDSTRING ", //tokens instructions : IF", "#TOKEN T_IF", "#TOKEN T_EXPRESSION_IF", "#TOKEN T_EXPRESSION_IF_CHAR", "#TOKEN T_EXPRESSION_IF_NUM", "#TOKEN T_EXPRESSION_IF_XOR ", "#TOKEN T_LISTE_IF", "#TOKEN T_SUITE_IF", "#TOKEN T_SUITE_EXPRES_IF_NUM", "#TOKEN T_SUITE_EXPRES_IF_CHAR", "#TOKEN T_OPBIN_IF_NUM", "#TOKEN T_OPBIN_IF_CHAR", // tokens de l'instruction DISPLAY ", "#TOKEN T_DISPLAY ", "#TOKEN T_DISPLAY_VAR ", "#TOKEN T_DISPLAY_VAR_AFFICH ", // tokens de l'instruction Stringconcat,sort,length etc...", "#TOKEN T_STRING ", "#TOKEN T_SUITE_STRING ", "#TOKEN T_STRINGCONCAT ", "#TOKEN T_ALNUM_CONCAT ", "#TOKEN T_STRINGSORT ", "#TOKEN T_STRINGREVERSE ", "#TOKEN T_STRINGREPEAT ", "#TOKEN T_STRINGLENGTH ", "#TOKEN T_STRINGTOUPPER ", "#TOKEN T_STRINGUPPER ", "#TOKEN T_STRINGNUMERIC ", "#TOKEN T_CLEAR ", "#TOKEN T_FREEMEMORY ", // tokens convertion numeric to char ", "#TOKEN T_CONVERNUM ", "#TOKEN T_LISTCONVER ", "#TOKEN T_FORMATCONVER ", // tokens convertion char to numeric ", "#TOKEN T_CONVERSTRING ", // tokens de l'instruction PRINT ", "#TOKEN T_PRINT ", "#TOKEN T_DPRINT ", "#TOKEN T_PRINT_VAR ", "#TOKEN T_PRINT_VAR_SUITE ", "#TOKEN T_PRINT_VAR_AFFICH ", // tokens de l'instruction CASE", "#TOKEN T_LISTE_CONSTANT", "#TOKEN T_CASE_OF", "#TOKEN T_WHEN", "#TOKEN T_VAR_CASE", // tokens de l'instruction WHILE, DOWHILE, FOR ....", "#TOKEN T_FOR", "#TOKEN T_WHILE", "#TOKEN T_SUITE_WHILE", "#TOKEN T_DO", "#TOKEN T_DOWHILE", "#TOKEN T_EXPRESSION_IF_XOR_WHILE", "#TOKEN T_AFFECT_INCREMENT", // tokens gestion de fichier", "#TOKEN T_FILE " , "#TOKEN T_FILE_STRUCT ", "#TOKEN T_FILE_ACCES ", "#TOKEN T_FILE_STRUCT_READ ", "#TOKEN T_FPOSITCUR ", "#TOKEN T_FOREACHFILE ", "#TOKEN T_RETURNING ", // tokens des déclarations des procèdures, fonctions avec return....", "#TOKEN T_DECLARE_PROCFUNC", "#TOKEN T_DECLARE_VAR_PROC", "#TOKEN T_DECLARE_VAR_PROC_SUITE", "#TOKEN T_DECLARE_PROC_VARIABLE", "#TOKEN T_SUITE_DECLARE_PROC_VAR", "#TOKEN T_LOCAL", "#TOKEN T_DECLARE_PROCEDURE", "#TOKEN T_EXECUTE_PROCEDURE", "#TOKEN T_EXECUTE_FUNCTION", "#TOKEN T_DECLARE_PROC_VAR", "#TOKEN T_DECLARE_VARIABLE", "#TOKEN T_INSTRUCTRETURN ", "#TOKEN T_SUITE_RETURN", "#TOKEN T_RETURNING_PROCFUNC", "#TOKEN T_DECLARE_RETURNING_VARIABLE", "#TOKEN T_SUITE_DECLARE_RETURNING_VAR", "#TOKEN T_END_FUNCTION ", "#TOKEN T_BEGIN_DO ", "#TOKEN T_END_DOWHILE ", "#TOKEN T_BEGIN_SCAN ", // *********************************", // E X C E L ", // *********************************", "#TOKEN T_EXCEL " , // *********************************", // W O R D ", // *********************************", "#TOKEN T_WORD " , // *********************************", // S O R T ", // *********************************", "#TOKEN T_SORT " , "#TOKEN T_SORTIN " , "#TOKEN T_MERGE " , "#TOKEN T_TOOLS " , "#TOKEN T_SORTOUT " , "#TOKEN T_SORTOUT_SUITE " , "#TOKEN T_MODE " , "#TOKEN T_LENGTH" , "#TOKEN T_TO" , "#TOKEN T_TYPE_FORMAT " , "#TOKEN T_TYPE_FORMAT_OUT " , "#TOKEN T_TYPE_FORMAT_OUT_VAR ", "#TOKEN T_DECIMAL ", "#TOKEN T_DECIMAL_FORMAT", "#TOKEN T_SELECT_OPERATOR ", "#TOKEN T_SELECT_CHAR ", "#TOKEN T_SELECT_CHAR2 ", "#TOKEN T_SELECT_CHAR_SUITE ", "#TOKEN T_XOR_CHAR ", "#TOKEN T_SELECT_INT", "#TOKEN T_SELECT_INT2", "#TOKEN T_SELECT_INT_SUITE ", "#TOKEN T_XOR_INT ", "#TOKEN T_SELECT_LONG", "#TOKEN T_SELECT_LONG2", "#TOKEN T_SELECT_LONG_SUITE ", "#TOKEN T_XOR_LONG ", "#TOKEN T_SELECT_FLOAT", "#TOKEN T_SELECT_FLOAT2", "#TOKEN T_SELECT_FLOAT_SUITE ", "#TOKEN T_XOR_FLOAT ", "#TOKEN T_SELECT_DOUBLE", "#TOKEN T_SELECT_DOUBLE2", "#TOKEN T_SELECT_DOUBLE_SUITE ", "#TOKEN T_XOR_DOUBLE ", "#TOKEN T_TO_SORT " , "#TOKEN T_SUITE_SORT " , "#TOKEN T_SUITE_MERGE_1 " , "#TOKEN T_SUITE_MERGE_2 " , "#TOKEN T_CHAR_SORT " , "#TOKEN T_INTEGER_SORT " , "#TOKEN T_FLOAT_SORT " , "#TOKEN T_DOUBLE_SORT " , "#TOKEN T_LONG_SORT " , "#TOKEN T_FORMAT_SORT " , "#TOKEN T_FORMAT_SORT_SUITE " , "#TOKEN T_NUMERIC_SORT " , "#TOKEN T_TYPE_FORMAT_SORT ", // *********************************", // REPORTS ", // *********************************", "#TOKEN T_REPORT ", "#TOKEN T_FILEREPORT ", "#TOKEN T_LEVEL ", "#TOKEN T_HEADER_REPORT ", "#TOKEN T_HEADERLEVEL ", "#TOKEN T_DETAILLEVEL ", "#TOKEN T_BREAKENDLEVEL ", // *********************************", // SQL ", // *********************************", "#TOKEN T_SQL ", //"#TOKEN T_SQL_SELECT", //"#TOKEN T_SQL_SPECIAL_ENDUSER4GL ", //"#TOKEN T_SQL_COLUMN_NAME", //"#TOKEN T_SQL_TABLE_EXPR", //"#TOKEN T_SQL_CONDITION_EXPR", //"#TOKEN T_SQL_GROUP_BY ", //"#TOKEN T_SQL_HAVING ", //"#TOKEN T_SQL_ORDER ", //"#TOKEN T_SQL_LIST_ORDER ", //"#TOKEN T_SQL_ORDER_MODE", "#TOKEN T_SUITE_INQUIRE ", "#TOKEN T_DRIVERSQL ", "#TOKEN T_FOREACH ", "#TOKEN T_GETDATACOLUMN_SUITE ", "#TOKEN T_VARSQL ", "#TOKEN T_ENVDATABASESQL_SUITE ", "#TOKEN T_VERSQL_SUITE ", "#TOKEN T_VERDRIVERSQL_SUITE", // *********************************", // QUERY ", // *********************************", "#TOKEN T_QUERY ", // *********************************", // INTERNET ", // *********************************", "#TOKEN T_INTERNET ", // *********************************", // MAPI :Outlook etc. ", // *********************************", "#TOKEN T_MAPI ", // *********************************", // WINDOWS ", // *********************************", "#TOKEN T_INSTRUCTION_WINDOWS ", "#TOKEN T_MESSAGE_DIALOG_OTHER ", "#TOKEN T_BEGIN_MESSAGE_DIALOG", "#TOKEN T_WIN_EXTENDSTYLE ", "#TOKEN T_WIN_STYLE ", "#TOKEN T_COLOR", "#TOKEN T_FORMAT_COLOR", "#TOKEN T_WINDOW_COLOR_PARAM_1 ", "#TOKEN T_DISPLAY_MSGBOX ", "#TOKEN T_SHOWDIALOG ", "#TOKEN T_SHOWDIALOG2 ", "#TOKEN T_INITIALIZE ", "#TOKEN T_DIALOG", "#TOKEN T_DIALOGCHILD", "#TOKEN T_BACKGROUND ", "#TOKEN T_SPLASHSCREEN", "#TOKEN T_SETWINTXT_SUITE", "#TOKEN T_TOKEN_STATUS_WINDOW ", "#TOKEN T_TOKEN_API_WINDOW ", "#TOKEN T_TOKEN_STATUS_WINDOW_COLOR ", "#TOKEN T_TOKEN_STATUS_BUTTON ", "#TOKEN T_WINCURSORLIST ", "#TOKEN T_TOKEN_LISTVIEW", "#TOKEN T_TOKEN_GRID", "#TOKEN T_TOKEN_STATUSBAR", "#TOKEN T_TOKEN_TREEVIEW", "#TOKEN T_TOKEN_LISTBOX", "#TOKEN T_TOKEN_COMBOBOX", "#TOKEN T_TOKEN_MENU", "#TOKEN T_WIN_INTEGER", "#TOKEN T_WIN_INTEGER_STRING", "#TOKEN T_WIN_INTEGER_STRINGICON", "#TOKEN T_WIDTHEIGTH", "#TOKEN T_WIDTHEIGTH_TC", "#TOKEN T_WIDTHEIGTHINTERP", "#TOKEN T_TOOLBAR", "#TOKEN T_TOOLBAR2", "#TOKEN T_TOOLBAR2_SUITE", "#TOKEN T_TOOLBAR2_SUITE2", "#TOKEN T_TOOLBAR2_PROPRIETE", "#TOKEN T_TOKEN_REBAR", "#TOKEN T_REBAR", "#TOKEN T_REBAR_SUITE", "#TOKEN T_REBAR_SUITE2", "#TOKEN T_REBAR_PROPRIETE", "#TOKEN T_PUSHTOPTOOLBARICON", "#TOKEN T_PUSHBOTTOOLBARICON", "#TOKEN T_PUSHVRIGHTTOOLBARICON", "#TOKEN T_PUSHVLEFTTOOLBARICON", "#TOKEN T_MSGFRAME", "#TOKEN T_SUITEANNOUNCE1", "#TOKEN T_SUITEANNOUNCE2", "#TOKEN T_SUITEANNOUNCE3", "#TOKEN T_SUITEROUNDRECT ", "#TOKEN T_TOKEN_TABCONTROL", "#TOKEN T_TABCONTROL", "#TOKEN T_TABCONTROLITEM ", "#TOKEN T_TABCONTROL_SUITE", "#TOKEN T_TABCONTROL_SUITE_ICON", "#TOKEN T_TABCONTROL_SUITE_ICON_2", "#TOKEN T_MENU", "#TOKEN T_MENUPOP", "#TOKEN T_TRACKPOPMENU", "#TOKEN T_MENUITEM", "#TOKEN T_MENUITEMSUITE", "#TOKEN T_MENUITEMPROPRIETE", "#TOKEN T_TRACKMENUITEM", "#TOKEN T_TRACKMENUITEMSUITE", "#TOKEN T_TRACKMENUITEMPROPRIETE", "#TOKEN T_TRACKCREATE_MENU ", "#TOKEN T_DECLARE_GRID_ADD ", "#TOKEN T_DECLARE_GRID_SET ", "#TOKEN T_TOOLBARTITLE", "#TOKEN T_DIALOGOPTION", "#TOKEN T_CREATE", "#TOKEN T_CREATE_BUTTON", "#TOKEN T_CREATE_BUTTON_SUITE", "#TOKEN T_CREATE_TEXT_BOX", "#TOKEN T_CREATE_TEXT_BOX_SUITE", "#TOKEN T_CREATE_LV", "#TOKEN T_CREATE_TV", "#TOKEN T_CREATE_MENU", "#TOKEN T_CREATE_GRID", "#TOKEN T_SIZEGRID ", "#TOKEN T_PROPERTYGRID ", "#TOKEN T_PROPERTYGRIDCOLUMN ", "#TOKEN T_CADREGRID ", "#TOKEN T_CREATE_CATEGORIE ", "#TOKEN T_CREATE_CATEGORIE_USE ", "#TOKEN T_SUITESWAPFONT", "#TOKEN T_SUITEORIENTATION", "#TOKEN T_SUITEFONTS", "#TOKEN T_SUITEFONTSGROUP", "#TOKEN T_SUITEFONTSGROUPEND", "#TOKEN T_COMBOBOX", "#TOKEN T_TEXT", "#TOKEN T_TEXTBOX", "#TOKEN T_BUTTON", "#TOKEN T_PUSH", "#TOKEN T_PUSHBUTTON", "#TOKEN T_PUSHBUTTONDEF", "#TOKEN T_BUTTONDRAW", "#TOKEN T_BUTTONICON", "#TOKEN T_GRID", "#TOKEN T_BKCOLORGD ", "#TOKEN T_COLORTXTGD ", "#TOKEN T_STATUSBAR", "#TOKEN T_STATUSBAR_SUITE", "#TOKEN T_LISTVIEW", "#TOKEN T_TREEVIEW", "#TOKEN T_STRING_COLUMN_GRID ", "#TOKEN T_STRING_COLUMN_LISTVIEW ", "#TOKEN T_ICON_LISTVIEW ", "#TOKEN T_ICON_LISTVIEW_SUITE ", "#TOKEN T_ICON_LISTVIEW_SUITE2 ", "#TOKEN T_ICON_TREEVIEW_SUITE ", "#TOKEN T_CHECKBOX", "#TOKEN T_LISTBOX", "#TOKEN T_SCROLLBAR", "#TOKEN T_GROUPBOX", "#TOKEN T_OPTIONBUTTON", "#TOKEN T_OPTIONGROUP", "#TOKEN T_PICTUREICON", "#TOKEN T_PUSHICON", "#TOKEN T_STRINGICON", "#TOKEN T_STRINGPUSHICON", "#TOKEN T_STRINGBUTTONICON", "#TOKEN T_PICTUREIMAGE", "#TOKEN T_ANIMATEBMP", "#TOKEN T_SUITEDESTROYANIMEGIF", "#TOKEN T_BUTTONBMP", "#TOKEN T_BUTTONREGIONCHILD", "#TOKEN T_BUTTONTEXT ", "#TOKEN T_BUTTONEMF ", "#TOKEN T_REQUIRE" , "#TOKEN T_COLOR_WINDOWS ", "#TOKEN T_LINK_LIST ", "#TOKEN T_LINK_FORMAT ", "#TOKEN T_LINK_FORMAT_SUITE ", "#TOKEN T_VAR_LINK_LIST ", "#TOKEN T_LINK_PONCT ", "#TOKEN T_TOKEN_SYSDIALOGFILE ", // *********************************", // DEMO ", // *********************************", "#TOKEN T_INSTRUCTION_DEMO_WINDOWS ", "#TOKEN T_CREATEALBUM ", "#TOKEN T_SHOWALBUM ", "#TOKEN T_CREATEALBUMBMP ", "#TOKEN T_CREATEALBUMBMPTOUCHE ", // *********************************", // EXTERN C ", // *********************************", "#TOKEN T_CALL_EXTERN ", "#TOKEN T_SUITE_CALL_EXTERN ", "#TOKEN T_4GL " , // lexicaux", "#DEFINE-LEX L_DOUBLE DOUBLE", "#DEFINE-LEX L_FLOAT FLOAT", "#DEFINE-LEX L_INTEGER INTEGER", "#DEFINE-LEX L_WIN INTEGER", "#DEFINE-LEX L_LONG LONG", "#DEFINE-LEX L_CONST_NUM LONG", "#DEFINE-LEX L_CONST_STRING ALNUM", "#DEFINE-LEX L_HMENU INTEGER", "#DEFINE-LEX L_STRING STRING", "#DEFINE-LEX L_ALNUM ALNUM", "#DEFINE-LEX L_STRUCT ALNUM", "#DEFINE-LEX L_MOT MOT", "#DEFINE-LEX L_EXTERN_C EXTERNE", "#DEFINE-LEX F_PROCEDURE FUNCTION ", // **************************************************** ", // mots clés", // bloc du programme", "#DEFINE-MCLE M_BEGIN_MAIN BEGIN_MAIN DEBUT_PROGRAMME " , "#DEFINE-MCLE M_END_MAIN END_MAIN FIN_PROGRAMME " , "#DEFINE-MCLE M_AFFECT := " , "#DEFINE-MCLE M_PV ; " , "#DEFINE-MCLE M_V , " , "#DEFINE-MCLE M_AO {" , "#DEFINE-MCLE M_AF } " , "#DEFINE-MCLE M_2PP :", "#DEFINE-MCLE M_AND & ", "#DEFINE-MCLE M_CLEAR CLEAR ", "#DEFINE-MCLE M_FREEMEMORYSTRING FREEMEMORYSTRING", "#DEFINE-MCLE M_ALNUM CHAR " , "#DEFINE-MCLE M_INTEGER INTEGER " , "#DEFINE-MCLE M_FLOAT FLOAT " , "#DEFINE-MCLE M_LONG LONG " , "#DEFINE-MCLE M_DOUBLE DOUBLE " , "#DEFINE-MCLE M_RATE RATE " , "#DEFINE-MCLE M_AMOUNT AMOUNT " , "#DEFINE-MCLE M_CONSTANT_NUM CONSTANT_NUM " , "#DEFINE-MCLE M_CONSTANT_STRING CONSTANT_STRING " , "#DEFINE-MCLE M_DEFINE DEFINE " , "#DEFINE-MCLE M_INIT INIT ", "#DEFINE-MCLE M_STRING STRING " , "#DEFINE-MCLE M_TABLE TABLE " , "#DEFINE-MCLE M_TABLEBTREE TABLEBTREE " , "#DEFINE-MCLE M_STRUCT STRUCT " , "#DEFINE-MCLE M_DEC DEC ", "#DEFINE-MCLE M_DISPLAY DISPLAY " , "#DEFINE-MCLE M_GLOBAL GLOBAL ", "#DEFINE-MCLE M_ENDGLOBAL END_GLOBAL ", "#DEFINE-MCLE M_BEGIN BEGIN ", "#DEFINE-MCLE M_ENDBEGIN END_BEGIN ", "#DEFINE-MCLE M_END END ", "#DEFINE-MCLE M_ENTER ENTER ", "#DEFINE-MCLE M_SYSCOMMANDWINDOWS SYSCOMMANDWINDOWS ", "#DEFINE-MCLE M_PROCESSWINDOWS PROCESSWINDOWS ", "#DEFINE-MCLE M_EXITPGM EXIT_PGM ", "#DEFINE-MCLE M_EU_LOGO EU_LOGO ", "#DEFINE-MCLE M_EU_ORDER EU_ORDER ", "#DEFINE-MCLE M_PLAY_MOVIE_AVI PLAY_MOVIE_AVI ", "#DEFINE-MCLE M_HWDISPLAY HWDISPLAY ", "#DEFINE-MCLE M_DISPLAYSYMBG DISPLAY_GLOBAL_TABLE_SYMBOL ", "#DEFINE-MCLE M_DISPLAYSYMBL DISPLAY_LOCAL_TABLE_SYMBOL ", "#DEFINE-MCLE M_PO (", "#DEFINE-MCLE M_PF ) ", "#DEFINE-MCLE M_SIZESTRUCT SIZESTRUCT ", "#DEFINE-MCLE M_SIZE SIZE ", "#DEFINE-MCLE M_VOID VOID ", "#DEFINE-MCLE M_NOTVOID NOT_VOID ", "#DEFINE-MCLE M_DATE DATE " , "#DEFINE-MCLE M_TIME TIME " , "#DEFINE-MCLE M_PAGE PAGE " , "#DEFINE-MCLE M_DPRINT DPRINT " , "#DEFINE-MCLE M_PRINT PRINT " , "#DEFINE-MCLE M_COLUMN COLUMN ", "#DEFINE-MCLE M_INTO INTO " , "#DEFINE-MCLE M_TOP TOP " , "#DEFINE-MCLE M_BOT BOT " , "#DEFINE-MCLE M_VRIGHT VRIGHT " , "#DEFINE-MCLE M_VLEFT VLEFT " , "* string ", "#DEFINE-MCLE M_STRINGCONCAT STRINGCONCAT " , "#DEFINE-MCLE M_STRINGLENGTH STRINGLENGTH " , "#DEFINE-MCLE M_STRINGSORT STRINGSORT " , "#DEFINE-MCLE M_STRINGREVERSE STRINGREVERSE " , "#DEFINE-MCLE M_STRINGREPEAT STRINGREPEAT " , "#DEFINE-MCLE M_STRINGTOUPPER STRINGTOUPPER " , "#DEFINE-MCLE M_STRINGUPPER STRINGUPPER " , "#DEFINE-MCLE M_STRINGNUMERIC STRINGNUMERIC " , "#DEFINE-MCLE M_INSERTTABLEBTREE INSERTTABLEBTREE " , "#DEFINE-MCLE M_DELETETABLEBTREE DELETETABLEBTREE " , "#DEFINE-MCLE M_UPDATETABLEBTREE UPDATETABLEBTREE " , "#DEFINE-MCLE M_LOOKUPTABLEBTREE LOOKUPTABLEBTREE " , "#DEFINE-MCLE M_LOADBTREE LOADBTREE " , "#DEFINE-MCLE M_EXTRACTSTRING EXTRACTSTRING " , "#DEFINE-MCLE M_SEARCHSTRING SEARCHSTRING " , "#DEFINE-MCLE M_CHARTOUPPER CHARTOUPPER " , "#DEFINE-MCLE M_CHARUPPER CHARUPPER " , "#DEFINE-MCLE M_WITH WITH " , "#DEFINE-MCLE M_CONVERNUMERIC CONVERNUMERIC " , "#DEFINE-MCLE M_CONVERSTRING CONVERSTRING " , "#DEFINE-MCLE M_FORMAT FORMAT ", "* file", "#DEFINE-MCLE M_BY BY " , "#DEFINE-MCLE M_TO TO " , "#DEFINE-MCLE M_FILEEXIST FILEEXIST " , "#DEFINE-MCLE M_TABLEEXIST TABLEEXIST " , "#DEFINE-MCLE M_FILEOPEN FILEOPEN " , "#DEFINE-MCLE M_FILEREAD FILEREAD " , "#DEFINE-MCLE M_FILEUPDATE FILEUPDATE " , "#DEFINE-MCLE M_RESTORCURRENTDATA RESTORECURRENTDATA " , "#DEFINE-MCLE M_FILEADD FILEADD " , "#DEFINE-MCLE M_FILERENAME FILERENAME " , "#DEFINE-MCLE M_FILECOPY FILECOPY " , "#DEFINE-MCLE M_TABLECOPY TABLECOPY " , "#DEFINE-MCLE M_FILEMERGE FILEMERGE " , "#DEFINE-MCLE M_FILEDELETE FILEDELETE " , "#DEFINE-MCLE M_TABLEDELETE TABLEDELETE " , "#DEFINE-MCLE M_FILECLOSE FILECLOSE " , "#DEFINE-MCLE M_FILECLOSEALL FILECLOSEALL " , "#DEFINE-MCLE M_LOADFILETXT LOADFILETXT" , "#DEFINE-MCLE M_EXECUTEDIRECTORYFETCH EXECUTEDIRECTORYFETCH ", "#DEFINE-MCLE M_FOREACHFILEFIND FOREACHFILEFIND", "#DEFINE-MCLE M_ENDFOREACHFILE END_FOREACHFILE ", "#DEFINE-MCLE M_GETINFOFILENAME GETINFOFILENAME ", "#DEFINE-MCLE M_READ READ " , "#DEFINE-MCLE M_READWRITE READWRITE " , "#DEFINE-MCLE M_WRITE WRITE " , "#DEFINE-MCLE M_SETCURRENTDIR SETCURRENTDIR ", "#DEFINE-MCLE M_GETCURRENTDIR GETCURRENTDIR ", "#DEFINE-MCLE M_GETLASTERROR GETLASTERROR ", "#DEFINE-MCLE M_DIREXIST DIREXIST ", "#DEFINE-MCLE M_EOF EOF ", "#DEFINE-MCLE M_FPOSITTOP FPOSIT_TOP ", "#DEFINE-MCLE M_FPOSITBOT FPOSIT_BOT ", "#DEFINE-MCLE M_FPOSITCUR FPOSIT_CUR ", "#DEFINE-MCLE M_FILESCAN FILESCAN ", "#DEFINE-MCLE M_BEGIN_SCAN BEGIN_SCAN ", "#DEFINE-MCLE M_END_SCAN END_SCAN ", "#DEFINE-MCLE M_FILEINQUIRE FILEINQUIRE ", "#DEFINE-MCLE M_RECORD RECORD ", "#DEFINE-MCLE M_YMD YMD", "#DEFINE-MCLE M_DMY DMY", // procedure", "#DEFINE-MCLE M_LOCAL LOCAL", "#DEFINE-MCLE M_ENDLOCAL END_LOCAL", "#DEFINE-MCLE M_PROCEDURE PROC ", "#DEFINE-MCLE M_BEGIN_PROCEDURE BEGIN_PROCEDURE", "#DEFINE-MCLE M_END_PROCEDURE END_PROCEDURE ", // function", "#DEFINE-MCLE M_FUNCTION FUNC ", "#DEFINE-MCLE M_BEGIN_FUNCTION BEGIN_FUNCTION ", "#DEFINE-MCLE M_END_FUNCTION END_FUNCTION ", "#DEFINE-MCLE M_RETURN RETURN ", "#DEFINE-MCLE M_RETURNING RETURNING ", "#DEFINE-MCLE M_OCCURS OCCURS ", "#DEFINE-MCLE M_CYCLECOMPILERENDUSER4GL CYCLECOMPILERENDUSER4GL ", // *********************** ", // : SORT : ", // *********************** ", "#DEFINE-MCLE M_POSIT POSIT " , "#DEFINE-MCLE M_SELECT SELECT " , "#DEFINE-MCLE M_SORTIN SORTINPUT " , "#DEFINE-MCLE M_SORTOUT SORTOUTPUT " , "#DEFINE-MCLE M_LENGTHVAR LENGTHVAR " , "#DEFINE-MCLE M_LENGTH LENGTH " , "#DEFINE-MCLE M_USE USE " , "#DEFINE-MCLE M_DECIMAL DECIMAL " , "#DEFINE-MCLE M_POINT . " , "#DEFINE-MCLE M_ALLDATA ALLDATA " , "#DEFINE-MCLE M_MERGE MERGE " , "#DEFINE-MCLE M_ASCENDANT ASC " , "#DEFINE-MCLE M_DESCENDANT DESC " , "#DEFINE-MCLE M_KEEPREJET KEEPREJECT " , "#DEFINE-MCLE M_KEEPMERGE KEEPMERGE " , "#DEFINE-MCLE M_CREATEINDEX CREATEINDEX " , "#DEFINE-MCLE M_SEPARATOR RETURN_CARRIAGE " , "#DEFINE-MCLE M_NUMERIC NUMERIC ", "#DEFINE-MCLE M_BEGIN_REPORT BEGIN_REPORT " , "#DEFINE-MCLE M_REPORTINPUT REPORTINPUT " , "#DEFINE-MCLE M_ISSU_OF_SORT ISSU_OF_SORT " , "#DEFINE-MCLE M_REPORTOUTPUT REPORTOUTPUT " , "#DEFINE-MCLE M_LEVEL LEVEL " , "#DEFINE-MCLE M_LEVELKEY LEVEL_KEY " , "#DEFINE-MCLE M_END_REPORT END_REPORT " , "#DEFINE-MCLE M_HEADERREPORT HEADER_REPORT " , "#DEFINE-MCLE M_ENDHEADERREPORT END_HEADER_REPORT ", "#DEFINE-MCLE M_HEADERLEVEL HEADER_LEVEL " , "#DEFINE-MCLE M_ENDHEADERLEVEL END_HEADER_LEVEL ", "#DEFINE-MCLE M_BREAKENDLEVEL BREAK_END_LEVEL " , "#DEFINE-MCLE M_ENDBREAKENDLEVEL END_BREAK_END_LEVEL", "#DEFINE-MCLE M_DETAIL DETAIL ", "#DEFINE-MCLE M_ENDDETAIL END_DETAIL ", "#DEFINE-MCLE M_HEADEREND HEADER_END " , "#DEFINE-MCLE M_ENDHEADEREND END_HEADER_END " , "#DEFINE-MCLE M_SKIPLINE SKIP_LINE " , "#DEFINE-MCLE M_TOTALLEVEL TOTAL_LEVEL " , "#DEFINE-MCLE M_TOTALEND TOTAL_END_REPORT " , // *********************** ", // SQL and QUERY ", // *********************** ", "* see you sort :#DEFINE-MCLE M_SELECT SELECT ", "#DEFINE-MCLE M_FROM FROM ", "#DEFINE-MCLE M_ALL ALL ", "#DEFINE-MCLE M_DISTINCT DISTINCT ", "#DEFINE-MCLE M_UNIQUE UNIQUE ", "#DEFINE-MCLE M_WHERE WHERE ", "#DEFINE-MCLE M_GROUP GROUP ", "#DEFINE-MCLE M_HAVING HAVING ", "#DEFINE-MCLE M_ORDER ORDER ", "#DEFINE-MCLE M_INQUIRE INQUIRE ", "#DEFINE-MCLE M_SETENVDATABASESQL SETENVDATABASESQL ", "#DEFINE-MCLE M_DESTROYENVSQL DESTROYENVSQL ", "#DEFINE-MCLE M_SETVERSQL SETVERSQL ", "#DEFINE-MCLE M_SETVERDRIVERSQL SETVERDRIVERSQL ", "#DEFINE-MCLE M_EXECUTESQL EXECUTESQL ", "#DEFINE-MCLE M_EXECUTESQLDIALOG EXECUTESQLDIALOG ", "#DEFINE-MCLE M_EXECUTESQLFETCH EXECUTESQLFETCH ", "#DEFINE-MCLE M_GETDATACOLUMN GETDATACOLUMN ", "#DEFINE-MCLE M_FOREACHROWFIND FOREACHROWFIND ", "#DEFINE-MCLE M_ENDFOREACHROW END_FOREACHROW ", "#DEFINE-MCLE M_BEGIN_FETCH_ORIENTATION BEGIN_FETCH_ORIENTATION ", "#DEFINE-MCLE M_END_FETCH_ORIENTATION END_FETCH_ORIENTATION ", "#DEFINE-MCLE M_GETSELECTITEMSQL GETSELECTITEMSQL ", "#DEFINE-MCLE M_EXECUTEQUERY EXECUTEQUERY ", "#DEFINE-MCLE M_EXECUTEQUERYDIALOG EXECUTEQUERYDIALOG ", "#DEFINE-MCLE M_XLS XLS ", "#DEFINE-MCLE M_DBF DBF ", "#DEFINE-MCLE M_TXT TXT ", "#DEFINE-MCLE M_FOX FOX ", "#DEFINE-MCLE M_MDB ACCESS ", // *********************** ", // INTERNET : ", // *********************** ", "#DEFINE-MCLE M_NAVIGATEINTERNET NAVIGATEINTERNET ", "#DEFINE-MCLE M_GOHOMEINTERNET GOHOMEINTERNET ", "#DEFINE-MCLE M_GOSEARCHINTERNET GOSEARCHINTERNET ", "#DEFINE-MCLE M_STOPINTERNET STOPINTERNET ", "#DEFINE-MCLE M_FULLSCREENINTERNET FULLSCREENINTERNET ", // *********************** ", // MAPI : ", // *********************** ", "#DEFINE-MCLE M_SENDMAIL SENDMAIL ", "#DEFINE-MCLE M_RECEIVEMAIL RECEIVE ", "#DEFINE-MCLE M_SENDDOCUMENT SENDDOCUMENT ", "#DEFINE-MCLE M_GETADRESSMAIL GETADRESSMAIL ", // *********************** ", // WINDOWS : ", // *********************** ", "#DEFINE-MCLE M_MSGBOX MSGBOX ", "#DEFINE-MCLE M_TITLE TITLE ", "#DEFINE-MCLE M_MESSAGE MESSAGE ", "#DEFINE-MCLE M_BUTTON BUTTON ", "#DEFINE-MCLE M_ICON ICON ", "#DEFINE-MCLE M_ICONDIALOG ICONDIALOG ", "#DEFINE-MCLE M_TRANSACTION TRANSACTION", "#DEFINE-MCLE M_BEGINTRANSACTION BEGIN_TRANSACTION ", "#DEFINE-MCLE M_ENDTRANSACTION END_TRANSACTION ", "#DEFINE-MCLE M_BEGIN_MESSAGE_DIALOG BEGIN_MESSAGE_DIALOG", "#DEFINE-MCLE M_END_MESSAGE_DIALOG END_MESSAGE_DIALOG", "#DEFINE-MCLE M_ONCLIKDIALOG ONCLICKDIALOG ", "#DEFINE-MCLE M_ONCLICKMENUSELECT ONCLICKMENUSELECT ", "#DEFINE-MCLE M_ONMOVECURSOR ONMOVECURSOR ", "#DEFINE-MCLE M_EXITTRANSACTION EXIT_TRANSACTION ", "#DEFINE-MCLE M_EXECUTE EXECUTE", "#DEFINE-MCLE M_INPUTDATA INPUTDATA ", "#DEFINE-MCLE M_SETNEWPARENTWIN SETNEWPARENTWIN ", "#DEFINE-MCLE M_SETNEWPARENTDIALOG SETNEWPARENTDIALOG ", "#DEFINE-MCLE M_WAIT WAIT ", "#DEFINE-MCLE M_WAITCLOSEUSER WAITCLOSEUSER ", "#DEFINE-MCLE M_BEGININITIALIZE BEGIN_INITIALIZE ", "#DEFINE-MCLE M_ENDINITIALIZE END_INITIALIZE ", "#DEFINE-MCLE M_SHOWSPLASH SHOWSPLASH", "#DEFINE-MCLE M_DIALOG DIALOG ", "#DEFINE-MCLE M_REBAR REBAR ", "#DEFINE-MCLE M_BEGINDIALOG BEGIN_DIALOG ", "#DEFINE-MCLE M_BEGINDIALOGCHILD BEGIN_DIALOGCHILD ", "#DEFINE-MCLE M_BEGINSPLASH BEGIN_SPLASH ", "#DEFINE-MCLE M_BEGINTOOLBAR BEGIN_TOOLBAR ", "#DEFINE-MCLE M_BEGINREBAR BEGIN_REBAR ", "#DEFINE-MCLE M_BEGINTABCONTROL BEGIN_TABCONTROL ", "#DEFINE-MCLE M_BEGINTABCONTROLITEM BEGIN_TABCONTROLITEM ", "#DEFINE-MCLE M_BEGINMENU BEGIN_MENU ", "#DEFINE-MCLE M_BEGINPOPMENU BEGIN_POPMENU ", "#DEFINE-MCLE M_BEGINSUBMENU BEGIN_SUBMENU ", "#DEFINE-MCLE M_BEGINTRACKPOPMENU BEGIN_TRACKPOPMENU", "#DEFINE-MCLE M_ENDTRACKPOPMENU END_TRACKPOPMENU", "#DEFINE-MCLE M_OPENTRACKPOPMENU OPENTRACKPOPMENU", "#DEFINE-MCLE M_MENUITEM MENUITEM ", "#DEFINE-MCLE M_MENUID ID ", "#DEFINE-MCLE M_DISABLE DISABLE ", "#DEFINE-MCLE M_ENDMENU END_MENU ", "#DEFINE-MCLE M_ENDPOPMENU END_POPMENU ", "#DEFINE-MCLE M_ENDSUBMENU END_SUBMENU ", "#DEFINE-MCLE M_BEGINMSGFRAME BEGIN_MSGFRAME ", "#DEFINE-MCLE M_ENDSPLASH END_SPLASH ", "#DEFINE-MCLE M_ENDDIALOG END_DIALOG ", "#DEFINE-MCLE M_ENDDIALOGCHILD END_DIALOGCHILD ", "#DEFINE-MCLE M_ENDTOOLBAR END_TOOLBAR ", "#DEFINE-MCLE M_ENDREBAR END_REBAR ", "#DEFINE-MCLE M_ENDTABCONTROL END_TABCONTROL ", "#DEFINE-MCLE M_ENDTABCONTROLITEM END_TABCONTROLITEM", "#DEFINE-MCLE M_ESPACE SPACE ", "#DEFINE-MCLE M_BACKGROUNDCOLOR BACKGROUNDCOLOR ", "#DEFINE-MCLE M_BACKGROUNDBMP BACKGROUNDBMP ", "#DEFINE-MCLE M_BACKGROUNDHATCHBRUSH BACKGROUNDHATCHBRUSH", "#DEFINE-MCLE M_WINEXTENDSTYLE WINEXTENDSTYLE ", "#DEFINE-MCLE M_WINSTYLE WINSTYLE ", "#DEFINE-MCLE M_SHOWDIALOG SHOWDIALOG ", "#DEFINE-MCLE M_OPENDIALOG OPENDIALOG ", "#DEFINE-MCLE M_CREATE CREATE CREATION ", "#DEFINE-MCLE M_INFO INFO ", "#DEFINE-MCLE M_CURSOR CURSOR ", "#DEFINE-MCLE M_LIKE LIKE ", "#DEFINE-MCLE M_COMBOBOX COMBOBOX", "#DEFINE-MCLE M_TEXT TEXT", "#DEFINE-MCLE M_TEXTBOX TEXTBOX", "#DEFINE-MCLE M_WIDTH WIDTH", "#DEFINE-MCLE M_HEIGHT HEIGHT", "#DEFINE-MCLE M_STATUSBAR STATUSBAR", "#DEFINE-MCLE M_SETPARTSTATUSBAR SETPARTSTATUSBAR", "#DEFINE-MCLE M_SETSTATUSBAR SETSTATUSBAR", "#DEFINE-MCLE M_NBPARTS NBPARTS", "#DEFINE-MCLE M_PART PART ", "#DEFINE-MCLE M_POPOUT POPOUT", "#DEFINE-MCLE M_OKBUTTON OKBUTTON", "#DEFINE-MCLE M_CANCELBUTTON CANCELBUTTON", "#DEFINE-MCLE M_PUSHICON PUSHICON", "#DEFINE-MCLE M_CHECKBOX CHECKBOX", "#DEFINE-MCLE M_CHECK CHECK ", "#DEFINE-MCLE M_LISTBOX LISTBOX", "#DEFINE-MCLE M_SCROLLBAR SCROLLBAR", "#DEFINE-MCLE M_GROUPBOX GROUPBOX", "#DEFINE-MCLE M_OPTIONGROUP OPTIONGROUP", "#DEFINE-MCLE M_OPTIONBUTTON OPTIONBUTTON", "#DEFINE-MCLE M_PICTUREICON PICTUREICON", "#DEFINE-MCLE M_PICTUREBMP PICTUREBMP", "#DEFINE-MCLE M_PICTUREGIF PICTUREGIF", "#DEFINE-MCLE M_PICTUREJPG PICTUREJPG", "#DEFINE-MCLE M_PICTUREWMF PICTUREWMF", "#DEFINE-MCLE M_DRAWFOCUSRECT DRAWFOCUSRECT", "#DEFINE-MCLE M_DRAWFOCUSRECTLIST DRAWFOCUSRECTLIST", "#DEFINE-MCLE M_DRAWBMPFILE DRAWBMPFILE", "#DEFINE-MCLE M_ANIMATEBMP ANIMATEBMP ", "#DEFINE-MCLE M_ACTIVANIMATEBMP ACTIVANIMATEBMP ", "#DEFINE-MCLE M_ACTIVANIMATEGIFDIALOG ACTIVANIMATEGIFDIALOG ", "#DEFINE-MCLE M_DRAWICONFILE DRAWICONFILE", "#DEFINE-MCLE M_DRAWICONFILESYS DRAWICONFILESYS", "#DEFINE-MCLE M_DRAWEMFFILE DRAWEMFFILE", "#DEFINE-MCLE M_DRAWGIFFILE DRAWGIFFILE", "#DEFINE-MCLE M_DRAWJPGFILE DRAWJPGFILE", "#DEFINE-MCLE M_DRAWWMFFILE DRAWWMFFILE", "#DEFINE-MCLE M_DESTROYANIMATEGIF DESTROYANIMATEGIF", "#DEFINE-MCLE M_DRAWTEXTWIN DRAWTEXTWIN", "#DEFINE-MCLE M_DRAWTEXT DRAWTEXT", "#DEFINE-MCLE M_DRAWRECTANGLE DRAWRECTANGLE", "#DEFINE-MCLE M_ELLIPSE ELLIPSE " , "#DEFINE-MCLE M_RECTANGLE RECTANGLE " , "#DEFINE-MCLE M_ROUNDRECT ROUNDRECT " , "#DEFINE-MCLE M_ROUNDANNOUNCE ROUNDANNOUNCE " , "#DEFINE-MCLE M_ROUNDDIMENSION ROUNDDIMENSION ", "#DEFINE-MCLE M_ANNOUNCE ANNOUNCE " , "#DEFINE-MCLE M_ELLIPTICAL ELLIPTICAL ", "#DEFINE-MCLE M_FILLCOLOR FILLCOLOR " , "#DEFINE-MCLE M_FRAMECOLOR FRAMECOLOR " , "#DEFINE-MCLE M_SHADOWTEXT SHADOWTEXT ", "#DEFINE-MCLE M_SHADOWWIN SHADOWWIN ", "#DEFINE-MCLE M_REQUIRE REQUIRE PLEASE ", "#DEFINE-MCLE M_BEEP BEEP AVERTI", "#DEFINE-MCLE M_PLAYSOUND PLAYSOUND ACTIVESON ", "#DEFINE-MCLE M_SETHOURGLASSCURSOR SETHOURGLASSCURSOR ", "#DEFINE-MCLE M_SETARROWCURSOR SETARROWCURSOR ", "#DEFINE-MCLE M_SETCURSORPOSITION SETCURSORPOSITION ", "#DEFINE-MCLE M_GETCHECK GETCHECK ", "#DEFINE-MCLE M_GETWINDIR GETWINDIR ", "#DEFINE-MCLE M_GETSYSWINDIR GETSYSWINDIR ", "#DEFINE-MCLE M_LOADWINHELP LOADWINHELP ", "#DEFINE-MCLE M_SETCHECK SETCHECK ", "#DEFINE-MCLE M_GETPUSH GETPUSH ", "#DEFINE-MCLE M_SETPUSHENABLE SETPUSHENABLE ", "#DEFINE-MCLE M_SETPUSHDISABLE SETPUSHDISABLE ", "#DEFINE-MCLE M_UNCHECK UNCHECK ", "#DEFINE-MCLE M_ENABLEWINDOW ENABLEWINDOW ", "#DEFINE-MCLE M_DISABLEWINDOW DISABLEWINDOW ", "#DEFINE-MCLE M_HIDEWINDOW HIDEWINDOW ", "#DEFINE-MCLE M_RESTOREWINDOW RESTOREWINDOW ", "#DEFINE-MCLE M_DESTROYDIALOG DESTROYDIALOG ", "#DEFINE-MCLE M_DESTROYWIN DESTROYWIN ", "#DEFINE-MCLE M_REFRESHDIALOG REFRESHDIALOG ", "#DEFINE-MCLE M_REFRESHWIN REFRESHWIN ", "#DEFINE-MCLE M_SETSTATUSWINDOW SETSTATUSWINDOW ", "#DEFINE-MCLE M_SETFOREGROUNDIALOG SETFOREGROUNDDIALOG ", "#DEFINE-MCLE M_SETSTATUSDIALOG SETSTATUSDIALOG", "#DEFINE-MCLE M_CLOSEWINDOW CLOSEWINDOW ", "#DEFINE-MCLE M_CLOSEDIALOG CLOSEDIALOG ", "#DEFINE-MCLE M_SETWINDOWPOS SETWINDOWPOS ", "#DEFINE-MCLE M_SETDISPLAYPOS SETDISPLAYPOS ", "#DEFINE-MCLE M_SETDIALOGPOS SETDIALOGPOS ", "#DEFINE-MCLE M_SETWINDOWATTRIBUT SETWINDOWATTRIBUT ", "#DEFINE-MCLE M_SETWINTXT SETWINTXT ", "#DEFINE-MCLE M_GETWINTXT GETWINTXT ", "#DEFINE-MCLE M_ATTRIBUT ATTRIBUT ", "#DEFINE-MCLE M_IMAGE IMAGE ", "#DEFINE-MCLE M_ISONINPUTDATA ISONINPUTDATA", "#DEFINE-MCLE M_SETINFO SETINFO ", "#DEFINE-MCLE M_SETINFOBUTTONBMP SETINFOBUTTONBMP ", /* win color */ "#DEFINE-MCLE M_COLOR COLOR ", "#DEFINE-MCLE M_SETBKCOLORDIALOG SETBKCOLORDIALOG ", "#DEFINE-MCLE M_SETCOLORBUTTON SETCOLORBUTTON ", "#DEFINE-MCLE M_SETCOLORTXT SETCOLORTEXT ", "#DEFINE-MCLE M_GETCOLORTXT GETCOLORTEXT ", "#DEFINE-MCLE M_SETTEXTOUT SETTEXTOUT ", "#DEFINE-MCLE M_SETBKCOLORLV SETBKCOLORLV ", "#DEFINE-MCLE M_SETCOLORTXTLV SETCOLORTEXTLV ", "#DEFINE-MCLE M_SETBKCOLORGD SETBKCOLORGD ", "#DEFINE-MCLE M_SETBKCOLORGIF SETBKCOLORGIF ", "#DEFINE-MCLE M_SETCOLORTXTGD SETCOLORTEXTGD ", "#DEFINE-MCLE M_SETCOLORSYS SETCOLORSYS ", "#DEFINE-MCLE M_RESTORECOLORSYS RESTORECOLORSYS ", /* win fonts */ "#DEFINE-MCLE M_SETFONTS SETFONTS ", "#DEFINE-MCLE M_SETFONTSGROUP SETFONTSGROUP ", "#DEFINE-MCLE M_SETATTRTXTORIENTATION SETATTRTEXTORIENTATION ", /* buttons */ "#DEFINE-MCLE M_PUSHBUTTON PUSHBUTTON", "#DEFINE-MCLE M_PUSHBUTTONDEF PUSHBUTTONDEF", "#DEFINE-MCLE M_BUTTONDRAW BUTTONDRAW", "#DEFINE-MCLE M_BUTTONBMPDRAW BUTTONBMPDRAW", "#DEFINE-MCLE M_BUTTONBMPDRAWLABEL BUTTONBMPDRAWLABEL", "#DEFINE-MCLE M_BUTTONBMP BUTTONBMP", "#DEFINE-MCLE M_BUTTONBMPPUSH BUTTONBMPPUSH", "#DEFINE-MCLE M_BUTTONBMPPUSHLABEL BUTTONBMPPUSHLABEL", "#DEFINE-MCLE M_BUTTONREGIONCHILD BUTTONREGIONCHILD", "#DEFINE-MCLE M_BUTTONEMF BUTTONEMF", "#DEFINE-MCLE M_BUTTONICONDRAW BUTTONICONDRAW ", "#DEFINE-MCLE M_BUTTONICONDRAWLABEL BUTTONICONDRAWLABEL", "#DEFINE-MCLE M_BUTTONICONDRAWLABELCENTER BUTTONICONDRAWLABELCENTER", "#DEFINE-MCLE M_BUTTONICON BUTTONICON", "#DEFINE-MCLE M_BUTTONICONPUSH BUTTONICONPUSH", "#DEFINE-MCLE M_BUTTONICONPUSHLABEL BUTTONICONPUSHLABEL", "#DEFINE-MCLE M_REPLACEBUTTONBMP REPLACEBUTTONBMP", "#DEFINE-MCLE M_REPLACEBUTTONICON REPLACEBUTTONICON", "#DEFINE-MCLE M_SWAPBMP SWAPBMP", "#DEFINE-MCLE M_SWAPICON SWAPICON", "#DEFINE-MCLE M_SWAPTEXT SWAPTEXT", "#DEFINE-MCLE M_SWAPCOLOR SWAPCOLOR", "#DEFINE-MCLE M_SWAPFONT SWAPFONT", "#DEFINE-MCLE M_BUTTONTEXT BUTTONTEXT ", /* Grid */ "#DEFINE-MCLE M_GRID GRID " , "#DEFINE-MCLE M_ADDITEMGD ADDITEMGD ", "#DEFINE-MCLE M_SETITEMGD SETITEMGD ", "#DEFINE-MCLE M_INITGD INITGD ", "#DEFINE-MCLE M_FREEMEMORYGD FREEMEMORYGD ", "#DEFINE-MCLE M_PROPERTY PROPERTY ", "#DEFINE-MCLE M_MAX MAX", "#DEFINE-MCLE M_HEIGHTCOLUMN HEIGHTCOLUMN ", "#DEFINE-MCLE M_HEIGHTLINE HEIGHTLINE ", "#DEFINE-MCLE M_SETPROPERTYCELLGD SETPROPERTYCELLGD ", "#DEFINE-MCLE M_GETITEMCHECKGD GETITEMCHECKGD ", "#DEFINE-MCLE M_GETITEMCOUNTGD GETITEMCOUNTGD ", "#DEFINE-MCLE M_GETITEMTEXTGD GETITEMTEXTGD ", "#DEFINE-MCLE M_LINES LINES ", /* listView */ "#DEFINE-MCLE M_LISTVIEW LISTVIEW", "#DEFINE-MCLE M_ADDITEMLV ADDITEMLV", "#DEFINE-MCLE M_DELETEITEMLV DELETEITEMLV", "#DEFINE-MCLE M_SETITEMLV SETITEMLV", "#DEFINE-MCLE M_SETITEMTEXTLISTVIEW SETITEMTEXTLV", "#DEFINE-MCLE M_GETSELECTITEMLV GETSELECTITEMLV ", "#DEFINE-MCLE M_GETITEMTEXTLISTVIEW GETITEMTEXTLV ", "#DEFINE-MCLE M_REPLACEICONLISTVIEW REPLACEICONLV ", "#DEFINE-MCLE M_GETITEMCOUNTLISTVIEW GETITEMCOUNTLV ", "#DEFINE-MCLE M_GETITEMCHECKLISTVIEW GETITEMCHECKLV ", "#DEFINE-MCLE M_CLEARLISTVIEW CLEARLV ", "#DEFINE-MCLE M_INSERTCOLUMNLISTVIEW INSERTCOLUMNLV", "#DEFINE-MCLE M_DELETECOLUMNLISTVIEW DELETECOLUMNLV", "#DEFINE-MCLE M_SORTLISTVIEW SORTLV", /* treeView */ "#DEFINE-MCLE M_TREEVIEW TREEVIEW", "#DEFINE-MCLE M_ADDITEMTV ADDITEMTV", "#DEFINE-MCLE M_REPLACEICONTREEVIEW REPLACEICONTV ", "#DEFINE-MCLE M_GETSELECTITEMTV GETSELECTITEMTV ", "#DEFINE-MCLE M_CLEARTREEVIEW CLEARTV", /* TabControl */ "#DEFINE-MCLE M_TABCONTROL TABCONTROL", "#DEFINE-MCLE M_ITEM ITEM", "#DEFINE-MCLE M_SETITEMTC SETITEMTC", "#DEFINE-MCLE M_ADDITEMTC ADDITEMTC", "#DEFINE-MCLE M_DELETEITEMTC DELETEITEMTC", "#DEFINE-MCLE M_REPLACEICONTC REPLACEICONTC ", "#DEFINE-MCLE M_GETSELECTITEMTC GETSELECTITEMTC ", "#DEFINE-MCLE M_SETSELECTITEMTC SETSELECTITEMTC ", "#DEFINE-MCLE M_SETACTIVEWINITEMTC SETACTIVEWINITEMTC ", "#DEFINE-MCLE M_GETITEMCOUNTTC GETITEMCOUNTTC ", /* Menu */ "#DEFINE-MCLE M_GETSELECTPOPMENUITEMID GETSELECTPOPMENUITEMID ", "#DEFINE-MCLE M_DELETEPOPMENUITEMID DELETEPOPMENUITEMID ", /* ListBox Combobox */ "#DEFINE-MCLE M_GETSELECTLISTBOX GETSELECTLISTBOX", "#DEFINE-MCLE M_ADDLISTBOX ADDLISTBOX ", "#DEFINE-MCLE M_ADDCOMBOBOX ADDCOMBOBOX ", "#DEFINE-MCLE M_DELETEINDEXCOMBOBOX DELETEINDEXCOMBOBOX ", "#DEFINE-MCLE M_GETSELECTCOMBOBOX GETSELECTCOMBOBOX", /* Mouse */ "#DEFINE-MCLE M_ISCLICKMOUSE ISCLICKMOUSE", "#DEFINE-MCLE M_ISDCLICKMOUSE ISDCLICKMOUSE", "#DEFINE-MCLE M_ISONSETCURSOR ISONSETCURSOR", "#DEFINE-MCLE M_ISONSETCURSORLIST ISONSETCURSORLIST", /* autres Keywords */ "#DEFINE-MCLE M_FRAMEWORK FRAMEWORK ", "#DEFINE-MCLE M_CENTER CENTER CENTER", "#DEFINE-MCLE M_LEFT LEFT", "#DEFINE-MCLE M_RIGHT RIGHT", "#DEFINE-MCLE M_EXIT EXIT ", /* status bar */ "#DEFINE-MCLE M_SETTXTSB SETTXTSB ", /* Windows STYLE */ "#DEFINE-MCLE M_CENTERWINDOW CENTERDIALOG ", "#DEFINE-MCLE M_FULLWINDOW FULLDIALOG ", "#DEFINE-MCLE M_LV_REPORT LV_REPORT ", "#DEFINE-MCLE M_LV_ICON LV_ICON ", "#DEFINE-MCLE M_LV_LIST LV_LIST ", "#DEFINE-MCLE M_LV_EDIT LV_EDIT ", "#DEFINE-MCLE M_LV_STEDIT_ALL LV_STEDIT_ALL ", "#DEFINE-MCLE M_TC_VERTICAL TC_VERTICAL", "#DEFINE-MCLE M_TC_BUTTONS TC_BUTTONS ", "#DEFINE-MCLE M_TC_RIGHT TC_RIGHT ", "#DEFINE-MCLE M_SYSOPENFILE SYSOPENFILE ", "#DEFINE-MCLE M_SYSSAVEFILE SYSSAVEFILE ", "#DEFINE-MCLE M_SYSPRINTFILE SYSPRINTFILE ", "#DEFINE-MCLE M_SYSOPENDIRECTORY SYSOPENDIRECTORY", "#DEFINE-MCLE M_RETURNBEGINTRANSACTION RETURN_BEGIN_TRANSACTION", "#DEFINE-MCLE M_CALL CALL ", "#DEFINE-MCLE M_C LANGAGE_C ", "#DEFINE-MCLE M_EXTERN EXTERN ", // *********************************", // CALENDAR ", // *********************************", "#DEFINE-MCLE M_CALENDAR CALENDAR ", "#DEFINE-MCLE M_MINICALENDAR MINICALENDAR ", // *********************************", // DEMO ", // *********************************", "#DEFINE-MCLE M_ALBUMBMP ALBUMBMP ", "#DEFINE-MCLE M_SHOWALBUMBMP SHOWALBUMBMP", // *********************************", // MS E X C E L ", // *********************************", "#DEFINE-MCLE M_CONNECTEXCEL CONNECT_MSEXCEL", "#DEFINE-MCLE M_CONNECTEXCELTEST CONNECT_MSEXCELTEST", "#DEFINE-MCLE M_GETCOUNTSHEETEXCEL GETCOUNTSHEET_MSEXCEL", "#DEFINE-MCLE M_CLEARSHEETEXCEL CLEARSHEET_MSEXCEL", "#DEFINE-MCLE M_RANGESETVALUECELLEXCEL RANGESETVALUECELL_MSEXCEL", "#DEFINE-MCLE M_CELLVALUE CELLVALUE", "#DEFINE-MCLE M_SHEET SHEET", "#DEFINE-MCLE M_SAVEASSHEETEXCEL SAVEASSHEET_MSEXCEL", "#DEFINE-MCLE M_SAVESHEETEXCEL SAVESHEET_MSEXCEL", "#DEFINE-MCLE M_QUITEXCEL QUIT_MSEXCEL", // *********************************", // MS WORD ", // *********************************", "#DEFINE-MCLE M_CONNECTWORD CONNECT_MSWORD", "#DEFINE-MCLE M_NEWDOCWORD NEWDOC_MSWORD", "#DEFINE-MCLE M_PRINTDOCWORD PRINTDOC_MSWORD", "#DEFINE-MCLE M_ADDTEXTDOCWORD ADDTEXTDOC_MSWORD", "#DEFINE-MCLE M_SAVEDOCWORD SAVEDOC_MSWORD", "#DEFINE-MCLE M_SAVEASDOCWORD SAVEASDOC_MSWORD", "#DEFINE-MCLE M_QUITWORD QUIT_MSWORD", "#DEFINE-MCLE M_PRINTPREVIEWDOCWORD PRINTPREVIEWDOC_MSWORD", // INSTRUCTIONS", "#DEFINE-INST I_CASE CASE_OF ", "#DEFINE-INST I_OLD OLD", "#DEFINE-INST I_ENDCASE END_CASE", "#DEFINE-INST I_OTHERWISE OTHERWISE ", "#DEFINE-INST I_WHEN WHEN ", "#DEFINE-INST I_END_WHEN END_WHEN ", "#DEFINE-INST I_BREAK BREAK ", "#DEFINE-INST I_CONTINUE CONTINUE ", "#DEFINE-INST I_LEAVE LEAVE ", "#DEFINE-INST I_MULT *", "#DEFINE-INST I_SOUST -", "#DEFINE-INST I_ADD +", "#DEFINE-INST I_DIV /", "* IF", "#DEFINE-INST I_IF IF ", "#DEFINE-INST I_THEN THEN ", "#DEFINE-INST I_ELSE ELSE ", "#DEFINE-INST I_ENDIF END_IF ", // instruction while", "#DEFINE-INST I_WHILE WHILE ", "#DEFINE-INST I_BEGINWHILE BEGIN_WHILE ", "#DEFINE-INST I_ENDWHILE END_WHILE ", // instructions FOR ", "#DEFINE-INST I_INCR_ADD ++", "#DEFINE-INST I_INCR_SOUST -- ", "#DEFINE-INST I_FOR FOR ", "#DEFINE-INST I_BEGINFOR BEGIN_FOR ", "#DEFINE-INST I_ENDFOR END_FOR ", // instruction do", "#DEFINE-INST I_DO DO ", "#DEFINE-INST I_BEGINDO BEGIN_DO ", "#DEFINE-INST I_ENDDO END_DO ", "#DEFINE-INST I_ET AND ", "#DEFINE-INST I_OU OR ", "#DEFINE-INST I_SUP > ", "#DEFINE-INST I_INF < ", "#DEFINE-INST I_ESUP => ", "#DEFINE-INST I_EINF <= ", "#DEFINE-INST I_EGAL = ", "#DEFINE-INST I_NEGAL != ", // instruction do while", "#DEFINE-INST I_DOWHILE DOWHILE", "#DEFINE-INST I_BEGINDOWHILE BEGIN_DOWHILE", "#DEFINE-INST I_ENDDOWHILE END_DOWHILE ", "#DEFINE-CHAR-SEPARATE * ++ + -- - / [ ] . ( ) { } & | ; , \" => <= != := : > < = ", // --------------------->indice<--.....", "#DEFINE-FORMAT-TABLE [ ] .", // --------------------->.....", "#DEFINE-FORMAT-RECORD .", // -----------------------><--start--->---<--end----->", "#DEFINE-BLOC-PROGRAM BEGIN_MAIN END_MAIN", "#DEFINE-DECLARE-PROC PROC END_PROCEDURE ", "#DEFINE-DECLARE-FUNCTION FUNC END_FUNCTION ", "#DEFINE-RELATION-BLOC IF END_IF ", "#DEFINE-RELATION-BLOC WHILE END_WHILE ", "#DEFINE-RELATION-BLOC FILESCAN END_SCAN ", "#DEFINE-RELATION-BLOC DO END_DO", "#DEFINE-RELATION-BLOC WHEN END_WHEN", "#DEFINE-RELATION-BLOC BEGIN_DOWHILE DOWHILE ", "#DEFINE-RELATION-BLOC BEGIN_REPORT END_REPORT ", "#DEFINE-RELATION-BLOC BEGIN_DIALOG END_DIALOG", "#DEFINE-RELATION-BLOC BEGIN_SPLASH END_SPLASH ", "#DEFINE-RELATION-BLOC BEGIN_INITIALIZE END_INITIALIZE ", "#DEFINE-RELATION-BLOC BEGIN_TRANSACTION END_TRANSACTION ", "#DEFINE-RELATION-BLOC BEGIN_MESSAGE_DIALOG END_MESSAGE_DIALOG", "#DEFINE-RELATION-BLOC FOREACHROWFIND END_FOREACHROW ", "#DEFINE-RELATION-BLOC FOREACHFILEFIND END_FOREACHFILE ", "#DEFINE-RELATION-BLOC HEADER_REPORT END_HEADER_REPORT ", "#DEFINE-RELATION-BLOC HEADER_LEVEL END_HEADER_LEVEL ", "#DEFINE-RELATION-BLOC BREAK_END_LEVEL END_BREAK_END_LEVEL ", "#DEFINE-RELATION-BLOC DETAIL END_DETAIL ", "#DEFINE-RELATION-BLOC HEADER_END END_HEADER_END ", // ---------------------><--return action>-<--after Return-->", "#DEFINE-RELATION-RETURN RETURN RETURNING ", "#DEFINE-BLOC-IF-ELSE ELSE", //"#DEFINE-RELATION-BLOCTOBLOC WHEN WHEN", //"#DEFINE-RELATION-BLOCTOBLOC WHEN OTHERWISE", "#DEFINE-RELATION-BLOCTOBLOC OTHERWISE END_CASE", "#DEFINE-RELATION-FOR FOR BEGIN_FOR END_FOR", } ; extern char *ligneRegle[] = { // * DEBUT DES REGLES : MAIN : est obligatoire", // Conventions informelles Les T_ : TOKENS", // Les M_ : LES MOTS CLES", // Les I_ : LES INSTRUCTIONS", // Les L_ : les variables (entiers,strings etc qui seront", // empilées", // | exprime le OU", // | ; exprime le RIEN , c'est-à-dire aucune obligation de trouver", // un mot cles, une instructions, une variable", // | xxxxxx ; exprime une obligation de trouver et une fin de régle pos", // sible", // Les Tokens sont toujours suivi de : et exprime la ou les régles à suivre.", // et leur terminaison est le ;", //, // EndUser4gl : Bergougnoux Consulting Copyright 2002", // ***********************************************************************************", //, " MAIN : T_DIVISIONS ; ", "T_DIVISIONS : T_DECLARE T_INSTRUCTIONS ", " | M_GLOBAL { CodeExeGlobalContexte } " , " { CodeExeGlobalContexteI } " , " T_DECLARE M_ENDGLOBAL ", " M_BEGIN_MAIN T_INSTRUCTIONS M_END_MAIN T_DIVISIONS2 ; ", " T_DIVISIONS2 : T_DECLARE_PROCEDURE T_DIVISIONS2 ", " | ; ", // // ***************************************************************************************", // *************** LES DECLARATIONS VARIABLES GLOBALES OR LOCALES********************", // ***************************************************************************************", "T_DECLARE : M_INTEGER M_2PP T_INTEGER M_PV T_DECLARE", " | M_LONG M_2PP T_LONG M_PV T_DECLARE", " | M_FLOAT M_2PP T_FLOAT M_PV T_DECLARE ", " | M_DEFINE L_LONG L_LONG { CodeCreateConstanteLong } T_DECLARE ", " | M_CONSTANT_NUM M_2PP T_CONSTANT_NUM M_PV T_DECLARE ", " | M_CONSTANT_STRING M_2PP T_CONSTANT_STRING M_PV T_DECLARE ", " | M_RATE M_2PP T_FLOAT M_PV T_DECLARE ", " | M_DOUBLE M_2PP T_DOUBLE M_PV T_DECLARE ", " | M_AMOUNT M_2PP T_DOUBLE M_PV T_DECLARE ", " | M_ALNUM M_2PP T_CHAR M_PV T_DECLARE ", " | T_DECLARE_TABLE", " M_AO T_DECLARE_OTHER M_AF { CodeRazTableVar } ", " T_DECLARE ", " | M_STRUCT M_2PP L_STRUCT { CodeInitStructVar } ", " { CodeInitStructMaster }", " M_AO T_DECLARE_OTHER_STRUCT M_AF { CodeRazStructVar } ", " T_DECLARE ", " | L_STRUCT L_ALNUM M_PV { CodeCreateStructn } ", " { CodeInitStructn } ", " T_DECLARE ", " | T_DECLARE_TABLEBTREE T_DECLARE ", " | T_DECLARE_INIT T_DECLARE ", " | ;", //****************************constant numeric (long)", " T_CONSTANT_NUM : L_LONG L_LONG { CodeCreateConstanteLong } T_CONSTANT_NUM", " | M_V T_CONSTANT_NUM ", " | ; ", //****************************constant string", " T_CONSTANT_STRING : L_ALNUM L_STRING { CodeCreateConstanteString } T_CONSTANT_STRING ", " | M_V T_CONSTANT_STRING ", " | ; ", " T_INTEGER : T_DECLARE_TABLE { CodeCreateVarInteger }", " { CodeRazTableVar } T_PONCTUATION_INT ", " | L_INTEGER { CodeCreateVarInteger }", " T_AFFECT_GLOBAL_NUM T_PONCTUATION_INT ; ", " T_PONCTUATION_INT : M_V T_INTEGER ", " | ; ", //****************************long ", " T_LONG : T_DECLARE_TABLE { CodeCreateVarLong }", " { CodeRazTableVar } T_PONCTUATION_LONG", " | L_LONG { CodeCreateVarLong } ", " T_AFFECT_GLOBAL_NUM T_PONCTUATION_LONG ;", " T_PONCTUATION_LONG : M_V T_LONG ", " | ; ", //****************************double ", " T_DOUBLE : T_DECLARE_TABLE_DEC { CodeCreateVarDouble }", " { CodeRazTableVar } T_PONCTUATION_DOUBLE", " | L_DOUBLE M_DEC M_PO L_INTEGER M_PF { CodeCreateVarDouble } T_AFFECT_GLOBAL_NUM T_PONCTUATION_DOUBLE ; ", " T_PONCTUATION_DOUBLE : M_V T_DOUBLE ", " | ;", //****************************float ", " T_FLOAT : T_DECLARE_TABLE_DEC { CodeCreateVarFloat }", " { CodeRazTableVar } T_PONCTUATION_FLOAT", " | L_FLOAT M_DEC M_PO L_INTEGER M_PF { CodeCreateVarFloat } T_AFFECT_GLOBAL_NUM T_PONCTUATION_FLOAT ; ", " T_PONCTUATION_FLOAT : M_V T_FLOAT ", " | ;", // **************************char", " T_CHAR : M_TABLE M_2PP L_ALNUM M_2PP L_INTEGER", " M_OCCURS L_INTEGER { CodeInitTableVar }", " { CodeCreateVarChar }", " { CodeRazTableVar } T_PONCTUATION_CHAR", " | L_ALNUM { CodexeSaveNameZone } M_2PP L_INTEGER { CodeCreateVarChar } ", " T_AFFECT_GLOBAL_CHAR T_PONCTUATION_CHAR ; ", " T_PONCTUATION_CHAR : M_V T_CHAR ", " | ;", " T_AFFECT_GLOBAL_CHAR : T_AFFECT_ALPHA_GLOBAL ", " | ; ", " T_AFFECT_GLOBAL_NUM : T_AFFECT_NUM_GLOBAL { CodeExeTabSymUpdate } ", " | ;", " T_DECLARE_OTHER : M_INTEGER T_INTEGER M_PV T_DECLARE_OTHER ", " | M_LONG T_LONG M_PV T_DECLARE_OTHER ", " | M_DOUBLE T_DOUBLE M_PV T_DECLARE_OTHER ", " | M_RATE T_FLOAT M_PV T_DECLARE_OTHER ", " | M_AMOUNT T_DOUBLE M_PV T_DECLARE_OTHER ", " | M_FLOAT T_FLOAT M_PV T_DECLARE_OTHER ", " | M_ALNUM T_CHAR M_PV T_DECLARE_OTHER ", " | ;", " T_DECLARE_OTHER_STRUCT : M_INTEGER T_INTEGER M_PV T_DECLARE_OTHER_STRUCT ", " | M_LONG T_LONG M_PV T_DECLARE_OTHER_STRUCT ", " | M_DOUBLE T_DOUBLE M_PV T_DECLARE_OTHER_STRUCT ", " | M_FLOAT T_FLOAT M_PV T_DECLARE_OTHER_STRUCT ", " | M_RATE T_FLOAT M_PV T_DECLARE_OTHER ", " | M_AMOUNT T_DOUBLE M_PV T_DECLARE_OTHER ", " | M_ALNUM T_CHAR M_PV T_DECLARE_OTHER_STRUCT ", " | M_STRUCT M_2PP ", " L_STRUCT M_PV { CodeCreateStructnStruct }", " T_DECLARE_OTHER_STRUCT ", " | ;", " T_DECLARE_TABLE : M_TABLE M_2PP L_ALNUM ", " M_OCCURS L_INTEGER { CodeInitTableVar } ;", " T_DECLARE_TABLE_DEC : M_TABLE M_2PP L_ALNUM M_DEC M_PO L_INTEGER M_PF ", " M_OCCURS L_INTEGER { CodeInitTableVar } ;", " T_DECLARE_TABLEBTREE : M_TABLEBTREE M_2PP L_ALNUM { CodeExeInitBtree } ", " M_AO T_DECLARE_TABLEBTREE_STRING M_AF ;", " T_DECLARE_TABLEBTREE_STRING : ", " | L_STRING { CodeExeInsertBtree } T_DECLARE_TABLEBTREE_STRING ", " | M_V T_DECLARE_TABLEBTREE_STRING", " | ; ", " T_DECLARE_INIT : M_INIT M_2PP T_INST_LIST ;", // ***************************************************************************************", // ************************* DECLARE LES PROCEDURE ET OU LES FONCTIONS **************", // ***************************************************************************************", " T_DECLARE_PROCFUNC : F_PROCEDURE M_PO T_DECLARE_VAR_PROC M_PF { CodeExeProcFunc }", " | ;", " T_DECLARE_VAR_PROC : ", " L_INTEGER { sysproc1Integer } T_DECLARE_VAR_PROC_SUITE ", " | L_DOUBLE { sysproc1Double } T_DECLARE_VAR_PROC_SUITE ", " | L_FLOAT { sysproc1Float } T_DECLARE_VAR_PROC_SUITE ", " | L_LONG { sysproc1Long } T_DECLARE_VAR_PROC_SUITE ", " | L_ALNUM { sysproc1Char } T_DECLARE_VAR_PROC_SUITE ", " | L_STRING { sysproc1String } T_DECLARE_VAR_PROC_SUITE ", " | M_VOID ;", " T_DECLARE_VAR_PROC_SUITE : M_V T_DECLARE_VAR_PROC ", " | ;", // *************************************************************************", // exemple de declaration de bloc d'instruction dans BEGIN ........END_BEGIN", // *************************************************************************", // ***************************************************************************************", // ************************* LES INSTRUCTIONS ******************************************", // ***************************************************************************************", " T_INSTRUCTIONS : T_INST_LIST ; ", " T_INST_LIST : ", " T_INSTRUCTION T_RETURNING_PROCFUNC M_PV { sysCodeReturning } T_INST_LIST ", " | ;", " T_INSTRUCTION : ", " T_DECLARE_PROCFUNC ", " | M_BEGIN T_INST_LIST M_ENDBEGIN ", " | M_RETURN T_INSTRUCTRETURN { CodeExeReturn }", " | T_AFFECT_ALPHA ", " | T_AFFECT_NUM { CodeExeTabSymUpdate }", " | M_DISPLAY ", " T_DISPLAY ", " | M_PRINT ", " T_PRINT " , " | M_DPRINT ", " T_DPRINT " , " | M_DISPLAYSYMBG M_PO M_PF { DisplayTablesSymbIntrepGlobal } ", " | M_DISPLAYSYMBL M_PO M_PF { DisplayTablesSymbIntrepLocal } ", " | M_CHARTOUPPER M_PO T_STRING M_PF ", " | M_CHARUPPER M_PO T_STRING M_PF ", " | M_LOADWINHELP M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeWinhelp } ", " | M_DIREXIST M_PO T_ALNUMORSTRING M_PF { CodeExeDirExist } T_RETURNING ", " | M_GETWINDIR M_PO L_ALNUM M_PF { CodeExeWindowsDir } ", " | M_WAIT M_PO L_LONG M_PF { CodeExeWait } ", " | M_GETSYSWINDIR M_PO L_ALNUM M_PF { CodeExeSysWindowsDir } ", " | M_SETCURRENTDIR M_PO T_ALNUMORSTRING M_PF { CodeExeSetCurrentDir } T_RETURNING ", " | M_GETCURRENTDIR M_PO L_ALNUM M_PF { CodeExeGetCurrentDir } ", " | M_GETLASTERROR M_PO M_PF T_RETURNING { CodeExeGetLastError } ", " | M_SYSCOMMANDWINDOWS M_PO T_ALNUMORSTRING M_PF { CodeExeCommandWindows } ", " T_RETURNING ", " | M_PROCESSWINDOWS M_PO T_ALNUMORSTRING M_V T_ALNUMORSTRING M_PF { CodeExeProcessWindows } ", " T_RETURNING ", " | M_EXITPGM M_PO M_PF { CodeExeExitPgm } ", " | M_EU_LOGO M_PO M_PF { CodeExeBbsLogo } ", " | M_EU_ORDER M_PO M_PF { CodeExeBbsOrder } ", " | M_CLEAR T_CLEAR ", " | M_FREEMEMORYSTRING M_PO T_FREEMEMORY M_PF ", " | M_SEARCHSTRING T_ALNUMORSTRING M_INTO L_ALNUM M_RETURNING M_PO L_INTEGER M_V L_ALNUM ", " M_PF { CESearchingString } ", " | T_CALL_EXTERN ", " | T_STRING ", " | T_STRINGCONCAT ", " | T_STRINGTOUPPER ", " | T_STRINGUPPER ", " | T_STRINGNUMERIC ", " | T_STRINGLENGTH ", " | T_STRINGSORT ", " | T_STRINGREVERSE ", " | T_STRINGREPEAT ", " | T_CONVERNUM ", " | T_CONVERSTRING ", " | T_BTREESTRING ", " | M_ENTER { CodeExeEnter } ", " | M_SKIPLINE L_INTEGER { CodeExeSkipLine } " , " | M_CALENDAR M_PO M_PF { CodeExeCalendar } ", " | M_MINICALENDAR M_PO M_PF { CodeExeMiniCalendar } ", " | I_LEAVE { CodeTrueLeave } ", " | I_BREAK { CodeExeBreak } ", " | I_CONTINUE { CodeTrueContinue } ", " | T_CASE_OF", " | T_FILE ", " | T_DO ", " | T_DOWHILE ", " | T_IF ", " | T_WHILE ", " | T_FOR ", " | T_SORT ", " | T_EXCEL ", " | T_WORD ", " | T_SQL ", " | T_QUERY ", " | T_INTERNET ", " | T_MAPI ", " | T_INSTRUCTION_DEMO_WINDOWS " , " | T_INSTRUCTION_WINDOWS " , " | T_REPORT ", " | T_INSTRUCTION_PRINT ", " | T_4GL ;", // ***************************************************** // PARTICIPATION 4GL : specialist // **************************************************** " T_4GL : M_CYCLECOMPILERENDUSER4GL M_2PP L_STRING ", " { CodexDemoCycle1 } ", " { CodexDemoCycle2 } ; ", " T_BTREESTRING : ", " M_LOOKUPTABLEBTREE M_PO L_ALNUM M_V T_ALNUMORSTRING M_PF ", " M_RETURNING M_PO L_INTEGER M_PF { CodeExeLookupBtree } ", " | M_DELETETABLEBTREE M_PO L_ALNUM M_V T_ALNUMORSTRING M_PF { CodeExeDeleteBtreeIntrep }" , " T_RETURNING ", " | M_UPDATETABLEBTREE M_PO L_ALNUM M_V T_ALNUMORSTRING M_V " , " T_ALNUMORSTRING M_PF { CodeExeUpdateBtreeIntrep }" , " T_RETURNING ", " | M_INSERTTABLEBTREE M_PO L_ALNUM M_V T_ALNUMORSTRING M_PF { CodeExeInsertBtreeIntrep }" , " T_RETURNING ;", " T_INSTRUCTION_PRINT : ", " M_DATE { CodeExeDatePrint }" , " | M_SIZESTRUCT M_PO L_ALNUM M_PF { CodexeSaveValResult } ", " { CodeExeSizeofStruct } ", " | M_TIME { CodeExeTimePrint }" , " | M_VOID " , " | M_ALLDATA { CodeExeAllData }" , " | M_LEVEL { CodeExeLevel }" , " | M_LEVELKEY { CodeExeLevelKey }" , " | M_TOTALLEVEL { CodeExeLevelTotal }" , " | M_PAGE { CodeExePage } ;" , " T_CALL_EXTERN : M_CALL M_EXTERN M_C M_2PP L_EXTERN_C { CodeExeExternC } ", " M_PO T_SUITE_CALL_EXTERN { CodeExeExternCsuite } ; " , " T_SUITE_CALL_EXTERN : ", " L_DOUBLE T_SUITE_CALL_EXTERN ", " | L_FLOAT T_SUITE_CALL_EXTERN ", " | L_LONG T_SUITE_CALL_EXTERN ", " | L_INTEGER T_SUITE_CALL_EXTERN ", " | L_ALNUM T_SUITE_CALL_EXTERN ", " | L_STRING T_SUITE_CALL_EXTERN ", " | M_V T_SUITE_CALL_EXTERN ", " | M_PF ; ", // Instruction :IF ", " T_IF : I_IF M_PO { CodeTrueIf } T_EXPRESSION_IF ", " T_LISTE_IF I_ENDIF { CodeTrueIfEnd } ; ", // Instruction :FOR ", " T_FOR : I_FOR { CodeTrueFor } M_PO T_INSTRUCTRETURN M_PV { CodeCaptureOffsetRecur } ", " T_EXPRESSION_IF ", " T_SUITE_WHILE M_PV { CodeExeAfterEndFor } ", " T_INSTRUCTRETURN M_PF { CodeExeExpressionFor } ", " I_BEGINFOR { CodeTrueForEnd } T_INSTRUCTIONS ", " I_ENDFOR { CodeTrueForBegin } ; ", " T_DO : I_DO { CodeTrueDo }", " M_PO L_INTEGER { CodeTrueExpressionDo } M_PF ", " { CodeTrueDoBegin } ", " T_BEGIN_DO T_INST_LIST ", " I_ENDDO { CodeTrueDoEnd } ; ", " T_BEGIN_DO : I_BEGINDO ", " | ; " , //* Instruction : WHILE ", " T_WHILE : I_WHILE { CodeTrueWhile } " , " M_PO T_EXPRESSION_IF ", " T_SUITE_WHILE ", " I_BEGINWHILE { CodeTrueWhileBegin } ", " T_INST_LIST ", " I_ENDWHILE { CodeTrueEndWhile } ; ", " T_DOWHILE : I_BEGINDOWHILE { CodeTrueWhile } ", " T_INST_LIST ", " T_END_DOWHILE ", " I_DOWHILE M_PO T_EXPRESSION_IF", " T_SUITE_WHILE { CodeTrueEndDoWhile } ;", " T_END_DOWHILE : I_ENDDOWHILE ", " | ; " , //, // T_FILE *********************************************************************", //", " T_FILE : M_FILERENAME M_PO T_FILE_STRUCT ", " M_PF M_BY M_PO T_FILE_STRUCT M_PF { CodeExeFileRename } T_RETURNING ", " | M_FILEEXIST M_PO T_FILE_STRUCT M_PF { CodeExeFileOpenExist } T_RETURNING " , " | M_TABLEEXIST M_PO T_FILE_STRUCT M_PF { CodeExeFileOpenExist } T_RETURNING " , " | M_FILEOPEN M_PO L_INTEGER M_V T_FILE_STRUCT M_V ", " T_FILE_ACCES M_PF T_RETURNING " , " | M_FILECLOSE M_PO L_INTEGER M_PF { CodeExeFileClose } T_RETURNING " , " | M_FILECLOSEALL M_PO M_PF { CodeExeFileCloseAll } T_RETURNING " , " | M_FILEREAD M_PO L_INTEGER M_V L_ALNUM ", " M_PF { CodeExeFileRead } T_RETURNING " , " | M_FILEUPDATE M_PO L_INTEGER M_V L_ALNUM ", " M_PF { CodeExeFileUpdate } T_RETURNING " , " | M_FILEADD M_PO L_INTEGER M_V L_ALNUM ", " M_PF { CodeExeFileAdd } T_RETURNING " , " | M_RESTORCURRENTDATA M_PO M_PF { CodeExeFileRestore } T_RETURNING " , " | M_FILECOPY M_PO T_FILE_STRUCT M_PF", " M_TO M_PO T_FILE_STRUCT M_PF { CodeExeFileCopy } T_RETURNING " , " | M_TABLECOPY M_PO T_FILE_STRUCT M_PF", " M_TO M_PO T_FILE_STRUCT M_PF { CodeExeFileCopy } T_RETURNING " , " | M_FILEMERGE T_FILE_STRUCT ", " M_TO T_FILE_STRUCT { CodeExeFileMerge } T_RETURNING " , " | M_FILEDELETE M_PO T_FILE_STRUCT M_PF { CodeExeFileDelete } T_RETURNING " , " | M_TABLEDELETE M_PO T_FILE_STRUCT M_PF { CodeExeFileDelete } T_RETURNING " , " | M_EOF M_PO L_INTEGER M_PF { CodeExeFileEof } T_RETURNING ", " | M_FPOSITTOP M_PO L_INTEGER M_PF { CodeExeFileTop } T_RETURNING", " | M_FPOSITBOT M_PO L_INTEGER M_PF { CodeExeFileBot } T_RETURNING", " | M_FPOSITCUR M_PO L_INTEGER M_PF { CodeExeFileCur } T_RETURNING", " | M_FILESCAN { CodeTrueWhile } M_PO L_INTEGER M_V L_ALNUM M_PF", " { CodeExeFileScan } ", " { CodeTrueWhileBegin } " , " T_BEGIN_SCAN T_INST_LIST ", " M_END_SCAN { CodeTrueEndWhile }", " | M_FILEINQUIRE M_PO L_INTEGER M_V L_ALNUM M_PF", " M_RECORD L_LONG " , " { CodeExeFileInquire } T_RETURNING", " | M_EXECUTEDIRECTORYFETCH M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteFileFindFirst } T_FOREACHFILE ", " | M_GETINFOFILENAME M_PO L_ALNUM M_PF { CodeExeGetInfoFileName } ", " | ; " , " T_BEGIN_SCAN : M_BEGIN_SCAN ", " | ; " , " T_FILE_STRUCT : L_STRING ", " | L_ALNUM ;", " T_FILE_ACCES : M_READ { CodeExeFileOpenRead }" , " | M_WRITE { CodeExeFileOpenWrite }" , " | M_READWRITE { CodeExeFileOpenReadWrite }; " , " T_FILE_STRUCT_READ : L_STRUCT ;", "** REVOIR T_FPOSITCUR : préciser la structure de données ", " T_FPOSITCUR : M_RECORD L_LONG " , " T_RETURNING", " | ; ", "T_FOREACHFILE : M_FOREACHFILEFIND { CodeExeExecuteFileFetch500 } M_2PP { CodeExeExecuteForEachFile }", " T_INSTRUCTIONS ", " M_ENDFOREACHFILE { CodeExeExecuteForEachFileEnd } ;", " T_RETURNING : M_RETURNING M_PO L_INTEGER M_PF { CodeExeIntegerReturnStatus } ", " { CodeExeTabSymUpdate } ", " | M_RETURNING M_PO L_LONG M_PF { CodeExeLongReturnStatus } ", " { CodeExeTabSymUpdate } ", " | M_RETURNING M_PO L_FLOAT M_PF { CodeExeFloatReturnStatus } ", " { CodeExeTabSymUpdate } ", " | M_RETURNING M_PO L_DOUBLE M_PF { CodeExeDoubleReturnStatus } ", " { CodeExeTabSymUpdate } ", " | M_RETURNING M_PO L_ALNUM M_PF { CodeExeCharReturnStatus } ", " | { CodexeSaveValResult } ; ", // ***************************************************************************************", // ************************* LES INSTRUCTIONS RETURNING DES FONCTIONS **********", // variables APRES APPEL de la fonction ", // ***************************************************************************************", " T_RETURNING_PROCFUNC : M_RETURNING M_PO T_DECLARE_RETURNING_VARIABLE M_PF ", " | ; ", " T_DECLARE_RETURNING_VARIABLE : ", " L_DOUBLE { sysproc2Double } T_SUITE_DECLARE_RETURNING_VAR ", " | L_FLOAT { sysproc2Float } T_SUITE_DECLARE_RETURNING_VAR ", " | L_LONG { sysproc2Long } T_SUITE_DECLARE_RETURNING_VAR ", " | L_INTEGER { sysproc2Integer } T_SUITE_DECLARE_RETURNING_VAR ", " | L_ALNUM { sysproc2Char } T_SUITE_DECLARE_RETURNING_VAR ", " | L_STRING { sysproc2String } T_SUITE_DECLARE_RETURNING_VAR ;", " T_SUITE_DECLARE_RETURNING_VAR : M_V T_DECLARE_RETURNING_VARIABLE", " | ; ", // ***************************************************************************************", // ************************* LES INSTRUCTIONS RETURN DES FONCTIONS **********", // ***************************************************************************************", " T_INSTRUCTRETURN : T_AFFECT_NUM { CodeExeTabSymUpdate } T_SUITE_RETURN ", " | T_AFFECT_ALPHA T_SUITE_RETURN ", " | T_DECLARE_VAR_PROC T_SUITE_RETURN ", " | ;", "* attention le Return oblige une priorité sur les instructions complexes", "* Ex : I++, opération arithmètiques , les affectations... ", "* et ensuite les transferts variables simples ( voir T_DECLARE_VAR_PROC ) ", " T_SUITE_RETURN : M_V T_INSTRUCTRETURN ", " | ;", // ***************************************************************************************", // ************************* LES INSTRUCTIONS AFFECTATION NUMERIQUES **********", // ***************************************************************************************", " T_AFFECT_NUM_GLOBAL : M_AFFECT ", " { CodeTableSym } T_EXPRESSION_NUM ;", " ", " T_AFFECT_NUM : T_NUMERIC T_AFFECT ; ", " T_NUMERIC : L_DOUBLE { CodeExeOpeDouble } ", " | L_FLOAT { CodeExeOpeFloat } ", " | L_LONG { CodexeControlConstanteLong } ", " { CodeExeOpeLong } ", " | L_INTEGER { CodexeControlConstanteInteger }", " { CodeExeOpeInt } ; ", " T_AFFECT : T_OPBIN_INCREMENT ", " | M_AFFECT { CodeTableSym } T_EXPRESSION_NUM ; ", " T_EXPRESSION_NUM : T_NUMERIC { CodeExeOpe } T_SUITE_EXPRES ", " | T_INSTRUCTION_PRINT ", " | T_SQL ; ", "*", " T_SUITE_EXPRES : T_OPBIN T_EXPRESSION_NUM ", " | { CodeExeAffect } ; ", "*", " T_OPBIN : I_MULT { CodeExeMult } ", " | I_ADD { CodeExeAdd }", " | I_DIV { CodeExeDiv } ", " | I_SOUST { CodeExeSoust } ;", " T_OPBIN_INCREMENT : ", " I_INCR_ADD { CodeExeIncrAdd }", " | I_INCR_SOUST { CodeExeIncrSoust } ; ", // ***************************************************************************************", // ************************* LES INSTRUCTIONS AFFECTATION ALPHANUMERIQUES **********", // ***************************************************************************************", " T_AFFECT_ALPHA_GLOBAL : M_AFFECT T_EXPRESSION2 ; ", " T_AFFECT_ALPHA : L_ALNUM { CodexeControlConstanteString } ", " { CodexeSaveNameZone } M_AFFECT T_EXPRESSION2 ", " | ;", " T_EXPRESSION2 : ", " L_STRING { CodeExeMoveString } T_ADDSTRING ", " | L_ALNUM T_SUITE_EXPRESSION2 ", " | M_GETDATACOLUMN M_2PP T_GETDATACOLUMN_SUITE ", " { CodeExeMoveStringInstructionSql } ", " | M_EXTRACTSTRING M_PO L_ALNUM T_SUITE_EXPRESSION2 M_PF ", " | M_LOADFILETXT M_PO T_ALNUMORSTRING M_PF ; ", " T_ADDSTRING : ", " I_ADD L_STRING { CodeExeAddString } T_ADDSTRING ", " | ; ", " T_SUITE_EXPRESSION2 : M_2PP L_INTEGER T_SUITE2_EXPRESSION2 ", " | { CodeExeMoveAlphNum } ; ", " T_SUITE2_EXPRESSION2 : M_V L_INTEGER { CodeExeMoveAlphNumPositM_V } ", " | { CodeExeMoveAlphNumPosit }; ", // *****************************************************************************************", // ********************** instruction CASE *************************************************", // *****************************************************************************************", "T_CASE_OF : I_CASE T_VAR_CASE T_WHEN I_ENDCASE ; ", "T_WHEN : I_WHEN { CodeTrueWhen } T_LISTE_CONSTANT T_INST_LIST I_END_WHEN M_PV T_WHEN ", " | I_OTHERWISE M_2PP { CodeTrueOtherWise }", " { CodeCaseOther } T_INST_LIST ", " | ;", "*", " T_VAR_CASE : ", " L_INTEGER { CodexCaseDepileInt } ", " | L_STRING { CodexCaseDepileString } ", " | L_ALNUM { CodexCaseDepileChar } ", " | L_LONG { CodexCaseDepileLong } ;", "*", "T_LISTE_CONSTANT : ", " L_INTEGER M_2PP { CodexCaseInt } ", " | L_STRING M_2PP { CodexCaseString } ", " | L_ALNUM M_2PP { CodexCaseChar } ", " | L_LONG M_2PP { CodexCaseLong } ;", // *****************************************************************************************", // ********************** instruction WHILE et IF *************************************************", // *****************************************************************************************", " T_EXPRESSION_IF : ", " M_PO T_EXPRESSION_IF_NUM M_PF", " | M_PO T_EXPRESSION_IF_CHAR M_PF", " | M_PO T_INSTRUCTION M_PF T_SUITE_EXPRES_IF_NUM ", " | T_EXPRESSION_IF_NUM ", " | T_EXPRESSION_IF_CHAR ; ", " T_EXPRESSION_IF_NUM : ", " L_DOUBLE { CodeExeOpeDouble }", " { CodeExeIfOpeNum } T_SUITE_EXPRES_IF_NUM ", " | L_FLOAT { CodeExeOpeFloat }", " { CodeExeIfOpeNum } T_SUITE_EXPRES_IF_NUM ", " | L_LONG { CodeExeOpeLong }", " { CodeExeIfOpeNum } T_SUITE_EXPRES_IF_NUM ", " | L_INTEGER { CodeExeOpeInt }", " { CodeExeIfOpeNum } T_SUITE_EXPRES_IF_NUM ; ", " T_EXPRESSION_IF_CHAR : ", " L_ALNUM { CodeExeIfOpeChar } T_SUITE_EXPRES_IF_CHAR ", " | L_STRING { CodeExeIfOpeChar } T_SUITE_EXPRES_IF_CHAR ", " | T_STRING { CodeExeIfOpeChar } T_SUITE_EXPRES_IF_CHAR ; ", " T_EXPRESSION_IF_XOR : ", " I_OU { CodexIfOU } T_EXPRESSION_IF", " | I_ET { CodexIfET } T_EXPRESSION_IF", " | M_PF { CodeTrueIfThen } ;", " T_LISTE_IF : I_THEN T_INST_LIST T_SUITE_IF ", " | I_ELSE { CodeTrueElse } T_INST_LIST ", " | T_EXPRESSION_IF_XOR T_INST_LIST T_LISTE_IF ", " | ;", " T_SUITE_IF : I_ELSE { CodeTrueElse } T_INST_LIST", " | ;", " T_SUITE_WHILE : T_EXPRESSION_IF_XOR_WHILE T_SUITE_WHILE",// T_INST_LIST T_SUITE_WHILE ", " | ;", " T_EXPRESSION_IF_XOR_WHILE : I_OU { CodexIfOU } T_EXPRESSION_IF", " | I_ET { CodexIfET } T_EXPRESSION_IF ", " | M_PF ;", " T_SUITE_EXPRES_IF_NUM : T_OPBIN_IF_NUM T_EXPRESSION_IF_NUM ", " | M_VOID { CodexIfNumNVOID } ", " { CodeExeIfOpeNum } " , " | M_NOTVOID { CodexIfNumVOID } ", " { CodeExeIfOpeNum } " , " | ;", " T_OPBIN_IF_NUM : I_SUP { CodexIfNumSUP } ", " | I_INF { CodexIfNumINF } ", " | I_ESUP { CodexIfNumESUP } ", " | I_EINF { CodexIfNumEINF } ", " | I_EGAL { CodexIfNumEGAL } ", " | I_NEGAL { CodexIfNumNEGAL } ;", " T_SUITE_EXPRES_IF_CHAR : T_OPBIN_IF_CHAR T_EXPRESSION_IF_CHAR", " | M_VOID { CodexIfCharNVOID } ", " | M_NOTVOID { CodexIfCharVOID } ", " | ;", "*", " T_OPBIN_IF_CHAR : I_SUP { CodexIfCharSUP } ", " | I_INF { CodexIfCharINF } ", " | I_ESUP { CodexIfCharESUP } ", " | I_EINF { CodexIfCharEINF } ", " | I_EGAL { CodexIfCharEGAL } ", " | I_NEGAL { CodexIfCharNEGAL } ; ", // *****************************************************************************************", // ********************** instruction DISPLAY *************************************************", // *****************************************************************************************", " T_DISPLAY : T_ALNUMORSTRING { CodexPrintStringLiteral } T_PRINT_VAR T_PRINT_VAR_SUITE { CodeExeEndColumnDisplay } " , " | T_PRINT_VAR_AFFICH T_PRINT_VAR_SUITE { CodeExeEndColumnDisplay } ; " , " T_PRINT : T_ALNUMORSTRING { CodexPrintStringLiteral } T_PRINT_VAR T_PRINT_VAR_SUITE { CodeExeEndColumnPrint } " , " | T_PRINT_VAR_AFFICH T_PRINT_VAR_SUITE { CodeExeEndColumnPrint } ; " , " T_DPRINT : T_ALNUMORSTRING { CodexPrintStringLiteral } T_PRINT_VAR T_PRINT_VAR_SUITE { CodeExeEndColumnDisplayPrint } " , " | T_PRINT_VAR_AFFICH T_PRINT_VAR_SUITE { CodeExeEndColumnDisplayPrint } ; " , " T_DISPLAY_MSGBOX : T_ALNUMORSTRING { CodexPrintStringLiteral } T_PRINT_VAR T_PRINT_VAR_SUITE ", " | T_PRINT_VAR_AFFICH T_PRINT_VAR_SUITE ; ", " T_PRINT_VAR : M_V L_ALNUM { CodexPrintChar } " , " | M_V L_STRING { CodexPrintString } " , " | M_V L_INTEGER { CodexPrintInt } " , " | M_V L_LONG { CodexPrintLong } " , " | M_V L_DOUBLE { CodexPrintDouble } " , " | M_V L_FLOAT { CodexPrintFloat } " , " | M_V T_INSTRUCTION_PRINT ", " | T_INSTRUCTION_PRINT ", " | ; " , " T_PRINT_VAR_AFFICH : M_V L_ALNUM { CodexPrintChar } " , " | M_V L_STRING { CodexPrintString } " , " | M_V L_LONG { CodexPrintLong } " , " | M_V L_FLOAT { CodexPrintFloat } " , " | M_V L_DOUBLE { CodexPrintDouble } " , " | M_V L_INTEGER { CodexPrintInt } " , " | M_V T_INSTRUCTION_PRINT ", " | T_INSTRUCTION_PRINT ; ", " T_PRINT_VAR_SUITE : M_COLUMN L_INTEGER { CodeExeColumn } T_PRINT_VAR_SUITE ", " | M_V T_INSTRUCTION_PRINT T_PRINT_VAR_SUITE " , " | T_PRINT_VAR_AFFICH T_PRINT_VAR_SUITE " , " | { CodeExeColumn2 } ;" , // *****************************************************************************************", // ********************** instruction STRING : *************************************", // *****************************************************************************************", " T_STRING : L_ALNUM M_2PP L_INTEGER T_SUITE_STRING ;", " T_SUITE_STRING : M_V L_INTEGER { CodexStringM_2PP_M_v }" , " | { CodexStringM_2PP } ; ", // *****************************************************************************************", // ********************** instruction STRING CONCATENE *************************************", // *****************************************************************************************", " T_STRINGCONCAT : M_STRINGCONCAT { CodexInitStringConcat } T_ALNUM_CONCAT ", " M_TO L_ALNUM { CodexStringConcat } T_RETURNING ; ", " T_ALNUM_CONCAT : L_ALNUM { CodexStringAlphNumConcat } T_ALNUM_CONCAT ", " | L_STRING { CodexStringStringConcat } T_ALNUM_CONCAT ", " | M_V T_ALNUM_CONCAT ", " | ;", //* ********************** instruction TRI CHAINE *************************************", " T_STRINGSORT : M_STRINGSORT M_PO L_ALNUM M_PF { CodexStringSort } ; ", //* ********************** instruction CHAINE MAJUSCULE *************************************", " T_STRINGTOUPPER : M_STRINGTOUPPER M_PO L_ALNUM M_PF { CodexStringToupper } ; ", //* ********************** instruction CHAINE MINUSCULE *************************************", " T_STRINGUPPER : M_STRINGUPPER M_PO L_ALNUM M_PF { CodexStringUpper } ; ", //* ********************** instruction CHAINE INVERSE *************************************", " T_STRINGREVERSE : M_STRINGREVERSE M_PO L_ALNUM M_PF { CodexStringReverse } ; ", //* ********************** instruction CHAINE REPETITION *************************************", " T_STRINGREPEAT : M_STRINGREPEAT M_PO L_ALNUM M_V T_FILE_STRUCT M_PF { CodexStringRepeat } ; ", // ********************** instruction LONGUEUR CHAINE *************************************", " T_STRINGLENGTH : M_STRINGLENGTH M_PO L_ALNUM M_PF { CodexStringLength } T_RETURNING ; ", "* ********************** instruction TEST CHAINE NUMERIQUE *********************************", " T_STRINGNUMERIC : M_STRINGNUMERIC M_PO L_ALNUM M_PF { CodexStringNumeric } T_RETURNING ; ", "* ********************** instruction CONVERSION CHAINE NUMERIC *************************************", " T_CONVERNUM : M_CONVERNUMERIC T_NUMERIC M_TO L_ALNUM T_FORMATCONVER ; ", " T_FORMATCONVER : M_FORMAT L_STRING { CodexConvernumericFormat }" , " | { CodexConvernumeric } ; " , "* ********************** instruction CONVERSION CHAINE NUMERIC *************************************", " T_CONVERSTRING : M_CONVERSTRING M_WITH L_ALNUM M_TO T_NUMERIC { CodexStringToNumeric } ; ", " T_CLEAR : L_ALNUM { CodexClearString } T_CLEAR ", " | L_INTEGER { CodexClearInteger } T_CLEAR ", " | L_LONG { CodexClearLong } T_CLEAR ", " | L_FLOAT { CodexClearFloat } T_CLEAR ", " | L_DOUBLE { CodexClearDouble } T_CLEAR ", " | M_V T_CLEAR " , " | ; ", "T_FREEMEMORY : L_ALNUM { CodexFreeMemory } T_FREEMEMORY ", " | M_V T_FREEMEMORY " , " | ; ", // ***************************************************************************************", // *************** LES DECLARATIONS VARIABLES L O C A L E S ************************", // ***************************************************************************************", " T_LOCAL : M_LOCAL { CodeExeLocalContexte } ", " { CodeExeLocalContexteI } ", " T_DECLARE M_ENDLOCAL ", " | ;", // *****************************************************************************************", // ********************** EXECUTE UNE PROCEDURE ********************************************", // *****************************************************************************************", " T_DECLARE_PROCEDURE : M_PROCEDURE F_PROCEDURE { CodeExeInitVarLocal } ", " M_PO T_DECLARE_PROC_VARIABLE M_PF", " T_EXECUTE_PROCEDURE", " | M_FUNCTION F_PROCEDURE { CodeExeInitVarLocal } ", " M_PO T_DECLARE_PROC_VARIABLE M_PF ", " T_EXECUTE_PROCEDURE ;", " T_DECLARE_PROC_VARIABLE : ", " | M_DOUBLE ", " L_DOUBLE { CodeCreateProtoLocalVarDouble }", " { sysproc2Double } T_SUITE_DECLARE_PROC_VAR ", " | M_FLOAT ", " L_FLOAT { CodeCreateProtoLocalVarFloat }", " { sysproc2Float } T_SUITE_DECLARE_PROC_VAR ", " | M_LONG ", " L_LONG { CodeCreateProtoLocalVarLong } ", " { sysproc2Long } T_SUITE_DECLARE_PROC_VAR ", " | M_INTEGER", " L_INTEGER { CodeCreateProtoLocalVarInteger } ", " { sysproc2Integer } T_SUITE_DECLARE_PROC_VAR ", " | M_ALNUM ", " L_ALNUM M_2PP L_INTEGER { CodeCreateProtoLocalVarChar } ", " { sysproc2Char } T_SUITE_DECLARE_PROC_VAR ", " | M_STRING ", " L_STRING { sysproc2String } T_SUITE_DECLARE_PROC_VAR ", " | M_VOID ; ", " T_SUITE_DECLARE_PROC_VAR : M_V T_DECLARE_PROC_VARIABLE", " | ; ", " T_EXECUTE_PROCEDURE : ", " M_BEGIN_PROCEDURE { CodeExeLocalContexte }", " T_LOCAL ", " T_INSTRUCTIONS ", " M_END_PROCEDURE ", " | M_BEGIN_FUNCTION { CodeExeLocalContexte } ", " ", " T_LOCAL T_INSTRUCTIONS T_END_FUNCTION ;", "* M-end_function : fin non obligatoire : RETURN INTERROMPTE à tout moment", "* la fin de la règle ", " T_END_FUNCTION : M_END_FUNCTION ", " | ;", //* ********************************************************************************", //* ********************** CODE EXE MSEXCEL8*******************************************", //* ********************************************************************************", " T_EXCEL : M_CONNECTEXCEL M_PO T_ALNUMORSTRING M_2PP L_CONST_NUM M_PF { CodeExeConnectExcel } ", " | M_CONNECTEXCELTEST M_PO T_ALNUMORSTRING M_PF { CodeExeConnectExcelTest } ", " | M_GETCOUNTSHEETEXCEL M_PO M_PF { CEgetCountSheetExcel } T_RETURNING ", " | M_CLEARSHEETEXCEL M_PO L_INTEGER M_2PP T_ALNUMORSTRING M_TO T_ALNUMORSTRING M_PF { CEClearSheetExcel }", " | M_RANGESETVALUECELLEXCEL M_PO L_INTEGER M_2PP T_ALNUMORSTRING M_TO T_ALNUMORSTRING ", " M_CELLVALUE M_2PP T_ALNUMORSTRING M_PF { CErangeSetValueSheetExcel } ", " | M_SAVESHEETEXCEL M_PO M_PF { CExeSaveSheetExcel } ", " | M_SAVEASSHEETEXCEL M_PO T_ALNUMORSTRING M_PF { CExeSaveAsSheetExcel } ", " | M_QUITEXCEL M_PO M_PF { CExeQuitExcel } ;", //* ********************************************************************************", //* ********************** CODE EXE MSWORD8*******************************************", //* ********************************************************************************", " T_WORD : M_CONNECTWORD M_PO T_ALNUMORSTRING M_2PP L_CONST_NUM M_PF { CodeExeConnectWord } ", " | M_NEWDOCWORD M_PO M_PF { CodeExeNewDocWord } ", " | M_PRINTDOCWORD M_PO L_INTEGER M_PF { CodeExePrintDocWord } ", " | M_ADDTEXTDOCWORD M_PO L_INTEGER M_V T_ALNUMORSTRING M_PF { CodeExeaddTextDocWord } ", " | M_SAVEDOCWORD M_PO M_PF { CodeExeSaveDocWord } ", " | M_SAVEASDOCWORD M_PO T_ALNUMORSTRING M_PF { CodeExeSaveAsDocWord } ", " | M_QUITWORD M_PO M_PF { CodeExeQuitDocWord } ", " | M_PRINTPREVIEWDOCWORD M_PO M_PF { CodeExePrintPreviewDocWord } ; ", //* ********************************************************************************", //* ********************** CODE EXE SORT********************************************", //* ********************************************************************************", " T_SORT : T_SORTIN T_MERGE T_TOOLS T_SORTOUT ; ", "*", "* SORTIN *********************************************************************", "*", " T_SORTIN : M_SORTIN T_ALNUMORSTRING { CodeExeSortin } T_MODE " , " T_LENGTH T_TYPE_FORMAT " , " | ;", " T_LENGTH : M_LENGTH I_EGAL L_INTEGER { CodeExeSortinLength } " , " | M_LENGTHVAR { CodeExeSortinLengthVar } " , " | M_FROM L_STRUCT { CodeExeSortinLengthStruct } ; " , " T_MODE : M_ASCENDANT { CodeExeAscend } " , " | M_DESCENDANT { CodeExeDescend } " , " | { CodeExeAscend } ; ", " T_TYPE_FORMAT : T_CHAR_SORT T_TYPE_FORMAT " , " | T_INTEGER_SORT T_TYPE_FORMAT ", " | T_FLOAT_SORT T_TYPE_FORMAT ", " | T_DOUBLE_SORT T_TYPE_FORMAT ", " | T_LONG_SORT T_TYPE_FORMAT ", " | ; " "*", " T_CHAR_SORT : M_BY M_ALNUM M_POSIT L_INTEGER { CodeExeCharOffsetBegin } " " T_TO T_SELECT_CHAR ", " | M_BY L_ALNUM { CodeExeCharOffsetBeginAlnum } ", " { CodeExeCharOffsetEndAlnum } ;", " T_INTEGER_SORT : M_BY M_INTEGER M_POSIT L_INTEGER { CodeExeIntOffsetBegin } " , " T_SUITE_SORT T_SELECT_INT ", " | M_BY L_INTEGER { CodeExeCharOffsetBeginInt } ; ", "* { CodeExeCharOffsetEndAlnum } ;", " T_FLOAT_SORT : M_BY M_FLOAT M_POSIT L_INTEGER { CodeExeFloatOffsetBegin } " " T_DECIMAL ", " T_SUITE_SORT T_SELECT_FLOAT ", " | M_BY L_FLOAT { CodeExeCharOffsetBeginFloat } ; ", "* { CodeExeCharOffsetEndAlnum } ;", " T_DOUBLE_SORT : M_BY M_DOUBLE M_POSIT L_INTEGER { CodeExeDoubleOffsetBegin } " " T_DECIMAL ", " T_SUITE_SORT T_SELECT_DOUBLE ", " | M_BY L_DOUBLE { CodeExeCharOffsetBeginDouble } ; ", "* { CodeExeCharOffsetEndAlnum } ;", " T_LONG_SORT : M_BY M_LONG M_POSIT L_INTEGER { CodeExeLongOffsetBegin } ", " T_SUITE_SORT T_SELECT_LONG ", " | M_BY L_LONG { CodeExeCharOffsetBeginLong } ; ", "* { CodeExeCharOffsetEndAlnum } ;", "* ", "* ", " T_TO : M_TO L_INTEGER { CodeExeCharOffsetEnd1 } T_SUITE_SORT " , " | { CodeExeCharOffsetEnd2 } T_SUITE_SORT ; ", "* ", " T_SUITE_SORT : M_V ", " | ; ", " T_DECIMAL : M_USE M_DECIMAL L_INTEGER { CodeExeFloatDecimal } ", " | ; ", //***************************************************************** //* SELECTION ENREG ***************************************** ", //**************************************************************** " T_SELECT_CHAR : M_SELECT M_POSIT L_INTEGER T_SELECT_CHAR2 " , " | ; ", " T_SELECT_INT : M_SELECT T_SELECT_INT2 " , " | ; ", " T_SELECT_FLOAT : M_SELECT T_SELECT_FLOAT2 " , " | ; ", " T_SELECT_DOUBLE : M_SELECT T_SELECT_DOUBLE2 " , " | ; ", " T_SELECT_LONG : M_SELECT T_SELECT_LONG2 " , " | ; ", " T_SELECT_CHAR2 : T_SELECT_OPERATOR L_STRING { CodeExeCharSelectOffsetBegin } T_SELECT_CHAR_SUITE " , " | ; ", " T_SELECT_INT2 : T_SELECT_OPERATOR L_INTEGER T_SELECT_INT_SUITE ", " | ; ", " T_SELECT_LONG2 : T_SELECT_OPERATOR L_LONG T_SELECT_LONG_SUITE ", " | ; ", " T_SELECT_DOUBLE2 : T_SELECT_OPERATOR L_DOUBLE T_SELECT_DOUBLE_SUITE ", " | ; ", " T_SELECT_FLOAT2 : T_SELECT_OPERATOR L_FLOAT T_SELECT_FLOAT_SUITE ", " | ; ", " T_SELECT_OPERATOR : I_SUP { CodeExeSUP } ", " | I_INF { CodeExeINF } ", " | I_ESUP { CodeExeESUP } ", " | I_EINF { CodeExeEINF } ", " | I_EGAL { CodeExeEGAL } ", " | I_NEGAL { CodeExeNEGAL } ; ", " T_SELECT_CHAR_SUITE : T_XOR_CHAR ; " , " T_XOR_CHAR : I_OU M_POSIT L_INTEGER " , " { CodeExeOR } ", " T_SELECT_CHAR2 ", " | I_ET M_POSIT L_INTEGER " , " { CodeExeAND } ", " T_SELECT_CHAR2 " , " | { CodeExeANDOR } ", " { CodeExeCharSelectOffsetBegin } ; ", " T_SELECT_INT_SUITE : T_XOR_INT ; " , " T_XOR_INT : I_OU { CodeExeOR } ", " { CodeExeIntSelectOffsetBegin } T_SELECT_INT2", " | I_ET { CodeExeAND } ", " { CodeExeIntSelectOffsetBegin } T_SELECT_INT2 " , " | { CodeExeANDOR } ", " { CodeExeIntSelectOffsetBegin } ; ", " T_SELECT_LONG_SUITE : T_XOR_LONG ; " , " T_XOR_LONG : I_OU { CodeExeOR } ", " { CodeExeLongSelectOffsetBegin } T_SELECT_LONG2", " | I_ET { CodeExeAND } ", " { CodeExeLongSelectOffsetBegin } T_SELECT_LONG2 " , " | { CodeExeANDOR } ", " { CodeExeLongSelectOffsetBegin } ; ", " T_SELECT_FLOAT_SUITE : T_XOR_FLOAT ; " , " T_XOR_FLOAT : I_OU { CodeExeOR } " , " { CodeExeFloatSelectOffsetBegin } T_SELECT_FLOAT2 ", " ", " | I_ET { CodeExeAND } ", " { CodeExeFloatSelectOffsetBegin } T_SELECT_FLOAT2 " , " | { CodeExeANDOR } ", " { CodeExeFloatSelectOffsetBegin } ; ", " T_SELECT_DOUBLE_SUITE : T_XOR_DOUBLE ; " , " T_XOR_DOUBLE : I_OU { CodeExeOR } " , " { CodeExeDoubleSelectOffsetBegin } T_SELECT_DOUBLE2 ", " ", " | I_ET { CodeExeAND } ", " { CodeExeDoubleSelectOffsetBegin } T_SELECT_DOUBLE2 " , " | { CodeExeANDOR } ", " { CodeExeDoubleSelectOffsetBegin } ; ", //************************************************************************************ //* MERGE file *********************************************************************", //************************************************************************************ " T_MERGE : M_MERGE M_WITH T_SUITE_MERGE_1 " , " | ; ", " T_SUITE_MERGE_1 : T_ALNUMORSTRING ", " { CodeExeMerge } T_SUITE_MERGE_2 T_SUITE_MERGE_1 " , " | ; " , " T_SUITE_MERGE_2 : M_V ", " | ; " , " T_TOOLS : M_KEEPREJET M_INTO T_ALNUMORSTRING ", " { CodeExeToolsKeep } T_TOOLS ", " | M_KEEPMERGE M_INTO T_ALNUMORSTRING ", " { CodeExeToolsKeepMerge } T_TOOLS ", " | M_CREATEINDEX M_INTO T_ALNUMORSTRING ", " { CodeExeToolsCreateIndex } T_TOOLS ", " | ; ", "*", "* SORTOUT *********************************************************************", "*", " T_SORTOUT : M_SORTOUT T_ALNUMORSTRING ", " T_SORTOUT_SUITE " , " { CodeExeSort } ", " { CodeExeSortout } ;" , " T_SORTOUT_SUITE : M_USE M_SEPARATOR { CodeExeSeparator } ", " | M_FORMAT M_PO { CodeExeFormat } " , " T_FORMAT_SORT_SUITE T_SORTOUT_SUITE ", " | ; ", " T_FORMAT_SORT_SUITE : T_TYPE_FORMAT_OUT T_FORMAT_SORT_SUITE ", " | T_TYPE_FORMAT_OUT_VAR T_FORMAT_SORT_SUITE ", " | ; ", " T_TYPE_FORMAT_OUT : ", " M_ALNUM M_POSIT L_INTEGER M_TO L_INTEGER { CodeExeFormatChar } ", " | M_INTEGER M_POSIT L_INTEGER { CodeExeFormatInt } T_NUMERIC_SORT ", " | M_FLOAT M_POSIT L_INTEGER { CodeExeFormatFloat } T_NUMERIC_SORT ", " | M_DOUBLE M_POSIT L_INTEGER { CodeExeFormatDouble } T_NUMERIC_SORT ", " | M_LONG M_POSIT L_INTEGER { CodeExeFormatLong } T_NUMERIC_SORT ", " | L_STRING { CodeExeFormatString } T_NUMERIC_SORT ", " | M_V " , " | M_PF ; " , " T_TYPE_FORMAT_OUT_VAR : " " L_ALNUM { CodeExeFormatCharOffBeginAlnum } T_NUMERIC_SORT ", " | L_FLOAT { CodeExeFormatCharOffBeginFloat } T_NUMERIC_SORT ", " | L_INTEGER { CodeExeFormatCharOffBeginInteger } T_NUMERIC_SORT ", " | L_LONG { CodeExeFormatCharOffBeginLong } T_NUMERIC_SORT ", " | L_DOUBLE { CodeExeFormatCharOffBeginDouble } T_NUMERIC_SORT ", " | M_USE M_SEPARATOR { CodeExeSeparator } ", " | M_V " , " | M_PF ; " , " T_NUMERIC_SORT : M_USE M_NUMERIC { CodeExeFormatNumeric } T_DECIMAL_FORMAT " , " | ; ", " T_DECIMAL_FORMAT : M_USE M_DECIMAL L_INTEGER { CodeExeFormatFloatDecimal } ", " | ; ", //******************************************************************************* //* T_REPORT*********************************************************************", //* ***************************************************************************** " T_REPORT : M_BEGIN_REPORT { CodeTrueReport }", " M_REPORTINPUT T_FILEREPORT { CodeExeReport } ", " M_REPORTOUTPUT T_ALNUMORSTRING { CodeExeReportOut } ", " M_LEVEL T_LEVEL T_INST_LIST " , " T_HEADER_REPORT ", " T_HEADERLEVEL ", " T_DETAILLEVEL ", " T_BREAKENDLEVEL ", " M_END_REPORT { CodeTrueEndReport } " , " | ; " , " T_FILEREPORT : M_ISSU_OF_SORT { CodeExeReportIssu } " , " | T_ALNUMORSTRING ", " { CodeExeReportIn } T_LENGTH ; ", " T_ALNUMORSTRING : L_ALNUM T_ALNUMORSTRING ", " | L_STRING { CodeExeEmpileNULL } T_ALNUMORSTRING ", " | I_ADD T_ALNUMORSTRING ", " | ;", " T_LEVEL : M_BY M_ISSU_OF_SORT ", " | { CodeExeInitIncr } T_TYPE_FORMAT ; " , " T_HEADER_REPORT : M_HEADERREPORT { CodeExeHeaderReport } " " T_INST_LIST ", " M_ENDHEADERREPORT ", " | ;", " T_HEADERLEVEL : M_HEADERLEVEL M_2PP L_INTEGER { CodeExeHeaderLevel } ", " T_INST_LIST " , " M_ENDHEADERLEVEL T_HEADERLEVEL", " | ;", " T_DETAILLEVEL : M_DETAIL { CodeExeDetail } T_INST_LIST ", " M_ENDDETAIL ", " | ;", " T_BREAKENDLEVEL : M_BREAKENDLEVEL M_2PP L_INTEGER { CodeExebreakEndLevel }", " T_INST_LIST M_ENDBREAKENDLEVEL T_BREAKENDLEVEL", " | ;", //********************************************************************** //* S Q L***************************************************************", //* ******************************************************************** //"T_SQL : M_SELECT T_SQL_SELECT M_FROM T_SQL_TABLE_EXPR T_SQL_CONDITION_EXPR " , " T_SQL : M_INQUIRE T_ALNUMORSTRING { CodeExeInquireXLS } ", " | M_EXECUTESQL T_DRIVERSQL T_VARSQL M_PF { CodeExeExecuteSQL } ", " T_RETURNING ", " | M_EXECUTESQLDIALOG T_DRIVERSQL T_VARSQL M_PF { CodeExeExecuteSQLDialog } T_RETURNING ", " | M_EXECUTESQLFETCH T_DRIVERSQL T_VARSQL M_PF { CodeExeExecuteSQLFetch } ", " T_FOREACH ", " | M_GETDATACOLUMN M_2PP T_GETDATACOLUMN_SUITE ", " | M_SETENVDATABASESQL T_ENVDATABASESQL_SUITE ", " | M_DESTROYENVSQL M_PO M_PF { CodeExeDestroyEnvSQL } ", " | M_SETVERSQL T_VERSQL_SUITE ", " | M_SETVERDRIVERSQL T_VERDRIVERSQL_SUITE ", " | M_GETSELECTITEMSQL M_PO M_PF M_RETURNING M_PO L_INTEGER M_V L_INTEGER", " M_V L_ALNUM M_PF { CodeExeGetSelectItemSQL } ", " | ;", " T_SUITE_INQUIRE : M_V T_ALNUMORSTRING ", " | ; ", " T_DRIVERSQL : M_AO M_XLS M_AF M_PO T_ALNUMORSTRING { CodeExeExecuteSQLXLS } ", " | M_AO M_DBF M_AF M_PO T_ALNUMORSTRING { CodeExeExecuteSQLDBF } ", " | M_AO M_TXT M_AF M_PO T_ALNUMORSTRING { CodeExeExecuteSQLTXT } ", " | M_AO M_FOX M_AF M_PO T_ALNUMORSTRING { CodeExeExecuteSQLFOX } ", " | M_AO M_MDB M_AF M_PO T_ALNUMORSTRING { CodeExeExecuteSQLMDB } ; ", " T_VARSQL : L_DOUBLE { CodeExeExecuteSQLVarDouble } T_VARSQL " , " | L_FLOAT { CodeExeExecuteSQLVarFloat } T_VARSQL", " | L_LONG { CodeExeExecuteSQLVarLong } T_VARSQL ", " | L_INTEGER { CodeExeExecuteSQLVarInteger } T_VARSQL", " | L_ALNUM { CodeExeExecuteSQLVarAlnum } T_VARSQL", " | L_STRING { CodeExeExecuteSQLVarAlnum } T_VARSQL", " | M_V T_VARSQL ", " | ;", " T_FOREACH : M_FOREACHROWFIND { CodeExeExecuteSQLFetch500 } M_2PP { CodeExeExecuteSQLForEachRow }", " T_INSTRUCTIONS ", " M_ENDFOREACHROW { CodeExeExecuteSQLForEachRowEnd } ", " | M_BEGIN_FETCH_ORIENTATION { CodeExeExecuteSQLFetch500 } M_2PP L_LONG M_V L_LONG M_2PP ", " { CodeExeExecuteSQLFetchOrientation }", " T_INSTRUCTIONS ", " M_END_FETCH_ORIENTATION T_RETURNING", " | ;", " T_GETDATACOLUMN_SUITE : ", " L_INTEGER M_V M_ALNUM { CodeExeExecuteSQLGetDataAlnum } ", " | L_INTEGER M_V M_INTEGER { CodeExeExecuteSQLGetDataInt } ", " | L_INTEGER M_V M_FLOAT { CodeExeExecuteSQLGetDataFloat } ", " | L_INTEGER M_V M_LONG { CodeExeExecuteSQLGetDataLong } ", " | L_INTEGER M_V M_DOUBLE { CodeExeExecuteSQLGetDataDouble } ", " | M_INTO L_STRUCT { CodeExeExecuteSQLGetDataStruct };", " T_ENVDATABASESQL_SUITE : ", " M_AO M_XLS M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLEnvDatabaseXLS } ", " | M_AO M_DBF M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLEnvDatabaseDBF } ", " | M_AO M_TXT M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLEnvDatabaseTXT } ", " | M_AO M_FOX M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLEnvDatabaseFOX } ", " | M_AO M_MDB M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLEnvDatabaseMDB } ; ", " T_VERSQL_SUITE : M_AO M_XLS M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerXLS } ", " | M_AO M_DBF M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerDBF } ", " | M_AO M_TXT M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerTXT } ", " | M_AO M_FOX M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerFOX } ", " | M_AO M_MDB M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerMDB } ; ", " T_VERDRIVERSQL_SUITE : M_AO M_XLS M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerDriverXLS } ", " | M_AO M_DBF M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerDriverDBF } ", " | M_AO M_TXT M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerDriverTXT } ", " | M_AO M_FOX M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerDriverFOX } ", " | M_AO M_MDB M_AF M_PO T_ALNUMORSTRING M_PF { CodeExeExecuteSQLVerDriverMDB } ; ", //"T_SQL_SELECT : ", //" M_ALL ", //" | M_DISTINCT " , //" | M_UNIQUE " , //" | T_SQL_COLUMN_NAME ;", //"T_SQL_COLUMN_NAME : L_ALNUM T_SQL_COLUMN_NAME " , //" | M_V T_SQL_COLUMN_NAME ", //" | ;" , //"T_SQL_TABLE_EXPR : L_ALNUM M_WITH T_SQL_SPECIAL_EndUser4gl { CodeExeFileOpenReadWrite } T_SQL_TABLE_EXPR " , //" | M_V T_SQL_TABLE_EXPR ", //" | ;" , //"* table-spec | ", //"* |table-expr join-type table-spec ", //"* [ ON join-condition ] | ", //"* |( table-expr, ... ) ", //"T_SQL_SPECIAL_ENDUSER4GL : L_ALNUM ", //" | L_STRING ; " , //"T_SQL_CONDITION_EXPR : M_WHERE T_EXPRESSION_IF T_SQL_GROUP_BY T_SQL_ORDER " , //" | T_SQL_GROUP_BY T_SQL_ORDER " , //" | T_SQL_ORDER ", //" | ; ", //"T_SQL_GROUP_BY : M_GROUP M_BY T_SQL_COLUMN_NAME T_SQL_HAVING ", //" | ;", //"T_SQL_HAVING : M_HAVING T_EXPRESSION_IF ", //" | ;", //"T_SQL_ORDER : M_ORDER M_BY T_SQL_LIST_ORDER T_SQL_ORDER_MODE" , //" | ;", //" T_SQL_LIST_ORDER : " , //" L_ALNUM T_SQL_LIST_ORDER " , //" | M_V T_SQL_LIST_ORDER ", //" | ;" , //" T_SQL_ORDER_MODE : M_ASCENDANT ", //" | M_DESCENDANT ", //" | ; ", // * *****************************************************************************************", // Q U E R Y**************************************************************", // * *****************************************************************************************", " T_QUERY : M_EXECUTEQUERYDIALOG T_DRIVERSQL T_VARSQL M_PF " " { CodeExeExecuteQUERYDialog } T_RETURNING ; ", // * *****************************************************************************************", // I N T E R N E T**************************************************************", // * *****************************************************************************************", " T_INTERNET : M_NAVIGATEINTERNET M_PO T_ALNUMORSTRING M_PF { CodeExeNavigateInternet } ", " | M_GOHOMEINTERNET M_PO M_PF { CodeExeGoHomeInternet } ", " | M_GOSEARCHINTERNET M_PO M_PF { CodeExeGoSearchInternet } ", " | M_STOPINTERNET M_PO M_PF { CodeExeStopInternet } ", " | M_FULLSCREENINTERNET M_PO M_PF { CodeExeFullScreenInternet } ;", // * *****************************************************************************************", // M A P I**************************************************************", // * *****************************************************************************************", " T_MAPI : M_SENDMAIL M_PO L_WIN M_2PP T_ALNUMORSTRING ", " M_V T_ALNUMORSTRING M_V T_ALNUMORSTRING M_PF { CodeExeSendMail } ;", // * *****************************************************************************************", // * ********************** CODE EXE WINDOW ********************************************", // Attn : Ne pas DEPASSER 60 Cellules Rules/REgles par TOKENS // * *****************************************************************************************", " T_INSTRUCTION_WINDOWS : ", " M_REQUIRE T_INSTRUCTION_WINDOWS ", " | M_RETURNBEGINTRANSACTION M_PO L_INTEGER M_PF { CEReturnTransaction } ", " | T_CREATE ", " | M_ICONDIALOG " , " M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeIconDialog } T_RETURNING", " | M_BEEP M_PO L_INTEGER M_PF { CodeExeBeep } T_RETURNING ", " | M_PLAYSOUND M_PO T_ALNUMORSTRING M_PF { CodeExePlaySound } T_RETURNING ", " | M_PLAY_MOVIE_AVI M_PO T_ALNUMORSTRING M_PF { CodeExePlayMovieAvi } ", " | M_SETHOURGLASSCURSOR M_PO M_PF { CodeExeSetHourglassCursor } ", " | M_SETARROWCURSOR M_PO M_PF { CodeExeSetArrowCursor } ", " | M_SETCURSORPOSITION M_PO L_INTEGER M_V L_INTEGER M_PF { CodeExeSetCursorPosition } ", " | M_SETDIALOGPOS M_PO L_WIN ", " M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF { CodeExeSETDialogPos } ", " | M_SETDISPLAYPOS ", " M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF { CodeExeSETDisplayPos } ", " | M_WAITCLOSEUSER M_PO M_PF { CodeExeGetMessage } ", " | M_SETWINTXT M_PO L_WIN M_2PP T_SETWINTXT_SUITE M_PF ", " | M_GETWINTXT M_PO L_WIN M_2PP L_ALNUM M_PF { CodeExeGetwinTxt } ", " | M_INPUTDATA M_PO M_PF { CodeExeinputData } ", " | M_SETNEWPARENTWIN M_PO L_WIN M_2PP L_WIN M_PF { CodeExeSetNewParentWin } ", " | M_SETNEWPARENTDIALOG M_PO L_WIN M_2PP L_WIN M_PF { CodeExeSetNewParentDialog } ", " | M_SETINFO M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeSETInfo } ", " | M_SETINFOBUTTONBMP M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodexINFOButtonBmp } ", " | M_REPLACEBUTTONBMP M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeRepLaceButtonBmp } ", " | M_REPLACEBUTTONICON M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeRepLaceButtonIcon } ", " | M_SWAPBMP M_PO L_WIN M_2PP T_ALNUMORSTRING M_V T_ALNUMORSTRING M_PF { CodeExeSwapBmp } ", " | M_SWAPTEXT M_PO L_WIN M_2PP T_ALNUMORSTRING M_V T_ALNUMORSTRING M_PF { CodeExeSwapText } ", " | M_SWAPCOLOR M_PO L_WIN M_2PP L_LONG M_V L_LONG M_V L_LONG M_V L_LONG M_PF { CodeExeSwapColor } ", " | M_SWAPFONT M_PO L_WIN M_2PP M_PO L_LONG M_V L_LONG M_V L_LONG ", " M_V L_LONG M_V L_LONG M_V L_LONG ", " M_V L_LONG M_V T_ALNUMORSTRING M_PF M_V T_SUITESWAPFONT ", " | T_ANIMATEBMP ", " | M_DRAWFOCUSRECT M_PO L_WIN M_PF { CodeExeDrawFocusRect } ", " | M_DRAWFOCUSRECTLIST M_PO M_PF { CodeExeDrawFocusRectList } ", " | M_DRAWBMPFILE M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER " , " M_V T_ALNUMORSTRING M_PF { CodexTPictureDrawImage } T_RETURNING ", " | M_DRAWGIFFILE M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER " , " M_V T_ALNUMORSTRING M_PF { CodexTPictureDrawImage } T_RETURNING ", " | M_DESTROYANIMATEGIF M_PO T_SUITEDESTROYANIMEGIF M_PF ", " | M_DRAWJPGFILE M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER " , " M_V T_ALNUMORSTRING M_PF { CodexTPictureDrawImage } T_RETURNING ", " | M_DRAWWMFFILE M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER " , " M_V T_ALNUMORSTRING M_PF { CodexTPictureDrawImage } T_RETURNING ", " | M_DRAWEMFFILE M_PO L_WIN M_2PP " , " M_V T_ALNUMORSTRING M_PF { CodeExeDrawEmfFile } T_RETURNING ", " | M_DRAWICONFILE T_WIDTHEIGTHINTERP { CodeExeWidtHeigthIntrep }", " M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER " , " M_V T_ALNUMORSTRING M_PF { CodeExeDrawIconFile } T_RETURNING ", " | M_DRAWICONFILESYS ", " M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER " , " M_V L_INTEGER M_PF { CodeExeDrawIconFileSys } T_RETURNING ", " | M_OPENDIALOG M_PO T_SHOWDIALOG M_PF { CodeExeOpenDialog } ", " | M_SHOWDIALOG M_PO L_WIN M_PF { CodeExeShowDialog } ", " | M_SETFOREGROUNDIALOG M_PO L_WIN M_PF { CodeExeForeGroundDialog } ", " | M_SETSTATUSWINDOW M_PO L_WIN M_2PP L_LONG M_PF { CodeExeSetStatusWindow } ", " | M_SETSTATUSDIALOG M_PO L_WIN M_2PP L_LONG M_PF { CodeExeSetStatusDialog } ", " | M_DESTROYDIALOG M_PO L_WIN M_PF { CodeExeDestroyDialog } ", " | M_DESTROYWIN M_PO L_WIN M_PF { CodeExeDestroyWindow } ", " | M_REFRESHWIN M_PO L_WIN M_PF { CodeExeRefreshWindow } ", " | M_REFRESHDIALOG M_PO L_WIN M_PF { CodeExeRefreshDialog } ", " | M_ISONINPUTDATA M_PO L_WIN M_PF { CodeExeIsOnInputData } T_RETURNING ", " | M_CLOSEDIALOG M_PO L_WIN M_PF { CodeExeCloseDialog } T_RETURNING ", " | M_SHOWSPLASH M_PO L_WIN M_2PP L_LONG M_PF { CodeExeShowSplash } ", " | M_SETFONTS M_PO L_WIN M_2PP L_LONG M_V", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V T_SUITEFONTS ", " | M_SETFONTSGROUP M_PO L_LONG M_V", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V T_SUITEFONTSGROUP ", " | T_TOKEN_API_WINDOW ", " | T_TOKEN_STATUS_WINDOW ", " | T_TOKEN_STATUS_WINDOW_COLOR ", " | T_TOKEN_STATUS_BUTTON ", " | T_TOKEN_LISTBOX ", " | T_TOKEN_COMBOBOX", " | T_TOKEN_LISTVIEW ", " | T_TOKEN_TABCONTROL ", " | T_TOKEN_TREEVIEW ", " | T_TOKEN_STATUSBAR", " | T_TOKEN_GRID", " | T_TOKEN_MENU ", " | T_TOKEN_SYSDIALOGFILE", " | M_MSGBOX M_2PP M_TITLE T_ALNUMORSTRING ", " { CodeExeCaptionBox } ", " M_MESSAGE M_2PP T_DISPLAY_MSGBOX " , " M_BUTTON M_2PP L_INTEGER ", " M_ICON M_2PP L_INTEGER ", " { CodeExeEndColumnDisplayBox } T_RETURNING ", " | T_SPLASHSCREEN ", " | M_BEGINTRANSACTION { CodeExeDepileAll }", " { CodeTrueWhile } ", " M_2PP L_INTEGER { CodeCreateVarInteger }", " { CodeExeBeginTransaction } ", " M_EXECUTE M_TRANSACTION M_WITH T_EXPRESSION_IF_NUM ", " { CodeTrueWhileBegin } ", " T_DIALOG ", " T_SPLASHSCREEN ", " T_INITIALIZE ", " T_INST_LIST " , " T_BEGIN_MESSAGE_DIALOG", " T_INST_LIST " , " M_ENDTRANSACTION { CodeExeEndTransaction } ", " { CodeTrueEndWhile }", " | { CodeExeDepileAll } ; " , "T_SUITEFONTS : ", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V L_STRING M_PF { CodeExeSetFonts } ; ", "T_SUITEFONTSGROUP : ", " L_LONG M_V L_LONG M_V", " L_LONG M_V L_LONG M_V L_STRING { CodeExeSetFontsGroup } M_2PP T_SUITEFONTSGROUPEND M_PF ; ", "T_SUITEFONTSGROUPEND : ", " L_WIN { CodeExeSetFontsGroupEnd } T_SUITEFONTSGROUPEND ", " | M_V T_SUITEFONTSGROUPEND ", " | ;", "T_SUITEDESTROYANIMEGIF : ", " L_WIN { CodeExeDestroyAnimateGif } T_SUITEDESTROYANIMEGIF ", " | M_V T_SUITEDESTROYANIMEGIF ", " | ;", " T_SUITESWAPFONT : ", " M_PO L_LONG M_V L_LONG M_V L_LONG ", " M_V L_LONG M_V L_LONG M_V L_LONG ", " M_V L_LONG M_V T_ALNUMORSTRING M_PF { CodeExeSwapFont } ; ", " T_SHOWDIALOG : ", " | L_WIN { CodeExeShowDialog } T_SHOWDIALOG2 ", " | ; ", " T_SHOWDIALOG2 : M_V T_SHOWDIALOG ", " | ; ", " T_REQUIRE : M_REQUIRE " , " | ; " , " T_INITIALIZE : M_BEGININITIALIZE { CodeExeBeginInitialize } ", " T_INST_LIST ", " M_ENDINITIALIZE { CodeExeEndInitialize } ", " | ;", " T_SETWINTXT_SUITE : ", " L_ALNUM { CodeExeSETWinTxt } ", " | L_STRING { CodeExeSETWinTxtString } ", " | M_LOADFILETXT M_PO T_ALNUMORSTRING M_PF { CodeExeSETWinTxtFile } ;", "T_BEGIN_MESSAGE_DIALOG : ", " M_BEGIN_MESSAGE_DIALOG M_PO L_WIN M_PF M_2PP M_2PP T_MESSAGE_DIALOG_OTHER ", " T_INST_LIST " , " M_END_MESSAGE_DIALOG { CodeExeEndMessageDialog } T_BEGIN_MESSAGE_DIALOG ", " | ;", "T_MESSAGE_DIALOG_OTHER :", " M_ONCLIKDIALOG M_PO M_VOID M_PF { CodeExeBeginMessageOnClickDialog } ", " | M_ONCLICKMENUSELECT M_PO M_VOID M_PF { CodeExeBeginMessageOnMenuSelect } ", " | M_INPUTDATA M_PO L_ALNUM M_PF { CodeExeBeginMessageInputData } ", " | M_ONMOVECURSOR M_PO M_VOID M_PF { CodeExeBeginMessageOnMoveCursor } ", " | L_LONG M_PO M_VOID M_PF { CodeExeBeginMessageDialog } ", " | ;", "T_TOKEN_API_WINDOW :", " M_DRAWTEXTWIN M_PO L_WIN M_2PP { CodeExeDrawTextSaveWin }", " T_WIN_STYLE M_PF { CodeExeDrawTextWin } ", " | M_DRAWTEXT M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER", " M_V T_ALNUMORSTRING M_V L_LONG M_PF { CodeExeDrawText } ", " | M_DRAWRECTANGLE M_PO L_WIN M_2PP ", " L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_LONG M_PF { CodeExeDrawRectangle } ", " | ;", " T_TOKEN_STATUS_WINDOW : ", " M_ENABLEWINDOW M_PO L_WIN M_PF { CodeExeEnable } T_RETURNING ", " | M_DISABLEWINDOW M_PO L_WIN M_PF { CodeExeDisable } T_RETURNING ", " | M_HIDEWINDOW M_PO L_WIN M_PF { CodeExeHideWin } ", " | M_RESTOREWINDOW M_PO L_WIN M_PF { CodeExeRestoreWin } ", " | M_CENTERWINDOW M_PO L_WIN M_PF { CodexCenterWindowIntrep } ", " | M_FULLWINDOW M_PO L_WIN M_PF { CodexFullWindowIntrep } ", " | M_SETWINDOWPOS M_PO L_WIN ", " M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF { CodeExeSETWinPos } ", " | M_SETWINDOWATTRIBUT M_PO L_WIN { CodeExeInitWinAttribut } ", " M_V T_WIN_STYLE M_PF { CodeExeEndWinAttribut } ", " | M_CLOSEWINDOW M_PO L_INTEGER M_PF { CodeExeCloseWindow } T_RETURNING ; ", " T_TOKEN_STATUS_WINDOW_COLOR : ", " T_FORMAT_COLOR ", " | M_SETCOLORSYS M_PO L_LONG M_PF { CodeExeSetColorSys } ", " | M_RESTORECOLORSYS M_PO M_PF { CodeExeRestoreColorSys } ", " | M_SETBKCOLORDIALOG ", " M_PO L_WIN M_V L_LONG M_PF { CodeExeBkColorDialog } ", " | M_SETCOLORTXT M_PO T_WINDOW_COLOR_PARAM_1 ", " M_2PP L_LONG M_V L_LONG M_PF { CodeExeSetColorTxt } ", " | M_GETCOLORTXT M_PO T_WINDOW_COLOR_PARAM_1 ", " M_2PP L_LONG M_V L_LONG M_PF { CodeExeGetColorTxt } ", " | M_FILLCOLOR M_PO L_WIN M_2PP M_COLOR M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF M_PF { CodeExeFillColor1 }", " | M_FRAMECOLOR M_PO L_WIN M_2PP M_COLOR M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF M_PF { CodeExeFrameColor1 } ", " | M_FILLCOLOR M_PO L_WIN M_2PP L_LONG M_PF { CodeExeFillColor2 }", " | M_FRAMECOLOR M_PO L_WIN M_2PP L_LONG M_PF { CodeExeFrameColor2 }", " | M_SETATTRTXTORIENTATION M_PO L_WIN M_2PP ", " L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_V L_LONG M_V L_LONG M_V T_ALNUMORSTRING T_SUITEORIENTATION ", " | M_SETCOLORBUTTON M_PO L_WIN M_2PP { CodeExeColorWinButton } ", " L_LONG { CodeExeColorLong } ", " M_V L_LONG { CodeExeColorLong } ", " M_V L_LONG { CodeExeColorLong } ", " M_V L_INTEGER ", " M_PF { CodeExeColorButton } ", " | M_SETTEXTOUT M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_LONG ", " M_V L_LONG M_PF ", " | M_SETBKCOLORGIF M_PO L_WIN ", " M_2PP L_LONG M_PF { CodeExeSetBkColorGIF } ", " | M_SETBKCOLORLV M_PO L_WIN ", " M_2PP L_LONG M_PF { CodeExeSetBkColorLV } ", " | M_SETCOLORTXTLV M_PO L_WIN ", " M_2PP L_LONG M_V L_LONG M_PF { CodeExeSetColorTxtLV } ", " | M_SETBKCOLORGD M_PO L_WIN { CodeExeGDWin } M_2PP T_BKCOLORGD M_PF ", " | M_SETCOLORTXTGD M_PO L_WIN { CodeExeGDWin } M_2PP T_COLORTXTGD M_PF ; ", "T_SUITEORIENTATION : ", " M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_V T_ALNUMORSTRING M_PF { CodeExeSetAttrTxtOrient } ; ", " T_BKCOLORGD : M_COLUMN M_2PP L_INTEGER L_LONG { CodeExeSetBkColorGD } T_BKCOLORGD ", " | M_V T_BKCOLORGD ", " | ; ", " T_COLORTXTGD : M_COLUMN M_2PP L_INTEGER L_LONG { CodeExeSetColorTextGD } T_COLORTXTGD ", " | M_V T_COLORTXTGD ", " | ; ", " T_WINDOW_COLOR_PARAM_1 : M_HWDISPLAY { CodeExeSetColorTxtHwdisplay } ", " | L_WIN ; ", " T_COLOR : T_FORMAT_COLOR ;", " T_FORMAT_COLOR : M_COLOR M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF ", " M_RETURNING M_PO L_LONG M_PF { CodeExeColor } ;", " T_TOKEN_STATUS_BUTTON : ", " M_GETCHECK M_PO L_WIN M_PF { CodeExeGetCheck } T_RETURNING ", " | M_SETCHECK M_PO L_WIN M_PF { CodeExeSetCheck } T_RETURNING ", " | M_GETPUSH M_PO L_WIN M_PF { CodeExeGetPush } T_RETURNING ", " | M_SETPUSHENABLE M_PO L_WIN M_PF { CodeExeSetPushEnable } ", " | M_SETPUSHDISABLE M_PO L_WIN M_PF { CodeExeSetPushDisable } ", " | M_UNCHECK M_PO L_WIN M_PF { CodeExeUnCheck } T_RETURNING ", " | M_ISONSETCURSOR M_PO L_WIN M_PF { CodeExeIsOnSetCursor } T_RETURNING ", " | M_ISONSETCURSORLIST M_PO { CodeExeIsOnSetCursorListInit } T_WINCURSORL