]> matita.cs.unibo.it Git - helm.git/commitdiff
new interface for text_of_query/text_of_result + bug fixes
authorFerruccio Guidi <ferruccio.guidi@unibo.it>
Mon, 3 Feb 2003 17:27:45 +0000 (17:27 +0000)
committerFerruccio Guidi <ferruccio.guidi@unibo.it>
Mon, 3 Feb 2003 17:27:45 +0000 (17:27 +0000)
helm/ocaml/cic_textual_parser/cicTextualParser.mly

index 5887fc072a1ea3a3b94c10c08383f5c4811349e5..11313aeff68743f0a9df2048ec34d2c93f8d306f 100644 (file)
 %token <UriManager.uri> VARURI
 %token <UriManager.uri * int> INDTYURI
 %token <UriManager.uri * int * int> INDCONURI
-%token ALIAS
 %token LPAREN RPAREN PROD LAMBDA COLON DOT SET PROP TYPE CAST IMPLICIT NONE
 %token LETIN FIX COFIX SEMICOLON LCURLY RCURLY CASE ARROW LBRACKET RBRACKET EOF
 %right ARROW
 %type <string list * ((string -> CicTextualParser0.interp_codomain option) -> Cic.term)> main
 %%
 main:
- expr EOF { $1 }
+ | EOF { raise CicTextualParser0.Eof } /* FG: was never raised */
+ | expr EOF { $1 }
+ | expr SEMICOLON { $1 } /*  FG: to read several terms in a row
+                          *  Do we need to clear some static variables? 
+                         */
 ;
 expr2:
    CONURI exp_named_subst