diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-28 00:57:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-28 00:57:32 +0000 |
commit | 88100399efa487df4145f0ed53cc7ee8305e0b3d (patch) | |
tree | a5055d960f052386ba94096d4ab5ac4bcf9cadf1 /perl_checker.src/tree.mli | |
parent | 1537738cd9023b08d8730a56eb7bc1e1cab0dc90 (diff) | |
download | perl-MDK-Common-88100399efa487df4145f0ed53cc7ee8305e0b3d.tar perl-MDK-Common-88100399efa487df4145f0ed53cc7ee8305e0b3d.tar.gz perl-MDK-Common-88100399efa487df4145f0ed53cc7ee8305e0b3d.tar.bz2 perl-MDK-Common-88100399efa487df4145f0ed53cc7ee8305e0b3d.tar.xz perl-MDK-Common-88100399efa487df4145f0ed53cc7ee8305e0b3d.zip |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/tree.mli')
-rw-r--r-- | perl_checker.src/tree.mli | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perl_checker.src/tree.mli b/perl_checker.src/tree.mli index 769b513..71eeb04 100644 --- a/perl_checker.src/tree.mli +++ b/perl_checker.src/tree.mli @@ -1,10 +1,12 @@ open Types +type special_export = Re_export_all | Export_all + type exports = { export_ok : (context * string) list; export_auto : (context * string) list; export_tags : (string * (context * string) list) list; - re_export_all : bool; + special_export : special_export option; } @@ -14,12 +16,14 @@ type per_package = { file_name : string ; package_name : string ; has_package_name : bool ; vars_declared : (context * string, pos) Hashtbl.t; + imported : ((context * string) * string) list option ref; exports : exports ; uses : uses ; body : fromparser list; } type state = { per_package : (string * per_package) list; + files_parsed : string list; global_vars_declared : (context * string * string, pos) Hashtbl.t; global_vars_used : ((context * string * string) * pos) list ref; } @@ -27,9 +31,10 @@ type state = { val ignored_packages : string list ref val default_state : state -val get_global_info_from_package : fromparser list -> (string * pos) list * per_package +val get_global_info_from_package : fromparser list -> per_package list * (string * pos) list val get_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 +val add_package_to_state : state -> per_package -> state |