diff options
| author | Pierre-Marie Pédrot | 2016-03-18 22:27:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-19 01:17:39 +0100 |
| commit | a99aa093b962e228817066d00f7e12698f8df73a (patch) | |
| tree | 9d1366284bf905bcf2568e0f14a2a37d17314e50 /parsing/entry.mli | |
| parent | 13c50b98b0a294a6056d2e00a0de44cedca7af12 (diff) | |
Simplifying the code of Entry.
Diffstat (limited to 'parsing/entry.mli')
| -rw-r--r-- | parsing/entry.mli | 29 |
1 files changed, 4 insertions, 25 deletions
diff --git a/parsing/entry.mli b/parsing/entry.mli index 97cd5b1105..4c73fe2049 100644 --- a/parsing/entry.mli +++ b/parsing/entry.mli @@ -11,34 +11,13 @@ type 'a t (** Typed grammar entries. We need to defined them here so that they are marshallable and defined before the Pcoq.Gram module. They are basically - unique names made of a universe and an entry name. They should be kept - synchronized with the {!Pcoq} entries though. *) + unique names. They should be kept synchronized with the {!Pcoq} entries. *) -type repr = string * string -(** Representation of entries. *) - -(** Table of Coq statically defined grammar entries *) - -type universe - -(** There are four predefined universes: "prim", "constr", "tactic", "vernac" *) - -val get_univ : string -> universe -val univ_name : universe -> string - -val uprim : universe -val uconstr : universe -val utactic : universe -val uvernac : universe - -(** {5 Uniquely defined entries} *) - -val create : universe -> string -> 'a t +val create : string -> 'a t (** Create an entry. They should be synchronized with the entries defined in {!Pcoq}. *) (** {5 Meta-programming} *) -val repr : 'a t -> repr - -val unsafe_of_name : (string * string) -> 'a t +val repr : 'a t -> string +val unsafe_of_name : string -> 'a t |