diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-09-29 14:40:02 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-09-29 14:40:02 +0000 |
commit | 9baac87147e46384da1f3a18ebf1363f21638ee9 (patch) | |
tree | fee424984969e93275502324f90774d0bc06922c /perl_checker.src/global_checks.mli | |
parent | cc10af8042789097c52948fa329be7c432a4befd (diff) | |
download | perl-MDK-Common-9baac87147e46384da1f3a18ebf1363f21638ee9.tar perl-MDK-Common-9baac87147e46384da1f3a18ebf1363f21638ee9.tar.gz perl-MDK-Common-9baac87147e46384da1f3a18ebf1363f21638ee9.tar.bz2 perl-MDK-Common-9baac87147e46384da1f3a18ebf1363f21638ee9.tar.xz perl-MDK-Common-9baac87147e46384da1f3a18ebf1363f21638ee9.zip |
re-organize to handle cleanly multi packages per file
=> fixes cache coherency
Diffstat (limited to 'perl_checker.src/global_checks.mli')
-rw-r--r-- | perl_checker.src/global_checks.mli | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/perl_checker.src/global_checks.mli b/perl_checker.src/global_checks.mli index 6b25f73..2fe13a1 100644 --- a/perl_checker.src/global_checks.mli +++ b/perl_checker.src/global_checks.mli @@ -2,19 +2,21 @@ open Types open Tree type state = { - per_package : (string, per_package) Hashtbl.t; + per_files : (string, per_file) Hashtbl.t ; + per_packages : (string, per_package) Hashtbl.t ; methods : (string, (pos * bool ref * prototype option) list) Hashtbl.t ; - global_vars_declared : (context * string * string, pos * prototype option) Hashtbl.t; - global_vars_used : ((context * string * string) * pos) list ref; + global_vars_used : ((context * string * string) * pos) list ref ; packages_being_classes : (string, unit) Hashtbl.t ; - } + } -val default_state : unit -> state +val default_per_files : unit -> (string, per_file) Hashtbl.t +val default_state : (string, per_file) Hashtbl.t -> state val check_tree : state -> per_package -> unit +val add_file_to_files : (string, per_file) Hashtbl.t -> per_file -> unit val add_package_to_state : state -> per_package -> unit val check_unused_vars : per_package -> unit -val arrange_global_vars_declared : state -> state +val arrange_global_vars_declared : (context * string * string, pos * Tree.prototype option) Hashtbl.t -> state -> state val get_methods_available : state -> state -val read_packages_from_cache : state -> string -> unit -val write_packages_cache : state -> string -> unit +val read_packages_from_cache : (string, per_file) Hashtbl.t -> string -> unit +val write_packages_cache : (string, per_file) Hashtbl.t -> string -> unit |