;;;; -*- mode: lisp -*- ;;;; ;;;; $Id: dom.lisp,v 1.1.1.1 2004/06/07 18:49:56 scaekenberghe Exp $ ;;;; ;;;; This is the generic simple DOM parser and printer interface. ;;;; ;;;; Copyright (C) 2002, 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) ;;; top level DOM parser interface (defgeneric parse-xml-dom (stream output-type) (:documentation "Parse a character stream as XML and generate a DOM of output-type")) (defun parse-xml (stream &key (output-type :lxml)) "Parse a character stream as XML and generate a DOM of output-type, defaulting to :lxml" (parse-xml-dom stream output-type)) (defun parse-xml-string (string &key (output-type :lxml)) "Parse a string as XML and generate a DOM of output-type, defaulting to :lxml" (with-input-from-string (stream string) (parse-xml-dom stream output-type))) (defun parse-xml-file (filename &key (output-type :lxml)) "Parse a character file as XML and generate a DOM of output-type, defaulting to :lxml" (with-open-file (in filename :direction :input) (parse-xml-dom in output-type))) ;;; top level DOM printer interface (defgeneric print-xml-dom (dom input-type stream pretty level) (:documentation "Generate XML output on a character stream from a DOM of input-type, optionally pretty printing using level")) (defun print-xml (dom &key (stream t) (pretty nil) (input-type :lxml) (header)) "Generate XML output on a character stream (t by default) from a DOM of input-type (:lxml by default), optionally pretty printing (off by default), or adding a header (none by default)" (when header (format stream header)) (when pretty (terpri stream)) (print-xml-dom dom input-type stream pretty 1)) (defun print-xml-string (dom &key (pretty nil) (input-type :lxml)) "Generate XML output to a string from a DOM of input-type (:lxml by default), optionally pretty printing (off by default)" (with-output-to-string (stream) (print-xml dom :stream stream :pretty pretty :input-type input-type))) ;;; shared/common support functions (defun print-spaces (n stream &optional (preceding-newline t)) (when preceding-newline (terpri stream)) (loop :repeat n :do (write-char #\Space stream))) (defun print-solitary-tag (tag stream) (write-char #\< stream) (print-identifier tag stream) (write-string "/>" stream)) (defun print-closing-tag (tag stream) (write-string " stream)) (defun print-attribute (name value stream) (write-char #\space stream) (print-identifier name stream t) (write-string "=\"" stream) (print-string-xml value stream) (write-char #\" stream)) ;;;; eof