From 89de208360b9022db207e1af37bbae992f45002b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 24 Nov 2002 00:07:31 +0000 Subject: *** empty log message *** --- perl_checker.src/tree.mli | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 perl_checker.src/tree.mli (limited to 'perl_checker.src/tree.mli') diff --git a/perl_checker.src/tree.mli b/perl_checker.src/tree.mli new file mode 100644 index 0000000..736c68e --- /dev/null +++ b/perl_checker.src/tree.mli @@ -0,0 +1,32 @@ +open Types + +type exports = { + export_ok : (context * string) list; + export_auto : (context * string) list; + export_tags : (string * (context * string) list) list; + re_export_all : bool; +} + + +type uses = (string * ((context * string) list option * pos)) list + +type per_package = { + file_name : string ; + package_name : string ; has_package_name : bool ; + exports : exports ; + uses : uses ; + body : fromparser list; + } +type state = { + per_package : (string * per_package) list; + global_vars_declared : (context * string * string, pos) Hashtbl.t; + global_vars_used : ((context * string * string) * pos) list ref; + } + +val default_state : state +val get_global_info_from_package : fromparser list -> per_package +val get_global_vars_declaration : state -> per_package -> unit +val check_tree : state -> per_package -> unit + +val die_with_pos : string * int * int -> string -> 'a +val warn_with_pos : string * int * int -> string -> unit -- cgit v1.2.1