URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [lburg/] [gram.y] - Blame information for rev 137

Go to most recent revision | Details | Compare with Previous | View Log


%{
#include 
#include 
#include "lburg.h"
static char rcsid[] = "$Id: gram.y,v 2.5 1997/11/21 18:59:34 drh Exp $";
/*lint -e616 -e527 -e652 -esym(552,yynerrs) -esym(563,yynewstate,yyerrlab) */
static int yylineno = 0;
%}
%union {
        int n;
        char *string;
        Tree tree;
}
%term TERMINAL
%term START
%term PPERCENT
 
%token          ID TEMPLATE CODE
%token               INT
%type           nonterm cost
%type             tree
%%
spec    : decls PPERCENT rules          { yylineno = 0; }
        | decls                         { yylineno = 0; }
        ;
 
decls   : /* lambda */
        | decls decl
        ;
 
decl    : TERMINAL  blist '\n'
        | START nonterm '\n'            {
                if (nonterm($2)->number != 1)
                        yyerror("redeclaration of the start symbol\n");
                }
        | '\n'
        | error '\n'                    { yyerrok; }
        ;
 
blist   : /* lambda */
        | blist ID '=' INT              { term($2, $4); }
        ;
 
rules   : /* lambda */
        | rules nonterm ':' tree TEMPLATE cost '\n'     { rule($2, $4, $5, $6); }
        | rules '\n'
        | rules error '\n'              { yyerrok; }
        ;
 
nonterm : ID                            { nonterm($$ = $1); }
        ;
 
tree    : ID                            { $$ = tree($1,  0,  0); }
        | ID '(' tree ')'               { $$ = tree($1, $3,  0); }
        | ID '(' tree ',' tree ')'      { $$ = tree($1, $3, $5); }
        ;
 
cost    : CODE                          { if (*$1 == 0) $$ = "0"; }
        ;
%%
#include 
#include 
#include 
#include 
#include 
 
int errcnt = 0;
FILE *infp = NULL;
FILE *outfp = NULL;
static char buf[BUFSIZ], *bp = buf;
static int ppercent = 0;
static int code = 0;
 
static int get(void) {
        if (*bp == 0) {
                bp = buf;
                *bp = 0;
                if (fgets(buf, sizeof buf, infp) == NULL)
                        return EOF;
                yylineno++;
                while (buf[0] == '%' && buf[1] == '{' && buf[2] == '\n') {
                        for (;;) {
                                if (fgets(buf, sizeof buf, infp) == NULL) {
                                        yywarn("unterminated %{...%}\n");
                                        return EOF;
                                }
                                yylineno++;
                                if (strcmp(buf, "%}\n") == 0)
                                        break;
                                fputs(buf, outfp);
                        }
                        if (fgets(buf, sizeof buf, infp) == NULL)
                                return EOF;
                        yylineno++;
                }
        }
        return *bp++;
}
 
void yyerror(char *fmt, ...) {
        va_list ap;
 
        va_start(ap, fmt);
        if (yylineno > 0)
                fprintf(stderr, "line %d: ", yylineno);
        vfprintf(stderr, fmt, ap);
        if (fmt[strlen(fmt)-1] != '\n')
                 fprintf(stderr, "\n");
        errcnt++;
        va_end(ap);
}
 
int yylex(void) {
        int c;
 
        if (code) {
                char *p;
                bp += strspn(bp, " \t\f");
                p = strchr(bp, '\n');
                if (p == NULL)
                        p = strchr(bp, '\n');
                while (p > bp && isspace(p[-1]))
                        p--;
                yylval.string = alloc(p - bp + 1);
                strncpy(yylval.string, bp, p - bp);
                yylval.string[p - bp] = 0;
                bp = p;
                code--;
                return CODE;
        }
        while ((c = get()) != EOF) {
                switch (c) {
                case ' ': case '\f': case '\t':
                        continue;
                case '\n':
                case '(': case ')': case ',':
                case ':': case '=':
                        return c;
                }
                if (c == '%' && *bp == '%') {
                        bp++;
                        return ppercent++ ? 0 : PPERCENT;
                } else if (c == '%' && strncmp(bp, "term", 4) == 0
                && isspace(bp[4])) {
                        bp += 4;
                        return TERMINAL;
                } else if (c == '%' && strncmp(bp, "start", 5) == 0
                && isspace(bp[5])) {
                        bp += 5;
                        return START;
                } else if (c == '"') {
                        char *p = strchr(bp, '"');
                        if (p == NULL) {
                                yyerror("missing \" in assembler template\n");
                                p = strchr(bp, '\n');
                                if (p == NULL)
                                        p = strchr(bp, '\0');
                        }
                        assert(p);
                        yylval.string = alloc(p - bp + 1);
                        strncpy(yylval.string, bp, p - bp);
                        yylval.string[p - bp] = 0;
                        bp = *p == '"' ? p + 1 : p;
                        code++;
                        return TEMPLATE;
                } else if (isdigit(c)) {
                        int n = 0;
                        do {
                                int d = c - '0';
                                if (n > (INT_MAX - d)/10)
                                        yyerror("integer greater than %d\n", INT_MAX);
                                else
                                        n = 10*n + d;
                                c = get();
                        } while (c != EOF && isdigit(c));
                        bp--;
                        yylval.n = n;
                        return INT;
                } else if (isalpha(c)) {
                        char *p = bp - 1;
                        while (isalpha(*bp) || isdigit(*bp) || *bp == '_')
                                bp++;
                        yylval.string = alloc(bp - p + 1);
                        strncpy(yylval.string, p, bp - p);
                        yylval.string[bp - p] = 0;
                        return ID;
                } else if (isprint(c))
                        yyerror("invalid character `%c'\n", c);
                else
                        yyerror("invalid character `\\%03o'\n", (unsigned char)c);
        }
        return 0;
}
 
void yywarn(char *fmt, ...) {
        va_list ap;
 
        va_start(ap, fmt);
        if (yylineno > 0)
                fprintf(stderr, "line %d: ", yylineno);
        fprintf(stderr, "warning: ");
        vfprintf(stderr, fmt, ap);
}

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [lburg/] [gram.y] - Blame information for rev 137

Line No.	Rev	Author	Line
1	4	hellwig	`%{`
2			`#include`
3			`#include`
4			`#include "lburg.h"`
5			`static char rcsid[] = "$Id: gram.y,v 2.5 1997/11/21 18:59:34 drh Exp $";`
6			`/lint -e616 -e527 -e652 -esym(552,yynerrs) -esym(563,yynewstate,yyerrlab) /`
7			`static int yylineno = 0;`
8			`%}`
9			`%union {`
10			`int n;`
11			`char *string;`
12			`Tree tree;`
13			`}`
14			`%term TERMINAL`
15			`%term START`
16			`%term PPERCENT`
17
18			`%token ID TEMPLATE CODE`
19			`%token INT`
20			`%type nonterm cost`
21			`%type tree`
22			`%%`
23			`spec : decls PPERCENT rules { yylineno = 0; }`
24			`\| decls { yylineno = 0; }`
25			`;`
26
27			`decls : /* lambda */`
28			`\| decls decl`
29			`;`
30
31			`decl : TERMINAL blist '\n'`
32			`\| START nonterm '\n' {`
33			`if (nonterm($2)->number != 1)`
34			`yyerror("redeclaration of the start symbol\n");`
35			`}`
36			`\| '\n'`
37			`\| error '\n' { yyerrok; }`
38			`;`
39
40			`blist : /* lambda */`
41			`\| blist ID '=' INT { term($2, $4); }`
42			`;`
43
44			`rules : /* lambda */`
45			`\| rules nonterm ':' tree TEMPLATE cost '\n' { rule($2, $4, $5, $6); }`
46			`\| rules '\n'`
47			`\| rules error '\n' { yyerrok; }`
48			`;`
49
50			`nonterm : ID { nonterm($$ = $1); }`
51			`;`
52
53			`tree : ID { $$ = tree($1, 0, 0); }`
54			`\| ID '(' tree ')' { $$ = tree($1, $3, 0); }`
55			`\| ID '(' tree ',' tree ')' { $$ = tree($1, $3, $5); }`
56			`;`
57
58			`cost : CODE { if (*$1 == 0) $$ = "0"; }`
59			`;`
60			`%%`
61			`#include`
62			`#include`
63			`#include`
64			`#include`
65			`#include`
66
67			`int errcnt = 0;`
68			`FILE *infp = NULL;`
69			`FILE *outfp = NULL;`
70			`static char buf[BUFSIZ], *bp = buf;`
71			`static int ppercent = 0;`
72			`static int code = 0;`
73
74			`static int get(void) {`
75			`if (*bp == 0) {`
76			`bp = buf;`
77			`*bp = 0;`
78			`if (fgets(buf, sizeof buf, infp) == NULL)`
79			`return EOF;`
80			`yylineno++;`
81			`while (buf[0] == '%' && buf[1] == '{' && buf[2] == '\n') {`
82			`for (;;) {`
83			`if (fgets(buf, sizeof buf, infp) == NULL) {`
84			`yywarn("unterminated %{...%}\n");`
85			`return EOF;`
86			`}`
87			`yylineno++;`
88			`if (strcmp(buf, "%}\n") == 0)`
89			`break;`
90			`fputs(buf, outfp);`
91			`}`
92			`if (fgets(buf, sizeof buf, infp) == NULL)`
93			`return EOF;`
94			`yylineno++;`
95			`}`
96			`}`
97			`return *bp++;`
98			`}`
99
100			`void yyerror(char *fmt, ...) {`
101			`va_list ap;`
102
103			`va_start(ap, fmt);`
104			`if (yylineno > 0)`
105			`fprintf(stderr, "line %d: ", yylineno);`
106			`vfprintf(stderr, fmt, ap);`
107			`if (fmt[strlen(fmt)-1] != '\n')`
108			`fprintf(stderr, "\n");`
109			`errcnt++;`
110			`va_end(ap);`
111			`}`
112
113			`int yylex(void) {`
114			`int c;`
115
116			`if (code) {`
117			`char *p;`
118			`bp += strspn(bp, " \t\f");`
119			`p = strchr(bp, '\n');`
120			`if (p == NULL)`
121			`p = strchr(bp, '\n');`
122			`while (p > bp && isspace(p[-1]))`
123			`p--;`
124			`yylval.string = alloc(p - bp + 1);`
125			`strncpy(yylval.string, bp, p - bp);`
126			`yylval.string[p - bp] = 0;`
127			`bp = p;`
128			`code--;`
129			`return CODE;`
130			`}`
131			`while ((c = get()) != EOF) {`
132			`switch (c) {`
133			`case ' ': case '\f': case '\t':`
134			`continue;`
135			`case '\n':`
136			`case '(': case ')': case ',':`
137			`case ':': case '=':`
138			`return c;`
139			`}`
140			`if (c == '%' && *bp == '%') {`
141			`bp++;`
142			`return ppercent++ ? 0 : PPERCENT;`
143			`} else if (c == '%' && strncmp(bp, "term", 4) == 0`
144			`&& isspace(bp[4])) {`
145			`bp += 4;`
146			`return TERMINAL;`
147			`} else if (c == '%' && strncmp(bp, "start", 5) == 0`
148			`&& isspace(bp[5])) {`
149			`bp += 5;`
150			`return START;`
151			`} else if (c == '"') {`
152			`char *p = strchr(bp, '"');`
153			`if (p == NULL) {`
154			`yyerror("missing \" in assembler template\n");`
155			`p = strchr(bp, '\n');`
156			`if (p == NULL)`
157			`p = strchr(bp, '\0');`
158			`}`
159			`assert(p);`
160			`yylval.string = alloc(p - bp + 1);`
161			`strncpy(yylval.string, bp, p - bp);`
162			`yylval.string[p - bp] = 0;`
163			`bp = *p == '"' ? p + 1 : p;`
164			`code++;`
165			`return TEMPLATE;`
166			`} else if (isdigit(c)) {`
167			`int n = 0;`
168			`do {`
169			`int d = c - '0';`
170			`if (n > (INT_MAX - d)/10)`
171			`yyerror("integer greater than %d\n", INT_MAX);`
172			`else`
173			`n = 10*n + d;`
174			`c = get();`
175			`} while (c != EOF && isdigit(c));`
176			`bp--;`
177			`yylval.n = n;`
178			`return INT;`
179			`} else if (isalpha(c)) {`
180			`char *p = bp - 1;`
181			`while (isalpha(bp) \|\| isdigit(bp) \|\| *bp == '_')`
182			`bp++;`
183			`yylval.string = alloc(bp - p + 1);`
184			`strncpy(yylval.string, p, bp - p);`
185			`yylval.string[bp - p] = 0;`
186			`return ID;`
187			`} else if (isprint(c))`
188			yyerror("invalid character `%c'\n", c);
189			`else`
190			yyerror("invalid character `\\%03o'\n", (unsigned char)c);
191			`}`
192			`return 0;`
193			`}`
194
195			`void yywarn(char *fmt, ...) {`
196			`va_list ap;`
197
198			`va_start(ap, fmt);`
199			`if (yylineno > 0)`
200			`fprintf(stderr, "line %d: ", yylineno);`
201			`fprintf(stderr, "warning: ");`
202			`vfprintf(stderr, fmt, ap);`
203			`}`