61 lines
1.5 KiB
Scheme
61 lines
1.5 KiB
Scheme
(module ssax "restricted-mzscheme.ss"
|
|
|
|
(provide xml-token?
|
|
xml-token-kind xml-token-head
|
|
make-empty-attlist attlist-add
|
|
attlist-null?
|
|
attlist-remove-top
|
|
attlist->alist attlist-fold
|
|
ssax:uri-string->symbol
|
|
ssax:skip-internal-dtd
|
|
ssax:read-pi-body-as-string
|
|
ssax:reverse-collect-str-drop-ws
|
|
ssax:read-markup-token
|
|
ssax:read-cdata-body
|
|
ssax:read-char-ref
|
|
ssax:read-attributes
|
|
ssax:complete-start-tag
|
|
ssax:read-external-id
|
|
ssax:read-char-data
|
|
ssax:make-parser ssax:make-pi-parser ssax:make-elem-parser
|
|
ssax:xml->sxml
|
|
ssax:warn-parameter)
|
|
|
|
(require (only (lib "1.ss" "srfi") cons*))
|
|
(require (only (lib "13.ss" "srfi")
|
|
string-null?
|
|
string-index
|
|
string-concatenate/shared
|
|
string-concatenate-reverse/shared))
|
|
|
|
(require "crementing.ss")
|
|
(require "input-parse.ss")
|
|
(require "char-encodings.ss")
|
|
(require "ascii.ss")
|
|
(require "ppretty-prints.ss")
|
|
(require "oleg-utils.ss")
|
|
(require "find-strings.ss")
|
|
(require "assertions.ss")
|
|
(require "coutputs.ss")
|
|
(require "catch-errors.ss")
|
|
(require "oleg-string-ports.ss")
|
|
|
|
(define (SSAX:warn-standard port msg . other-msg)
|
|
(apply cerr (cons (string-append (string #\newline) "Warning: ")
|
|
(cons msg
|
|
other-msg))))
|
|
|
|
|
|
(define ssax:warn-parameter (make-parameter SSAX:warn-standard))
|
|
|
|
(define (ssax:warn port msg . other-msg)
|
|
(apply (ssax:warn-parameter) port msg other-msg))
|
|
|
|
(require (lib "include.ss"))
|
|
(include "SSAX-code.scm"))
|
|
|
|
|
|
|
|
|
|
|