From 416769997ae21b009bf616778ed866d7fc5a5b9a Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 3 Sep 2002 12:41:45 +0000
Subject: [PATCH] Factored DELIMITED-READERS out of SCSH-LEVEL-0.

---
 scsh/scsh-interfaces.scm |  5 +++++
 scsh/scsh-package.scm    | 14 +++++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm
index 504312a..7508c62 100644
--- a/scsh/scsh-interfaces.scm
+++ b/scsh/scsh-interfaces.scm
@@ -598,6 +598,11 @@
 	  clear-string-collector!
 	  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
   (export mapv mapv! vector-every? copy-vector initialize-vector vector-append
 	  vfold vfold-right
diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index 044fa9b..67953cd 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -51,6 +51,18 @@
 	defrec-package)
   (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 string-lib srfi-13)
 (define char-set-lib srfi-14)
@@ -167,6 +179,7 @@
 	define-record-types
 	formats
 	string-collectors
+	delimited-readers
 	os-dependent		; OS dependent stuff
 	buffered-io-flags	; stdio dependent
 	ascii
@@ -257,7 +270,6 @@
 	 sighandlers		; New in release 0.5.
 	 scsh
 ;	 re
-	 rdelim  
 	 )
 ;  (optimize auto-integrate)
   (begin