Commit d192706b authored by Sven Van Caekenberghe's avatar Sven Van Caekenberghe
Browse files

changed hook function comments

parent 92602915
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: xml.lisp,v 1.19 2004/06/04 08:10:09 sven Exp $
;;;; $Id: xml.lisp,v 1.1.1.1 2004/06/07 18:49:58 scaekenberghe Exp $
;;;;
;;;; This is a Common Lisp implementation of a very basic XML parser.
;;;; The parser is non-validating and not at all complete (no CDATA).
......@@ -161,9 +161,9 @@
seed))
(finish-element-hook :documentation "Called when element ends"
;; Handle the end of an xml element with name and attributes,
;; receiving the seed that was passed to our parent,
;; receiving seed from last child/contents (or from new-level-hook for empty tags),
;; return final seed for this element to higher levels
;; receiving the seed that was passed by our parent,
;; receiving seed from last child/contents
;; return final seed for this element
:accessor get-finish-element-hook
:initarg :finish-element-hook
:initform #'(lambda (name attributes parent-seed seed)
......@@ -171,7 +171,7 @@
seed))
(text-hook :documentation "Called when text is found"
;; Handle text in string, found as child/contents,
;; receiving seed from parent element, return seed"
;; receiving seed from parent element, return final seed for this element
:accessor get-text-hook
:initarg :text-hook
:initform #'(lambda (string seed)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment