version 1.27, 2005/07/27 04:35:11 |
version 1.29, 2005/09/13 06:40:46 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.y,v 1.26 2005/04/07 08:33:12 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.y,v 1.28 2005/08/24 06:28:39 noro Exp $ |
*/ |
*/ |
%{ |
%{ |
#define malloc(x) GC_malloc(x) |
#define malloc(x) GC_malloc(x) |
Line 67 extern int gdef,mgdef,ldef; |
|
Line 67 extern int gdef,mgdef,ldef; |
|
extern SNODE parse_snode; |
extern SNODE parse_snode; |
extern int main_parser, allow_create_var; |
extern int main_parser, allow_create_var; |
|
|
int prresult; |
int prresult,saveresult; |
|
|
static int ind; |
static int ind; |
static FNODE t; |
static FNODE t; |
Line 92 extern jmp_buf env; |
|
Line 92 extern jmp_buf env; |
|
%token <i> STRUCT POINT NEWSTRUCT ANS FDEF PFDEF MODDEF MODEND |
%token <i> STRUCT POINT NEWSTRUCT ANS FDEF PFDEF MODDEF MODEND |
%token <i> GLOBAL MGLOBAL LOCAL LOCALF CMP OR AND CAR CDR QUOTED COLONCOLON |
%token <i> GLOBAL MGLOBAL LOCAL LOCALF CMP OR AND CAR CDR QUOTED COLONCOLON |
%token <i> DO WHILE FOR IF ELSE BREAK RETURN CONTINUE PARIF MAP RECMAP TIMER GF2NGEN GFPNGEN GFSNGEN GETOPT |
%token <i> DO WHILE FOR IF ELSE BREAK RETURN CONTINUE PARIF MAP RECMAP TIMER GF2NGEN GFPNGEN GFSNGEN GETOPT |
|
%token <i> UNIFY |
%token <i> FOP_AND FOP_OR FOP_IMPL FOP_REPL FOP_EQUIV FOP_NOT LOP |
%token <i> FOP_AND FOP_OR FOP_IMPL FOP_REPL FOP_EQUIV FOP_NOT LOP |
%token <p> FORMULA UCASE LCASE STR SELF BOPASS |
%token <p> FORMULA UCASE LCASE STR SELF BOPASS |
%token <p> '+' '-' '*' '/' '^' '%' |
%token <p> '+' '-' '*' '/' '^' '%' |
|
|
| WHILE '(' node ')' stat |
| WHILE '(' node ')' stat |
{ $$ = mksnode(5,S_FOR,$1,0,$3,0,$5); $5?$$->ln=$5->ln:0; NOPR; } |
{ $$ = mksnode(5,S_FOR,$1,0,$3,0,$5); $5?$$->ln=$5->ln:0; NOPR; } |
| DO stat WHILE '(' node ')' tail |
| DO stat WHILE '(' node ')' tail |
{ $$ = mksnode(3,S_DO,$1,$2,$5); } |
{ $$ = mksnode(3,S_DO,$1,$2,$5); NOPR; } |
| LCASE '(' node ')' ':' '=' expr tail |
| LCASE '(' node ')' ':' '=' expr tail |
{ $$ = mksnode(3,S_PFDEF,$1,$3,$7); NOPR; } |
{ $$ = mksnode(3,S_PFDEF,$1,$3,$7); NOPR; } |
| PFDEF LCASE '(' node ')' tail |
| PFDEF LCASE '(' node ')' tail |
|
|
{ |
{ |
mkuf($2,asir_infile->name,$6, |
mkuf($2,asir_infile->name,$6, |
mksnode(1,S_CPLX,$11),$1,asir_infile->ln,$9,CUR_MODULE); |
mksnode(1,S_CPLX,$11),$1,asir_infile->ln,$9,CUR_MODULE); |
$$ = 0; NOPR; |
$$ = 0; NOPR; |
} |
} |
| MODDEF LCASE tail |
| MODDEF LCASE tail |
{ |
{ |
|
|
gen_searchf($3,(FUNC *)&val); |
gen_searchf($3,(FUNC *)&val); |
print_crossref(val); |
print_crossref(val); |
$$ = mkfnode(2,I_RECMAP,val,mkfnode(1,I_LIST,$5)); |
$$ = mkfnode(2,I_RECMAP,val,mkfnode(1,I_LIST,$5)); |
|
} |
|
| UNIFY '(' expr ',' expr ')' |
|
{ |
|
$$ = mkfnode(2,I_UNIFY,$3,$5); |
} |
} |
| LCASE '{' node '}' '(' node ')' |
| LCASE '{' node '}' '(' node ')' |
{ |
{ |