Commit da9c778e authored by gerd's avatar gerd

Removed backslash+octal


git-svn-id: https://godirepo.camlcity.org/svn/lib-xstrp4/trunk@16 56444827-45db-0310-81c6-95464f7ca4c4
parent 90e289d3
(* $Id: xstrp4_here_lexer.mll,v 1.3 2002/12/28 18:41:33 gerd Exp $
(* $Id: xstrp4_here_lexer.mll,v 1.4 2002/12/28 18:49:51 gerd Exp $
* ----------------------------------------------------------------------
*
*)
......@@ -68,12 +68,14 @@ rule token = parse
Printf.sprintf "%c" (Char.chr n)
)
}
| '\\' 'o' [ '0'-'9' ] [ '0'-'9' ] [ '0'-'9' ]
(*
| '\\' 'o' [ '0'-'7' ] [ '0'-'7' ] [ '0'-'7' ]
{ Literal (let s = Lexing.lexeme lexbuf in
let n = int_of_string("0" ^ String.sub s 1 4) in
Printf.sprintf "%c" (Char.chr n)
)
}
*)
| '\\' 'x' [ '0'-'9' 'a'-'f' 'A'-'F' ] [ '0'-'9' 'a'-'f' 'A'-'F' ]
{ Literal (let s = Lexing.lexeme lexbuf in
let n = int_of_string("0" ^ String.sub s 1 3) in
......@@ -104,6 +106,9 @@ and value_identifier = parse
* History:
*
* $Log: xstrp4_here_lexer.mll,v $
* Revision 1.4 2002/12/28 18:49:51 gerd
* Removed backslash+octal
*
* Revision 1.3 2002/12/28 18:41:33 gerd
* New backslash sequences
*
......
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