Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
s-xml
s-xml
Commits
d192706b
Commit
d192706b
authored
Jun 11, 2004
by
Sven Van Caekenberghe
Browse files
changed hook function comments
parent
92602915
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/xml.lisp
View file @
d192706b
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: xml.lisp,v 1.1
9
2004/06/0
4 08:10:09 sven
Exp $
;;;; $Id: xml.lisp,v 1.1
.1.1
2004/06/0
7 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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment