Changeset 13362 in project


Ignore:
Timestamp:
02/19/09 23:41:29 (11 years ago)
Author:
Jim Ursetto
Message:

ssax: remove STRING from standard bindings, allows Unicode entities

Location:
release/3/ssax
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/ssax/ssax-core.scm

    r2701 r13362  
    66(declare
    77  (fixnum)
    8   (uses srfi-1 srfi-13)
     8  (not standard-bindings string) ; you must load utf8 to convert numeric entities > 255
    99  (export SSAX:warn SSAX:skip-pi attlist-fold
    1010          SSAX:Prefix-XML SSAX:complete-start-tag SSAX:skip-S SSAX:read-markup-token
     
    1616          SSAX:handle-parsed-entity SSAX:complete-start-tag xml-token-head xml-token-kind
    1717          SSAX:uri-string->symbol string-whitespace? SSAX:read-pi-body-as-string) )
     18
     19(use srfi-1 srfi-13)
    1820
    1921;(define pp pretty-print)
     
    204206; $Id: ssax-core.scm,v 1.2 2004/05/31 00:05:04 flw Exp $
    205207
    206 (declare                        ; Gambit-compiler optimization options
    207  (standard-bindings)
    208  (fixnum)
    209 )
    210208;(include "myenv.scm") ; include target dependent stuff
    211209
     
    700698; $Id: ssax-core.scm,v 1.2 2004/05/31 00:05:04 flw Exp $
    701699
    702 (declare                        ; Gambit-compiler optimization options
    703  (standard-bindings)
    704  (extended-bindings)            ; Needed for #!optional arguments, DSSSL-style
    705  (fixnum)                       ; optional, keyword and rest arguments
    706 )
    707700;(include "myenv.scm") ; include target dependent stuff
    708701
  • release/3/ssax/ssax-utils.scm

    r1206 r13362  
    11(include "ssax.scm")
    2 (require 'ssax-core)
     2(use ssax-core)
     3(use srfi-1 extras)
    34
    45(declare
    5   (fixnum)
    6   (uses srfi-1 extras) )
    7 
     6  (fixnum))
    87
    98;========================================================================
  • release/3/ssax/ssax.setup

    r2981 r13362  
    1717    ,(dynld-name "ssax-utils")
    1818    "ssax.html" )
    19   `((version 1.0)
     19  `((version 4.9.8)
    2020    (syntax)
    2121    ,@(if has-exports? `((exports "ssax-core.exports" "ssax-utils.exports")) '())
Note: See TracChangeset for help on using the changeset viewer.