[BACK]Return to yy_polymake.y CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / trans

Diff for /OpenXM/src/kan96xx/trans/yy_polymake.y between version 1.2 and 1.3

version 1.2, 2004/04/08 01:49:04 version 1.3, 2004/07/15 07:50:40
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/trans/yy_polymake.y,v 1.1 2003/11/24 02:33:39 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/trans/yy_polymake.y,v 1.2 2004/04/08 01:49:04 takayama Exp $ */
 /* yacc -d -b yy_polymake -p PM yy_polymake.y */  /* yacc -d -b yy_polymake -p PM yy_polymake.y */
 /* yacc -d -b yy_polymake -p PM yy_polymake.y ; gcc yylex_polymake.c  yy_polymake.tab.c*/  /* yacc -d -b yy_polymake -p PM yy_polymake.y ; gcc yylex_polymake.c  yy_polymake.tab.c*/
 %{  %{
Line 7 
Line 7 
 %}  %}
   
   
 %token PM_emptyLine PM_keyword PM_LCurryBrace PM_RCurryBrace  %token PM_emptyLine PM_keyword PM_LCurryBrace PM_RCurryBrace PM_LAngle PM_RAngle PM_LBracket PM_RBracket PM_colon PM_LBrace PM_RBrace
 %token PM_number PM_newline  %token PM_number PM_newline
   
 %%  %%
Line 57  PM_number {
Line 57  PM_number {
 }  }
 ;  ;
   
   
 pmline  pmline
 : pmnumberList  PM_newline {  : dataUnitList PM_newline {
   $$=$1;    $$=$1;
 }  }
 | PM_LCurryBrace pmnumberList PM_RCurryBrace PM_newline {  ;
   $$=$2;  
   dataUnitList
   : dataUnit {
     $$=$1;
   }
   | dataUnit dataUnitList {
     pmObjectp t;
     t=pmNewListObject($2);
     $$=pmCons($1,(struct pmList *)(t->body));
   }
   | dataUnitList PM_colon dataUnitList { /* a : b --> COLON(a,b) */
     pmObjectp t;
     pmObjectp r;
     r = pmNewTreeObject("_colon");
     r = pmAddChild($3,r);
     r = pmAddChild($1,r);
     $$=r;
   }
   ;
   
   dataUnit
   : pmnumberList {
     $$=$1;
   }
   | PM_LCurryBrace dataUnitList PM_RCurryBrace {
     $$=pmAddChild($2,pmNewTreeObject("_set")); /* set */
     /*printf("{}");pmPrintObject(stdout,$2);*/
   }
   | PM_LAngle dataUnitList PM_RAngle {
     $$=pmAddChild($2,pmNewTreeObject("_pairs"));   /* pairs */
     /* printf("<>");pmPrintObject(stdout,$2); */
   }
   | PM_LBracket dataUnitList PM_RBracket {
     $$=pmAddChild($2,pmNewTreeObject("_bracket"));  /* bracket */
     /* printf("[]");pmPrintObject(stdout,$2); */
   }
   | PM_LBrace dataUnitList PM_RBrace {
     $$=pmAddChild($2,pmNewTreeObject("_tuple"));  /* tuple */
     /* printf("()");pmPrintObject(stdout,$2); */
 }  }
 ;  ;
   

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>