diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-17 11:48:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-17 11:48:14 +0000 |
| commit | 1ddadc185b0ff7f69940ccf93c6d007705e43bdc (patch) | |
| tree | 83df30115537644ba90f89b41a6d48807ba0b40a /perl_checker.src/parser_helper.mli | |
| parent | 3f0e6648629aaacb6f1ad7da15889f2f87185d5b (diff) | |
| download | perl_checker-1ddadc185b0ff7f69940ccf93c6d007705e43bdc.tar perl_checker-1ddadc185b0ff7f69940ccf93c6d007705e43bdc.tar.gz perl_checker-1ddadc185b0ff7f69940ccf93c6d007705e43bdc.tar.bz2 perl_checker-1ddadc185b0ff7f69940ccf93c6d007705e43bdc.tar.xz perl_checker-1ddadc185b0ff7f69940ccf93c6d007705e43bdc.zip | |
- new function lines_to_Block() which takes care of calling check_block_sub()
- anonymous_sub now uses lines_to_Block()
Diffstat (limited to 'perl_checker.src/parser_helper.mli')
| -rw-r--r-- | perl_checker.src/parser_helper.mli | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl_checker.src/parser_helper.mli b/perl_checker.src/parser_helper.mli index 952963a..e0ff110 100644 --- a/perl_checker.src/parser_helper.mli +++ b/perl_checker.src/parser_helper.mli @@ -124,7 +124,7 @@ val check_for_foreach : string Types.any_spaces_pos -> Types.fromparser Types.prio_anyexpr Types.any_spaces_pos -> unit val check_block_sub : - Types.fromparser list Types.any_spaces_pos -> + (Types.fromparser list * bool) Types.any_spaces_pos -> 'a Types.any_spaces_pos -> unit val check_block_ref : Types.fromparser list Types.any_spaces_pos -> @@ -155,6 +155,9 @@ val to_Method_call : val to_Deref_with : Types.context * Types.context * Types.fromparser * Types.fromparser -> Types.fromparser +val lines_to_Block : + (Types.fromparser list * bool) Types.any_spaces_pos -> + 'a Types.any_spaces_pos -> Types.fromparser val to_Local : Types.fromparser Types.prio_anyexpr Types.any_spaces_pos -> Types.fromparser @@ -163,7 +166,8 @@ val sub_declaration : Types.fromparser list -> Types.sub_declaration_kind -> Types.fromparser val anonymous_sub : string option -> - Types.fromparser list Types.any_spaces_pos -> Types.fromparser + (Types.fromparser list * bool) Types.any_spaces_pos -> + 'a Types.any_spaces_pos -> Types.fromparser val call_with_same_para_special : Types.fromparser -> Types.fromparser val remove_call_with_same_para_special : Types.fromparser -> Types.fromparser val check_My_under_condition : string -> Types.fromparser -> unit |