diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 15:16:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 15:16:22 +0000 |
| commit | f37d7371879e2b1e2d923ec12762430b3d1937fc (patch) | |
| tree | 28155bfc9dca9815ac7e8c7599130a15b1d2cb1b /src/parser_helper.mli | |
| parent | be4fff49f0164e606d4b2f76f64d4d108895f236 (diff) | |
| download | perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar.gz perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar.bz2 perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar.xz perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.zip | |
Diffstat (limited to 'src/parser_helper.mli')
| -rw-r--r-- | src/parser_helper.mli | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/parser_helper.mli b/src/parser_helper.mli index e820703..38afaea 100644 --- a/src/parser_helper.mli +++ b/src/parser_helper.mli @@ -203,7 +203,6 @@ val to_Call_assign_op_ : Types.fromparser Types.prio_anyexpr Types.any_spaces_pos val followed_by_comma : Types.fromparser list -> bool -> Types.fromparser list -val pot_strings : (string, (string * int * int) * string list) Hashtbl.t val po_comments : string list ref val po_comment : string Types.any_spaces_pos -> unit val check_format_a_la_printf : string -> int -> Types.maybe_context list @@ -284,8 +283,17 @@ val mcontext_check_unop_l : Types.maybe_context -> Types.fromparser list Types.prio_anyexpr Types.any_spaces_pos -> unit val mcontext_check_non_none : 'a Types.any_spaces_pos -> unit +val mcontext_check_none_rec : + string -> Types.fromparser list -> Types.maybe_context -> unit val mcontext_check_none : string -> Types.fromparser list -> 'a Types.any_spaces_pos -> unit +val mcontext_check_none_no_drop : + Types.fromparser list -> 'a Types.any_spaces_pos -> unit +val mcontext_check_none_should_drop : + Types.fromparser list -> 'a Types.any_spaces_pos -> unit +val mcontext_check_none_no_drop_always : + Types.fromparser list Types.any_spaces_pos -> + (Types.fromparser list * 'a) Types.any_spaces_pos -> unit val mcontext_float_or_int : Types.maybe_context list -> Types.maybe_context val mcontext_op_assign : 'a Types.any_spaces_pos -> |