Common Lisp Closure XML包中的广播处理程序的无效输出

Question

继我为最后一个问题提供的答案How to inject elements into character content with Closure XML?我实现了cxml：sax-proxy处理程序（广播处理程序的特例）的子类。不幸的是，它看起来像库中的一个错误，但它试图用内部文档类型定义生成XML，但该文档是无效的XML。

即，运行与所述命令解析器：

(with-open-file (out #P"teste.xml" :if-exists :supersede :direction :output) 
     (let ((h (make-instance 'preproc :chained-handler (cxml:make-character-stream-sink out)))) 
    (cxml:parse #P"harem.xml" h :validate t))) 

其中文件harem.xml开始（参见文档类型）：

<?xml version="1.0" encoding="UTF-8"?> 
<!DOCTYPE colHAREM SYSTEM "harem.dtd"> 
<colHAREM versao="Segundo_dourada_com_relacoes_14Abril2010"> 
    <DOC DOCID="H2-dftre765"> 
    <p>... 

命令在teste.xml产生输出文件：

<?xml version="1.0" encoding="UTF-8"?> 
<!DOCTYPE colHAREM SYSTEM "harem.dtd"<!ELEMENT EM #PCDATA> 
<!ATTLIST EM ID CDATA #REQUIRED> 
<!ATTLIST EM CATEG CDATA #IMPLIED> 
<!ATTLIST EM TIPO CDATA #IMPLIED> 
<!ATTLIST EM COMENT CDATA #IMPLIED> 
<!ATTLIST EM SUBTIPO CDATA #IMPLIED> 
<!ELEMENT ALT (#PCDATA|EM)*> 
<!ELEMENT OMITIDO (#PCDATA|EM|ALT|p)*> 
<!ELEMENT colHAREM (DOC)*> 
<!ATTLIST colHAREM versao CDATA #REQUIRED> 
<!ELEMENT p (#PCDATA|EM|OMITIDO|ALT)*> 
<!ATTLIST p xml:space (default|preserve) "default"> 
<!ELEMENT DOC (#PCDATA|p|OMITIDO)*> 
<!ATTLIST DOC DOCID CDATA #REQUIRED> 
> 
<colHAREM versao="Segundo_dourada_com_relacoes_14Abril2010"> 
... 

也就是说，处理程序在输出中写入DTD，但以错误的方式写入，wi不包括[和]内的声明。这是图书馆或我的代码中的错误吗？

Answer 1

我通过CXML花费你的榜样和 prepared a patch here 步骤跟踪（第一个文件，对最后提交CXML， 991fac513dbd9b86628f99741a66d791552b1f02，在签出CXML 库的根应用与 git apply 0001-....patch）。对我来说，看起来这里的代码路径并不是 触发DTD子集的SAX事件，所以在添加 输出后，添加了必要的"["/"]"。

您能否确认这适用于您？我也不确定 SAX:START-INTERNAL-SUBSET实际上是否正确，但似乎是在这里做 作业。