////////////////////////////////////////////////////////////////////// // 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_WINCURSORLIST M_PF T_RETURNING ; ", "T_WINCURSORLIST : L_WIN { CodeExeIsOnSetCursorList } T_WINCURSORLIST ", " | M_V T_WINCURSORLIST", " | ; ", " T_TOKEN_LISTBOX : ", " M_ADDLISTBOX M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeAddListBox } ", " | M_GETSELECTLISTBOX M_PO L_WIN M_PF ", " M_RETURNING M_PO L_INTEGER M_V L_ALNUM M_PF { CodeExeGetSelectListBox } ;", " T_TOKEN_COMBOBOX : ", " M_ADDCOMBOBOX M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeAddComBoBox } ", " | M_DELETEINDEXCOMBOBOX M_PO L_WIN M_2PP L_INTEGER M_PF { CodeExeDeleteIndexComBoBox } ", " | M_GETSELECTCOMBOBOX M_PO L_WIN M_PF ", " M_RETURNING M_PO L_INTEGER M_V L_ALNUM M_PF { CodeExeGetSelectComBoBox } ; ", " T_TOKEN_GRID : ", " M_ADDITEMGD M_PO L_WIN M_2PP L_INTEGER { CodeExeAddItemGrid } M_V T_DECLARE_GRID_ADD M_PF ", " | M_SETITEMGD M_PO L_WIN M_2PP L_INTEGER { CodeExeSetItemGrid } M_V T_DECLARE_GRID_SET M_PF ", " | M_INITGD M_PO L_WIN M_PF { CodeExeInitGrid } ", " | M_FREEMEMORYGD M_PO L_WIN M_PF { CodeExeFreeGrid } ", " | M_GETITEMCHECKGD M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER M_PF ", " M_RETURNING M_PO L_INTEGER M_PF { CodeExeGetItemCheckGD } ", " | M_GETITEMCOUNTGD M_PO L_WIN M_PF M_RETURNING M_PO L_INTEGER M_PF { CodeExeGetItemCountGD } ", " | M_GETITEMTEXTGD M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER M_PF", " M_RETURNING M_PO L_ALNUM M_PF { CodeExeGetItemTextGD } ", " | M_SETPROPERTYCELLGD M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER M_PF { CodeExeSetPropertyCellGrid }; ", " T_TOKEN_STATUSBAR : M_SETTXTSB M_PO L_WIN M_2PP L_INTEGER M_V T_ALNUMORSTRING M_PF { CodeExeSetTextStatusBar } ", " | M_SETTXTSB M_PO L_WIN M_2PP L_INTEGER M_V T_ALNUMORSTRING M_V M_POPOUT M_PF { CodeExeSetTextStatusBarPopOut } ; ", " | M_SETTXTSB M_PO L_WIN M_2PP L_INTEGER M_V T_ALNUMORSTRING M_V M_POPSIMPLE M_PF { CodeExeSetTextStatusBarSimple } ;", " T_DECLARE_GRID_ADD : M_COLUMN M_2PP L_INTEGER L_INTEGER { CodeExeAddItemGridInt } T_DECLARE_GRID_ADD", " | M_COLUMN M_2PP L_INTEGER L_LONG { CodeExeAddItemGridLong } T_DECLARE_GRID_ADD ", " | M_COLUMN M_2PP L_INTEGER L_FLOAT { CodeExeAddItemGridFloat } T_DECLARE_GRID_ADD ", " | M_COLUMN M_2PP L_INTEGER L_DOUBLE { CodeExeAddItemGridDouble } T_DECLARE_GRID_ADD ", " | M_COLUMN M_2PP L_INTEGER L_ALNUM { CodeExeAddItemGridAlnum } T_DECLARE_GRID_ADD ", " | M_COLUMN M_2PP L_INTEGER L_STRING { CodeExeAddItemGridString } T_DECLARE_GRID_ADD ", " | M_V T_DECLARE_GRID_ADD ", " | ; ", " T_DECLARE_GRID_SET : M_COLUMN M_2PP L_INTEGER L_INTEGER { CodeExeSetItemGridInt } T_DECLARE_GRID_SET", " | M_COLUMN M_2PP L_INTEGER L_LONG { CodeExeSetItemGridLong } T_DECLARE_GRID_SET ", " | M_COLUMN M_2PP L_INTEGER L_FLOAT { CodeExeSetItemGridFloat } T_DECLARE_GRID_SET ", " | M_COLUMN M_2PP L_INTEGER L_DOUBLE { CodeExeSetItemGridDouble } T_DECLARE_GRID_SET ", " | M_COLUMN M_2PP L_INTEGER L_ALNUM { CodeExeSetItemGridAlnum } T_DECLARE_GRID_SET ", " | M_COLUMN M_2PP L_INTEGER L_STRING { CodeExeSetItemGridString } T_DECLARE_GRID_SET ", " | M_V T_DECLARE_GRID_SET ", " | ; ", " T_STATUSBAR : M_STATUSBAR M_2PP L_LONG M_NBPARTS L_INTEGER { CodeExeCreateStatusBar }", " M_CREATE M_2PP T_STATUSBAR_SUITE L_WIN { CodeExeCreateWinStatusBar } ;", " T_STATUSBAR_SUITE : M_PART L_INTEGER M_2PP L_INTEGER ", " M_POPOUT { CodeExeUpdateStatusBarPopOut } T_STATUSBAR_SUITE ", " | M_PART L_INTEGER M_2PP L_INTEGER { CodeExeUpdateStatusBar } T_STATUSBAR_SUITE ", " | M_V T_STATUSBAR_SUITE", " | ;", " T_TOKEN_LISTVIEW : ", " M_ADDITEMLV M_PO L_WIN M_2PP L_INTEGER M_V T_ALNUMORSTRING M_PF { CodeExeAddItemListView } ", " | M_SETITEMLV M_PO L_WIN M_2PP L_INTEGER M_V T_ALNUMORSTRING M_PF { CodeExeSetItemListView } ", " | M_SETITEMTEXTLISTVIEW M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER ", " M_V T_ALNUMORSTRING M_PF { CodeExeSETItemTextListView } ", " | M_GETSELECTITEMLV M_PO L_WIN M_PF M_RETURNING M_PO L_INTEGER M_V L_INTEGER M_PF { CodeExeGetSelectItemListView } ", " | M_GETITEMTEXTLISTVIEW M_PO L_WIN M_2PP L_INTEGER M_V L_INTEGER M_PF", " M_RETURNING M_PO L_ALNUM M_PF { CodeExeGetItemTextListView } ", " | M_REPLACEICONLISTVIEW M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeReplaceIconListView } ", " | M_GETITEMCHECKLISTVIEW M_PO L_WIN M_2PP L_INTEGER M_PF", " M_RETURNING M_PO L_INTEGER M_PF { CodeExeGetItemCheckListView } ", " | M_GETITEMCOUNTLISTVIEW M_PO L_WIN M_PF M_RETURNING M_PO L_INTEGER M_PF { CodeExeGetCountItemListView } ", " | M_CLEARLISTVIEW M_PO L_WIN M_PF { CodeExeDeleteAllItemListView } ", " | M_INSERTCOLUMNLISTVIEW M_PO L_WIN M_2PP L_INTEGER ", " M_V T_ALNUMORSTRING M_PF { CodeExeInsertColumnListView } ", " | M_DELETECOLUMNLISTVIEW M_PO L_WIN M_2PP L_INTEGER M_PF { CodeExeDeleteColumnListView } ", " | M_DELETEITEMLV M_PO L_WIN M_2PP L_INTEGER M_PF { CodeExeDeleteItemListView } ", " | M_SORTLISTVIEW M_PO L_WIN M_PF { CodeExeSortItemListView } ; ", " T_TOKEN_TREEVIEW : ", " M_ADDITEMTV M_PO L_WIN M_2PP L_INTEGER M_V M_LOADBTREE M_PO L_ALNUM M_PF { CodeExeAddItemBtreeTreeView } M_PF ", " | M_ADDITEMTV M_PO L_WIN M_2PP L_INTEGER M_V T_ALNUMORSTRING M_PF { CodeExeAddItemTreeView } ", " | M_REPLACEICONTREEVIEW M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeReplaceIconTreeView } ", " | M_GETSELECTITEMTV M_PO L_WIN M_PF ", " M_RETURNING M_PO L_INTEGER M_V L_ALNUM M_PF { CodeExeGetSelectItemTreeView } ", " | M_CLEARTREEVIEW M_PO L_WIN M_PF { CodeExeClearTreeView } ; ", " T_TOKEN_TABCONTROL : ", " M_GETSELECTITEMTC M_PO L_WIN M_PF M_RETURNING M_PO L_INTEGER M_PF { CodeExeGetSelectItemTabControl } ", " | M_SETSELECTITEMTC M_PO L_WIN M_2PP L_INTEGER M_PF { CodeExeSetSelectItemTabControl } ", " | M_SETACTIVEWINITEMTC M_PO L_WIN M_2PP L_INTEGER M_PF { CodeExeSetActiveWinItemTabControl } ;", " T_TOKEN_MENU : M_GETSELECTPOPMENUITEMID M_PO M_PF M_RETURNING M_PO L_INTEGER M_PF { CodeExeGetSelectPopMenuItemID } ", " | M_DELETEPOPMENUITEMID M_PO L_INTEGER M_V L_INTEGER M_PF { CodeExeDeletePopMenuItemID } ", " | M_BEGINTRACKPOPMENU M_2PP L_WIN { CETrackPOPMenuCreate } ", " T_TRACKMENUITEM M_ENDTRACKPOPMENU ", " M_OPENTRACKPOPMENU M_PO M_PF { CEOpenTrackPopMenu } ;", " T_TRACKMENUITEM : M_MENUITEM L_CONST_STRING { CETrackMenuItemCreate } T_TRACKMENUITEMSUITE T_TRACKMENUITEM ", " | M_MENUITEM L_STRING { CETrackMenuItemCreate } T_TRACKMENUITEMSUITE T_TRACKMENUITEM ", " | M_BEGINSUBMENU M_2PP L_HMENU L_STRING { CETrackSyntSUBMenuBegin } ", " { CETrackSUBMenuBegin } T_TRACKMENUITEM ", " M_ENDSUBMENU { CETrackSUBMenuEnd } T_TRACKMENUITEM ", " | M_MENUITEM M_SEPARATOR { CETrackMenuItemCreateSeparator } T_TRACKMENUITEM ", " | ; ", " T_TRACKMENUITEMSUITE : M_V T_TRACKMENUITEMPROPRIETE T_TRACKMENUITEMSUITE", " | ;", " T_TRACKMENUITEMPROPRIETE : M_MENUID M_2PP L_CONST_NUM { CETrackMenuItemID } T_TRACKMENUITEMPROPRIETE ", " | M_DISABLE { CETrackMenuItemDisable } T_TRACKMENUITEMPROPRIETE ", " | T_TRACKCREATE_MENU T_TRACKMENUITEMPROPRIETE ", " | ; ", " T_TRACKCREATE_MENU : M_CREATE M_2PP M_PICTUREBMP L_CONST_STRING { CETrackMenuItemPictureBmp } ", " | M_CREATE M_2PP M_PICTUREBMP L_STRING { CETrackMenuItemPictureBmp } ;", /*************** TAB CONTROL ***************************************** */ //"T_TABCONTROL : M_TABCONTROL L_WIN T_WIN_STYLE ", " T_TABCONTROL : M_BEGINTABCONTROL L_WIN M_2PP T_WIN_STYLE T_WIDTHEIGTH_TC ", " L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER { CodeExeDefineTabControl } ", " ", " T_TABCONTROLITEM M_ENDTABCONTROL { CodeExeEndTabControl } ; ", " T_TABCONTROLITEM : M_BEGINTABCONTROLITEM T_TABCONTROL_SUITE ", " T_DIALOGOPTION M_ENDTABCONTROLITEM T_TABCONTROLITEM ", " | ;", " T_TABCONTROL_SUITE : ", " L_INTEGER M_2PP L_STRING { CodeExeInsertTabControl } ", " T_TABCONTROL_SUITE_ICON T_TABCONTROL_SUITE", " | M_V ", " | ;", " T_TABCONTROL_SUITE_ICON : M_WITH M_PICTUREICON M_2PP T_TABCONTROL_SUITE_ICON_2", " | ;" , " T_TABCONTROL_SUITE_ICON_2 : L_STRING { CodeExeInsertIconTabControl } ", " | L_INTEGER { CodeExeInsertIconSysTabControl } ;", /*************** TOOL CONTROL ***************************************** */ " T_TOOLBAR2 : M_BEGINTOOLBAR T_TOOLBAR2_SUITE " " M_ENDTOOLBAR { CodeExeEndToolBar } ;", " T_TOOLBAR2_SUITE : M_TOP { CodeExeTopToolBar } T_TOOLBAR2_SUITE2 ", " | M_BOT { CodeExeBotToolBar } T_TOOLBAR2_SUITE2 ; ", " T_TOOLBAR2_SUITE2 : L_WIN ", " T_WIN_STYLE { CodeExeDefineToolBar } T_TOOLBAR2_PROPRIETE ; ", " T_TOOLBAR2_PROPRIETE : ", " T_BUTTON T_TOOLBAR2_PROPRIETE", " | ; ", " T_REBAR : M_BEGINREBAR T_REBAR_SUITE T_REBAR_SUITE2 M_ENDREBAR { CodeExeEndReBar } ; ", " T_REBAR_SUITE : M_TOP { CodeExeTopReBar } T_REBAR_SUITE ", " | M_BOT { CodeExeBotReBar } T_REBAR_SUITE ", " | M_VRIGHT { CodeExeVrightReBar } T_REBAR_SUITE ", " | M_VLEFT { CodeExeVleftReBar } T_REBAR_SUITE ", " | ; ", " T_REBAR_SUITE2 : L_WIN ", " L_INTEGER M_V L_INTEGER { CodeExeDefineReBar } ", " T_REBAR_PROPRIETE ; ", " T_REBAR_PROPRIETE : ", " T_COMBOBOX T_REBAR_PROPRIETE ", " | T_TOOLBAR2 T_REBAR_PROPRIETE", " | T_BUTTON T_REBAR_PROPRIETE", " | T_TEXT T_REBAR_PROPRIETE ", " | T_TEXTBOX T_CREATE_TEXT_BOX T_REBAR_PROPRIETE ", " | T_CHECKBOX T_REBAR_PROPRIETE ", " | T_LISTBOX T_REBAR_PROPRIETE", " | T_GROUPBOX T_REBAR_PROPRIETE", " | T_PICTUREICON T_CREATE T_REBAR_PROPRIETE ", " | T_PICTUREIMAGE T_CREATE_BUTTON T_REBAR_PROPRIETE ", " | ;", " T_TOOLBAR : M_BEGINTOOLBAR T_PUSH M_ENDTOOLBAR ; ", " T_PUSH : M_TOP { CodexInitToolBar } T_PUSHTOPTOOLBARICON ", " | M_BOT { CodexInitToolBar } T_PUSHBOTTOOLBARICON " , " | M_VRIGHT { CodexInitToolBar } T_PUSHVRIGHTTOOLBARICON " , " | M_VLEFT { CodexInitToolBar } T_PUSHVLEFTTOOLBARICON ; " , " T_PUSHTOPTOOLBARICON : M_PUSHICON M_2PP L_STRING M_V L_WIN ", " { CodexTOPToolBarPushIcon } ", " T_CREATE T_PUSHTOPTOOLBARICON ", " | M_ESPACE L_INTEGER { CodexESPACEToolBar } T_PUSHTOPTOOLBARICON ", " | ;", " T_PUSHBOTTOOLBARICON : M_PUSHICON M_2PP L_STRING M_V L_WIN ", " { CodexBOTToolBarPushIcon } ", " T_CREATE T_PUSHBOTTOOLBARICON ", " | M_ESPACE L_INTEGER { CodexESPACEToolBar } T_PUSHBOTTOOLBARICON ", " | ;", " T_PUSHVRIGHTTOOLBARICON : M_PUSHICON M_2PP L_STRING M_V L_WIN ", " { CodexVRIGHTToolBarPushIcon } ", " T_CREATE T_PUSHVRIGHTTOOLBARICON ", " | M_ESPACE L_INTEGER { CodexESPACEToolBar } T_PUSHVRIGHTTOOLBARICON ", " | ;", " T_PUSHVLEFTTOOLBARICON : M_PUSHICON M_2PP L_STRING M_V L_WIN ", " { CodexVLEFTToolBarPushIcon } ", " T_CREATE T_PUSHVLEFTTOOLBARICON ", " | M_ESPACE L_INTEGER { CodexESPACEToolBar } T_PUSHVLEFTTOOLBARICON ", " | ;", " T_CREATE : M_CREATE M_2PP T_CREATE_CATEGORIE ", " | ;", " T_CREATE_CATEGORIE : M_INFO L_STRING { CodexINFO } T_CREATE_CATEGORIE_USE", "** DEMO ", " | M_ALBUMBMP L_ALNUM M_PO { CodexInitAlbumAlnum } ", " T_CREATEALBUMBMP M_WITH T_CREATEALBUMBMPTOUCHE M_PF ", " | ;", " T_CREATE_TEXT_BOX : M_CREATE M_2PP T_CREATE_TEXT_BOX_SUITE ", " | ;", " T_CREATE_TEXT_BOX_SUITE : ", " | M_LIKE T_LINK_LIST T_CREATE_TEXT_BOX_SUITE ", " | M_INFO L_STRING { CodexINFO } T_CREATE_CATEGORIE_USE ", " T_CREATE_TEXT_BOX_SUITE ", " | M_CURSOR L_STRING { CodexCURSOR } T_CREATE_TEXT_BOX_SUITE ", " | M_V T_CREATE_TEXT_BOX_SUITE ", " | M_USE T_CREATE_TEXT_BOX_SUITE ", " | ;", " T_CREATE_BUTTON : M_CREATE M_2PP T_CREATE_BUTTON_SUITE ", " | ;", " T_CREATE_BUTTON_SUITE : ", " M_INFO L_STRING { CodexINFO } T_CREATE_CATEGORIE_USE ", " T_CREATE_BUTTON_SUITE ", " | M_CURSOR L_STRING { CodexCURSOR } T_CREATE_BUTTON_SUITE ", " | M_TEXT L_STRING { CodexLABEL } T_CREATE_BUTTON_SUITE ", " | M_USE T_CREATE_BUTTON_SUITE ", " | M_V T_CREATE_BUTTON_SUITE ", " | ;", " T_CREATE_CATEGORIE_USE : M_USE M_ELLIPSE { CodexELLIPSEToolBar } ", " | M_V T_CREATE_CATEGORIE ", " | ;", /* ListView & TreeView*/ " T_CREATE_LV : M_CREATE M_2PP T_ICON_LISTVIEW T_STRING_COLUMN_LISTVIEW ", " | ;" , " T_CREATE_TV : M_CREATE M_2PP M_WITH M_PICTUREICON M_2PP T_ICON_TREEVIEW_SUITE ", " | ;" , /* Menu */ " T_CREATE_MENU : M_CREATE M_2PP M_PICTUREBMP L_CONST_STRING { CodeExeMenuItemPictureBmp } ", " | M_CREATE M_2PP M_PICTUREBMP L_STRING { CodeExeMenuItemPictureBmp } ;", " T_LINK_LIST : ", " | T_VAR_LINK_LIST " , "** T_LINK_FORMAT T_LINK_PONCT " , "** T_LINK_LIST " , " | ;", " T_VAR_LINK_LIST : L_ALNUM { CodexLinkAlnum } " , " | L_LONG { CodexLinkLong } " , " | L_DOUBLE { CodexLinkDouble } " , " | L_FLOAT { CodexLinkFloat } " , " | L_INTEGER { CodexLinkInteger } " , " | ; ", " T_LINK_PONCT : M_V ", " | M_PV ;", " T_LINK_FORMAT : M_FORMAT M_PO T_LINK_FORMAT_SUITE M_PF ", " | ; ", " T_LINK_FORMAT_SUITE : M_DMY " , " | M_YMD ", " | L_INTEGER " , " | ; ", " T_ICON_LISTVIEW : M_WITH M_PICTUREICON M_2PP T_ICON_LISTVIEW_SUITE ", " | ;" , " T_ICON_LISTVIEW_SUITE : L_STRING { CodexIconStringColumnListview } T_ICON_LISTVIEW_SUITE2", " | L_INTEGER { CodexIconSysColumnListview } T_ICON_LISTVIEW_SUITE2 ; ", " T_STRING_COLUMN_LISTVIEW : M_COLUMN L_INTEGER M_2PP L_STRING { CodexColumnListview } ", " T_STRING_COLUMN_LISTVIEW ", " | M_USE T_STRING_COLUMN_LISTVIEW ", " | M_FRAMEWORK { CodexeLVS_GRID } T_STRING_COLUMN_LISTVIEW", " | M_CHECKBOX { CodexeLVS_CHECKBOX } T_STRING_COLUMN_LISTVIEW", " | M_V T_STRING_COLUMN_LISTVIEW ", " | ;", /* liste view ICON */ " T_ICON_LISTVIEW_SUITE2 : M_TEXT L_STRING { CodexIconTextListview } T_ICON_LISTVIEW_SUITE2 " , " | M_V T_ICON_LISTVIEW_SUITE ", " | ;", " T_ICON_TREEVIEW_SUITE : L_STRING { CodexIconStringTreeview } ", " | L_INTEGER { CodexIconSysTreeview } ; ", "*T_SPLASHSCREEN : M_BEGINSPLASH { CodeTrueWhile } ", " T_SPLASHSCREEN : M_BEGINSPLASH ", " T_BACKGROUND ", " M_WINEXTENDSTYLE M_2PP T_WIN_EXTENDSTYLE ", " M_WINSTYLE M_2PP T_WIN_STYLE ", " L_INTEGER M_V L_INTEGER M_V ", " L_INTEGER M_V L_INTEGER M_V L_STRING M_V L_WIN { CodexeBeginDialog } ", " { CodexeTdialog } ", " { CodexeMakeDialog } ", " T_DIALOGOPTION ", " M_ENDSPLASH { CodexeEndDialog } ", " | ;", " T_DIALOG : M_BEGINDIALOG { CodeTrueWhile } ", " T_BACKGROUND ", " M_WINEXTENDSTYLE M_2PP T_WIN_EXTENDSTYLE ", " M_WINSTYLE M_2PP T_WIN_STYLE ", " L_INTEGER M_V L_INTEGER M_V ", " L_INTEGER M_V L_INTEGER M_V L_STRING M_V L_WIN { CodexeBeginDialog } ", " { CodexeTdialog } ", " { CodexeMakeDialog } ", " T_DIALOGOPTION ", " M_ENDDIALOG { CodexeEndDialog }", " T_DIALOG ", " | ;", " T_DIALOGCHILD :", " M_BEGINDIALOGCHILD { CodeTrueWhile } ", " M_2PP L_WIN { CodexeSaveDialogFather } ", " T_BACKGROUND ", " M_WINEXTENDSTYLE M_2PP T_WIN_EXTENDSTYLE ", " M_WINSTYLE M_2PP T_WIN_STYLE ", " L_INTEGER M_V L_INTEGER M_V ", " L_INTEGER M_V L_INTEGER M_V L_STRING M_V L_WIN { CodexeBeginDialog } ", " { CodexeTdialog } ", " { CodexeMakeDialogChild } ", " T_DIALOGOPTION ", " M_ENDDIALOGCHILD { CodexeEndDialog }", " T_DIALOGCHILD ", " | ;", "** { CodeExeDepileAll } : obligatoire p/depile fait par Analyseur" , "** et à faire pour l'INTREPRETEUR", " T_DIALOGOPTION : ", " T_DIALOGCHILD { CodeExeDepileAll } ", " | T_COMBOBOX { CodeExeDepileAll } T_DIALOGOPTION ", " | T_BUTTON { CodeExeDepileAll } T_DIALOGOPTION ", " | T_TEXT { CodeExeDepileAll } T_DIALOGOPTION ", " | T_TEXTBOX { CodeExeDepileAll } T_CREATE_TEXT_BOX T_DIALOGOPTION ", " | T_CHECKBOX { CodeExeDepileAll } T_DIALOGOPTION ", " | T_LISTBOX { CodeExeDepileAll } T_DIALOGOPTION ", " | T_LISTVIEW T_CREATE_LV { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_RECTANGLE L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP " " M_FILLCOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_FRAMECOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER { CERectangle }", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ROUNDRECT L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP " " T_SUITEROUNDRECT", " { CERoundRect }", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ROUNDANNOUNCE L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP ", " M_ROUNDDIMENSION M_2PP L_INTEGER M_V L_INTEGER ", " T_SUITEANNOUNCE1 ", " { CERoundAnnounce }", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ROUNDANNOUNCE L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP ", " M_ROUNDDIMENSION M_2PP L_INTEGER M_V L_INTEGER ", " T_SUITEANNOUNCE2 ", " { CERoundAnnounceShadow }", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ANNOUNCE L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP ", " T_SUITEANNOUNCE1 ", " { CEAnnounce } ", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ANNOUNCE L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP ", " T_SUITEANNOUNCE2 ", " { CEAnnounceShadow } ", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ELLIPTICAL L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP ", " T_SUITEANNOUNCE1 ", " { CEelliptical } ", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | M_ELLIPTICAL L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER M_V L_WIN M_ATTRIBUT M_2PP ", " T_SUITEANNOUNCE2 ", " { CEellipticalShadow } ", " { CodeExeDepileAll } ", " T_DIALOGOPTION ", " | T_GRID { CodeExeDepileAll } T_DIALOGOPTION ", " | T_STATUSBAR { CodeExeDepileAll } ", " | T_TREEVIEW T_CREATE_TV ", " { CodeExeDepileAll } T_DIALOGOPTION ", " | T_SCROLLBAR { CodeExeDepileAll } T_DIALOGOPTION ", " | T_GROUPBOX { CodeExeDepileAll } T_DIALOGOPTION ", " | T_PICTUREICON T_CREATE { CodeExeDepileAll } T_DIALOGOPTION ", " | T_PUSHICON T_CREATE_BUTTON { CodeExeDepileAll } T_DIALOGOPTION ", " | T_REBAR { CodeExeDepileAll } T_DIALOGOPTION ", " | T_PICTUREIMAGE T_CREATE_BUTTON { CodeExeDepileAll } T_DIALOGOPTION ", " | T_ANIMATEBMP { CodeExeDepileAll } T_DIALOGOPTION ", " | T_OPTIONGROUP { CodeExeDepileAll } T_DIALOGOPTION ", " | T_TOOLBAR { CodeExeDepileAll } T_DIALOGOPTION ", " | T_TOOLBAR2 { CodeExeDepileAll } T_DIALOGOPTION ", " | T_TABCONTROL { CodeExeDepileAll } T_DIALOGOPTION ", " | T_MENU { CodeExeDepileAll } T_DIALOGOPTION ", " | ; ", "T_BACKGROUND : ", " M_BACKGROUNDCOLOR M_2PP L_LONG { CodexbackGroundColor1 } ", " | M_BACKGROUNDCOLOR M_2PP M_COLOR M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF { CodexbackGroundColor2 } ", " | M_BACKGROUNDBMP M_2PP L_STRING { CodexbackGroundBmp } ", " | M_BACKGROUNDHATCHBRUSH M_2PP L_LONG M_COLOR M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF { CodexbackGroundHatchBrush } ", " | ;", "T_SUITEROUNDRECT :", " M_ROUNDDIMENSION M_2PP L_INTEGER M_V L_INTEGER ", " M_FILLCOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_FRAMECOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ;", "T_SUITEANNOUNCE1 : ", " M_FILLCOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_FRAMECOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " T_SUITEANNOUNCE3 ;", "T_SUITEANNOUNCE2 : ", " M_FILLCOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_FRAMECOLOR M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_SHADOWTEXT M_2PP L_INTEGER M_V L_INTEGER M_COLOR M_PO L_INTEGER M_V L_INTEGER M_V L_INTEGER M_PF", " T_SUITEANNOUNCE3 ;", "T_SUITEANNOUNCE3 : ", " M_SETCOLORTXT M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " M_DRAWTEXT M_2PP L_LONG ", " M_SETFONTS 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_STRING ;", " T_WIN_INTEGER : L_INTEGER M_V L_INTEGER M_V", " L_INTEGER M_V L_INTEGER M_V", " L_INTEGER { CodexTSyntaxe } ;", " T_WIN_INTEGER_STRING : L_INTEGER M_V L_INTEGER M_V", " L_INTEGER M_V L_INTEGER M_V ", " L_STRING M_V L_INTEGER { CodexTSyntaxe } ; ", " T_COMBOBOX : M_COMBOBOX T_WIN_INTEGER { CodexTcombobox } ; ", " T_TEXT : M_TEXT M_2PP", " M_WINEXTENDSTYLE M_2PP T_WIN_EXTENDSTYLE ", " M_WINSTYLE M_2PP T_WIN_STYLE ", " T_WIN_INTEGER_STRING { CodexText } ;", " T_TEXTBOX : M_TEXTBOX M_2PP ", " M_WINEXTENDSTYLE M_2PP T_WIN_EXTENDSTYLE ", " M_WINSTYLE M_2PP T_WIN_STYLE ", " T_WIN_INTEGER { CodexTextbox } ;", /* ************************ GRID ************************************ */ " T_GRID : M_GRID T_WIN_INTEGER { CodexdefineGrid } T_PROPERTYGRID T_CREATE_GRID ;", " T_PROPERTYGRID : M_PROPERTY M_2PP M_HEIGHTCOLUMN L_CONST_NUM M_HEIGHTLINE L_CONST_NUM", " M_V M_MAX M_COLUMN L_CONST_NUM ", " M_V M_MAX M_LINES L_CONST_NUM { CodexdefineGridAlloc };", " T_CREATE_GRID : M_CREATE M_2PP T_STRING_COLUMN_GRID { CodexInitGrid }; ", " T_STRING_COLUMN_GRID : M_COLUMN L_INTEGER M_2PP L_STRING { CodexdefineGridColonne } ", " M_V M_PROPERTY M_2PP T_PROPERTYGRIDCOLUMN T_STRING_COLUMN_GRID ", " | M_V T_STRING_COLUMN_GRID ", " | M_USE M_FRAMEWORK T_STRING_COLUMN_GRID ", " | ; ", " T_PROPERTYGRIDCOLUMN : M_ALNUM { CodexdefineGridAlnum } M_V T_SIZEGRID M_V T_CADREGRID ", " | M_INTEGER { CodexdefineGridInt } M_V T_SIZEGRID M_V T_CADREGRID ", " | M_FLOAT { CodexdefineGridFloat } M_V T_SIZEGRID M_V T_CADREGRID ", " | M_DOUBLE { CodexdefineGriddouble } M_V T_SIZEGRID M_V T_CADREGRID", " | M_LONG { CodexdefineGridLong } M_V T_SIZEGRID M_V T_CADREGRID ", " | T_SIZEGRID M_V M_PICTUREICON M_2PP L_STRING ", " M_WIDTH M_ICON M_2PP L_INTEGER M_V M_HEIGHT M_ICON M_2PP L_INTEGER { CodexdefineGridIcon } ", " | T_SIZEGRID M_V M_PICTUREBMP M_2PP L_STRING { CodexdefineGridBmp } ", " | M_CHECK { CodexdefineGridCheck } M_V T_SIZEGRID ", " | M_PUSHBUTTON { CodexdefineGridPushButton } M_V T_SIZEGRID ", " | M_CHECKBOX { CodexdefineGridCheckBox } M_V T_SIZEGRID ", " | M_COMBOBOX { CodexdefineGridCombobox } M_V T_SIZEGRID ;", " T_SIZEGRID : M_SIZE L_INTEGER { CodexdefineSizeGridCol } ;", " T_CADREGRID : M_CENTER { CodexdefineGridColCenter } ", " | M_RIGHT { CodexdefineGridColRight } ", " | M_LEFT { CodexdefineGridColLeft } ; ", /* ************************ LIST VIEW ************************************ */ " T_LISTVIEW : M_LISTVIEW M_2PP T_WIN_STYLE T_WIN_INTEGER { CodexTlistview } " , " { CodexeLVS_SUBCLASSEDITSALL } ;", /* ************************ TREE VIEW ************************************ */ " T_TREEVIEW : M_TREEVIEW M_2PP T_WIN_STYLE T_WIN_INTEGER { CodexTreeview } ; " , " T_CHECKBOX : M_CHECKBOX T_WIN_INTEGER_STRING { CodexTcheckbox } ;", " T_LISTBOX : M_LISTBOX M_2PP ", " M_WINEXTENDSTYLE M_2PP T_WIN_EXTENDSTYLE ", " M_WINSTYLE M_2PP T_WIN_STYLE T_WIN_INTEGER { CodexTlistbox } ;", " T_SCROLLBAR : M_SCROLLBAR T_WIN_INTEGER { CodexTscrollBar } ;", " T_GROUPBOX : M_GROUPBOX L_INTEGER M_V L_INTEGER M_V", " L_INTEGER M_V L_INTEGER M_V", " L_STRING { CodexTgroupbox } ;", " T_OPTIONGROUP : M_OPTIONGROUP T_WIN_INTEGER_STRING { CodexTgroupboxRadio } T_OPTIONBUTTON ; ", " T_OPTIONBUTTON : M_OPTIONBUTTON T_WIN_INTEGER_STRING { CodexTradiobutton } T_OPTIONBUTTON ", " | ;", " T_PICTUREICON : M_PICTUREICON L_INTEGER M_V L_INTEGER M_V", " T_STRINGICON ; ", " T_STRINGICON : L_STRING M_V L_INTEGER ", " { CodexTPictureIconA } ", " { CodexTPictureIconInterprete } ", " | L_INTEGER M_V L_INTEGER ", " { CodexTPictureIconB } ", " { CodexTPictureIconSysInterprete } ;", " T_PUSHICON : M_PUSHICON L_INTEGER M_V L_INTEGER M_V", " L_INTEGER M_V L_INTEGER M_V ", " { CodexTPicturePushIcon1 } ", /* obligatoire p/empile Int ds syntaxe*/ " T_STRINGPUSHICON ;", " T_STRINGPUSHICON : ", " L_INTEGER M_V L_INTEGER ", " { CodexTPicturePushIconSys } ", " { CodexTPicturePushIconSysInterprete } ", " | L_STRING M_V L_INTEGER ", " { CodexTPicturePushIcon2 } ; ", " T_PICTUREIMAGE : M_PICTUREBMP L_INTEGER M_V L_INTEGER M_V", " L_STRING M_V L_INTEGER { CodexTPictureImage } ", " | M_PICTUREGIF L_INTEGER M_V L_INTEGER M_V", " L_STRING M_V L_INTEGER { CodexTPictureImage } ", " | M_PICTUREJPG L_INTEGER M_V L_INTEGER M_V", " L_STRING M_V L_INTEGER { CodexTPictureImage } ", " | M_PICTUREWMF L_INTEGER M_V L_INTEGER M_V", " L_STRING M_V L_INTEGER { CodexTPictureImage } ; ", //" { CodexTPictureBmpInterprete } ;", " T_ANIMATEBMP : M_ANIMATEBMP L_INTEGER M_V L_INTEGER M_V ", " L_STRING M_V L_INTEGER M_ATTRIBUT M_2PP ", " M_IMAGE M_2PP L_INTEGER M_V L_INTEGER M_V L_INTEGER ", " { CodexTAnimateBmp } ", " | M_ACTIVANIMATEBMP M_PO L_WIN M_PF { CExeActivateAnimateBmp } ; ", //" | M_ACTIVANIMATEGIFDIALOG M_PO L_WIN M_PF { CExeActivateAnimateGif } ;", " T_BUTTON : ", " T_PUSHBUTTON T_CREATE_BUTTON ", " | T_PUSHBUTTONDEF T_CREATE_BUTTON ", " | T_BUTTONDRAW T_CREATE_BUTTON ", " | T_BUTTONBMP T_CREATE_BUTTON ", " | T_BUTTONEMF T_CREATE_BUTTON ", " | T_BUTTONICON T_CREATE_BUTTON ", " | T_BUTTONTEXT T_CREATE_BUTTON ; ", " T_PUSHBUTTON : M_PUSHBUTTON T_WIN_INTEGER_STRING { CodexTbutton } ;", " T_PUSHBUTTONDEF : M_PUSHBUTTONDEF T_WIN_INTEGER_STRING { CodexTbuttonDef } ;", " T_BUTTONDRAW : M_BUTTONDRAW T_WIN_INTEGER_STRING { CodexTbuttonOwner } ;", " T_BUTTONBMP : M_BUTTONBMP T_WIN_INTEGER_STRING { CodexTBUTTONBMP } ", " | M_BUTTONBMPPUSH T_WIN_INTEGER_STRING { CodexTBUTTONBMPPush } ", " | M_BUTTONBMPPUSHLABEL T_WIN_INTEGER_STRING { CodexTBUTTONBMPPushLabel } ", " | M_BUTTONBMPDRAW T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONBMPDraw } ", " | M_BUTTONBMPDRAWLABEL T_WIN_INTEGER_STRING { CodexTBUTTONBMPDrawLabel } ", " | T_BUTTONREGIONCHILD ; ", " T_BUTTONREGIONCHILD : M_BUTTONREGIONCHILD L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER M_V L_INTEGER ", " M_V L_INTEGER { CodexTBUTTONBMPRegionChild } ", " T_CREATE_BUTTON T_BUTTONREGIONCHILD ", " | ; ", "T_BUTTONEMF : M_BUTTONEMF T_WIN_INTEGER_STRING { CodexTBUTTONEMF } ; ", " T_BUTTONTEXT : M_BUTTONTEXT T_WIN_INTEGER_STRING { CodexTBUTTONTEXT } ;", " T_BUTTONICON : M_BUTTONICON T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONICON } ", " | M_BUTTONICONPUSH T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONICONPush } ", " | M_BUTTONICONPUSHLABEL T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONICONPushLabel } ", " | M_BUTTONICONDRAW T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONICONDraw } ", " | M_BUTTONICONDRAWLABEL T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONICONDrawLabel } ", " | M_BUTTONICONDRAWLABELCENTER T_WIDTHEIGTH T_WIN_INTEGER_STRING { CodexTBUTTONICONDrawLabelCenter } ;", " T_WIN_INTEGER_STRINGICON : L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V L_INTEGER M_V", " T_STRINGBUTTONICON ; ", " T_STRINGBUTTONICON : ", " L_INTEGER M_V L_INTEGER ", " { CodexTPicturePushIconSys } ", " { CodexTPicturePushIconSysInterprete } ", " | L_STRING M_V L_INTEGER ; ", " T_WIDTHEIGTH : M_WIDTH M_ICON M_2PP L_INTEGER M_V M_HEIGHT M_ICON M_2PP L_INTEGER M_V { CodeExeWidtHeigth } ", " | { CodeExeWidtHeigth } ;", " T_WIDTHEIGTH_TC : M_WIDTH M_ICON M_2PP L_INTEGER M_V M_HEIGHT M_ICON M_2PP L_INTEGER M_V { CodeExeWidtHeigthTC } ", " | { CodeExeWidtHeigthTC } ;", " T_WIDTHEIGTHINTERP : M_WIDTH M_ICON M_2PP L_INTEGER M_V M_HEIGHT M_ICON M_2PP L_INTEGER ", " | ;", /* ************************ MENU ************************************ */ "T_MENU : M_BEGINMENU M_2PP L_HMENU { CodeExeMenuCreate } T_MENUPOP M_ENDMENU ; ", "** | ; ", " T_MENUPOP : M_BEGINPOPMENU M_2PP L_HMENU L_STRING { CodeExePOPMenuCreate } T_MENUITEM M_ENDPOPMENU T_MENUPOP ", " | ; ", " T_MENUITEM : M_MENUITEM L_CONST_STRING { CodeExeMenuItemCreate } T_MENUITEMSUITE T_MENUITEM ", " | M_MENUITEM L_STRING { CodeExeMenuItemCreate } T_MENUITEMSUITE T_MENUITEM ", " | M_BEGINSUBMENU M_2PP L_HMENU L_STRING { CodeExeSUBMenuBegin } T_MENUITEM ", " M_ENDSUBMENU { CodeExeSUBMenuEnd } T_MENUITEM ", " | M_MENUITEM M_SEPARATOR { CodeExeMenuItemCreateSeparator } T_MENUITEM ", " | ; ", " T_MENUITEMSUITE : M_V T_MENUITEMPROPRIETE T_MENUITEMSUITE", " | ;", " T_MENUITEMPROPRIETE : M_MENUID M_2PP L_CONST_NUM { CodeExeMenuItemID } T_MENUITEMPROPRIETE ", " | M_DISABLE { CodeExeMenuItemDisable } T_MENUITEMPROPRIETE ", " | T_CREATE_MENU T_MENUITEMPROPRIETE ", " | ; ", // * ***************************************************************************************** // * ********************** CODE EXE POP SYS FILE ******************************************** // * ***************************************************************************************** "T_TOKEN_SYSDIALOGFILE : M_SYSOPENFILE M_PO L_WIN M_2PP T_ALNUMORSTRING M_V T_ALNUMORSTRING ", " M_V T_ALNUMORSTRING M_V L_INTEGER M_PF { CodeExeSysOpenFile } T_RETURNING ", " | M_SYSSAVEFILE M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeSysSaveFile }", " | M_SYSPRINTFILE M_PO L_WIN M_2PP T_ALNUMORSTRING M_PF { CodeExeSysPrintFile }", " | M_SYSOPENDIRECTORY M_PO M_PF T_RETURNING { CodeExeSysOpenDirectory } ;", // * ***************************************************************************************** // * ********************** CODE EXE DEMO WINDOW ******************************************** // * ***************************************************************************************** " T_INSTRUCTION_DEMO_WINDOWS : ", " M_REQUIRE T_INSTRUCTION_DEMO_WINDOWS ", " | M_SHOWALBUMBMP M_PO L_ALNUM M_PF { CodexShowAlbumAlnum } ; ", " T_CREATEALBUMBMP : T_ALNUMORSTRING { CodexCreateAlbumAlnum } T_CREATEALBUMBMP " , " | M_V T_CREATEALBUMBMP", " | ;", " T_CREATEALBUMBMPTOUCHE :", " M_ISCLICKMOUSE M_PO M_LEFT M_PF ", " | M_ISCLICKMOUSE M_PO M_RIGHT M_PF ", " | M_ENTER ;", " T_WIN_EXTENDSTYLE : ", " M_2PP L_LONG { CodexeExtendWinStyle } T_WIN_EXTENDSTYLE ", " | M_AND T_WIN_EXTENDSTYLE ", " | ; ", " T_WIN_STYLE : ", " M_2PP L_LONG { CodexeWinStyle } ", " { CodexeWinStyleIntrep } T_WIN_STYLE ", " | M_CENTERWINDOW { CodexCenterWindow } T_WIN_STYLE ", " | M_FULLWINDOW { CodexFullWindow } T_WIN_STYLE ", " | M_AND T_WIN_STYLE ", " | ; ", "", "", } ; extern char *ligneCodeExe[] = { "/* affectation numérique := + / - * ********************* */", "#define CodeExeBBSError 1", "#define CodeExeDefineBeginBloc 2", "#define CodeExeDefineEndBloc 3", "#define CodeExeDefineBeginMot 4", "#define CodeExeDefineEndMot 5", "#define CodeExeMult 100", "#define CodeExeAdd 101", "#define CodeExeDiv 102", "#define CodeExeSoust 103", "#define CodeExeOpe 104", "#define InitCalcul 105", "#define CodeTableSym 106", "#define CodeExeAffect 107", "#define CodeExeTabSymUpdate 108", "#define CodeExeOpeFloat 109", "#define CodeExeOpeLong 110", "#define CodeExeOpeInt 111", "#define CodeExeOpeDouble 112", "#define CodeExeIncrAdd 113", "#define CodeExeIncrSoust 114", "#define CodexeSaveValResult 115 ", "#define CodexeReturningNum 116 ", "/* affectation alphanumérique := L_string ou L_alphnum ********************** */", "#define CodeExeMoveString 150", "#define CodeExeMoveAlphNum 151", "#define CodeExeMoveAlphNumPosit 152", "#define CodeExeMoveAlphNumPositM_V 153", "#define CodexeSaveNameZone 154 ", "#define CodeExeMoveStringInstructionSql 155 ", "#define CESearchingString 156", "#define CodeExeAddString 157", "/* instruction : CASE ******************************************************************** */", "#define CodexCaseDepileInt 180", "#define CodexCaseDepileLong 181", "#define CodexCaseDepileString 182", "#define CodexCaseDepileChar 183", "#define CodexCaseInt 184", "#define CodexCaseChar 185", "#define CodexCaseString 186", "#define CodexCaseLong 187", "#define CodeTrueCase 188", "#define CodeCaseOther 189", "#define CodeTrueWhen 190", "#define CodeTrueOtherWise 191", "/* Code éxécution instruction BREAK****************************************************** */", "#define CodeExeBreak 195", "/* Code éxécution instruction IF ***************************************************** */", "#define CodexIfET 200", "#define CodexIfOU 201", "#define CodexIfCharEGAL 202", "#define CodexIfCharINF 203", "#define CodexIfCharSUP 204", "#define CodexIfCharEINF 205", "#define CodexIfCharESUP 206", "#define CodexIfCharNEGAL 207", "#define CodexIfCharNVOID 208", "#define CodexIfCharVOID 209", "#define CodexIfNumEGAL 220", "#define CodexIfNumINF 221", "#define CodexIfNumSUP 222", "#define CodexIfNumEINF 223", "#define CodexIfNumESUP 224", "#define CodexIfNumNEGAL 225", "#define CodexIfNumNVOID 226", "#define CodexIfNumVOID 227", "#define CodeExeIfOpeChar 230", "#define CodeExeIfOpeNum 231", "/* Code éxécution instruction IF ***************************************************** */", "#define CodeTrueIf 232" , "#define CodeTrueIfThen 233", "#define CodeTrueElse 234", "#define CodeTrueIfEnd 235", "/* Code éxécution instruction WHILE *et DOWHILE************************************* */", "#define CodeTrueWhile 300", "#define CodeTrueWhileBegin 310", "#define CodeTrueEndDoWhile 320", "#define CodeTrueEndWhile 350", "/* Code éxécution instruction CONTINUE*********************************************** */", "#define CodeTrueContinue 400", "/* Code éxécution instruction LEAVE ********************************************** */", "#define CodeTrueLeave 410", "/* Code éxécution instruction FOR ***************************************************** */", "#define CodeTrueFor 700", "#define CodeTrueForBegin 710", "#define CodeTrueForEnd 720", "#define CodeTrueForInit 730", "#define CodeExeAfterEndFor 740", "#define CodeExeExpressionFor 750", "#define CodeCaptureOffsetRecur 760", "/* Code éxécution instruction DO *********************************************************** */ ", "#define CodeTrueDo 1300" , "#define CodeTrueExpressionDo 1305" , "#define CodeTrueDoBegin 1310" , "#define CodeTrueDoEnd 1350 " , "/* Code éxécution instruction PRINT/DISPLAY *************************** */ ", "#define CodexPrintString 4000 " , "#define CodexPrintChar 4001 " , "#define CodexPrintInt 4002 " , "#define CodexPrintLong 4003 " , "#define CodexPrintFloat 4004 " , "#define CodexPrintStringLiteral 4005 " , "#define CodeExeDatePrint 4006 " , "#define CodeExeTimePrint 4007 " , "#define CodeExePage 4008 " , "#define CodeExeColumn 4009 ", "#define CodeExeEndColumnDisplay 4010 ", "#define CodeExeEndColumnPrint 4011 ", "#define CodeExeColumn2 4013 ", "#define CodexPrintDouble 4014 ", "#define CodeExeEndColumnDisplayBox 4015 ", "#define CodeExeCaptionBox 4016 ", "#define CodeExeEndColumnDisplayPrint 4017 ", "/* Gestion des transferts variables des proc ou fonctions */", "#define sysproc1Float 8000", "#define sysproc1Long 8001", "#define sysproc1Integer 8002", "#define sysproc1Char 8003", "#define sysproc1String 8004", "#define sysproc1Double 8005", "#define sysproc2Float 8010", "#define sysproc2Long 8011", "#define sysproc2Integer 8012", "#define sysproc2Char 8013", "#define sysproc2String 8014", "#define sysproc2Double 8015", "/* Code éxécution des PROCEDURES OU FUNCTION************************************* */", "#define CodeExeProcFunc 8020", "#define CodeExeReturn 8021", "#define CodeExeReturning 8022", "#define sysCodeReturning 8023", "#define CodeExeInitVarLocal 8024", "/* Code éxécution gestion de FICHIER************************************* */" , "#define CodeExeFileRename 9001 " , "#define CodeExeFileCopy 9002 " , "#define CodeExeFileDelete 9003 " , "#define CodeExeFileMerge 9004 ", "#define CodeExeFileOpenRead 9005 ", "#define CodeExeFileOpenReadWrite 9006 ", "#define CodeExeFileOpenWrite 9007 ", "#define CodeExeFileOpenExist 9008 ", "#define CodeExeFileRead 9010 ", "#define CodeExeFileClose 9011 ", "#define CodeExeFileCloseAll 9012 ", "#define CodeExeFileUpdate 9013 ", "#define CodeExeFileRestore 9014 ", "#define CodeExeFileAdd 9015 ", "#define CodeExeFileScan 9016 ", "#define CodeExeFileScanDir 9017 ", "#define CodeExeFileReturnStatus 9025 ", "#define CodeExeDirExist 9026 ", "#define CodeExeFileEof 9027 ", "#define CodeExeFileTop 9028 ", "#define CodeExeFileBot 9029 ", "#define CodeExeFileCur 9030 ", "#define CodeExeFileInquire 9031 ", "#define CodeExeExecuteFileFetch500 9032 ", "#define CodeExeExecuteForEachFile 9033 ", "#define CodeExeExecuteFileFindFirst 9034 ", "#define CodeExeExecuteForEachFileEnd 9035 ", "#define CodeExeGetInfoFileName 9036 ", "/* instruction :keyword **************************************************************** */", "#define CodeInitStructn 10010", "#define CodeInitStructMaster 10011", "#define CodeExeSizeofStruct 10015", "#define CodeExeGlobalContexteI 10016", "#define CodeExeLocalContexteI 10017", "#define CodeExeEnter 10018", "#define DisplayTablesSymbIntrepGlobal 10019", "#define DisplayTablesSymbIntrepLocal 10020", "#define CodeExeDepileAll 10021", /* Pour Depiler ttes les variables déjà creer par le 1er cycle de l'interpreteur */ "#define CodeExeEmpileNULL 10022", "#define CodexInitStringConcat 40000", "#define CodexStringAlphNumConcat 40001", "#define CodexStringStringConcat 40002", "#define CodexStringConcat 40003", "#define CodexConvernumeric 40004", "#define CodexConvernumericFormat 40005", "#define CodexStringLength 40006", "#define CodexStringSort 40007", "#define CodexStringReverse 40008", "#define CodexStringRepeat 40009", "#define CodexStringToupper 40010", "#define CodexStringUpper 40011", "#define CodexStringM_2PP 40012", "#define CodexStringM_2PP_M_v 40013", "#define CodexCharToupper 40014", "#define CodexCharUpper 40015", "#define CodeExeExternC 40016", "#define CodeExeExternCsuite 40017", "#define CodexStringNumeric 40018", "#define CodeExeCommandWindows 40019", "#define CodeExeCommandBBS 40020", "#define CodeExeExitPgm 40021", "#define CodexStringToNumeric 40022", "#define CodeExeProcessWindows 40023", "#define CodexClearString 40024", "#define CodexClearInteger 40025", "#define CodexClearLong 40026", "#define CodexClearFloat 40027", "#define CodexClearDouble 40028", "#define CodeExeIntegerReturnStatus 40029", "#define CodeExeLongReturnStatus 40030", "#define CodeExeFloatReturnStatus 40031", "#define CodeExeDoubleReturnStatus 40032", "#define CodeExeCharReturnStatus 40033", "#define CodexFreeMemory 40034", "#define CodeExeBbsLogo 40035", "#define CodeExeBbsOrder 40036", "#define CodeExeLookupBtree 40050", "#define CodeExeInsertBtreeIntrep 40051", "#define CodeExeDeleteBtreeIntrep 40052", "#define CodeExeUpdateBtreeIntrep 40053", /* WINDOWS */ /* color : display */ "#define CodeExeDrawIconFile 50100", "#define CodeExeIconDialog 50102", "#define CodexTPictureIconInterprete 50103 ", "#define CodexTPictureBmpInterprete 50104 ", "#define CodexTPictureIconSysInterprete 50105 ", "#define CodexTPicturePushIconSysInterprete 50106", "#define CodeExeDrawIconFileSys 50107", "#define CodeExeRepLaceButtonBmp 50108", "#define CodeExeRepLaceButtonIcon 50109", "#define CodeExeWidtHeigthIntrep 50110", "#define CodeExeSwapBmp 50111", "#define CodeExeSwapIcon 50112", "#define CodeExeSwapText 50113", "#define CodeExeSwapColor 50114", "#define CodeExeSwapFont 50115", "#define CodeExeDrawFocusRect 50116", "#define CodeExeDrawEmfFile 50117", "#define CExeActivateAnimateBmp 50119", "#define CodeExeDrawFocusRectList 50120", "#define CodeExeDrawImage 50121", "#define CExeActivateAnimateGif 50122", "#define CodeExeBeginTransaction 50300", "#define CodeExeDestroyDialog 50301 ", "#define CodeExeOpenDialog 50302 ", "#define CodeExeShowDialog 50303 ", "#define CodeExeBeginInitialize 50304 ", "#define CodeExeEndInitialize 50305 ", "#define CodeExeSETWinTxt 50306 ", "#define CodeExeSETWinTxtFile 50307 ", "#define CodeExeWindowsDir 50308", "#define CodeExeGetwinTxt 50309", "#define CodeExeBeep 50310", "#define CodeExePlaySound 50311", "#define CodeExeSETWinTxtString 50312 ", "#define CodeExeinputData 50313 ", "#define CodexeBeginDialog 50314 ", "#define CodexeEndDialog 50315 ", "#define CodeExeCloseWindow 50316 ", "#define CodeExeCloseDialog 50317 ", "#define CodeExeDestroyWindow 50318 " , "#define CodexeTtoolbarInterprete 50320 ", "#define CodeExeSETInfo 50321 ", "#define CodeExeSETWinPos 50322 ", "#define CodeExeSETDialogPos 50323 ", "#define CodeExeSETDisplayPos 50324 ", "#define CodeExeMsCalendar 50325 ", "#define CodeExeShowSplash 50326 ", "#define CodexINFOButtonBmp 50327", "#define CodeExeSysWindowsDir 50328", "#define CodeExeEndTransaction 50329", "#define CodeExeBeginMessageDialog 50330", "#define CodeExeEndMessageDialog 50331", "#define CodeExeSetCurrentDir 50332", "#define CodeExeGetCurrentDir 50333", "#define CodeExeGetLastError 50334", "#define CodeExeGetMessage 50335", "#define CodeExeSetHourglassCursor 50336", "#define CodeExeSetArrowCursor 50337", "#define CodeExeSetCursorPosition 50338", "#define CodeExeRefreshDialog 50339", "#define CodeExeRefreshWindow 50340", "#define CodeExeSetStatusDialog 50341", "#define CodeExeSetStatusWindow 50342", "#define CodeExeBeginMessageOnClickDialog 50343", "#define CodeExeBeginMessageOnMenuSelect 50344", "#define CodeExeBeginMessageOnMoveCursor 50345 ", "#define CodeExePlayMovieAvi 50346 ", "#define CodexeWinStyleIntrep 50347 ", "#define CodeExeSetNewParentWin 50348 ", "#define CodeExeBeginMessageInputData 50349", "#define CodeExeIsOnInputData 50350", "#define CEReturnTransaction 50351", "#define CodeExeSetNewParentDialog 50352", "#define CodeExeForeGroundDialog 50353", "#define CodeExeWinhelp 50354 ", "#define CodeExeDestroyAnimateGif 50355 ", "#define CodeExeWait 50356 ", /* Win Color */ "#define CodeExeColorWinButton 50501 ", "#define CodeExeSetColorTxt 50502 ", "#define CodeExeBkColorDialog 50503", "#define CodeExeColor 50504", "#define CodeExeSetBkColorLV 50505", "#define CodeExeGetColorTxt 50506", "#define CodeExeSetColorTxtLV 50507 ", "#define CodeExeColorButton 50508 ", "#define CodeExeColorLong 50509", "#define CodeExeSetColorTxtHwdisplay 50510", "#define CodeExeSetColorSys 50511", "#define CodeExeRestoreColorSys 50512", "#define CodeExeFillColor1 50513", "#define CodeExeFrameColor1 50514", "#define CodeExeFillColor2 50515", "#define CodeExeFrameColor2 50516", "#define CodeExeSetBkColorGIF 50517", /* Win Button */ "#define CodeExeGetCheck 50700 ", "#define CodeExeSetCheck 50701 ", "#define CodeExeUnCheck 50702 ", "#define CodeExeSetPushEnable 50703 ", "#define CodeExeSetPushDisable 50704 ", "#define CodeExeGetPush 50705 ", "#define CodeExeEnable 50706 ", "#define CodeExeDisable 50707 ", "#define CodeExeIsOnSetCursor 50708 ", "#define CodeExeHideWin 50709 ", "#define CodeExeRestoreWin 50710 ", "#define CodexCenterWindowIntrep 50711 ", "#define CodexFullWindowIntrep 50712 ", "#define CodeExeIsOnSetCursorListInit 50713 ", "#define CodeExeIsOnSetCursorList 50714 ", "#define CodeExeDrawTextSaveWin 50900 ", "#define CodeExeDrawTextWin 50901", "#define CodeExeDrawRectangle 50902 ", "#define CodeExeDrawRoundRectangle 50903 ", "#define CodeExeDrawTriangle 50904 ", "#define CodeExeDrawCercle 50905 ", "#define CodeExeRepaintBmp 50906 ", "#define CodeExeFrameRect 50907 ", "#define CodeExeFillRect 50908 ", "#define CodeExeDrawText 50909 ", /* Win Box :ListBox ,ComBoBox, LisTview, TreeView */ "#define CodeExeAddListBox 51000 ", "#define CodeExeGetSelectListBox 51001", "#define CodeExeAddComBoBox 51002 ", "#define CodeExeGetSelectComBoBox 51003", "#define CodeExeDeleteIndexComBoBox 51004", "#define CodeExeAddItemListView 51100", "#define CodeExeSetItemListView 51101", "#define CodeExeGetSelectItemListView 51102", "#define CodeExeGetItemTextListView 51103", "#define CodeExeReplaceIconListView 51104", "#define CodeExeGetCountItemListView 51105", "#define CodeExeSETItemTextListView 51106", "#define CodeExeDeleteAllItemListView 51107", "#define CodeExeDeleteItemListView 51108", "#define CodeExeInsertColumnListView 51109", "#define CodeExeDeleteColumnListView 51110", "#define CodeExeSortItemListView 51111", "#define CodeExeGetItemCheckListView 51112", "#define CodeExeAddItemTreeView 51200", "#define CodeExeReplaceIconTreeView 51201", "#define CodeExeGetSelectItemTreeView 51202", "#define CodeExeAddItemBtreeTreeView 51203", "#define CodeExeClearTreeView 51204", /*********************** */ /*WIN FONTS */ /*********************** */ "#define CodeExeSetFonts 51300", "#define CodeExeSetFontsGroup 51301", "#define CodeExeSetFontsGroupEnd 51302", /*********************** */ /*WIN TABCONTROL */ /*********************** */ "#define CodeExeGetSelectItemTabControl 51400", "#define CodeExeSetActiveWinItemTabControl 51401", "#define CodeExeSetSelectItemTabControl 51402", /*********************** */ /*WIN MENU */ /*********************** */ "#define CodeExeGetSelectPopMenuItemID 51500", "#define CodeExeDeletePopMenuItemID 51501", "#define CEOpenTrackPopMenu 51502", "#define CEOpenTrackPopMenu 51502", "#define CETrackPOPMenuCreate 51503", "#define CETrackMenuItemCreate 51504", "#define CETrackSUBMenuBegin 51505", "#define CETrackSUBMenuEnd 51506", "#define CETrackMenuItemCreateSeparator 51507", "#define CETrackMenuItemID 51508", "#define CETrackMenuItemDisable 51509", "#define CETrackMenuItemPictureBmp 51510", /*********************** */ /*WIN GRID */ /*********************** */ "#define CodeExeAddItemGrid 51600", "#define CodeExeAddItemGridInt 51601 ", "#define CodeExeAddItemGridLong 51602 ", "#define CodeExeAddItemGridFloat 51603 ", "#define CodeExeAddItemGridDouble 51604 ", "#define CodeExeAddItemGridAlnum 51605 ", "#define CodeExeAddItemGridString 51606 ", "#define CodeExeGDWin 51607", "#define CodeExeSetBkColorGD 51608", "#define CodeExeSetColorTextGD 51609", "#define CodeExeSetPropertyCellGrid 51610", "#define CodeExeFreeGrid 51611 ", "#define CodeExeClearGrid 51612 ", "#define CodeExeGetItemCheckGD 51613 ", "#define CodeExeGetItemCountGD 51614 ", "#define CodeExeGetItemTextGD 51615 ", "#define CodeExeSetItemGrid 51616", "#define CodeExeSetItemGridInt 51617 ", "#define CodeExeSetItemGridLong 51618 ", "#define CodeExeSetItemGridFloat 51619 ", "#define CodeExeSetItemGridDouble 51620 ", "#define CodeExeSetItemGridAlnum 51621 ", "#define CodeExeSetItemGridString 51622 ", "#define CodeExeInitGrid 51623 ", /*********************** */ /*POP FILE */ /*********************** */ "#define CodeExeSysOpenFile 52000", "#define CodeExeSysSaveFile 52001", "#define CodeExeSysPrintFile 52002", "#define CodeExeSysOpenDirectory 52003", /*********************** */ /*DEMO */ /*********************** */ "#define CodexInitAlbumAlnum 55000", "#define CodexCreateAlbumAlnum 55001", "#define CodexShowAlbumAlnum 55002 ", /*********************** */ /* SORT */ /*********************** */ "#define CodeExeSortin 60001" , "#define CodeExeSortinLength 60002" , "#define CodeExeSortinLengthVar 60003" , "#define CodeExeCharOffsetBegin 60004" , "#define CodeExeCharOffsetEnd1 60005" , "#define CodeExeCharOffsetEnd2 60006" , "#define CodeExeAscend 60007" , "#define CodeExeDescend 60008" , "#define CodeExeCharOffsetBeginAlnum 60009", "#define CodeExeCharOffsetEndAlnum 60010", "#define CodeExeCharOffsetBeginFloat 60011", "#define CodeExeCharOffsetBeginInt 60012", "#define CodeExeCharOffsetBeginDouble 60013", "#define CodeExeCharOffsetBeginLong 60014", "#define CodeExeSortinLengthStruct 60015" , "#define CodeExeIntOffsetBegin 60200" , "#define CodeExeFloatOffsetBegin 60201" , "#define CodeExeLongOffsetBegin 60202" , "#define CodeExeFloatDecimal 60203", "#define CodeExeDoubleOffsetBegin 60204" , "#define CodeExeCharSelectOffsetBegin 60501 ", "#define CodeExeNEGAL 60502 " , "#define CodeExeEGAL 60503 " , "#define CodeExeEINF 60504 " , "#define CodeExeESUP 60505 " , "#define CodeExeSUP 60506 " , "#define CodeExeINF 60507 " , "#define CodeExeOR 60508 " , "#define CodeExeAND 60509 " , "#define CodeExeANDOR 60510 ", "#define CodeExeFloatSelectOffsetBegin 60511" , "#define CodeExeLongSelectOffsetBegin 60512" , "#define CodeExeIntSelectOffsetBegin 60513" , "#define CodeExeDoubleSelectOffsetBegin 60514" , "#define CodeExeMerge 60601" , "#define CodeExeToolsKeep 61001" , "#define CodeExeSort 61002" , "#define CodeExeToolsKeepMerge 61003" , "#define CodeExeToolsCreateIndex 61004" , "#define CodeExeSortout 61501" , "#define CodeExeSeparator 61502" , "#define CodeExeFormatChar 61503" , "#define CodeExeFormatInt 61504" , "#define CodeExeFormatFloat 61505" , "#define CodeExeFormatLong 61506" , "#define CodeExeFormatString 61507" , "#define CodeExeFormat 61508" , "#define CodeExeFormatNumeric 61509" , "#define CodeExeFormatFloatDecimal 61510" , "#define CodeExeFormatDouble 61511" , "#define CodeExeFormatCharOffBeginLong 61512", "#define CodeExeFormatCharOffBeginInteger 61513", "#define CodeExeFormatCharOffBeginFloat 61514", "#define CodeExeFormatCharOffBeginDouble 61515", "#define CodeExeFormatCharOffBeginAlnum 61516", "#define CodeExeReport 63000" , "#define CodeTrueReport 63001" , "#define CodeTrueEndReport 63003" , "#define CodeExeReportIn 63004" , "#define CodeExeReportOut 63005" , "#define CodeExeReportIssu 63006" , "#define CodeExeHeaderReport 63007" , "#define CodeExeHeaderLevel 63008" , "#define CodeExeFileReadReport 63009" , "#define CodeExeInitIncr 63010" , "#define CodeExeDetail 63011" , "#define CodeExebreakEndLevel 63012" , "#define CodeExeSkipLine 64012 " , "#define CodeExeAllData 64013 " , "#define CodeExeLevel 64014 " , "#define CodeExeLevelKey 64015 " , "#define CodeExeLevelTotal 64016 " , /* ListView */ "#define CodeExeInitWinAttribut 65000" , "#define CodeExeEndWinAttribut 65001" , "#define CodeExeSetAttrTxtOrient 65003", /* SQL et ODBC*/ "#define CodeExeInquire 66000", "#define CodeExeInquireXLS 66001", "#define CodeExeExecuteSQLXLS 66002", "#define CodeExeExecuteSQLDBF 66003", "#define CodeExeExecuteSQLTXT 66004", "#define CodeExeExecuteSQLFOX 66005", "#define CodeExeExecuteSQLMDB 66006", "#define CodeExeExecuteSQLEnvDatabaseXLS 66020", "#define CodeExeExecuteSQLEnvDatabaseDBF 66021", "#define CodeExeExecuteSQLEnvDatabaseTXT 66022", "#define CodeExeExecuteSQLEnvDatabaseFOX 66023", "#define CodeExeExecuteSQLEnvDatabaseMDB 66024", "#define CodeExeExecuteSQLVerXLS 66040", "#define CodeExeExecuteSQLVerDBF 66041", "#define CodeExeExecuteSQLVerTXT 66042", "#define CodeExeExecuteSQLVerFOX 66043", "#define CodeExeExecuteSQLVerMDB 66044", "#define CodeExeExecuteSQLVerDriverXLS 66065", "#define CodeExeExecuteSQLVerDriverDBF 66066", "#define CodeExeExecuteSQLVerDriverTXT 66067", "#define CodeExeExecuteSQLVerDriverFOX 66068", "#define CodeExeExecuteSQLVerDriverMDB 66069", "#define CodeExeExecuteSQLVarAlnum 66080", "#define CodeExeExecuteSQLVarInteger 66081", "#define CodeExeExecuteSQLVarFloat 66082", "#define CodeExeExecuteSQLVarLong 66083", "#define CodeExeExecuteSQLVarDouble 66084", "#define CodeExeExecuteSQL 66090", "#define CodeExeExecuteSQLFetch 66091", "#define CodeExeExecuteSQLFetch500 66092", "#define CodeExeExecuteSQLForEachRow 66093", "#define CodeExeExecuteSQLForEachRowEnd 66094", "#define CodeExeExecuteSQLDialog 66095", "#define CodeExeExecuteSQLFetchOrientation 66096", "#define CodeExeDestroyEnvSQL 66097", "#define CodeExeExecuteSQLGetDataAlnum 66100", "#define CodeExeExecuteSQLGetDataInt 66101", "#define CodeExeExecuteSQLGetDataFloat 66102", "#define CodeExeExecuteSQLGetDataLong 66103", "#define CodeExeExecuteSQLGetDataDouble 66104", "#define CodeExeExecuteSQLGetDataStruct 66105", "#define CodeExeGetSelectItemSQL 66106", "#define CodeExeExecuteQUERYDialog 67000", /* StatusBar */ "#define CodeExeSetTextStatusBar 68000 ", "#define CodeExeSetTextStatusBarPopOut 68001 ", /* internet */ "#define CodeExeNavigateInternet 68200 ", "#define CodeExeGoHomeInternet 68201 ", "#define CodeExeGoSearchInternet 68202 ", "#define CodeExeStopInternet 68203 ", "#define CodeExeFullScreenInternet 68204 ", /* Mapi */ "#define CodeExeSendMail 69000 ", "#define CodeExeReceiveMail 69001 ", "#define CodeExeSendDocument 69002 ", "#define CodeExeGetAdressMail 69003 ", /* Excel */ "#define CodeExeConnectExcel 69300 ", "#define CodeExeConnectExcelTest 69301 ", "#define CEgetCountSheetExcel 69302 ", "#define CEClearSheetExcel 69303 ", "#define CErangeSetValueSheetExcel 69304 ", "#define CExeSaveAsSheetExcel 69305 ", "#define CExeSaveSheetExcel 69306 ", "#define CExeQuitExcel 69307 ", /* Calendar */ "#define CodeExeCalendar 69400 ", "#define CodeExeMiniCalendar 69401 ", /* Word */ "#define CodeExeConnectWord 69500", "#define CodeExeNewDocWord 69501", "#define CodeExePrintDocWord 69502", "#define CodeExeaddTextDocWord 69503", "#define CodeExeSaveDocWord 69504", "#define CodeExeSaveAsDocWord 69505", "#define CodeExeQuitDocWord 69506", "#define CodeExePrintPreviewDocWord 69507", "#define CodexDemoCycle2 70000", "/* *********************************************************************************", "Les codes éxécutions de 20000 à 21000 sont DEDIES à la création des variables.", "Effectivement , OPENCOMP V1 demande de valider la cohèrence des variables et des", "tablesde symbole AVANT l'éxécution de l'interprèteur.", "Les autres codes éxécutions de 21001 à 32500 sont au choix de l'informaticien. */", "/* création des variables ds tables des symbole */", "#define CodeCreateVarInteger 20000", "#define CodeCreateVarLong 20001", "#define CodeCreateVarFloat 20002", "#define CodeCreateVarChar 20003", "#define CodeCreateVarDouble 20004", "#define CodeCreateConstanteLong 20005", "#define CodeCreateConstanteString 20006", "#define CodexeControlConstanteLong 20007", "#define CodexeControlConstanteString 20008", "#define CodexeControlConstanteInteger 20009", "/* créer ds tables des symboles locales les variables déclarées APRES le prototype de", "la procèdure ou de la fonction */", "/* créer ds tables des symboles locales les variables déclarées DANS le prototype de", "la procèdure ou de la fonction */", "#define CodeCreateProtoLocalVarInteger 20040", "#define CodeCreateProtoLocalVarLong 20041", "#define CodeCreateProtoLocalVarFloat 20042", "#define CodeCreateProtoLocalVarChar 20043", "#define CodeCreateProtoLocalVarDouble 20044", "/* init le nom structure STRUCT (record etc....) */", "#define CodeInitStructVar 20050", "#define CodeCreateStructn 20052" , "#define CodeCreateStructnStruct 20054", "#define CodeRazStructVar 20055", "#define CodeExeGlobalContexte 20056", "#define CodeExeLocalContexte 20057", "/* init le nom de le table/ou tableau + Nombre éléments */", "#define CodeInitTableVar 20060", "#define CodeRazTableVar 20061", "#define CodeExeFileOpenExistSyntaxe 20070", "#define CodeExeDirExistSyntaxe 20075", "#define CodexTPictureIconB 20101 ", "#define CodexTPictureIconA 20102 ", "#define CodexTPicturePushIcon1 20104 ", "#define CodexTPicturePushIcon2 20105 ", "#define CodexTPicturePushIconSys 20106 ", "#define CodexTAnimateBmp 20107" , "#define CodexTPictureImage 20108" , "#define CodexTPictureDrawImage 20112" , "#define CodexTlistview 20121", "#define CodexIconSysColumnListview 20122", "#define CodexIconStringColumnListview 20123", "#define CodexColumnListview 20124", "#define CodexTIconlistview 20125", "#define CodexIconTextListview 20126", "#define CodexeLVS_SUBCLASSEDITSALL 20128" , "#define CodexeLVS_GRID 20129", "#define CodexeLVS_CHECKBOX 20131", "#define CodexIconStringTreeview 20151", "#define CodexIconSysTreeview 20152", "#define CodexTreeview 20153", "#define CodexTbutton 20171", "#define CodexTbuttonDef 20172", "#define CodexTbuttonOwner 20173", "#define CodexTBUTTONBMP 20174 ", "#define CodexTBUTTONBMPPush 20175 ", "#define CodexTBUTTONBMPDraw 20176 ", "#define CodexTBUTTONBMPDrawLabel 20177 ", "#define CodexTBUTTONBMPPushLabel 20178 ", "#define CodexTBUTTONBMPRegionMaster 20179", "#define CodexTBUTTONBMPRegionChild 20180", "#define CodexTBUTTONTEXT 20181", "#define CodexTBUTTONEMF 20182", "#define CodeExeDefineReBar 20201", "#define CodeExeEndReBar 20202", "#define CodeExeTopReBar 20203", "#define CodeExeBotReBar 20204", "#define CodeExeVrightReBar 20205", "#define CodeExeVleftReBar 20206", "#define CodeExeDefineToolBar 20222", "#define CodeExeEndToolBar 20223", "#define CodexTOPToolBarPushIcon 20224" , "#define CodexInitToolBar 20225", "#define CodexBOTToolBarPushIcon 20226" , "#define CodexESPACEToolBar 20227", "#define CodexVRIGHTToolBarPushIcon 20228" , "#define CodexVLEFTToolBarPushIcon 20229" , "#define CodexINFOToolBar 20230", "#define CodexELLIPSEToolBar 20231", "#define CodeExeTopToolBar 20232", "#define CodeExeBotToolBar 20233", "#define CodexTBUTTONICON 20251 ", "#define CodexTBUTTONICONPush 20252 ", "#define CodexTBUTTONICONPushLabel 20253 ", "#define CodexTBUTTONICONDraw 20254 ", "#define CodexTBUTTONICONDrawLabel 20255 ", "#define CodexTBUTTONICONDrawLabelCenter 20256 ", "#define CodeExeWidtHeigth 20257 ", "#define CodexdefineGrid 20271 ", "#define CodexdefineGridAlnum 20272 ", "#define CodexdefineGridInt 20273 ", "#define CodexdefineGridFloat 20274 ", "#define CodexdefineGriddouble 20275 ", "#define CodexdefineGridLong 20276 ", "#define CodexdefineGridIcon 20277 ", "#define CodexdefineGridBmp 20278 ", "#define CodexdefineGridCheckBox 20279 ", "#define CodexdefineGridCombobox 20280 ", "#define CodexdefineGridColCenter 20281 ", "#define CodexdefineGridColRight 20282 ", "#define CodexdefineGridColLeft 20283 ", "#define CodexdefineGridColonne 20284 ", "#define CodexInitGrid 20285 ", "#define CodexdefineSizeGridCol 20286 ", "#define CodexdefineGridAlloc 20287 ", "#define CodexdefineGridCheck 20288 ", "#define CodexdefineGridPushButton 20289 ", /* Win Edit */ "#define CodexLinkAlnum 20380 " , //20180 "#define CodexLinkInteger 20381 " , "#define CodexLinkLong 20382 " , "#define CodexLinkDouble 20383 " , "#define CodexLinkFloat 20384 " , "#define CodexTSyntaxe 20999 ", "#define CodexINFO 20386", "#define CodexCURSOR 20387", "#define CodexLABEL 20388", "#define CodeExeInitBtree 20400", //20200 "#define CodeExeInsertBtree 20401", "#define CodeExeDefineTabControl 20420", "#define CodeExeInsertTabControl 20421", "#define CodeExeInsertIconSysTabControl 20422", "#define CodeExeInsertIconTabControl 20423", "#define CodeExeWidtHeigthTC 20424", "#define CodeExeEndTabControl 20425", "#define CodeExeMenuCreate 20450", "#define CodeExePOPMenuCreate 20451", "#define CodeExeMenuItemCreate 20452", "#define CodeExeMenuItemCreateSeparator 20453", "#define CodeExeMenuItemID 20454", "#define CodeExeSUBMenuBegin 20455", "#define CodeExeSUBMenuEnd 20456", "#define CodeExeMenuItemDisable 20457", "#define CodeExeMenuItemPictureBmp 20458", "#define CETrackSyntSUBMenuBegin 20459", /*********************** */ /*WIN STATUS BAR */ /*********************** */ "#define CodeExeCreateStatusBar 20470", "#define CodeExeUpdateStatusBarPopOut 20471 ", "#define CodeExeUpdateStatusBar 20472 ", "#define CodeExeCreateWinStatusBar 20475 ", "#define CodexeExtendWinStyle 20478", "#define CodexeWinStyle 20479 ", "#define CodexeTdialog 20500", "#define CodexeMakeDialog 20501", "#define CodexTcheckbox 20502", "#define CodexTradiobutton 20503", "#define CodexTgroupboxRadio 20504 ", "#define CodexTgroupbox 20505", "#define CodexTlistbox 20506", "#define CodexTcombobox 20507", "#define CodexText 20508 ", "#define CodexTextbox 20509", "#define CodexTscrollBar 20510", "#define CodexeMakeDialogChild 20511", "#define CodexeSaveDialogFather 20512", "#define CodexTextOrientation 20513", "#define CodexbackGroundColor1 20514", "#define CodexbackGroundColor2 20515", "#define CodexbackGroundBmp 20516", "#define CEAnnounce 20517", "#define CodexbackGroundHatchBrush 20518", "#define CEelliptical 20519", "#define CEAnnounceShadow 20520", "#define CEellipticalShadow 20521", "#define CERectangle 20522", "#define CERoundRect 20523", "#define CERoundAnnounce 20524", "#define CERoundAnnounceShadow 20525", "#define CodexDemoCycle1 20600 ", /* > SI CodeExe > 21000 alors impossible fonction EMPILE dans ANALYSEUR SYNTAXE */ "#define CodexCenterWindow 21153", "#define CodexFullWindow 21157", "#define DisplayTablesSymbAnalyseur 23000", } ; int cszToken = sizeof( ligneToken) / sizeof( ligneToken[0] ); int cszRegle = sizeof( ligneRegle ) / sizeof( ligneRegle[0] ); int cszCodeExe = sizeof( ligneCodeExe) / sizeof( ligneCodeExe[0]);