Changeset 15230 in project


Ignore:
Timestamp:
07/17/09 17:31:34 (10 years ago)
Author:
Alex Shinn
Message:

using utf8 encoding of non-ASCII unicode entities

Location:
release/4/html-parser/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/html-parser/trunk/html-parser.scm

    r14752 r15230  
    328328(define (get-entity entities name)
    329329  (cond
    330    ((string->number name) => (lambda (n) (string (integer->char n))))
     330   ((string->number name)
     331    => (lambda (n) (##sys#char->utf8-string (integer->char n))))
    331332   ((assoc name entities) => cdr)
    332333   (else #f)))
     
    463464    (let ((entity (or entity (lambda (t s)
    464465                               (text (if (number? t)
    465                                          (string (integer->char t))
     466                                         (##sys#char->utf8-string
     467                                          (integer->char t))
    466468                                         (or (get-entity entities t)
    467469                                             (string-append "&" t ";")))
  • release/4/html-parser/trunk/html-parser.setup

    r14750 r15230  
    55  'html-parser
    66  '("html-parser.so" "html-parser.import.so")
    7   '((version 0.3)
     7  '((version 0.4)
    88    (documentation "html-parser.html")))
Note: See TracChangeset for help on using the changeset viewer.