Converted to new package system.

scsh/dir-streams/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler, Eric Knauel, Matthias Neubauer
+Copyright (c) 2003 Martin Gasbichler, Eric Knauel, Matthias Neubauer

scsh/dir-streams/NEWS

@@ -0,0 +1,2 @@
+version 0.0
+* New package system.

scsh/dir-streams/load.scm

@@ -4,7 +4,7 @@
           dir-stream-files-stream
           dir-stream-subdir-stream
           dir-stream-info
-          
+
 	  dir-stream-for-each
 	  dir-stream-map
 	  dir-stream-filter
@@ -59,4 +59,26 @@
 	  stream-iterate
 	  stream-cycle
 	  stream-take-while
-	  stream-drop-while))
+	  stream-drop-while))
+
+(define-structure dir-streams dir-streams-interface
+  (open scheme-with-scsh
+	handle
+	conditions
+	define-record-types
+	let-opt
+	records
+	streams)
+  (files dir-stream))
+
+(define-structure dir-stream-predicates dir-stream-predicates-interfaces
+  (open
+   scheme-with-scsh
+   dir-streams)
+  (files dir-stream-predicates))
+
+(define-structure streams
+  streams-interface
+  (open scheme
+	signals)
+  (files stream))

scsh/dir-streams/packages.scm

@@ -1,21 +0,0 @@
-(define-structure dir-streams dir-streams-interface
-  (open scheme-with-scsh
-	handle
-	conditions
-	define-record-types
-	let-opt
-	records
-	streams)
-  (files dir-stream))
-
-(define-structure dir-stream-predicates dir-stream-predicates-interfaces
-  (open 
-   scheme-with-scsh
-   dir-streams)
-  (files dir-stream-predicates))
-
-(define-structure streams
-  streams-interface
-  (open scheme
-	signals)
-  (files stream))

scsh/dir-streams/pkg-def.scm

@@ -0,0 +1,10 @@
+(define-package "dir-streams"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "dir-stream.scm" 'scheme)
+  (install-file "dir-stream-predicates.scm" 'scheme)
+  (install-file "stream.scm" 'scheme))