about summary refs log tree commit diff
path: root/third_party/lisp/s-xml/examples/remove-markup.lisp
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@google.com>2020-01-22T00·49+0000
committerVincent Ambo <tazjin@google.com>2020-01-22T00·49+0000
commit437efa7686f62c88f6b377a255715fa0c28ed2c7 (patch)
treecaba3ba35513c9fc794ff8d78c82b67b274bcd52 /third_party/lisp/s-xml/examples/remove-markup.lisp
parentfe3ea06cbc32c9b727549a6505e69234f3072f6f (diff)
feat(third_party/lisp/s-xml): Check in sources & derivation r/438
Checked in the sources for this because it is tracked upstream in CVS
and I can't be bothered to deal with that right now.
Diffstat (limited to 'third_party/lisp/s-xml/examples/remove-markup.lisp')
-rw-r--r--third_party/lisp/s-xml/examples/remove-markup.lisp21
1 files changed, 21 insertions, 0 deletions
diff --git a/third_party/lisp/s-xml/examples/remove-markup.lisp b/third_party/lisp/s-xml/examples/remove-markup.lisp
new file mode 100644
index 000000000000..41d858b4a8c5
--- /dev/null
+++ b/third_party/lisp/s-xml/examples/remove-markup.lisp
@@ -0,0 +1,21 @@
+;;;; -*- mode: lisp -*-
+;;;;
+;;;; $Id: remove-markup.lisp,v 1.1 2004/06/11 11:14:43 scaekenberghe Exp $
+;;;;
+;;;; Remove markup from an XML document using the SSAX interface
+;;;;
+;;;; Copyright (C) 2004 Sven Van Caekenberghe, Beta Nine BVBA.
+;;;;
+;;;; You are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser General Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+
+(in-package :s-xml)
+
+(defun remove-xml-markup (in)
+  (let* ((state (make-instance 'xml-parser-state
+                              :text-hook #'(lambda (string seed) (cons string seed))))
+         (result (start-parse-xml in state)))
+    (apply #'concatenate 'string (nreverse result))))
+
+;;;; eof
\ No newline at end of file