! Copyright (C) 2005, 2009 Daniel Ehrenberg, Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
-USING: xml.tokenize xml.data xml.state kernel sequences ascii
-fry xml.errors combinators hashtables namespaces xml.entities
-strings xml.name ;
+USING: combinators hashtables kernel namespaces xml.data
+xml.errors xml.name xml.state xml.tokenize ;
IN: xml.dtd
: take-decl-contents ( -- first second )
take-decl-contents <attlist-decl> ;
: take-notation-decl ( -- notation-decl )
- take-decl-contents <notation-decl> ;
+ take-decl-contents <notation-decl> ;
UNION: dtd-acceptable
directive comment instruction ;
[
take-word pass-blank get-char {
{ CHAR: ' [ parse-quote ] }
- { CHAR: " [ parse-quote ] }
+ { CHAR: \" [ parse-quote ] }
[ drop take-external-id close ]
} case
] dip '[ swap _ [ ?set-at ] change ] 2keep ;