summaryrefslogtreecommitdiff
path: root/dviware/quicspool/src/xxxlex.l
blob: 5f48bebff10b031e69ea3475f01e714bcb1242a5 (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
/* $Header: xxxlex.l,v 1.2 88/02/03 08:52:10 simpson Exp $ */
%{
/*
$Log:	xxxlex.l,v $
 * Revision 1.2  88/02/03  08:52:10  simpson
 * added tpic support
 * 
 * Revision 1.1  88/01/15  13:06:01  simpson
 * initial release
 * 
 * Revision 0.1  87/12/11  18:31:28  simpson
 * beta test
 * 
*/
#undef input
#define input() (Pxxxstring && *Pxxxstring ? *Pxxxstring++ : 0)
#undef unput
#define unput(c) if (Pxxxstring > Xxxstring) *--Pxxxstring = c
%}
integer	    [0-9]+
real	    [0-9]+\.[0-9]*|[0-9]*\.[0-9]+
whitespace  [ \t\n]+
%%
{integer}	    {
			yylval.i = atoi(yytext);
		        return INTEGER;
		    }
{real}		    {
			yylval.f = atof(yytext);
			return FLOAT;
		    }
pn		    return PENSIZE;
fp		    return FLUSHPATH;
da		    return FLUSHDASHED;
dt		    return FLUSHDOTTED;
pa		    return ADDPATH;
ar		    return DRAWARC;
sp		    return FLUSHSPLINE;
sh		    return SHADELAST;
wh		    return WHITENLAST;
bk	            return BLACKENLAST;
tx	            return TEXTURE;
[^\,\)\( \t\n]+	    {
			(void)strcpy(yylval.s, yytext);
			if (EQ(yytext, "overlay"))
			    return OVERLAY;
			return STRING;
		    }
\, |
\( |
\)		    return yytext[0];
{whitespace}	    ;