Commit c26a2864 authored by Julien Lopez's avatar Julien Lopez

[MINOR] Fix on script; bug #40 found in lexer

parent f9a38dc0
......@@ -14,9 +14,9 @@ usage ()
echo "Switches the OCaml version of opam if MLVERSION is provided."
echo "Example: $0 --verbose --mliface=ocaml 4.01.0"
echo "Valid options are:"
echo "\t-v, --verbose\tactivate verbose mode"
echo "\t--mliface=DIR\tcheckout the OCaml sources in DIR to MLVERSION"
echo "\t-h, --help\tdisplay this help and exit"
echo -e "\t-v, --verbose\tactivate verbose mode"
echo -e "\t--mliface=DIR\tcheckout the OCaml sources in DIR to MLVERSION"
echo -e "\t-h, --help\tdisplay this help and exit"
}
# Parse options
......
......@@ -204,9 +204,11 @@ let return_loc i j tok = (tok, (i,j))
let rec token = lexer
| xml_blank+ -> token lexbuf
(* TODO: Fix bug #40 *)
| qname "(" ->
let s = L.utf8_sub_lexeme lexbuf 0 (L.lexeme_length lexbuf - 1) in
return lexbuf (IDENTPAR s)
(* END #40 *)
| qname ->
let s = L.utf8_lexeme lexbuf in
return lexbuf (IDENT s)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment