Add logical shift left (<<) and logical shift right (>>) to faustine.

[Faustine.git] / interpretor / lexer.mll

diff --git a/interpretor/lexer.mll b/interpretor/lexer.mll
index 9659a41..46ce90d 100644 (file)
--- a/interpretor/lexer.mll
+++ b/interpretor/lexer.mll
@@ -49,6 +49,8 @@ rule token = parse
 | "<="                                 { IDENT Leq}
 | "=="                                 { IDENT Eq}
 | "!="                                 { IDENT Neq}
 | "<="                                 { IDENT Leq}
 | "=="                                 { IDENT Eq}
 | "!="                                 { IDENT Neq}

+| "<<"                                 { IDENT Shl}
+| ">>"                                 { IDENT Shr}

 | "max"                                        { IDENT Max}
 | "min"                                        { IDENT Min}
 | "prefix"                              { IDENT Prefix}
 | "max"                                        { IDENT Max}
 | "min"                                        { IDENT Min}
 | "prefix"                              { IDENT Prefix}


@@ -57,11 +59,9 @@ rule token = parse
 | "rdtable"                             { IDENT Rdtable}
 | "rwtable"                            { IDENT Rwtable}
 
 | "rdtable"                             { IDENT Rdtable}
 | "rwtable"                            { IDENT Rwtable}
 

-

 | ['0'-'9']+ as a                      { CONST a }
 | '.'                                   { POINT }
 
 | ['0'-'9']+ as a                      { CONST a }
 | '.'                                   { POINT }
 

-

 | '('                                  { LPAR }
 | ')'                                  { RPAR }
 | ','                                  { PAR }
 | '('                                  { LPAR }
 | ')'                                  { RPAR }
 | ','                                  { PAR }