From 4a268c0ddd21d4e8e07495c362757c4c6f477fcc Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 21 Jul 2014 16:52:52 +0200 Subject: Unifying locate code, also making it more powerful: it is now able to find any prefix of the given qualid. --- library/nametab.ml | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'library/nametab.ml') diff --git a/library/nametab.ml b/library/nametab.ml index edceacaa8..3bd4e03ab 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -431,6 +431,8 @@ let locate_extended_all_tactic qid = KnTab.find_prefixes qid !the_tactictab let locate_extended_all_dir qid = DirTab.find_prefixes qid !the_dirtab +let locate_extended_all_modtype qid = MPTab.find_prefixes qid !the_modtypetab + (* Derived functions *) let locate_constant qid = @@ -490,6 +492,9 @@ let dirpath_of_module mp = let path_of_tactic kn = KNmap.find kn !the_tacticrevtab +let path_of_modtype mp = + MPmap.find mp !the_modtyperevtab + (* Shortest qualid functions **********************************************) let shortest_qualid_of_global ctx ref = -- cgit v1.2.3