Ajout de skip_sharp_bang

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3870 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

parsing/lexer.mli

@@ -15,6 +15,7 @@
 (* The lexical analyzer *)
 
 val token: Lexing.lexbuf -> Parser.token
+val skip_sharp_bang: Lexing.lexbuf -> unit
 
 type error =
   | Illegal_character of char

parsing/lexer.mll

@@ -368,3 +368,8 @@ and string = parse
   | _
       { store_string_char(Lexing.lexeme_char lexbuf 0);
         string lexbuf }
+
+and skip_sharp_bang = parse
+  | "#!" [^ '\n']* '\n' [^ '\n']* "\n!#\n"
+  | "#!" [^ '\n']* '\n'
+  | "" {}