diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-24 14:55:56 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-24 14:55:56 +0000 |
commit | be8f2b498e2a7d8002c33be7b8080dffbae41d05 (patch) | |
tree | 40b5e965766915a75cbef4c609489101d3381b8e /tools/coqdoc/index.mli | |
parent | 999de9810d31857799d3a720ac1b4de5ef1f090f (diff) |
coqdoc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5377 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/index.mli')
-rw-r--r-- | tools/coqdoc/index.mli | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/tools/coqdoc/index.mli b/tools/coqdoc/index.mli new file mode 100644 index 000000000..ab70ee39c --- /dev/null +++ b/tools/coqdoc/index.mli @@ -0,0 +1,59 @@ +(***********************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *) +(* \VV/ *************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(***********************************************************************) + +(*i $Id$ i*) + +type coq_module = string + +type loc = int + +type entry_type = + | Library + | Module + | Definition + | Inductive + | Constructor + | Lemma + | Variable + | Axiom + | TacticDefinition + +type index_entry = + | Def of string * entry_type + | Ref of coq_module * string + | Mod of coq_module * string + +val find : coq_module -> loc -> index_entry + +val add_module : coq_module -> unit + +type module_kind = Local | Coqlib | Unknown + +val find_module : coq_module -> module_kind + +(*s Scan identifiers introductions from a file *) + +val scan_file : string -> coq_module -> unit + +(*s Read globalizations from a file (produced by coqc -dump-glob) *) + +val read_glob : string -> unit + +(*s Indexes *) + +type 'a index = { + idx_name : string; + idx_entries : (char * (string * 'a) list) list; + idx_size : int } + +val all_entries : unit -> + (coq_module * entry_type) index * + (entry_type * coq_module index) list + +val map : (string -> 'a -> 'b) -> 'a index -> 'b index + |