aboutsummaryrefslogtreecommitdiffhomepage
path: root/grammar/coqpp_ast.mli
diff options
context:
space:
mode:
Diffstat (limited to 'grammar/coqpp_ast.mli')
-rw-r--r--grammar/coqpp_ast.mli95
1 files changed, 0 insertions, 95 deletions
diff --git a/grammar/coqpp_ast.mli b/grammar/coqpp_ast.mli
deleted file mode 100644
index 39b4d2ab3..000000000
--- a/grammar/coqpp_ast.mli
+++ /dev/null
@@ -1,95 +0,0 @@
-(************************************************************************)
-(* v * The Coq Proof Assistant / The Coq Development Team *)
-(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2017 *)
-(* \VV/ **************************************************************)
-(* // * This file is distributed under the terms of the *)
-(* * GNU Lesser General Public License Version 2.1 *)
-(************************************************************************)
-
-type loc = {
- loc_start : Lexing.position;
- loc_end : Lexing.position;
-}
-
-type code = { code : string }
-
-type user_symbol =
-| Ulist1 of user_symbol
-| Ulist1sep of user_symbol * string
-| Ulist0 of user_symbol
-| Ulist0sep of user_symbol * string
-| Uopt of user_symbol
-| Uentry of string
-| Uentryl of string * int
-
-type token_data =
-| TokNone
-| TokName of string
-
-type ext_token =
-| ExtTerminal of string
-| ExtNonTerminal of user_symbol * token_data
-
-type tactic_rule = {
- tac_toks : ext_token list;
- tac_body : code;
-}
-
-type level = string
-
-type position =
-| First
-| Last
-| Before of level
-| After of level
-| Level of level
-
-type assoc =
-| LeftA
-| RightA
-| NonA
-
-type gram_symbol =
-| GSymbString of string
-| GSymbQualid of string * level option
-| GSymbParen of gram_symbol list
-| GSymbProd of gram_prod list
-
-and gram_prod = {
- gprod_symbs : (string option * gram_symbol list) list;
- gprod_body : code;
-}
-
-type gram_rule = {
- grule_label : string option;
- grule_assoc : assoc option;
- grule_prods : gram_prod list;
-}
-
-type grammar_entry = {
- gentry_name : string;
- gentry_pos : position option;
- gentry_rules : gram_rule list;
-}
-
-type grammar_ext = {
- gramext_name : string;
- gramext_globals : string list;
- gramext_entries : grammar_entry list;
-}
-
-type tactic_ext = {
- tacext_name : string;
- tacext_level : int option;
- tacext_rules : tactic_rule list;
-}
-
-type node =
-| Code of code
-| Comment of string
-| DeclarePlugin of string
-| GramExt of grammar_ext
-| VernacExt
-| TacticExt of tactic_ext
-
-type t = node list