diff options
author | Samuel Mimram <smimram@debian.org> | 2008-07-25 15:12:53 +0200 |
---|---|---|
committer | Samuel Mimram <smimram@debian.org> | 2008-07-25 15:12:53 +0200 |
commit | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (patch) | |
tree | dabcac548e299fee1da464c93b3dba98484f45b1 /interp/syntax_def.mli | |
parent | 2281410e38ef99d025ea77194585a9bc019fdaa9 (diff) |
Imported Upstream version 8.2~beta3+dfsgupstream/8.2.beta3+dfsg
Diffstat (limited to 'interp/syntax_def.mli')
-rw-r--r-- | interp/syntax_def.mli | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/interp/syntax_def.mli b/interp/syntax_def.mli index ac7318b5..a063caf0 100644 --- a/interp/syntax_def.mli +++ b/interp/syntax_def.mli @@ -6,27 +6,33 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: syntax_def.mli 7051 2005-05-20 15:45:51Z herbelin $ i*) +(*i $Id: syntax_def.mli 10730 2008-03-30 21:42:58Z herbelin $ i*) (*i*) open Util open Names open Topconstr open Rawterm +open Libnames (*i*) (* Syntactic definitions. *) -val declare_syntactic_definition : bool -> identifier -> bool -> aconstr +val declare_syntactic_definition : bool -> identifier -> bool -> interpretation -> unit -val search_syntactic_definition : loc -> kernel_name -> rawconstr +val search_syntactic_definition : loc -> kernel_name -> interpretation +(* [locate_global_with_alias] locates global reference possibly following + a notation if this notation has a role of aliasing; raise Not_found + if not bound in the global env; raise an error if bound to a + syntactic def that does not denote a reference *) -(* [locate_global] locates global reference possibly following a chain of - syntactic aliases; raise Not_found if not bound in the global env; - raise an error if bound to a syntactic def that does not denote a - reference *) +val locate_global_with_alias : qualid located -> global_reference -val locate_global : Libnames.qualid -> Libnames.global_reference +(* Locate a reference taking into account possible "alias" notations *) +val global_with_alias : reference -> global_reference + +(* The same for inductive types *) +val inductive_of_reference_with_alias : reference -> inductive |