added util/refptr module

git-svn-id: svn://anubis/fart/trunk@90 7f9b0f55-74a9-4bce-be96-3c2cd072584d

parser/parser.yy

@@ -11,6 +11,7 @@ extern "C" {
 }
 
 extern FILE * yyin;
+extern char * yytext;
 
 void yyerror(const char * str)
 {
@@ -135,8 +136,16 @@ material_item: COLOR vector
              | SHININESS number
              ;
 
-number: DEC_NUMBER
-      | REAL_NUMBER
+number: DEC_NUMBER  {
+            double * ptr = new double;
+            *ptr = atoi(yytext);
+            $$.ptr = ptr;
+        }
+      | REAL_NUMBER {
+            double * ptr = new double;
+            *ptr = atof(yytext);
+            $$.ptr = ptr;
+        }
       ;
 
 plane: PLANE LCURLY plane_items RCURLY
@@ -182,7 +191,16 @@ subtract: SUBTRACT LCURLY boolean_items RCURLY
 union: UNION LCURLY boolean_items RCURLY
      ;
 
-vector: LESS number COMMA number COMMA number GREATER
+vector: LESS number COMMA number COMMA number GREATER {
+            Vector * ptr = new Vector();
+            (*ptr)[0] = * (double *) $2.ptr;
+            (*ptr)[1] = * (double *) $4.ptr;
+            (*ptr)[2] = * (double *) $6.ptr;
+            $$.ptr = ptr;
+            delete (double *) $2.ptr;
+            delete (double *) $4.ptr;
+            delete (double *) $6.ptr;
+      }
       ;
 
 %%