blob: e50372fd3659ff1a7243b99d537fb2863c99c1f0 (
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
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
|
%{
// levcomp.l:
// Level compiler lexer for Dungeon Crawl Stone Soup.
//
// Based loosely on NetHack's lev_comp.l
#include "levcomp.tab.h"
#include <cstring>
static bool alloced = false;
static void clean()
{
if (yylval.text && alloced)
free( (void*) yylval.text);
yylval.text = NULL;
}
static void settext()
{
clean();
if ((yylval.text = strdup(yytext)))
alloced = true;
}
%}
%s MAPDEF
%s ARGUMENT
%s MNAME
%s KEYWORDS
%option yylineno
%option never-interactive
NSPACE [^\ \t\r\n]
%%
<MAPDEF>ENDMAP { BEGIN(INITIAL); }
<MAPDEF>^#.*\r?\n ;
<MAPDEF>[a-zA-Z_&0-9|$+.@^#()\[\]=<>{}%*\-?]* {
settext();
return MAP_LINE;
}
^MAP { BEGIN(MAPDEF); }
^\s*#.* ;
NAME: { BEGIN(ARGUMENT); return NAME; }
default-depth: return DEFAULT_DEPTH;
DEPTH: return DEPTH;
ORIENT: return ORIENT;
PLACE: { BEGIN(ARGUMENT); return PLACE; }
CHANCE: return CHANCE;
FLAGS: return FLAGS;
TAGS: { BEGIN(KEYWORDS); return TAGS; }
SYMBOL: { BEGIN(ARGUMENT); return SYMBOL; }
MONS: { BEGIN(MNAME); return MONS; }
<KEYWORDS>[A-Za-z_0-9\-]+ {
settext();
return STRING;
}
<KEYWORDS>[ \t]+ ;
<KEYWORDS>[ \t]*\r?\n { BEGIN(INITIAL); }
<MNAME>[^, \t\r\n][^,\r\n]+[^, \t\r\n] {
settext();
return MONSTER_NAME;
}
<MNAME>, return COMMA;
<MNAME>[ \t]*\r?\n { BEGIN(INITIAL); }
<MNAME>[ \t] ;
pandemonic return PANDEMONIC;
no_hmirror return NO_HMIRROR;
no_vmirror return NO_VMIRROR;
encompass return ENCOMPASS;
north return NORTH;
south return SOUTH;
east return EAST;
west return WEST;
northeast return NORTHEAST;
northwest return NORTHWEST;
southeast return SOUTHEAST;
southwest return SOUTHWEST;
north_dis return NORTH_DIS;
- return DASH;
, return COMMA;
[0-9]+ {
yylval.i = atoi(yytext);
return INTEGER;
}
<ARGUMENT>{NSPACE}.*{NSPACE} {
BEGIN(INITIAL);
settext();
return STRING;
}
<ARGUMENT>\r?\n { BEGIN(INITIAL); }
[\ \t\r\n]+ ;
. return BAD_CHARACTER;
%%
int yywrap()
{
clean();
return 1;
}
|