26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
;
list->csv
#;list->sxml
;
csv-writer? check-csv-writer error-csv-writer
csv-writer-spec? check-csv-writer-spec error-csv-writer-spec)
(import scheme)
#;(import (except chicken provide))
(import chicken)
;;;
;Need to process `#lang' as well. So just "commented out" the "offending"
;sections in the source.
#;(define-syntax provide (syntax-rules () ((_ ?x0 ...) (begin))))
(define null '())
(include "csv.ss")
;;;
(import (only data-structures conc intersperse ->string alist-ref string-translate*))
(require-library data-structures)
#;(import (only list-utils alist?))
(import (only (srfi 1) every iota append! map))
(require-library (srfi 1))
(import (only (srfi 13) string-index))
(require-library (srfi 13))
(import (only (srfi 14) char-set:iso-control))
(require-library (srfi 14))
(import (only type-checks define-check+error-type check-string check-list))
(require-library type-checks)
(import (only unicode-utils unicode-char->string))
(require-library unicode-utils)
(require-extension moremacros)
;(from list-utils egg)
(define (alist? obj)
(if (pair? obj)
(every pair? obj)
(null? obj) ) )
|
|
>
>
|
>
>
>
>
>
>
>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
;
list->csv
#;list->sxml
;
csv-writer? check-csv-writer error-csv-writer
csv-writer-spec? check-csv-writer-spec error-csv-writer-spec)
(import scheme
chicken.base
chicken.string
moremacros
srfi-1
srfi-13
srfi-14
type-checks
unicode-utils
)
#;(import (except chicken provide))
;; (import chicken)
;;;
;Need to process `#lang' as well. So just "commented out" the "offending"
;sections in the source.
#;(define-syntax provide (syntax-rules () ((_ ?x0 ...) (begin))))
(define null '())
(include "csv-xml/csv.ss")
;;;
;; (import (only data-structures conc intersperse ->string alist-ref string-translate*))
;; (require-library data-structures)
;;
;; #;(import (only list-utils alist?))
;; (import (only (srfi 1) every iota append! map))
;; (require-library (srfi 1))
;;
;; (import (only (srfi 13) string-index))
;; (require-library (srfi 13))
;;
;; (import (only (srfi 14) char-set:iso-control))
;; (require-library (srfi 14))
;;
;; (import (only type-checks define-check+error-type check-string check-list))
;; (require-library type-checks)
;;
;; (import (only unicode-utils unicode-char->string))
;; (require-library unicode-utils)
;;
;; (require-extension moremacros)
;(from list-utils egg)
(define (alist? obj)
(if (pair? obj)
(every pair? obj)
(null? obj) ) )
|
99
100
101
102
103
104
105
106
107
108
|
(whitespace-chars . ,whitespace-chars)
(strip-leading-whitespace? . ,strip-leading-whitespace?)
(strip-trailing-whitespace? . ,strip-trailing-whitespace?)
(newlines-in-quotes? . ,newlines-in-quotes?)) )
;;;
(include "csv-out.impl")
) ;csv-xml
|
|
|
109
110
111
112
113
114
115
116
117
118
|
(whitespace-chars . ,whitespace-chars)
(strip-leading-whitespace? . ,strip-leading-whitespace?)
(strip-trailing-whitespace? . ,strip-trailing-whitespace?)
(newlines-in-quotes? . ,newlines-in-quotes?)) )
;;;
(include "csv-xml/csv-out.impl")
) ;csv-xml
|