source: project/release/4/ssax/ssax-chicken.scm @ 15175

Last change on this file since 15175 was 15175, checked in by Ivan Raikov, 11 years ago

removed definitions of fold from ssax (uses srfi-1)

File size: 760 bytes
Line 
1;========================================================================
2;               Highest-level parsers: XML to SXML
3
4(require-library input-parse srfi-1 srfi-13)
5
6(module ssax
7
8((ssax:make-parser fold)
9 (ssax:make-pi-parser fold)
10 (ssax:make-elem-parser fold)
11 ssax:xml->sxml)
12
13(import scheme chicken ports srfi-1 srfi-13 input-parse)
14(import (except extras read-string))
15
16(define ucscode->char integer->char)
17(define ascii->char integer->char)
18(define char-return (ascii->char 13))
19(define char-tab (ascii->char 9))
20(define char-newline (ascii->char 10))
21
22(define parser-error error)
23
24(define (ssax:warn port msg . other-msg)
25  (apply cerr (cons* nl "Warning: " msg other-msg)))
26
27(include "myenv-chicken.scm")
28(include "look-for-str.scm")
29(include "SSAX.scm")
30
31)
Note: See TracBrowser for help on using the repository browser.