1999-12-16 04:25:11 -08:00
|
|
|
(*************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Objective Caml LablTk library *)
|
|
|
|
(* *)
|
|
|
|
(* Jacques Garrigue, Kyoto University RIMS *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 1999 Institut National de Recherche en Informatique et *)
|
|
|
|
(* en Automatique and Kyoto University. All rights reserved. *)
|
|
|
|
(* This file is distributed under the terms of the GNU Library *)
|
2001-12-07 05:41:02 -08:00
|
|
|
(* General Public License, with the special exception on linking *)
|
|
|
|
(* described in file ../../../LICENSE. *)
|
1999-12-16 04:25:11 -08:00
|
|
|
(* *)
|
|
|
|
(*************************************************************************)
|
|
|
|
|
1999-11-30 06:59:39 -08:00
|
|
|
(* $Id$ *)
|
|
|
|
|
|
|
|
val start_env : Env.t ref
|
|
|
|
val module_list : string list ref
|
|
|
|
val longident_of_path : Path.t ->Longident.t
|
|
|
|
|
|
|
|
type pkind =
|
|
|
|
Pvalue
|
|
|
|
| Ptype
|
|
|
|
| Plabel
|
|
|
|
| Pconstructor
|
|
|
|
| Pmodule
|
|
|
|
| Pmodtype
|
|
|
|
| Pclass
|
|
|
|
| Pcltype
|
|
|
|
|
|
|
|
val string_of_kind : pkind -> string
|
|
|
|
|
|
|
|
exception Error of int * int
|
|
|
|
|
|
|
|
val search_string_type :
|
2002-07-25 15:51:47 -07:00
|
|
|
string -> mode:[`Exact|`Included] -> (Longident.t * pkind) list
|
1999-11-30 06:59:39 -08:00
|
|
|
val search_pattern_symbol : string -> (Longident.t * pkind) list
|
|
|
|
val search_string_symbol : string -> (Longident.t * pkind) list
|
|
|
|
|
|
|
|
val search_structure :
|
|
|
|
Parsetree.structure ->
|
|
|
|
name:string -> kind:pkind -> prefix:string list -> int
|
|
|
|
val search_signature :
|
|
|
|
Parsetree.signature ->
|
|
|
|
name:string -> kind:pkind -> prefix:string list -> int
|