ref: eae58edb5a6f912d3fd06c96e01499ba46f730da
dir: /sys/src/cmd/forp/parse.c/
#include <u.h>
#include <libc.h>
#include <bio.h>
#include <ctype.h>
#include <mp.h>
#include "dat.h"
#include "fns.h"
Biobuf *bin;
Line line;
char lexbuf[512];
int peektok;
enum {
TEOF = -1,
TSYM = -2,
TNUM = -3,
TBIT = -4,
TOBVIOUSLY = -5,
TEQ = -6,
TNEQ = -7,
TLSH = -8,
TRSH = -9,
TLE = -10,
TGE = -11,
TLAND = -12,
TLOR = -13,
TASSUME = -14,
TIMP = -15,
TEQV = -16,
TSIGNED = -17,
};
typedef struct Keyword Keyword;
typedef struct Oper Oper;
struct Keyword {
char *name;
int tok;
};
/* both tables must be sorted */
static Keyword kwtab[] = {
"assume", TASSUME,
"bit", TBIT,
"obviously", TOBVIOUSLY,
"signed", TSIGNED,
};
/* <=> is implemented through a hack below */
static Keyword koptab[] = {
"!=", TNEQ,
"&&", TLAND,
"<<", TLSH,
"<=", TLE,
"==", TEQ,
"=>", TIMP,
">=", TGE,
">>", TRSH,
"||", TLOR,
};
static Keyword *kwjmp[128];
static Keyword *kopjmp[128];
struct Oper {
int tok;
int type;
int pred;
char *str;
};
#define MAXPREC 15
static Oper optab[] = {
'*', OPMUL, 14, "*",
'/', OPDIV, 14, "/",
'%', OPMOD, 14, "%",
'+', OPADD, 13, "+",
'-', OPSUB, 13, "-",
TLSH, OPLSH, 12, "<<",
TRSH, OPRSH, 12, ">>",
'<', OPLT, 11, "<",
TLE, OPLE, 11, "<=",
'>', OPGT, 11, ">",
TGE, OPGE, 11, ">=",
TEQ, OPEQ, 10, "==",
TNEQ, OPNEQ, 10, "!=",
'&', OPAND, 9, "&",
'^', OPXOR, 8, "^",
'|', OPOR, 7, "|",
TLAND, OPLAND, 6, "&&",
TLOR, OPLOR, 5, "||",
TEQV, OPEQV, 4, "<=>",
TIMP, OPIMP, 4, "=>",
/* ?: */
'=', OPASS, 2, "=",
',', OPCOMMA, 1, ",",
-1, OPNOT, MAXPREC, "!",
-1, OPCOM, MAXPREC, "~",
-1, OPNEG, MAXPREC, "-",
};
void
error(Line *l, char *msg, ...)
{
char buf[256];
Fmt f;
va_list va;
if(l == nil) l = &line;
fmtfdinit(&f, 2, buf, sizeof(buf));
fmtprint(&f, "%s:%d: ", l->filen, l->lineno);
va_start(va, msg);
fmtvprint(&f, msg, va);
va_end(va);
fmtrune(&f, '\n');
fmtfdflush(&f);
exits("error");
}
static int
tokfmt(Fmt *f)
{
int t;
Keyword *k;
t = va_arg(f->args, int);
if(t >= ' ' && t < 0x7f) return fmtprint(f, "%c", t);
for(k = kwtab; k < kwtab + nelem(kwtab); k++)
if(k->tok == t)
return fmtprint(f, "%s", k->name);
for(k = koptab; k < koptab + nelem(koptab); k++)
if(k->tok == t)
return fmtprint(f, "%s", k->name);
switch(t){
case TSYM: return fmtprint(f, "TSYM"); break;
case TNUM: return fmtprint(f, "TNUM"); break;
case TEOF: return fmtprint(f, "eof"); break;
default: return fmtprint(f, "%d", t); break;
}
}
static int
exprfmt(Fmt *f)
{
Node *n;
Oper *o;
int w;
n = va_arg(f->args, Node *);
if(n == nil) return fmtprint(f, "nil");
switch(n->type){
case ASTSYM: return fmtprint(f, "%s", n->sym->name);
case ASTBIN:
for(o = optab; o < optab + nelem(optab); o++)
if(o->type == n->op)
break;
if(o == optab + nelem(optab)) return fmtprint(f, "[unknown operation %O]", n->op);
w = f->width;
if(w > o->pred) fmtrune(f, '(');
fmtprint(f, "%*ε %s %*ε", o->pred, n->n1, o->str, o->pred + 1, n->n2);
if(w > o->pred) fmtrune(f, ')');
return 0;
case ASTNUM: return fmtprint(f, "0x%B", n->num);
default: return fmtprint(f, "???(%α)", n->type);
}
}
static int
issymchar(int c)
{
return c >= 0 && (isalnum(c) || c == '_' || c >= 0x80);
}
static int
lex(void)
{
int c, d;
char *p;
Keyword *kw;
if(peektok != 0){
c = peektok;
peektok = 0;
return c;
}
loop:
do{
c = Bgetc(bin);
if(c == '\n') line.lineno++;
}while(c >= 0 && isspace(c));
if(c < 0) return TEOF;
if(c == '/'){
c = Bgetc(bin);
if(c == '/'){
do
c = Bgetc(bin);
while(c >= 0 && c != '\n');
if(c < 0) return TEOF;
line.lineno++;
goto loop;
}else if(c == '*'){
s0:
c = Bgetc(bin);
if(c != '*') goto s0;
s1:
c = Bgetc(bin);
if(c == '*') goto s1;
if(c != '/') goto s0;
goto loop;
}else{
Bungetc(bin);
return '/';
}
}
if(isdigit(c)){
p = lexbuf;
*p++ = c;
while(c = Bgetc(bin), issymchar(c))
if(p < lexbuf + sizeof(lexbuf) - 1)
*p++ = c;
Bungetc(bin);
*p = 0;
strtol(lexbuf, &p, 0);
if(p == lexbuf || *p != 0)
error(nil, "invalid number %q", lexbuf);
return TNUM;
}
if(issymchar(c)){
p = lexbuf;
*p++ = c;
while(c = Bgetc(bin), issymchar(c))
if(p < lexbuf + sizeof(lexbuf) - 1)
*p++ = c;
Bungetc(bin);
*p = 0;
c = lexbuf[0];
if((signed char)c>= 0 && (kw = kwjmp[c], kw != nil))
for(; kw < kwtab + nelem(kwtab) && kw->name[0] == c; kw++)
if(strcmp(lexbuf, kw->name) == 0)
return kw->tok;
return TSYM;
}
if(kw = kopjmp[c], kw != nil){
d = Bgetc(bin);
for(; kw < koptab + nelem(koptab) && kw->name[0] == c; kw++)
if(kw->name[1] == d){
if(kw->tok == TLE){
c = Bgetc(bin);
if(c == '>')
return TEQV;
Bungetc(bin);
}
return kw->tok;
}
Bungetc(bin);
}
return c;
}
static void
superman(int t)
{
assert(peektok == 0);
peektok = t;
}
static int
peek(void)
{
if(peektok != 0) return peektok;
return peektok = lex();
}
static void
expect(int t)
{
int s;
s = lex();
if(t != s)
error(nil, "expected %t, got %t", t, s);
}
static int
got(int t)
{
return peek() == t && (lex(), 1);
}
static Node *
expr(int level)
{
Node *a, *b, *c;
Oper *op;
Symbol *s;
mpint *num;
int t;
if(level == MAXPREC+2){
switch(t = lex()){
case '(':
a = expr(0);
expect(')');
return a;
case TSYM:
s = symget(lexbuf);
switch(s->type){
case SYMNONE:
error(nil, "%#q undefined", s->name);
default:
error(nil, "%#q symbol type error", s->name);
case SYMBITS:
break;
}
return node(ASTSYM, s);
case TNUM:
num = strtomp(lexbuf, nil, 0, nil);
return node(ASTNUM, num);
default:
error(nil, "unexpected %t", t);
}
}else if(level == MAXPREC+1){
a = expr(level + 1);
if(got('[')){
b = expr(0);
if(got(':'))
c = expr(0);
else
c = nil;
expect(']');
a = node(ASTIDX, a, b, c);
}
return a;
}else if(level == MAXPREC){
switch(t = lex()){
case '~': return node(ASTUN, OPCOM, expr(level));
case '!': return node(ASTUN, OPNOT, expr(level));
case '+': return expr(level);
case '-': return node(ASTUN, OPNEG, expr(level));
default: superman(t); return expr(level+1); break;
}
}else if(level == 3){
a = expr(level + 1);
if(got('?')){
b = expr(level);
expect(':');
c = expr(level);
a = node(ASTTERN, a, b, c);
}
return a;
}
a = expr(level+1);
for(;;){
t = peek();
for(op = optab; op < optab + nelem(optab); op++)
if(op->tok == t && op->pred >= level)
break;
if(op == optab+nelem(optab)) return a;
lex();
a = node(ASTBIN, op->type, a, expr(level+1));
}
}
static void
vardecl(void)
{
Symbol *s;
int l, flags;
flags = 0;
for(;;)
switch(l = lex()){
case TBIT: if((flags & 1) != 0) goto err; flags |= 1; break;
case TSIGNED: if((flags & 2) != 0) goto err; flags |= 2; break;
default: superman(l); goto out;
}
out:
do{
expect(TSYM);
s = symget(lexbuf);
if(s->type != SYMNONE) error(nil, "%#q redefined", s->name);
s->type = SYMBITS;
if((flags & 2) != 0)
s->flags |= SYMFSIGNED;
s->size = 1;
if(got('[')){
expect(TNUM);
s->type = SYMBITS;
s->size = strtol(lexbuf, nil, 0);
expect(']');
}
s->vars = emalloc(sizeof(int) * s->size);
}while(got(','));
expect(';');
return;
err: error(nil, "syntax error");
}
static int
statement(void)
{
Node *n;
int t;
switch(t=peek()){
case TEOF:
return 0;
case TBIT:
case TSIGNED:
vardecl();
break;
case TASSUME:
case TOBVIOUSLY:
lex();
n = expr(0);
expect(';');
convert(n, -1);
if(t == TASSUME)
assume(n);
else
obviously(n);
break;
case ';':
lex();
break;
default:
n = expr(0);
convert(n, -1);
expect(';');
}
return 1;
}
void
parsinit(void)
{
Keyword *k;
fmtinstall('t', tokfmt);
fmtinstall(L'ε', exprfmt);
for(k = kwtab; k < kwtab + nelem(kwtab); k++)
if(kwjmp[k->name[0]] == nil)
kwjmp[k->name[0]] = k;
for(k = koptab; k < koptab + nelem(koptab); k++)
if(kopjmp[k->name[0]] == nil)
kopjmp[k->name[0]] = k;
}
void
parse(char *fn)
{
if(fn == nil){
bin = Bfdopen(0, OREAD);
line.filen = "<stdin>";
}else{
bin = Bopen(fn, OREAD);
line.filen = strdup(fn);
}
if(bin == nil) sysfatal("open: %r");
line.lineno = 1;
while(statement())
;
}