diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:38:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:38:51 +0000 |
| commit | 872810e1e03dc99f39d1a0aecb2081e3894ec8f4 (patch) | |
| tree | caa0af546d49e4c4a137ebaffc2a4e50f64ed9bc /perl_checker.src/tree.mli | |
| parent | 6e2837dcdd4dff544631e3957ec57e91481a5490 (diff) | |
| download | perl-MDK-Common-872810e1e03dc99f39d1a0aecb2081e3894ec8f4.tar perl-MDK-Common-872810e1e03dc99f39d1a0aecb2081e3894ec8f4.tar.gz perl-MDK-Common-872810e1e03dc99f39d1a0aecb2081e3894ec8f4.tar.bz2 perl-MDK-Common-872810e1e03dc99f39d1a0aecb2081e3894ec8f4.tar.xz perl-MDK-Common-872810e1e03dc99f39d1a0aecb2081e3894ec8f4.zip | |
basic "number of arguments" checking
Diffstat (limited to 'perl_checker.src/tree.mli')
| -rw-r--r-- | perl_checker.src/tree.mli | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/perl_checker.src/tree.mli b/perl_checker.src/tree.mli index 7fa5fad..48b2657 100644 --- a/perl_checker.src/tree.mli +++ b/perl_checker.src/tree.mli @@ -12,11 +12,16 @@ type exports = { type uses = (string * ((context * string) list option * pos)) list +type prototype = { + proto_nb_min : int ; + proto_nb_max : int option ; + } + type per_package = { file_name : string ; package_name : string ; has_package_name : bool ; - vars_declared : (context * string, pos * bool ref) Hashtbl.t; - imported : ((context * string) * (string * bool ref)) list option ref; + vars_declared : (context * string, pos * bool ref * prototype option) Hashtbl.t; + imported : ((context * string) * (string * bool ref * prototype option)) list option ref; exports : exports ; uses : uses ; required_packages : (string * pos) list ; @@ -34,7 +39,9 @@ val uses_external_package : string -> bool val findfile : string list -> string -> string val get_global_info_from_package : bool -> int -> fromparser list -> per_package list -val get_vars_declaration : (context * string * string, pos) Hashtbl.t -> per_package -> unit + +val has_proto : fromparser -> ((context * string) list * pos * fromparser list) option +val get_vars_declaration : (context * string * string, pos * prototype option) Hashtbl.t -> per_package -> unit val die_with_pos : string * int * int -> string -> 'a val warn_with_pos : string * int * int -> string -> unit |