diff options
Diffstat (limited to 'tools/d2c/d2c_tok.l')
| -rw-r--r-- | tools/d2c/d2c_tok.l | 187 |
1 files changed, 187 insertions, 0 deletions
diff --git a/tools/d2c/d2c_tok.l b/tools/d2c/d2c_tok.l new file mode 100644 index 0000000..50a8d8f --- /dev/null +++ b/tools/d2c/d2c_tok.l @@ -0,0 +1,187 @@ + +%{ + +typedef struct _rented_coder rented_coder; + + +#include "d2c-d2c_gram.h" + +#include <ctype.h> +#include <string.h> + + +/* Tente de libérer autant de mémoire que possible... */ +void free_flex_memory(void) ; + + +%} + +%option noyywrap +%option nounput +%option noinput +%option yylineno + + +%x comments + +%x ins_name try_details ins_details +%x encoding encoding_type encoding_content + +%x encoding_bits encoding_bits_size + +%x syntax syntax_int syntax_ext + +%x conv_begin conv_content conv_arg conv_arg_binval + +%x rules_begin rules_content rules_cond rules_cond_binval rules_action rules_actin_see + + +%% + + +[ \t\n]+ { } + +"/*" { BEGIN(comments); } +<comments>"*/" { BEGIN(INITIAL); } +<comments>[^*\n] { } +<comments>"Copyright"[^\n]* { d2c_lval.string = strdup(yytext); return COPYRIGHT; } +<comments>"*" { } +<comments>"\n" { } + + +"@title" { BEGIN(ins_name); return TITLE; } + +<ins_name>[ ][A-Za-z-]+ { d2c_lval.string = strdup(yytext + 1); BEGIN(try_details); return INS_NAME; } +<try_details>[ ,/] { BEGIN(ins_details); } +<try_details>[\n] { BEGIN(INITIAL); } + +<ins_details>[^\n]* { d2c_lval.cstring = yytext; return INS_DETAILS; } +<ins_details>[\n] { BEGIN(INITIAL); } + + + +"@encoding" { BEGIN(encoding); return ENCODING; } + +<encoding>[ ] { } +<encoding>"(" { BEGIN(encoding_type); } + +<encoding_type>"T" { return THUMB; } +<encoding_type>"A" { return ARCH; } +<encoding_type>[0-9] { d2c_lval.integer = atoi(yytext); return NUMBER; } +<encoding_type>")" { BEGIN(encoding); } + +<encoding>"{" { BEGIN(encoding_content); } +<encoding_content>[ \t\n]+ { } +<encoding_content>"}" { BEGIN(INITIAL); } + + + +<encoding_content>"@half" { BEGIN(encoding_bits); return HALF; } +<encoding_content>"@word" { BEGIN(encoding_bits); return WORD; } + +<encoding_bits>" " { } +<encoding_bits>"\n" { BEGIN(encoding_content); } +<encoding_bits>[A-Za-z][A-Za-z0-9]* { d2c_lval.string = strdup(yytext); return NAME; } + +<encoding_bits>"(" { BEGIN(encoding_bits_size); } +<encoding_bits_size>[0-9]+ { d2c_lval.integer = atoi(yytext); return SIZE; } +<encoding_bits_size>")" { BEGIN(encoding_bits); } + +<encoding_bits>[01] { d2c_lval.integer = atoi(yytext); return BIT; } + + + +<encoding_content>"@syntax" { BEGIN(syntax); return SYNTAX; } + +<syntax>[ ]+ { } +<syntax>"\n" { BEGIN(encoding_content); } + +<syntax>"{" { BEGIN(syntax_int); } +<syntax_int>[^ \n}]+ { d2c_lval.string = strdup(yytext); return OPERAND_INTERNAL; } +<syntax_int>"}" { BEGIN(syntax); } + +<syntax>"<" { BEGIN(syntax_ext); } +<syntax_ext>[^ \n>]+ { d2c_lval.string = strdup(yytext); return OPERAND_VISIBLE; } +<syntax_ext>">" { BEGIN(syntax); } + + + +<encoding_content>"@conv" { BEGIN(conv_begin); return CONV; } +<conv_begin>[ ]+ { } +<conv_begin>"{" { BEGIN(conv_content); } +<conv_content>"}" { BEGIN(encoding_content); } + +<conv_content>[ \t\n]+ { } +<conv_content>[A-Za-z][A-Za-z0-9]* { + if (strcmp(yytext, "NOT") == 0) return NOT; + else + { + d2c_lval.string = strdup(yytext); + return NAME; + } + } +<conv_content>"=" { return EQ; } +<conv_content>"(" { BEGIN(conv_arg); return OP; } +<conv_arg>[A-Za-z][A-Za-z0-9]* { + if (strcmp(yytext, "NOT") == 0) return NOT; + else if (strcmp(yytext, "EOR") == 0) return EOR; + else + { + d2c_lval.string = strdup(yytext); + return NAME; + } + } +<conv_arg>[0-9][0-9]* { d2c_lval.integer = atoi(yytext); return NUMBER; } +<conv_arg>"'" { BEGIN(conv_arg_binval); } +<conv_arg_binval>[01][01]* { d2c_lval.string = strdup(yytext); return BINVAL; } +<conv_arg_binval>"'" { BEGIN(conv_arg); } +<conv_arg>"," { return COMMA; } +<conv_arg>":" { return COLON; } +<conv_arg>[ ]+ { } +<conv_arg>")" { BEGIN(conv_content); return CP; } + + + +<encoding_content>"@rules" { BEGIN(rules_begin); return RULES; } +<rules_begin>[ ]+ { } +<rules_begin>"{" { BEGIN(rules_content); } +<rules_content>[ \t\n]+ { } +<rules_content>"}" { BEGIN(encoding_content); } + +<rules_content>"if" { BEGIN(rules_cond); return IF; } +<rules_cond>[ ]+ { } +<rules_cond>"(" { return EXPR_START; } +<rules_cond>[A-Za-z][A-Za-z0-9]* { d2c_lval.string = strdup(yytext); return NAME; } +<rules_cond>"==" { return EQUAL; } +<rules_cond>"'" { BEGIN(rules_cond_binval); } +<rules_cond_binval>[01][01]* { d2c_lval.string = strdup(yytext); return BINVAL; } +<rules_cond_binval>"'" { BEGIN(rules_cond); } +<rules_cond>")" { return EXPR_END; } +<rules_cond>"&&" { return AND; } + +<rules_cond>";" { BEGIN(rules_action); return THEN; } +<rules_action>[ ]+ { } +<rules_action>"see " { BEGIN(rules_actin_see); return SEE; } +<rules_actin_see>[^\n]* { d2c_lval.cstring = yytext; BEGIN(rules_content); return INS_DETAILS; } + + +%% + + +/****************************************************************************** +* * +* Paramètres : - * +* * +* Description : Tente de libérer autant de mémoire que possible... * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void free_flex_memory(void) +{ + yy_delete_buffer(YY_CURRENT_BUFFER); + +} |