re-organize to handle cleanly multi packages per file

=> fixes cache coherency

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