qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-30 08:00:51 +00:00
Code Issues Projects Releases Packages Wiki Activity

beginnings of code generation. hangs :)

Browse source
This commit is contained in:
Bill Currie 2001-06-14 21:49:47 +00:00
parent 8c13809e9c
commit f9baacd440
1 changed files with 35 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
tools/qfcc/source/qc-parse.y
View file

@ -11,6 +11,7 @@ yyerror (char *s)
} }
int yylex (void); int yylex (void);
type_t *PR_FindType (type_t *new);
%} %}
@ -33,7 +34,11 @@ int yylex (void);
%token NAME INT_VAL FLOAT_VAL STRING_VAL VECTOR_VAL QUATERNION_VAL %token NAME INT_VAL FLOAT_VAL STRING_VAL VECTOR_VAL QUATERNION_VAL
%token LOCAL TYPE RETURN WHILE DO IF ELSE FOR ELIPSIS %token LOCAL RETURN WHILE DO IF ELSE FOR ELIPSIS
%token <type> TYPE
%type <type> type
%type <def> param param_list def_item def def_list
%expect 1 %expect 1
@ -46,32 +51,57 @@ defs
def def
: type def_list : type def_list
{
def_t *def;
for (def = $2; def; def = def->next)
def->type = $1;
$$ = $2;
}
; ;
type type
: TYPE : TYPE
| '.' TYPE | '.' TYPE
{
type_t new;
memset (&new, 0, sizeof (new));
new.type = ev_field;
new.aux_type = $2;
$$ = PR_FindType (&new);
}
; ;
def_list def_list
: def_item ',' def_list : def_item ',' def_list
{
$1->next = $3;
$$ = $1;
}
| def_item | def_item
; ;
def_item def_item
: NAME opt_initializer : NAME opt_initializer {}
| '(' param_list ')' NAME opt_initializer | '(' param_list ')' NAME opt_initializer {}
| '(' ')' NAME opt_initializer | '(' ')' NAME opt_initializer {}
| '(' ELIPSIS ')' NAME opt_initializer | '(' ELIPSIS ')' NAME opt_initializer {}
; ;
param_list param_list
: param : param
| param_list ',' param | param_list ',' param
{
$1->next = $3;
$$ = $1;
}
; ;
param param
: type def_item : type def_item
{
$2->type = $1;
$$ = $2;
}
; ;
opt_initializer opt_initializer