blob: e51f53c3e44a3af91b5b4270e6692a8715cd36d3 (
plain) (
blame)
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
|
%{
%}
DIGIT [0-9]
ID [a-zA-Z_0-9]*
KEYWORD and|break|do|else|elseif|end|false|for|function|goto|if|in|local|nil|not|or|repeat|return|then|true|until|while
OPERATOR "+"|"-"|"*"|"/"|"%"|"^"|"#"|"=="|"~="|"<="|">="|"<"|">"|"="|"("|")"|"{"|"}"|"["|"]"|"::"|";"|":"|","|"."|".."|"..."|"<<"|">>"|"&"|"|"|"//"|"~"|"'"|"--"|"?"|"\""|"\\n"
%%
{DIGIT}+ {
printf("<span class=\"number\">%s</span>", yytext);
}
{KEYWORD} printf("<span class=\"keyword\">%s</span>", yytext);
(".") printf("<span class=\"string\">%s</span>", yytext);
{ID} printf("<span class=\"identifier\">%s</span>", yytext);
(--.) printf("<span class=\"comment\">%s</span>", yytext);
{OPERATOR} printf("<span class=\"operator\">%s</span>", yytext);
[ \t\n]+ printf("%s", yytext);
. printf( "Unrecognized character: %s\n", yytext );
%%
int yywrap()
{
return 1;
}
int main(int argc, const char* argv[])
{
if ( argc > 0 )
yyin = fopen( "markov_chain.lua", "r" );
else
yyin = stdin;
puts(
"<!doctype>"
"<html>"
"<head>"
" <title>markov_chain.lua</title>"
" <style>"
" .keyword {"
" color: red;"
" }"
" .identifier {"
" color: purple;"
" }"
" .string {"
" color: orange;"
" }"
" .number {"
" color: blue;"
" }"
" .string {"
" color: green;"
" }"
" .operator {"
" font-style: bold;"
" }"
" .comment {"
" color: gray;"
" }"
" </style>"
"</head>"
"<body>"
" <pre class=\"code\">"
);
yylex();
puts("</pre></body></html>");
return 0;
}
|
