xml - Lisp 数据格式化为 xml

Question

我是 lisp 的新手，我似乎找不到任何关于如何将 txt 文件中读取的单词格式化为 xml 的示例。

例子:

tag1
tag2 word2
tag1 word3
tag1 word4

我想要退出文件:.xml

<tag1>
   <tag2>word2</tag2>
</tag1>
<tag1>word3</tag1>
<tag1>word4</tag1>

或类似的东西。

Answer 1

使用 CXML 和 SPLIT-SEQUENCE 库，您可以这样做:

(defun write-xml (input-stream output-stream)
  (cxml:with-xml-output
      (cxml:make-character-stream-sink output-stream
                                       :indentation 2 :canonical nil)
    (loop :for line := (read-line input-stream nil) :while line :do
       (destructuring-bind (tag &optional text)
           (split-sequence:split-sequence #\Space line)
         (cxml:with-element tag
           (when text
             (cxml:text text)))))))

结果会略有不同:

CL-USER> (with-input-from-string (in "tag1
tag2 word2
tag1 word3
tag1 word4")
           (write-xml in *standard-output*))
<?xml version="1.0" encoding="UTF-8"?>
<tag1/>
<tag2>
  word2</tag2>
<tag1>
  word3</tag1>
<tag1>
  word4</tag1>

剩下的就是弄清楚如何处理表示中的元素嵌套...