Commit 06abcb05 authored by Pietro Abate's avatar Pietro Abate
Browse files

Merge branch 'master' of https://git.cduce.org/cduce

parents 46a5262a c26a2864
...@@ -14,9 +14,9 @@ usage () ...@@ -14,9 +14,9 @@ usage ()
echo "Switches the OCaml version of opam if MLVERSION is provided." echo "Switches the OCaml version of opam if MLVERSION is provided."
echo "Example: $0 --verbose --mliface=ocaml 4.01.0" echo "Example: $0 --verbose --mliface=ocaml 4.01.0"
echo "Valid options are:" echo "Valid options are:"
echo "\t-v, --verbose\tactivate verbose mode" echo -e "\t-v, --verbose\tactivate verbose mode"
echo "\t--mliface=DIR\tcheckout the OCaml sources in DIR to MLVERSION" echo -e "\t--mliface=DIR\tcheckout the OCaml sources in DIR to MLVERSION"
echo "\t-h, --help\tdisplay this help and exit" echo -e "\t-h, --help\tdisplay this help and exit"
} }
# Parse options # Parse options
......
...@@ -204,9 +204,11 @@ let return_loc i j tok = (tok, (i,j)) ...@@ -204,9 +204,11 @@ let return_loc i j tok = (tok, (i,j))
let rec token = lexer let rec token = lexer
| xml_blank+ -> token lexbuf | xml_blank+ -> token lexbuf
(* TODO: Fix bug #40 *)
| qname "(" -> | qname "(" ->
let s = L.utf8_sub_lexeme lexbuf 0 (L.lexeme_length lexbuf - 1) in let s = L.utf8_sub_lexeme lexbuf 0 (L.lexeme_length lexbuf - 1) in
return lexbuf (IDENTPAR s) return lexbuf (IDENTPAR s)
(* END #40 *)
| qname -> | qname ->
let s = L.utf8_lexeme lexbuf in let s = L.utf8_lexeme lexbuf in
return lexbuf (IDENT s) 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