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
|
/*****************************************************************************
*
* Usepackage Environment Manager
* Copyright (C) 1995-2002 Jonathan Hogg <jonathan@onegoodidea.com>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* Name : scanner.l
* Author : Jonathan Hogg <jonathan@onegoodidea.com>
*
****************************************************************************/
%{
/* scanner.l */
#include <string.h>
#include "package.h"
#include "grammar.h"
char litbuf[1024];
static char *bufp;
extern int stack_pointer;
extern int line_number[10];
extern char file_name[10][256];
extern FILE* file[10];
extern int include(char* filename);
%}
%x lit
name [-A-Za-z0-9_\.]*
path (\.|\~|\/|\$)[^ \t\n:,;]*
%%
"#".* /* ignore */
":" return(COLON);
";" return(SEMICOLON);
"," return(COMMA);
"{" return(LEFTPAREN);
"}" return(RIGHTPAREN);
"*" return(WILDCARD);
"+=" return(PLUSEQUALS);
"=" return(EQUALS);
":=" return(ASSIGN);
"<=" return(WITH);
">>" return(BEGIN_ANNOTATE);
"<<" return(END_ANNOTATE);
"\"" bufp=litbuf; bufp[0] = '\0'; BEGIN(lit);
<lit>[^\"\n]* strcpy(bufp, yytext); bufp += yyleng;
<lit>\n { strcpy(bufp, yytext); bufp += yyleng;
line_number[stack_pointer]++; }
<lit>"\"" BEGIN(INITIAL); return(LITERAL);
{path} strcpy(litbuf, yytext); return(PATH);
{name} strcpy(litbuf, yytext); return(NAME);
{name}\* { strcpy(litbuf, yytext); litbuf[yyleng-1] = '\0';
return(PREFIX); }
[ \t]+ /* ignore */
\n line_number[stack_pointer]++;
"(include "[^\)]+")" yytext[yyleng-1] = '\0'; include(yytext+9);
. fprintf(stderr, "usepackage: ignoring character `%s' on line %d of %s\n", yytext, line_number[stack_pointer], file_name[stack_pointer]);
%%
|