Factored DELIMITED-READERS out of SCSH-LEVEL-0.
This commit is contained in:
parent
64b6410756
commit
416769997a
|
@ -598,6 +598,11 @@
|
||||||
clear-string-collector!
|
clear-string-collector!
|
||||||
string-collector->string))
|
string-collector->string))
|
||||||
|
|
||||||
|
(define-interface delimited-readers-interface
|
||||||
|
(export read-delimited read-delimited! %read-delimited!
|
||||||
|
read-line read-paragraph
|
||||||
|
skip-char-set))
|
||||||
|
|
||||||
(define-interface scsh-utilities-interface
|
(define-interface scsh-utilities-interface
|
||||||
(export mapv mapv! vector-every? copy-vector initialize-vector vector-append
|
(export mapv mapv! vector-every? copy-vector initialize-vector vector-append
|
||||||
vfold vfold-right
|
vfold vfold-right
|
||||||
|
|
|
@ -51,6 +51,18 @@
|
||||||
defrec-package)
|
defrec-package)
|
||||||
(files stringcoll))
|
(files stringcoll))
|
||||||
|
|
||||||
|
(define-structure delimited-readers delimited-readers-interface
|
||||||
|
(open scheme
|
||||||
|
byte-vectors
|
||||||
|
signals ; ERROR
|
||||||
|
let-opt
|
||||||
|
receiving
|
||||||
|
re-exports
|
||||||
|
srfi-14
|
||||||
|
ascii
|
||||||
|
i/o-internal ports)
|
||||||
|
(files rdelim))
|
||||||
|
|
||||||
(define list-lib srfi-1)
|
(define list-lib srfi-1)
|
||||||
(define string-lib srfi-13)
|
(define string-lib srfi-13)
|
||||||
(define char-set-lib srfi-14)
|
(define char-set-lib srfi-14)
|
||||||
|
@ -167,6 +179,7 @@
|
||||||
define-record-types
|
define-record-types
|
||||||
formats
|
formats
|
||||||
string-collectors
|
string-collectors
|
||||||
|
delimited-readers
|
||||||
os-dependent ; OS dependent stuff
|
os-dependent ; OS dependent stuff
|
||||||
buffered-io-flags ; stdio dependent
|
buffered-io-flags ; stdio dependent
|
||||||
ascii
|
ascii
|
||||||
|
@ -257,7 +270,6 @@
|
||||||
sighandlers ; New in release 0.5.
|
sighandlers ; New in release 0.5.
|
||||||
scsh
|
scsh
|
||||||
; re
|
; re
|
||||||
rdelim
|
|
||||||
)
|
)
|
||||||
; (optimize auto-integrate)
|
; (optimize auto-integrate)
|
||||||
(begin
|
(begin
|
||||||
|
|
Loading…
Reference in New Issue