7 let out s = if !O.debug_lexer then prerr_endline s
10 let SPC = ['\r' '\n' '\t' ' ']+
15 | SPC { token lexbuf }
16 | QT { let s = str lexbuf in
18 | NUM as s { out s; TP.NUM (int_of_string s) }
19 | "(*" { block lexbuf; token lexbuf }
20 | "{" { out "{"; TP.OC }
21 | "}" { out "}"; TP.CC }
22 | "[" { out "["; TP.OB }
23 | "]" { out "]"; TP.CB }
24 | "*" { out "*"; TP.SR }
25 | "+" { out "+"; TP.PS }
26 | "(" { out "("; TP.OP }
27 | ")" { out ")"; TP.CP }
28 | "@" { out ")"; TP.AT }
29 | "space" { out "name"; TP.SPACE }
30 | "name" { out "name"; TP.NAME }
31 | "table" { out "table"; TP.TABLE }
32 | "class" { out "class"; TP.CSS }
36 | "\\\"" { "\"" ^ str lexbuf }
37 | _ as c { S.make 1 c ^ str lexbuf }
40 | "(*" { block lexbuf; block lexbuf }
41 | QT { let _ = str lexbuf in