From 1ddadc185b0ff7f69940ccf93c6d007705e43bdc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 17 Nov 2004 11:48:14 +0000 Subject: - new function lines_to_Block() which takes care of calling check_block_sub() - anonymous_sub now uses lines_to_Block() --- perl_checker.src/parser_helper.mli | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl_checker.src/parser_helper.mli') 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 -- cgit v1.2.1