mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

ssax: add procs to define parsed entities

Browse source 
* module/sxml/ssax.scm (reset-parsed-entity-definitions!)
  (define-parsed-entity!): New heavy-handed knobs for adding to the set
  of parsed entity definitions.
This commit is contained in:
Andy Wingo 2010-10-14 12:37:31 +02:00
parent 37d6f737e7
commit 4aaa0650e0
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
module/sxml/ssax.scm
View file

@ -1,6 +1,6 @@
;;;; (sxml ssax) -- the SSAX parser ;;;; (sxml ssax) -- the SSAX parser
;;;; ;;;;
;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>. ;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>.
;;;; Written 2001,2002,2003,2004 by Oleg Kiselyov <oleg at pobox dot com> as SSAX.scm. ;;;; Written 2001,2002,2003,2004 by Oleg Kiselyov <oleg at pobox dot com> as SSAX.scm.
;;;; ;;;;
@ -147,6 +147,8 @@
attlist-null? attlist-null?
attlist-remove-top attlist-remove-top
attlist->alist attlist-fold attlist->alist attlist-fold
define-parsed-entity!
reset-parsed-entity-definitions!
ssax:uri-string->symbol ssax:uri-string->symbol
ssax:skip-internal-dtd ssax:skip-internal-dtd
ssax:read-pi-body-as-string ssax:read-pi-body-as-string
@ -188,6 +190,25 @@
(define char-tab #\tab) (define char-tab #\tab)
(define nl "\n") (define nl "\n")
;; This isn't a great API, but a more proper fix will involve hacking
;; SSAX.
(define (reset-parsed-entity-definitions!)
"Restore the set of parsed entity definitions to its initial state."
(set! ssax:predefined-parsed-entities
'((amp . "&")
(lt . "<")
(gt . ">")
(apos . "'")
(quot . "\""))))
(define (define-parsed-entity! entity str)
"Define a new parsed entity. @var{entity} should be a symbol.
Instances of &@var{entity}; in XML text will be replaced with the
string @var{str}, which will then be parsed."
(set! ssax:predefined-parsed-entities
(acons entity str ssax:predefined-parsed-entities)))
;; if condition is true, execute stmts in turn and return the result of ;; if condition is true, execute stmts in turn and return the result of
;; the last statement otherwise, return #f ;; the last statement otherwise, return #f
(define-syntax when (define-syntax when