token UNDERSCORE

parent e06b2459
...@@ -146,6 +146,8 @@ rule token = parse ...@@ -146,6 +146,8 @@ rule token = parse
{ newline lexbuf; token lexbuf } { newline lexbuf; token lexbuf }
| space+ | space+
{ token lexbuf } { token lexbuf }
| '_'
{ UNDERSCORE }
| lident as id | lident as id
{ try Hashtbl.find keywords id with Not_found -> LIDENT id } { try Hashtbl.find keywords id with Not_found -> LIDENT id }
| uident as id | uident as id
......
...@@ -101,7 +101,8 @@ ...@@ -101,7 +101,8 @@
%token QUOTE RAISE RAISES READS REAL REC REF RETURNS RIGHTB RIGHTBRIGHTB %token QUOTE RAISE RAISES READS REAL REC REF RETURNS RIGHTB RIGHTBRIGHTB
%token RIGHTPAR RIGHTSQ %token RIGHTPAR RIGHTSQ
%token SEMICOLON SLASH %token SEMICOLON SLASH
%token THEN THEORY TIMES TRUE TRY TYPE UNIT USES VARIANT VOID WHILE WITH WRITES %token THEN THEORY TIMES TRUE TRY TYPE UNDERSCORE
%token UNIT USES VARIANT VOID WHILE WITH WRITES
/* Precedences */ /* Precedences */
......
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