Project

General

Profile

Revision 70e1006b src/lexer_lustre.mll

View differences:

src/lexer_lustre.mll
53 53
  "clock", TCLOCK;
54 54
  "not", NOT;
55 55
  "tail", TAIL;
56
  "true", TRUE;
57
  "false", FALSE;
56 58
  "and", AND;
57 59
  "or", OR;
58 60
  "xor", XOR;
......
114 116
| "tel." {TEL}
115 117
| "tel;" {TEL}
116 118
| "#open" { OPEN }
117
| ['_' 'a'-'z' 'A'-'Z'] [ '_' 'a'-'z' 'A'-'Z' '0'-'9']*
119
| ['_' 'a'-'z'] [ '_' 'a'-'z' 'A'-'Z' '0'-'9']*
118 120
    {let s = Lexing.lexeme lexbuf in
119 121
    try
120 122
      Hashtbl.find keyword_table s
121 123
    with Not_found ->
122 124
      IDENT s}
125
| ['A'-'Z'] [ '_' 'a'-'z' 'A'-'Z' '0'-'9']*
126
    {let s = Lexing.lexeme lexbuf in
127
    try
128
      Hashtbl.find keyword_table s
129
    with Not_found ->
130
      UIDENT s}
123 131
| "->" {ARROW}
124 132
| "=>" {IMPL}
125 133
| "<=" {LTE}

Also available in: Unified diff