Skip to content

GitLab

Commit b10a111f authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-05-11 08:56:18 by cvscast] Unary minus in integer litterals 

Original author: cvscast
Date: 2003-05-11 08:56:18+00:00
parent a33d893e
Hide whitespace changes
Inline Side-by-side
parser/wlexer.ml
View file @ b10a111f
......@@ -124,16 +124,16 @@ let lex_tables = {
\250\255\249\255\255\255\029\000\253\255\020\000\252\255\252\255\
\251\255\010\000\003\000\253\255\247\255\246\255\019\000\049\000\
\062\000\018\000\035\000\037\000\250\255\060\000\027\000\036\000\
\063\000\024\000\030\000\041\000\041\000\249\255\250\255\248\255\
\079\000\082\000\086\000\099\000\065\000\103\000\116\000\120\000\
\133\000\137\000\150\000\071\000";
\068\000\024\000\030\000\041\000\041\000\249\255\250\255\248\255\
\065\000\082\000\084\000\097\000\101\000\105\000\118\000\135\000\
\139\000\152\000\156\000\069\000";
Lexing.lex_backtrk =
"\255\255\255\255\255\255\255\255\255\255\001\000\255\255\255\255\
\255\255\255\255\255\255\004\000\255\255\255\255\255\255\255\255\
\255\255\004\000\004\000\255\255\255\255\255\255\000\000\001\000\
\002\000\003\000\005\000\005\000\255\255\005\000\005\000\005\000\
\005\000\005\000\005\000\005\000\005\000\255\255\255\255\255\255\
\255\255\004\000\255\255\004\000\003\000\002\000\255\255\002\000\
\003\000\255\255\004\000\255\255\004\000\002\000\255\255\002\000\
\001\000\255\255\001\000\000\000";
Lexing.lex_default =
"\028\000\016\000\009\000\004\000\000\000\255\255\255\255\000\000\
......@@ -147,27 +147,27 @@ let lex_tables = {
"\020\000\021\000\021\000\022\000\023\000\024\000\025\000\023\000\
\026\000\027\000\005\000\006\000\015\000\029\000\030\000\031\000\
\032\000\033\000\008\000\007\000\007\000\034\000\051\000\006\000\
\044\000\035\000\013\000\036\000\033\000\017\000\037\000\007\000\
\037\000\012\000\014\000\013\000\004\000\018\000\040\000\041\000\
\041\000\038\000\019\000\038\000\019\000\038\000\038\000\038\000\
\040\000\035\000\013\000\036\000\033\000\017\000\037\000\007\000\
\037\000\012\000\014\000\013\000\004\000\018\000\041\000\042\000\
\042\000\038\000\019\000\038\000\019\000\038\000\038\000\038\000\
\010\000\011\000\010\000\038\000\038\000\048\000\048\000\048\000\
\048\000\038\000\039\000\004\000\004\000\004\000\049\000\038\000\
\038\000\048\000\045\000\045\000\045\000\045\000\038\000\044\000\
\038\000\038\000\051\000\046\000\000\000\000\000\045\000\038\000\
\000\000\048\000\040\000\041\000\041\000\000\000\041\000\041\000\
\041\000\041\000\043\000\043\000\043\000\043\000\045\000\042\000\
\000\000\000\000\041\000\000\000\000\000\000\000\043\000\043\000\
\043\000\043\000\043\000\045\000\045\000\045\000\045\000\000\000\
\042\000\000\000\041\000\043\000\046\000\000\000\043\000\045\000\
\047\000\047\000\047\000\047\000\047\000\047\000\047\000\047\000\
\000\000\000\000\000\000\043\000\047\000\046\000\000\000\045\000\
\047\000\048\000\048\000\048\000\048\000\050\000\050\000\050\000\
\050\000\000\000\049\000\000\000\047\000\048\000\000\000\000\000\
\047\000\050\000\050\000\050\000\050\000\050\000\000\000\000\000\
\000\000\000\000\000\000\049\000\000\000\048\000\050\000\000\000\
\000\000\050\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\050\000\000\000\
";
\038\000\048\000\045\000\045\000\045\000\045\000\038\000\040\000\
\051\000\038\000\040\000\046\000\000\000\038\000\045\000\000\000\
\000\000\048\000\000\000\000\000\038\000\041\000\042\000\042\000\
\042\000\042\000\042\000\042\000\000\000\000\000\045\000\000\000\
\000\000\043\000\000\000\000\000\042\000\044\000\044\000\044\000\
\044\000\044\000\044\000\044\000\044\000\045\000\045\000\045\000\
\045\000\044\000\043\000\000\000\042\000\044\000\046\000\000\000\
\000\000\045\000\047\000\047\000\047\000\047\000\000\000\000\000\
\000\000\044\000\000\000\000\000\000\000\044\000\047\000\000\000\
\000\000\045\000\000\000\047\000\047\000\047\000\047\000\048\000\
\048\000\048\000\048\000\000\000\046\000\000\000\047\000\047\000\
\049\000\000\000\000\000\048\000\050\000\050\000\050\000\050\000\
\050\000\050\000\050\000\050\000\000\000\000\000\000\000\047\000\
\050\000\049\000\000\000\048\000\050\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\050\000\000\000\000\000\000\000\050\000\000\000";
Lexing.lex_check =
"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\003\000\005\000\001\000\000\000\000\000\000\000\
......@@ -177,22 +177,22 @@ let lex_tables = {
\026\000\030\000\001\000\026\000\001\000\026\000\027\000\027\000\
\002\000\002\000\002\000\031\000\033\000\023\000\023\000\023\000\
\023\000\034\000\035\000\011\000\011\000\011\000\023\000\036\000\
\031\000\023\000\024\000\024\000\024\000\024\000\029\000\044\000\
\032\000\029\000\051\000\024\000\255\255\255\255\024\000\032\000\
\255\255\023\000\040\000\040\000\040\000\255\255\041\000\041\000\
\041\000\041\000\042\000\042\000\042\000\042\000\024\000\041\000\
\255\255\255\255\041\000\255\255\255\255\255\255\042\000\043\000\
\043\000\043\000\043\000\045\000\045\000\045\000\045\000\255\255\
\043\000\255\255\041\000\043\000\045\000\255\255\042\000\045\000\
\046\000\046\000\046\000\046\000\047\000\047\000\047\000\047\000\
\255\255\255\255\255\255\043\000\046\000\047\000\255\255\045\000\
\047\000\048\000\048\000\048\000\048\000\049\000\049\000\049\000\
\049\000\255\255\048\000\255\255\046\000\048\000\255\255\255\255\
\047\000\049\000\050\000\050\000\050\000\050\000\255\255\255\255\
\255\255\255\255\255\255\050\000\255\255\048\000\050\000\255\255\
\255\255\049\000\255\255\255\255\255\255\255\255\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\255\255\050\000\255\255\
"
\031\000\023\000\024\000\024\000\024\000\024\000\029\000\040\000\
\051\000\029\000\032\000\024\000\255\255\032\000\024\000\255\255\
\255\255\023\000\255\255\255\255\032\000\041\000\041\000\041\000\
\042\000\042\000\042\000\042\000\255\255\255\255\024\000\255\255\
\255\255\042\000\255\255\255\255\042\000\043\000\043\000\043\000\
\043\000\044\000\044\000\044\000\044\000\045\000\045\000\045\000\
\045\000\043\000\044\000\255\255\042\000\044\000\045\000\255\255\
\255\255\045\000\046\000\046\000\046\000\046\000\255\255\255\255\
\255\255\043\000\255\255\255\255\255\255\044\000\046\000\255\255\
\255\255\045\000\255\255\047\000\047\000\047\000\047\000\048\000\
\048\000\048\000\048\000\255\255\047\000\255\255\046\000\047\000\
\048\000\255\255\255\255\048\000\049\000\049\000\049\000\049\000\
\050\000\050\000\050\000\050\000\255\255\255\255\255\255\047\000\
\049\000\050\000\255\255\048\000\050\000\255\255\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
\049\000\255\255\255\255\255\255\050\000\255\255"
}
let rec token engine lexbuf =
......@@ -211,7 +211,7 @@ let rec token engine lexbuf =
"UIDENT",Lexing.lexeme lexbuf )
| 3 -> (
# 77 "parser/wlexer.mll"
"INT",Lexing.lexeme lexbuf )
"INT",Lexing.lexeme lexbuf )
| 4 -> (
# 78 "parser/wlexer.mll"
......
parser/wlexer.mll
View file @ b10a111f
......@@ -74,7 +74,7 @@ rule token = parse
if Hashtbl.mem keywords s then "",s else "LIDENT",s
}
| uppercase ident { "UIDENT",Lexing.lexeme lexbuf }
| ascii_digit+ { "INT",Lexing.lexeme lexbuf }
| '-'? ascii_digit+ { "INT",Lexing.lexeme lexbuf }
| "<" blank* (lowercase | uppercase) ident {
let s = Lexing.lexeme lexbuf in
"TAG", tag_of_tag s 1
......
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