Fix schema parser

SQLPSchema.y

@@ -21,33 +21,34 @@
 SQLPSchema
   : TableDefnList
 	{
-		$$ = NULL;
+		$$ = create_cons_cell_w_atom("SQLP_SCHEMA\0", create_cons_cell(create_list("TABLE_DEFN\0", $1), NULL));
+		print_cons_tree($$);
 	};
 
 TableDefnList
-  : TableDefnList ';' TableDefn
+  : TableDefn ';' TableDefnList
   {
-		$$ = NULL;
+		$$ = create_cons_cell($1, $3);
   }
   | TableDefn
   {
-		$$ = $1;
+		$$ = create_cons_cell($1, NULL);
   };
 
 TableDefn
   : TABLE TableIdentifier '(' TableSpecs ')'
   {
-		$$ = NULL;
+		$$ = create_cons_cell_w_atom("TABLE_DEFN\0", create_cons_cell($2, create_cons_cell(create_list("TABLE_SPECS\0", $4), NULL)));
   };
 
 TableSpecs
 	: TableSpecs ',' TableSpec
 	{
-		$$ = NULL;
+		$$ = create_cons_cell($3, $1);
 	}
 	| Self
 	{
-		$$ = NULL;
+		$$ = create_cons_cell($1, NULL);
 	};
 
 TableSpec
@@ -79,107 +80,107 @@ TableSpec
 Self
 	: SELF OID
 	{
-		$$ = NULL;
+		$$ = create_cons_cell_w_atom("SELF\0", NULL);
 	};
 
 AttributeDefn
   : AttributeIdentifier Type
   {
-    $$ = NULL;
+    $$ = create_cons_cell_w_atom("ATTRIBUTE_DEFN\0", create_cons_cell($1, create_cons_cell($2, NULL)));
   };
 
 Cover
 	: COVERED BY '{' TableIdentifierList '}'
 	{
-		$$ = NULL;
+		$$ = create_cons_cell_w_atom("COVER\0", create_cons_cell(create_list("TABLE_IDENTIFIER\0", $4), NULL));
 	};
 
 ForeignKey
   : FOREIGN KEY '(' ForeignKeyIdentifier ')' REFERENCES TableIdentifier
   {
-  	$$ = NULL;
+  	$$ = create_cons_cell_w_atom("FOREIGN_KEY\0", create_cons_cell($4, create_cons_cell($7, NULL)));
   };
 
 Specialization
   : ISA TableIdentifier
 	{
-  	$$ = NULL;
+  	$$ = create_cons_cell_w_atom("ISA\0", $2);
   };
 
 Disjointness
   : DISJOINT WITH TableIdentifier
   {
-    $$ = NULL;
+    $$ = create_cons_cell_w_atom("DISJOINT\0", $3);
   };
 
 PathFD
 	: PATHFD AttributePathList REF AttributePath
 	{
-		$$ = NULL;
+		$$ = create_cons_cell_w_atom("PATHFD\0", create_cons_cell(create_list("ATTRIBUTE_PATH\0", $2), create_cons_cell(create_list("ATTRIBUTE\0", $4), NULL)));
 	};
 
 AttributePathList
-	: AttributePathList ',' AttributePath
+	: AttributePath ',' AttributePathList
 	{
-		$$ = NULL;
+		$$ = create_cons_cell(create_list("ATTRIBUTE", $1), $3);
 	}
 	| AttributePath
 	{
-		$$ = NULL;
+		$$ = create_cons_cell(create_list("ATTRIBUTE", $1), NULL);
 	};
 
 AttributePath
-	: AttributeIdentifier
+	: AttributeIdentifier '.' AttributePath
 	{
-		$$ = NULL;
+		$$ = create_cons_cell($1, $3);
 	}
-	| AttributePath '.' AttributeIdentifier
+	| AttributeIdentifier
 	{
-		$$ = NULL;
+		$$ = create_cons_cell($1, NULL);
 	};
 
 Type
   : INTCLASS
   {
-    $$ = NULL;
+    $$ = create_cons_cell_w_atom("INTCLASS\0", NULL);
   }
   | STRCLASS
   {
-    $$ = NULL;
+    $$ = create_cons_cell_w_atom("STRCLASS\0", NULL);
   }
   | OID
   {
-    $$ = NULL;
+    $$ = create_cons_cell_w_atom("OID\0", NULL);
   };
 
 AttributeIdentifier
   : IDENTIFIER
   {
-		$$ = NULL;
+		$$ = create_identifier("ATTRIBUTE\0", identifier);
   }
 	| SELF
 	{
-		$$ = NULL;
+		$$ = create_cons_cell_w_atom("SELF\0", NULL);
 	}
 
 TableIdentifierList
-	: TableIdentifierList ',' TableIdentifier
+	: TableIdentifier ',' TableIdentifierList
 	{
-		$$ = NULL;
+		$$ = create_cons_cell($1, $3);
 	}
 	| TableIdentifier
 	{
-		$$ = NULL;
+		$$ = create_cons_cell($1, NULL);
 	};
 
 TableIdentifier
 	: IDENTIFIER
 	{
-		$$ = NULL;
+		$$ = create_identifier("TABLE\0", identifier);
 	};
 
 ForeignKeyIdentifier
 	: IDENTIFIER
 	{
-		$$ = NULL;
+		$$ = create_identifier("FOREIGN_KEY\0", identifier);
 	}

util.c

@@ -73,5 +73,6 @@ static void print_cons_tree_helper(cons_cell *cc, unsigned int padding) {
 }
 
 void print_cons_tree(cons_cell *cc) {
+	printf("\n***Printing Parse Tree***:\n");
 	print_cons_tree_helper(cc, 0);
 }