From b18914ae1e60e054d1fda27438a4e29008898e04 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/components/grafite_parser/grafiteParser.ml b/components/grafite_parser/grafiteParser.ml index 73d6bf66a..aa10bdcf3 100644 --- a/components/grafite_parser/grafiteParser.ml +++ b/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/components/grafite_parser/grafiteParser.mli b/components/grafite_parser/grafiteParser.mli index 6a1980011..cb88940ff 100644 --- a/components/grafite_parser/grafiteParser.mli +++ b/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.2