From 5086a51d09b7d5333b8b39927dba18f04c249237 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 28 Apr 2004 12:23:18 +0000 Subject: handle bad PO-: comments at the lexical level instead of doing it in the grammar to have a better error message --- perl_checker.src/common.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl_checker.src/common.ml') 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] *) -- cgit v1.2.1