From 85c25a40f213bba1a0834f7612985d83c9374c7f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 5 Dec 2004 20:28:02 +0000 Subject: create to_Deref_with_arrow() --- perl_checker.src/parser_helper.mli | 8 +++++--- 1 file changed, 5 insertions(+), 3 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 6485011..0708792 100644 --- a/perl_checker.src/parser_helper.mli +++ b/perl_checker.src/parser_helper.mli @@ -103,9 +103,7 @@ val check_parenthesized_first_argexpr_with_Ident : Types.fromparser list Types.prio_anyexpr Types.any_spaces_pos -> unit val check_hash_subscript : Types.fromparser Types.prio_anyexpr Types.any_spaces_pos -> unit -val check_arrow_needed : - Types.fromparser Types.prio_anyexpr Types.any_spaces_pos -> - 'a Types.any_spaces_pos -> unit +val check_arrow_needed : 'a Types.any_spaces_pos -> Types.fromparser -> unit val check_scalar_subscripted : Types.fromparser Types.any_spaces_pos -> unit val negatable_ops : (string * string) list val check_negatable_expr : @@ -158,6 +156,10 @@ val to_Method_call : val to_Deref_with : Types.context * Types.context * Types.fromparser * Types.fromparser -> Types.fromparser +val to_Deref_with_arrow : + 'a Types.any_spaces_pos -> + 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 -- cgit v1.2.1