;========================================================================
;		Highest-level parsers: XML to SXML

(module ssax

(ssax:read-char-data xml-token-kind xml-token-head
 (ssax:make-parser ssax:scan-Misc ssax:Prefix-XML ssax:complete-start-tag ssax:read-char-data ssax:assert-token ssax:warn parser-error ssax:skip-internal-dtd ssax:ncname-starting-char? ssax:skip-pi ssax:skip-S ssax:S-chars ssax:read-external-id ssax:read-QName ssax:read-markup-token ssax:handle-parsed-entity nl)
 (ssax:make-pi-parser ssax:scan-Misc ssax:Prefix-XML ssax:complete-start-tag ssax:read-char-data ssax:assert-token ssax:warn parser-error ssax:skip-internal-dtd ssax:ncname-starting-char? ssax:skip-pi ssax:skip-S ssax:S-chars ssax:read-external-id ssax:read-QName ssax:read-markup-token ssax:handle-parsed-entity nl)
 (ssax:make-elem-parser ssax:scan-Misc ssax:Prefix-XML ssax:complete-start-tag ssax:read-char-data ssax:assert-token ssax:warn parser-error ssax:skip-internal-dtd ssax:ncname-starting-char? ssax:skip-pi ssax:skip-S ssax:S-chars ssax:read-external-id ssax:read-QName ssax:read-markup-token ssax:handle-parsed-entity)
 ssax:xml->sxml
 ssax:warn
 html-entity-unicode-chars)

(import (except scheme string make-string))
(import (except (chicken base) assert))
(import (prefix (only (chicken base) assert) core:))
(import (chicken port))
(import (chicken condition))
(import (except srfi-1 fold fold-right cons*))
(import (except srfi-13 string-null?))
(import input-parse)

(define ucscode->char integer->char)
(define ascii->char integer->char)
(define char-return (ascii->char 13))
(define char-tab (ascii->char 9))
(define char-newline (ascii->char 10))
;; SSAX.scm expects STRING to work on characters > #\u00ff;
;; this allows entities > 255 to be parsed correctly.
(define (string x) (##sys#char->utf8-string x))
;; For UTF8 (make-string 1 ch) in html-entity-codes.scm; no one else uses this,
;; so don't bother to support k > 1.
(define (make-string k x)
  (core:assert (= k 1) "attempt to call ssax:make-string with k != 1")
  (string x))

(define (parser-error port msg . specialising-msg*)
  (signal (make-composite-condition
           (make-property-condition 'ssax)
           (make-property-condition 'parser-error)
           (make-property-condition 'exn 'message msg 'arguments specialising-msg*))))

(define (ssax:warn port msg . other-msg)
  (apply cerr (cons* nl "Warning: " msg other-msg)))

(include "myenv-chicken.scm")
(include "look-for-str.scm")
(include "SSAX.scm")
(include "html-entity-codes.scm")

)