Factored DELIMITED-READERS out of SCSH-LEVEL-0.

This commit is contained in:
sperber 2002-09-03 12:41:45 +00:00
parent 64b6410756
commit 416769997a
2 changed files with 18 additions and 1 deletions

View File

@ -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

View File

@ -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