blob: 4bd90d65ea422b52b9a1cffda4ad2939a6ab8080 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
%top {
#include "grammar.h"
}
%{
#include "manual.h"
%}
%option noyywrap
%option yylineno
%option stack
%option noyy_top_state
%x comments
%x ins_name try_details ins_details
%x encoding encoding_type encoding_content syntax_content
%x encoding_bits encoding_bits_size
%x top_brace
%x raw_line raw_block
%%
[ \t\n]+ { }
"/*" { BEGIN(comments); }
<comments>"*/" { BEGIN(INITIAL); }
<comments>[^*\n] { }
<comments>"Copyright"[^\n]* { yylvalp->string = strdup(yytext); return COPYRIGHT; }
<comments>"*" { }
<comments>"\n" { }
"@title" { BEGIN(ins_name); return TITLE; }
<ins_name>[ ][A-Za-z0-9-]+ { yylvalp->string = strdup(yytext + 1); BEGIN(try_details); return INS_NAME; }
<try_details>[ ,/-] { BEGIN(ins_details); yylvalp->character = yytext[0]; return INS_SEP; }
<try_details>[\n] { BEGIN(INITIAL); }
<ins_details>[^\n]* { yylvalp->cstring = yytext; return INS_DETAILS; }
<ins_details>[\n] { BEGIN(INITIAL); }
"@id" { yy_push_state(raw_line); return ID; }
"@desc" { yy_push_state(raw_block); return DESC; }
"@encoding" { yy_push_state(encoding); return ENCODING; }
<encoding>[ ] { }
<encoding>"(" { yy_push_state(encoding_type); }
<encoding_type>[A-Za-z] { yylvalp->string = strdup(yytext); return TYPE; }
<encoding_type>[0-9]+ { yylvalp->integer = atoi(yytext); return NUMBER; }
<encoding_type>")" { yy_pop_state(); }
<encoding>"{" { yy_push_state(encoding_content); }
<encoding_content>[ \t\n]+ { }
<encoding_content>"}" { yy_pop_state(); yy_pop_state(); }
<encoding_content>"@format" { yy_push_state(raw_line); return FORMAT; }
<encoding_content>"@unused" { yy_push_state(raw_line); return UNUSED; }
<encoding_content>"@half" { yy_push_state(raw_line); return HALF; }
<encoding_content>"@word" { yy_push_state(raw_line); return WORD; }
<encoding_content>"@syntax" { yy_push_state(syntax_content); yy_push_state(top_brace); return SYNTAX; }
<encoding_content>"@hooks" { yy_push_state(raw_block); return HOOKS; }
<syntax_content>[ \t\n]+ { }
<syntax_content>"@subid" { yy_push_state(raw_line); return SUBID; }
<syntax_content>"@assert" { yy_push_state(raw_block); return ASSERT; }
<syntax_content>"@conv" { yy_push_state(raw_block); return CONV; }
<syntax_content>"@asm" { yy_push_state(raw_line); return ASM; }
<syntax_content>"@rules" { yy_push_state(raw_block); return RULES; }
<syntax_content>"}" { yy_pop_state(); }
<top_brace>[ \t\n]+ { }
<top_brace>"{" { yy_pop_state(); }
<raw_line>[^\n]+ { yylvalp->cstring = yytext; return RAW_LINE; }
<raw_line>"\n" { yy_pop_state(); }
<raw_block>[ \t\n]+ { }
<raw_block>"{" {
read_block(temp);
yylvalp->cstring = temp; return RAW_BLOCK;
}
<raw_block>"}" { yy_pop_state(); }
<encoding_content>"{" {
read_block(temp);
yylvalp->cstring = temp; return RAW_BLOCK;
}
<*>. {
char *msg;
int ret;
ret = asprintf(&msg, "Unhandled token in d2c definition: '%s'", yytext);
if (ret == -1)
YY_FATAL_ERROR("Unhandled token in undisclosed d2c definition");
else
{
YY_FATAL_ERROR(msg);
free(msg);
}
}
%%
|
