6 [ ' ' '\t' '\n']+ { token lexbuf }
7 | "<window" { WINDOW_START }
8 | "</window>" { WINDOW_END }
13 | "<" ['A'-'Z' 'a'-'z' '0'-'9' '_']+
15 let l = Lexing.lexeme lexbuf in
16 let s = String.sub l ~pos:1 ~len:(String.length l - 1) in
20 | "</" ['A'-'Z' 'a'-'z' '0'-'9' '_']+ '>'
22 let l = Lexing.lexeme lexbuf in
23 let s = String.sub l ~pos:2 ~len:(String.length l - 3) in
29 let l = Lexing.lexeme lexbuf in
30 let s = String.sub l ~pos:1 ~len:(String.length l - 2) in
36 let l = Lexing.lexeme lexbuf in
37 let s = String.sub l ~pos:1 ~len:(String.length l - 2) in
41 | ['A'-'Z' 'a'-'z' '0'-'9' '_' '.']+
43 let s = Lexing.lexeme lexbuf in IDENT s