From 5ca23b5031f8bea8be8a60931affd9e19e389e4b Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Thu, 23 Feb 2006 21:32:24 +0000 Subject: [PATCH] factorized an ast_statement type which is (now) used from outside this module --- .../components/grafite_parser/grafiteParser.ml | 14 ++++++++------ .../components/grafite_parser/grafiteParser.mli | 14 ++++++++------ 2 files changed, 16 insertions(+), 12 deletions(-) diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml index 73d6bf66a..aa10bdcf3 100644 --- a/helm/software/components/grafite_parser/grafiteParser.ml +++ b/helm/software/components/grafite_parser/grafiteParser.ml @@ -31,15 +31,17 @@ module Ast = CicNotationPt type 'a localized_option = LSome of 'a - | LNone of Token.flocation + | LNone of GrafiteAst.loc -type statement = - include_paths:string list -> - LexiconEngine.status -> - LexiconEngine.status * +type ast_statement = (CicNotationPt.term, CicNotationPt.term, CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string) - GrafiteAst.statement localized_option + GrafiteAst.statement + +type statement = + include_paths:string list -> + LexiconEngine.status -> + LexiconEngine.status * ast_statement localized_option let grammar = CicNotationParser.level2_ast_grammar diff --git a/helm/software/components/grafite_parser/grafiteParser.mli b/helm/software/components/grafite_parser/grafiteParser.mli index 6a1980011..cb88940ff 100644 --- a/helm/software/components/grafite_parser/grafiteParser.mli +++ b/helm/software/components/grafite_parser/grafiteParser.mli @@ -25,15 +25,17 @@ type 'a localized_option = LSome of 'a - | LNone of Token.flocation + | LNone of GrafiteAst.loc -type statement = - include_paths:string list -> - LexiconEngine.status -> - LexiconEngine.status * +type ast_statement = (CicNotationPt.term, CicNotationPt.term, CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string) - GrafiteAst.statement localized_option + GrafiteAst.statement + +type statement = + include_paths:string list -> + LexiconEngine.status -> + LexiconEngine.status * ast_statement localized_option val parse_statement: Ulexing.lexbuf -> statement (** @raise End_of_file *) -- 2.39.5