version 1.9, 2001/09/03 01:04:28 |
version 1.10, 2001/09/03 07:01:10 |
|
|
* 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.8 2001/08/21 01:39:39 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.y,v 1.9 2001/09/03 01:04:28 noro Exp $ |
*/ |
*/ |
%{ |
%{ |
#define malloc(x) GC_malloc(x) |
#define malloc(x) GC_malloc(x) |
Line 90 extern jmp_buf env; |
|
Line 90 extern jmp_buf env; |
|
} |
} |
|
|
%token <i> STRUCT POINT NEWSTRUCT ANS FDEF PFDEF GLOBAL CMP OR AND CAR CDR QUOTED |
%token <i> STRUCT POINT NEWSTRUCT ANS FDEF PFDEF GLOBAL CMP OR AND CAR CDR QUOTED |
%token <i> DO WHILE FOR IF ELSE BREAK RETURN CONTINUE PARIF MAP RECMAP TIMER GF2NGEN GFPNGEN GETOPT |
%token <i> DO WHILE FOR IF ELSE BREAK RETURN CONTINUE PARIF MAP RECMAP TIMER GF2NGEN GFPNGEN GFSNGEN GETOPT |
%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> '+' '-' '*' '/' '^' '%' |
|
|
{ $$ = mkfnode(0,I_GF2NGEN); } |
{ $$ = mkfnode(0,I_GF2NGEN); } |
| GFPNGEN |
| GFPNGEN |
{ $$ = mkfnode(0,I_GFPNGEN); } |
{ $$ = mkfnode(0,I_GFPNGEN); } |
|
| GFSNGEN |
|
{ $$ = mkfnode(0,I_GFSNGEN); } |
| LCASE |
| LCASE |
{ |
{ |
FUNC f; |
FUNC f; |