diff options
author | 2003-10-13 09:22:37 +0000 | |
---|---|---|
committer | 2003-10-13 09:22:37 +0000 | |
commit | b12b5df7f583d55da4163b8f744fc4dfac529d88 (patch) | |
tree | eaabd599b61551284cac67d6600d030d8a6362bb | |
parent | aa49b010e2a7ff849c1569662d70bc251c056dfa (diff) |
Ajout d'une fonction de recherche sur les composantes du nom des objets
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4613 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | contrib/interface/centaur.ml4 | 3 | ||||
-rw-r--r-- | parsing/search.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/contrib/interface/centaur.ml4 b/contrib/interface/centaur.ml4 index 10fcf37f2..a7bd15053 100644 --- a/contrib/interface/centaur.ml4 +++ b/contrib/interface/centaur.ml4 @@ -565,6 +565,9 @@ let pcoq_search s l = | SearchHead locqid -> filtered_search (filter_by_module_from_list l) add_search (Nametab.global locqid) + | SearchNamed strings -> + raw_search_named + (filter_by_module_from_list l) add_search strings end; search_output_results() diff --git a/parsing/search.mli b/parsing/search.mli index d477659e3..d53c3fecf 100644 --- a/parsing/search.mli +++ b/parsing/search.mli @@ -41,3 +41,5 @@ val raw_search_rewrite : (global_reference -> env -> constr -> bool) -> (global_reference -> env -> constr -> unit) -> constr_pattern -> unit val raw_search_about : (global_reference -> env -> constr -> bool) -> (global_reference -> env -> constr -> unit) -> global_reference -> unit +val raw_search_named : (global_reference -> env -> constr -> bool) -> + (global_reference -> env -> constr -> unit) -> string list -> unit |