X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/9fdfd04e29fcefdb9120a4d9467827ceaf8dfaa0..8abe2ee3f9b99450a1097204076770fc1c29b75a:/interpretor/lexer.mll

diff --git a/interpretor/lexer.mll b/interpretor/lexer.mll
index 9659a41..353712a 100644
--- a/interpretor/lexer.mll
+++ b/interpretor/lexer.mll
@@ -10,12 +10,11 @@ rule token = parse
 | "-"                                   { IDENT Sub}
 | "*"                                   { IDENT Mul}
 | "/"                                   { IDENT Div}
-| "^"					{ IDENT Power}
 | "_"                                   { IDENT Pass}
 | "!"                                   { IDENT Stop}
 | "&"					{ IDENT And}
 | "|"					{ IDENT Or}
-| "xor"					{ IDENT Xor}
+| "^"					{ IDENT Xor}
 | "mem"                                 { IDENT Mem}
 | "@"                                   { IDENT Delay}
 | "floor"                               { IDENT Floor}
@@ -34,9 +33,9 @@ rule token = parse
 | "sqrt"                                { IDENT Sqrt}
 | "log"					{ IDENT Ln}
 | "logten"				{ IDENT Lg}
-| "pow"					{ IDENT Power}
+| "powf"				{ IDENT Power}
 | "abs"					{ IDENT Abs}
-| "fmod"				{ IDENT Fmod}
+| "fmodf"				{ IDENT Fmod}
 | "%"                                   { IDENT Mod}
 | "remainder"				{ IDENT Remainder}
 | "vectorize"                           { IDENT Vectorize}
@@ -49,6 +48,8 @@ rule token = parse
 | "<="					{ IDENT Leq}
 | "=="					{ IDENT Eq}
 | "!="					{ IDENT Neq}
+| "<<"					{ IDENT Shl}
+| ">>"					{ IDENT Shr}
 | "max"					{ IDENT Max}
 | "min"					{ IDENT Min}
 | "prefix"                              { IDENT Prefix}
@@ -57,11 +58,9 @@ rule token = parse
 | "rdtable"                             { IDENT Rdtable}
 | "rwtable"				{ IDENT Rwtable}
 
-
 | ['0'-'9']+ as a		        { CONST a }
 | '.'                                   { POINT }
 
-
 | '('               	       	        { LPAR }
 | ')'         		                { RPAR }
 | ','					{ PAR }