1. Kota UENISHI
  2. hello

Source

hello / sql / sql_parser.mly

Diff from to

File sql/sql_parser.mly

  • Ignore whitespace
 
 %{
 
-  let _ = Parsing.set_trace true;;
+  let _ = Parsing.set_trace false;;
   let debugprint = ref true;;
   
   let print str = if !debugprint then print_endline str;;
 input: | exp { $1 };
 
 exp:
-  | SELECT ASTERISK FROM LITERAL SEMICOLON
-      { print "here<";  print $4; Sql.Select(Sql.All_col, $4, []) }
-  | SELECT columns  FROM LITERAL SEMICOLON
-      { print "here<<"; print $4; Sql.Select(Sql.Columns($2), $4, []) }
+  | SELECT ASTERISK FROM LITERAL SEMICOLON { Sql.Select(Sql.All_col, $4, []) }
+  | SELECT columns  FROM LITERAL SEMICOLON { Sql.Select(Sql.Columns($2), $4, []) }
 
   | SELECT ASTERISK FROM LITERAL where_clause SEMICOLON
-      { print "hehe"; print $4; Sql.Select(Sql.All_col, $4, $5) }
+      { Sql.Select(Sql.All_col, $4, $5) }
   | SELECT columns  FROM LITERAL where_clause SEMICOLON
-      { print "hoho"; print $4; Sql.Select(Sql.Columns($2), $4, $5) }
+      { Sql.Select(Sql.Columns($2), $4, $5) }
 ;
 
 columns: