diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 12:23:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 12:23:18 +0000 |
| commit | 70dcfcd34535185dcac19d115f16a295711b267a (patch) | |
| tree | b6db2a98f49fdc3399c580192dca726f3fba92fe /perl_checker.src/common.ml | |
| parent | 7c9690bacb9ae134d735355d4276841abb77a099 (diff) | |
| download | perl-MDK-Common-70dcfcd34535185dcac19d115f16a295711b267a.tar perl-MDK-Common-70dcfcd34535185dcac19d115f16a295711b267a.tar.gz perl-MDK-Common-70dcfcd34535185dcac19d115f16a295711b267a.tar.bz2 perl-MDK-Common-70dcfcd34535185dcac19d115f16a295711b267a.tar.xz perl-MDK-Common-70dcfcd34535185dcac19d115f16a295711b267a.zip | |
handle bad PO-: comments at the lexical level instead of doing it in the grammar
to have a better error message
Diffstat (limited to 'perl_checker.src/common.ml')
| -rw-r--r-- | perl_checker.src/common.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index 6a3be82..7d03ffb 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -475,6 +475,8 @@ let break_at f l = in b [] l let break v l = break_at ((=) v) l +let drop_while f l = snd (break_at (fun e -> not (f e)) l) + (* break_at_indice 0 [1;2] gives [], [1;2] break_at_indice 1 [1;2] gives [1], [2] *) |