138 lines
2.0 KiB
Plaintext
138 lines
2.0 KiB
Plaintext
%{
|
|
/*
|
|
* Copyright (c) 1983 Regents of the University of California.
|
|
* All rights reserved. The Berkeley software License Agreement
|
|
* specifies the terms and conditions for redistribution.
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)parse.y 1.1 94/10/31 SMI"; /* from UCB 5.2 6/21/85 */
|
|
#endif not lint
|
|
|
|
|
|
#include "htable.h"
|
|
%}
|
|
|
|
%union {
|
|
int number;
|
|
struct addr *addrlist;
|
|
struct name *namelist;
|
|
}
|
|
%start Table
|
|
|
|
%token END
|
|
%token <number> NUMBER KEYWORD
|
|
%token <namelist> NAME
|
|
|
|
%type <namelist> Names Cputype Opsys Protos Proto
|
|
%type <addrlist> Addresses Address
|
|
%%
|
|
Table : Entry
|
|
| Table Entry
|
|
;
|
|
|
|
Entry : KEYWORD ':' Addresses ':' Names ':' END
|
|
= {
|
|
do_entry($1, $3, $5, NONAME, NONAME, NONAME);
|
|
}
|
|
| KEYWORD ':' Addresses ':' Names ':' Cputype ':' END
|
|
= {
|
|
do_entry($1, $3, $5, $7, NONAME, NONAME);
|
|
}
|
|
| KEYWORD ':' Addresses ':' Names ':' Cputype ':' Opsys ':' END
|
|
= {
|
|
do_entry($1, $3, $5, $7, $9, NONAME);
|
|
}
|
|
| KEYWORD ':' Addresses ':' Names ':' Cputype ':' Opsys ':' ':' END
|
|
= {
|
|
do_entry($1, $3, $5, $7, $9, NONAME);
|
|
}
|
|
| KEYWORD ':' Addresses ':' Names ':' Cputype ':' Opsys ':' Protos ':' END
|
|
= {
|
|
do_entry($1, $3, $5, $7, $9, $11);
|
|
}
|
|
| error END
|
|
| END /* blank line */
|
|
;
|
|
|
|
Addresses: Address
|
|
= {
|
|
$$ = $1;
|
|
}
|
|
| Address ',' Addresses
|
|
= {
|
|
$1->addr_link = $3;
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
Address : NUMBER '.' NUMBER '.' NUMBER '.' NUMBER
|
|
= {
|
|
char *a;
|
|
|
|
$$ = (struct addr *)malloc(sizeof (struct addr));
|
|
a = (char *)&($$->addr_val);
|
|
a[0] = $1; a[1] = $3; a[2] = $5; a[3] = $7;
|
|
$$->addr_link = NOADDR;
|
|
}
|
|
;
|
|
|
|
Names : NAME
|
|
= {
|
|
$$ = $1;
|
|
}
|
|
| NAME ',' Names
|
|
= {
|
|
$1->name_link = $3;
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
Cputype : /* empty */
|
|
= {
|
|
$$ = NONAME;
|
|
}
|
|
| NAME
|
|
= {
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
Opsys : /* empty */
|
|
= {
|
|
$$ = NONAME;
|
|
}
|
|
| NAME
|
|
= {
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
Protos : Proto
|
|
= {
|
|
$$ = $1;
|
|
}
|
|
| Proto ',' Protos
|
|
= {
|
|
$1->name_link = $3;
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
Proto : NAME
|
|
= {
|
|
$$ = $1;
|
|
}
|
|
;
|
|
%%
|
|
|
|
#include <stdio.h>
|
|
|
|
extern int yylineno;
|
|
|
|
yyerror(msg)
|
|
char *msg;
|
|
{
|
|
fprintf(stderr, "\"%s\", line %d: %s\n", infile, yylineno, msg);
|
|
}
|