Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv23865/src

Modified Files: lxml.lisp Log Message: added comments

Date: Thu Sep 15 15:32:32 2005 Author: scaekenberghe

Index: cl-soap/src/lxml.lisp diff -u cl-soap/src/lxml.lisp:1.3 cl-soap/src/lxml.lisp:1.4 --- cl-soap/src/lxml.lisp:1.3 Sat Sep 10 21:55:19 2005 +++ cl-soap/src/lxml.lisp Thu Sep 15 15:32:32 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: lxml.lisp,v 1.3 2005/09/10 19:55:19 scaekenberghe Exp $ +;;;; $Id: lxml.lisp,v 1.4 2005/09/15 13:32:32 scaekenberghe Exp $ ;;;; ;;;; Some tools to manipulate lxml ;;;; @@ -14,16 +14,19 @@ (in-package :cl-soap)

(defun lxml-get-tag (lxml) + "Return the XML tag symbol of the lxml XML DOM" (cond ((symbolp lxml) lxml) ((stringp lxml) '()) ((symbolp (first lxml)) (first lxml)) (t (first (first lxml)))))

(defun lxml-get-attributes (lxml) + "Return the XML attributes plist of the lxml XML DOM" (cond ((or (symbolp lxml) (stringp lxml) (symbolp (first lxml))) '()) (t (rest (first lxml)))))

(defun lxml-find-tag (tag lxml) - (find tag lxml :key #'lxml-get-tag)) + "Find a specific tag in a lxml XML DOM list" + (find tag lxml :key #'lxml-get-tag))

;;;; eof