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 | 28ae803289adc63488b47149a9dfc9b76f23c515 (patch) | |
| tree | 29c50d8e071ffbb4a6d39635e3ca308b8eaee743 /perl_checker.src/parser_helper.mli | |
| parent | 108b4d59722f6081472e6ee1d118c08bbb8e7d96 (diff) | |
| download | perl-MDK-Common-28ae803289adc63488b47149a9dfc9b76f23c515.tar perl-MDK-Common-28ae803289adc63488b47149a9dfc9b76f23c515.tar.gz perl-MDK-Common-28ae803289adc63488b47149a9dfc9b76f23c515.tar.bz2 perl-MDK-Common-28ae803289adc63488b47149a9dfc9b76f23c515.tar.xz perl-MDK-Common-28ae803289adc63488b47149a9dfc9b76f23c515.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 |