diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-07 17:19:41 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-07 17:19:41 +0000 |
| commit | 928287134ab9dd23258c395589f8633e422e939f (patch) | |
| tree | 192971793635b1057b78004b14df4ad5dfac9561 /library | |
| parent | c4ef643444acecdb4c08a74f37b9006ae060c5af (diff) | |
Globalisation des noms de tactiques dans les définitions de tactiques
pour compatibilité avec les modules.
Globalisation partielle des invocations de tactiques hors définitions
(partielle car noms des Intros/Assert/Inversion/... non connus).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3857 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rwxr-xr-x | library/nametab.ml | 4 | ||||
| -rwxr-xr-x | library/nametab.mli | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 372590911..ba3e7ff9f 100755 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -348,8 +348,12 @@ let full_name_modtype qid = SpTab.user_name qid !the_modtypetab let locate_obj qid = SpTab.user_name qid !the_objtab +type ltac_constant = section_path let locate_tactic = locate_obj +let shortest_qualid_of_tactic sp = + SpTab.shortest_qualid Idset.empty sp !the_objtab + let locate_dir qid = DirTab.locate qid !the_dirtab let locate_module qid = diff --git a/library/nametab.mli b/library/nametab.mli index 9ee45a9ad..df433d145 100755 --- a/library/nametab.mli +++ b/library/nametab.mli @@ -101,7 +101,9 @@ val locate_section : qualid -> dir_path val locate_modtype : qualid -> kernel_name val locate_syntactic_definition : qualid -> kernel_name -val locate_tactic : qualid -> section_path +type ltac_constant = section_path +val locate_tactic : qualid -> ltac_constant +val shortest_qualid_of_tactic : ltac_constant -> qualid val locate_dir : qualid -> global_dir_reference val locate_module : qualid -> module_path |