diff --git a/scsh/dir-streams/AUTHORS b/scsh/dir-streams/AUTHORS index 71e27da..072aefc 100644 --- a/scsh/dir-streams/AUTHORS +++ b/scsh/dir-streams/AUTHORS @@ -1 +1 @@ -Martin Gasbichler, Eric Knauel, Matthias Neubauer +Copyright (c) 2003 Martin Gasbichler, Eric Knauel, Matthias Neubauer diff --git a/scsh/dir-streams/NEWS b/scsh/dir-streams/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/scsh/dir-streams/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/scsh/dir-streams/interfaces.scm b/scsh/dir-streams/load.scm similarity index 75% rename from scsh/dir-streams/interfaces.scm rename to scsh/dir-streams/load.scm index c77d12e..9c8b663 100644 --- a/scsh/dir-streams/interfaces.scm +++ b/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)) \ No newline at end of file + 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)) diff --git a/scsh/dir-streams/packages.scm b/scsh/dir-streams/packages.scm deleted file mode 100644 index c2d8888..0000000 --- a/scsh/dir-streams/packages.scm +++ /dev/null @@ -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)) diff --git a/scsh/dir-streams/pkg-def.scm b/scsh/dir-streams/pkg-def.scm new file mode 100644 index 0000000..e902789 --- /dev/null +++ b/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))