diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:21:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:21:48 +0000 |
| commit | 866fd5e1ef879c4d657c0979e0c29e71cec49c5e (patch) | |
| tree | d4a9c7ab6ab031d9fad05213e5e00e2d2971516f /perl_checker.src/parser_helper.mli | |
| parent | 695c5b66f3a8da169c48e7989edb4db2a894e5aa (diff) | |
| download | perl-MDK-Common-866fd5e1ef879c4d657c0979e0c29e71cec49c5e.tar perl-MDK-Common-866fd5e1ef879c4d657c0979e0c29e71cec49c5e.tar.gz perl-MDK-Common-866fd5e1ef879c4d657c0979e0c29e71cec49c5e.tar.bz2 perl-MDK-Common-866fd5e1ef879c4d657c0979e0c29e71cec49c5e.tar.xz perl-MDK-Common-866fd5e1ef879c4d657c0979e0c29e71cec49c5e.zip | |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/parser_helper.mli')
| -rw-r--r-- | perl_checker.src/parser_helper.mli | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/perl_checker.src/parser_helper.mli b/perl_checker.src/parser_helper.mli index 5d1c47b..304f592 100644 --- a/perl_checker.src/parser_helper.mli +++ b/perl_checker.src/parser_helper.mli @@ -1,4 +1,7 @@ val bpos : int * int +val not_complex : Types.fromparser -> bool +val not_simple : Types.fromparser -> bool +val string_of_Ident : Types.fromparser -> string val msg_with_pos : int * int -> string -> string val die_with_pos : int * int -> string -> 'a val warn : int * int -> string -> unit @@ -16,8 +19,21 @@ val sp_1 : 'a * (Types.spaces * (int * 'b)) -> unit val sp_n : 'a * (Types.spaces * (int * 'b)) -> unit val sp_p : 'a * (Types.spaces * (int * 'b)) -> unit val sp_cr : 'a * (Types.spaces * (int * 'b)) -> unit -val not_complex : Types.fromparser -> bool -val string_of_Ident : Types.fromparser -> string +val sp_same : + 'a * (Types.spaces * (int * 'b)) -> + 'c * (Types.spaces * (int * 'd)) -> unit +val op : 'a -> 'b * 'c -> (unit * 'c) * 'a +val op_p : + 'a -> + 'b * (Types.spaces * (int * 'c)) -> + (unit * (Types.spaces * (int * 'c))) * 'a +val call_op : + (('a * (Types.spaces * (int * 'b))) * string) * + ('c * (Types.spaces * (int * 'd))) * Types.fromparser list -> + Types.fromparser +val check_lines_after_BRACKET : + Types.fromparser list * (Types.spaces * (int * 'a)) -> unit +val check_word_alone : Types.fromparser * 'a -> Types.fromparser val check_parenthesized_first_argexpr : string -> Types.fromparser list * (Types.spaces * (int * 'a)) -> unit val check_foreach : string * ('a * (int * int)) -> unit |