154 lines
5.9 KiB
Plaintext
154 lines
5.9 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
//*******************************************************************
|
||
// ctoken.ch: Olyan (karakter) elemek, amik speci lis jelent‚st
|
||
// hordoznak.
|
||
// 199, Csisz r Levente
|
||
|
||
// #define ID_STRING
|
||
//*******************************************************************
|
||
#ifdef ID_STRING
|
||
#define CTKID_BOS "BOS"
|
||
#define CTKID_EOS "EOS"
|
||
#define CTKID_EOL "EOL"
|
||
// #define CTKID_ENDINCLUDE "End include"
|
||
#define CTKID_PRINTLINE "PRINTLINE"
|
||
#else
|
||
#define CTKID_BOS 1
|
||
#define CTKID_EOS 2
|
||
#define CTKID_EOL 3
|
||
// #define CTKID_ENDINCLUDE 4
|
||
#define CTKID_PRINTLINE 5
|
||
#endif
|
||
//*******************************************************************
|
||
|
||
#define CTK_EOF nil
|
||
|
||
// id, filename,line,pos,deep
|
||
#define CTK_BOS {CTKID_BOS,"",0,0,0}
|
||
|
||
// Itt a pos az utols¢ sor hossza. Ha 1, akkor az utols¢ sor <20>res
|
||
// volt.
|
||
// id, filename,line,pos,deep
|
||
#define CTK_EOS {CTKID_EOS,"",0,0,0}
|
||
|
||
#define CTK_EOL {CTKID_EOL,CTK_LF,0} // id, eolchars,lineLen
|
||
// #define CTK_ENDINCLUDE {CTKID_ENDINCLUDE,"End include"}
|
||
#define CTK_PRINTLINE {CTKID_PRINTLINE,"PRINTLINE"}
|
||
|
||
//*******************************************************************
|
||
#define CTK_CR chr(13)
|
||
#define CTK_LF chr(10)
|
||
#define CTK_IDEZ "'"
|
||
#define CTK_FIDEZ "`" // Ezt "'"-nak tekinti.
|
||
#define CTK_MACS '"'
|
||
#define CTK_PER "/"
|
||
#define CTK_ET "&"
|
||
#define CTK_CSILLAG "*"
|
||
#define CTK_PVESSZO ";"
|
||
|
||
//*******************************************************************
|
||
// #define PRSERR_ENDSTRING "TSND"
|
||
// #define PRSERR_ENDPCCOMMENT "TPCD"
|
||
|
||
//*******************************************************************
|
||
#undef ID_STRING
|
||
#ifdef ID_STRING
|
||
#define TKID_BOS "BOS"
|
||
#define TKID_EOS "EOS"
|
||
#define TKID_EOF "EOF"
|
||
#define TKID_URES "URES"
|
||
#define TKID_UJSOR "UJSOR"
|
||
#define TKID_PVESSZO "PVESSZO"
|
||
#define TKID_CHAR "CHAR"
|
||
//#define TKID_IDEZ "IDEZ"
|
||
//#define TKID_MACS "MACS"
|
||
#define TKID_CSCOMMENT "CSCOMMENT"
|
||
#define TKID_PPCOMMENT "PPCOMMENT"
|
||
#define TKID_PCCOMMENT "PCCOMMENT"
|
||
// #define TKID_ENDFILE "ENDFILE"
|
||
#define TKID_NEV "NEV"
|
||
#define TKID_SZAMTOMB "SZAMTOMB"
|
||
//#define TKID_VESSZO "VESSZO"
|
||
//#define TKID_GNYITO "GNYITO"
|
||
//#define TKID_GZARO "GZARO"
|
||
//#define TKID_KNYITO "KNYITO"
|
||
//#define TKID_KZARO "KZARO"
|
||
//#define TKID_SNYITO "SNYITO"
|
||
//#define TKID_SZARO "SZARO"
|
||
//#define TKID_ERROR "ERROR"
|
||
#define TKID_PRINTLINE "PRINTLINE"
|
||
#define TKID_STRING "STRING"
|
||
|
||
#define TKID_MALTERSET "MALTERSET"
|
||
#define TKID_REGULAR_MATCH_MARKER "REGULAR_MATCH_MARKER"
|
||
#define TKID_WILD_MATCH_MARKER "WILD_MATCH_MARKER"
|
||
#define TKID_EXT_EXPR_MATCH_MARKER "EXT_EXPR_MATCH_MARKER"
|
||
#define TKID_LIST_MATCH_MARKER "LIST_MATCH_MARKER"
|
||
#define TKID_RESTRICTED_MATCH_MARKER "RESTRICTED_MATCH_MARKER"
|
||
|
||
|
||
#define TKID_RALTER "RALTER"
|
||
#define TKID_DUMB_STR_RESULT_MARKER "DUMB_STR_RESULT_MARKER"
|
||
#define TKID_REGULAR_RESULT_MARKER "REGULAR_RESULT_MARKER"
|
||
#define TKID_STRINGIFY_RESULT_MARKER "STRINGIFY_RESULT_MARKER"
|
||
#define TKID_SMART_STR_RESULT_MARKER "SMART_STR_RESULT_MARKER"
|
||
#define TKID_BLOCKIFY_RESULT_MARKER "BLOCKIFY_RESULT_MARKER"
|
||
#define TKID_LOGIFY_RESULT_MARKER "LOGIFY_RESULT_MARKER"
|
||
#else
|
||
#define TKID_BOS 1
|
||
#define TKID_EOS 2
|
||
#define TKID_EOF 3
|
||
#define TKID_URES 4
|
||
#define TKID_UJSOR 5
|
||
#define TKID_PVESSZO 6
|
||
#define TKID_CHAR 7
|
||
#define TKID_CSCOMMENT 8
|
||
#define TKID_PPCOMMENT 9
|
||
#define TKID_PCCOMMENT 10
|
||
#define TKID_NEV 11
|
||
#define TKID_SZAMTOMB 12
|
||
#define TKID_PRINTLINE 13
|
||
#define TKID_STRING 14
|
||
|
||
#define TKID_MALTERSET 30
|
||
#define TKID_REGULAR_MATCH_MARKER 31
|
||
#define TKID_WILD_MATCH_MARKER 32
|
||
#define TKID_EXT_EXPR_MATCH_MARKER 33
|
||
#define TKID_LIST_MATCH_MARKER 34
|
||
#define TKID_RESTRICTED_MATCH_MARKER 35
|
||
|
||
|
||
#define TKID_RALTER 40
|
||
#define TKID_DUMB_STR_RESULT_MARKER 41
|
||
#define TKID_REGULAR_RESULT_MARKER 42
|
||
#define TKID_STRINGIFY_RESULT_MARKER 43
|
||
#define TKID_SMART_STR_RESULT_MARKER 44
|
||
#define TKID_BLOCKIFY_RESULT_MARKER 45
|
||
#define TKID_LOGIFY_RESULT_MARKER 46
|
||
#endif
|
||
//*******************************************************************
|
||
#define TKCL_NEV "nev"
|
||
#define TKCL_STRING '"string"'
|
||
#define TKCL_SZAMTOMB "1"
|
||
#define TKCL_PARENT "(a)"
|
||
|
||
#define TKCL_TRUE ".T."
|
||
//*******************************************************************
|
||
|
||
#define makeHSLineStr(file,line) ("#line "+toStr(line)+" "+'"'+(file)+'"'+guessedEol())
|
||
|
||
//*******************************************************************
|
||
#define XTRTYPE_XTRANSLATE 0
|
||
#define XTRTYPE_XCOMMAND 1
|
||
#define XTRTYPE_TRANSLATE 2
|
||
#define XTRTYPE_COMMAND 3
|
||
|
||
//*******************************************************************
|
||
#define TRPRA_TREE 1
|
||
#define TRPRA_SEQ 2
|
||
//*******************************************************************
|
||
|