%token <int> NUM
%token <string> TEXT
-%token SPACE NAME TABLE CSS URI EXT SR OC CC OB CB PS OP CP AT EOF
+%token SPACE NAME TABLE CSS URI EXT SR OC CC OB CB PS CF OP CP AT EOF
%start script
%type <(string * string) list * (string * Table.table * Table.css Attr.atoms * Table.uri Attr.atoms * Table.ext Attr.atoms) list> script
;
texts:
- | text { [$1] }
- | text PS texts { $1 :: $3 }
+ | text { [$1] }
+ | text PS texts { $1 :: T.Plain " " :: $3 }
+ | text CF texts { $1 :: $3 }
;
key: