OpenXM_contrib2/asir2000/parse/parse.y - diff

Return to parse.y CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.15, 2003/05/14 06:20:12

version 1.16, 2003/05/14 09:18:38

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.y,v 1.14 2002/12/22 02:08:29 takayama Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.y,v 1.15 2003/05/14 06:20:12 noro Exp $

#define malloc(x) GC_malloc(x)

Line 89 extern jmp_buf env;

pointer p;

}

%token STRUCT POINT NEWSTRUCT ANS FDEF PFDEF MODDEF GLOBAL MGLOBAL CMP OR AND CAR CDR QUOTED

%token STRUCT POINT NEWSTRUCT ANS FDEF PFDEF MODDEF MODEND GLOBAL MGLOBAL CMP OR AND CAR CDR QUOTED

%token DO WHILE FOR IF ELSE BREAK RETURN CONTINUE PARIF MAP RECMAP TIMER GF2NGEN GFPNGEN GFSNGEN GETOPT

%token FOP_AND FOP_OR FOP_IMPL FOP_REPL FOP_EQUIV FOP_NOT LOP

%token FORMULA UCASE LCASE STR SELF BOPASS

Line 168 stat : tail

mksnode(1,S_CPLX,$9),$1,asir_infile->ln,$7,CUR_MODULE);

$$ = 0; NOPR;

}

| MODDEF LCASE { CUR_MODULE = mkmodule($2); } '{' stats '}'

| MODDEF LCASE tail

{

{ CUR_MODULE = mkmodule($2); MPVS = CUR_MODULE->pvs; $$ = 0; NOPR; }

CUR_MODULE = 0;

| MODEND tail

$$ = 0; NOPR;

{ CUR_MODULE = 0; MPVS = 0; $$ = 0; NOPR; }

}

| error tail

{ yyerrok; $$ = 0; }

;