From e52e38c1f5202eea84b0238664f6f225bdc608d8 Mon Sep 17 00:00:00 2001 From: Anthony Carrico Date: Wed, 10 Mar 2004 18:30:44 +0000 Subject: [PATCH] Changed to new package system. --- scsh/afs/AUTHORS | 2 +- scsh/afs/NEWS | 2 ++ scsh/afs/{interfaces.scm => load.scm} | 8 +++++++ scsh/afs/packages.scm | 7 ------ scsh/afs/pkg-def.scm | 8 +++++++ scsh/base64/AUTHORS | 2 +- scsh/base64/NEWS | 2 ++ scsh/base64/{interfaces.scm => load.scm} | 7 ++++++ scsh/base64/packages.scm | 6 ----- scsh/base64/pkg-def.scm | 8 +++++++ scsh/bytio/AUTHORS | 2 +- scsh/bytio/NEWS | 2 ++ scsh/bytio/interfaces.scm | 28 ------------------------ scsh/bytio/{packages.scm => load.scm} | 16 ++++++++++++-- scsh/bytio/pkg-def.scm | 8 +++++++ 15 files changed, 62 insertions(+), 46 deletions(-) create mode 100644 scsh/afs/NEWS rename scsh/afs/{interfaces.scm => load.scm} (64%) delete mode 100644 scsh/afs/packages.scm create mode 100644 scsh/afs/pkg-def.scm create mode 100644 scsh/base64/NEWS rename scsh/base64/{interfaces.scm => load.scm} (57%) delete mode 100644 scsh/base64/packages.scm create mode 100644 scsh/base64/pkg-def.scm create mode 100644 scsh/bytio/NEWS delete mode 100644 scsh/bytio/interfaces.scm rename scsh/bytio/{packages.scm => load.scm} (69%) create mode 100644 scsh/bytio/pkg-def.scm diff --git a/scsh/afs/AUTHORS b/scsh/afs/AUTHORS index 2df1b32..c8931a5 100644 --- a/scsh/afs/AUTHORS +++ b/scsh/afs/AUTHORS @@ -1 +1 @@ -Martin Gasbichler +Copyright (c) 2003 Martin Gasbichler diff --git a/scsh/afs/NEWS b/scsh/afs/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/scsh/afs/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/scsh/afs/interfaces.scm b/scsh/afs/load.scm similarity index 64% rename from scsh/afs/interfaces.scm rename to scsh/afs/load.scm index 52ae7a7..19159d6 100644 --- a/scsh/afs/interfaces.scm +++ b/scsh/afs/load.scm @@ -9,3 +9,11 @@ set-acl! add-acl! set-fs-command!)) + +(define-structure afs-fs afs-fs-interface + (open scheme-with-scsh + enum-sets + finite-types + srfi-1 + srfi-13) + (files afs-fs)) diff --git a/scsh/afs/packages.scm b/scsh/afs/packages.scm deleted file mode 100644 index 41fbd10..0000000 --- a/scsh/afs/packages.scm +++ /dev/null @@ -1,7 +0,0 @@ -(define-structure afs-fs afs-fs-interface - (open scheme-with-scsh - enum-sets - finite-types - srfi-1 - srfi-13) - (files afs-fs)) \ No newline at end of file diff --git a/scsh/afs/pkg-def.scm b/scsh/afs/pkg-def.scm new file mode 100644 index 0000000..1d6ac11 --- /dev/null +++ b/scsh/afs/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "afs" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "afs-fs.scm" 'scheme)) diff --git a/scsh/base64/AUTHORS b/scsh/base64/AUTHORS index 100171c..1bfb893 100644 --- a/scsh/base64/AUTHORS +++ b/scsh/base64/AUTHORS @@ -1 +1 @@ -Michel Schinz +Copyright (c) 2003 Michel Schinz diff --git a/scsh/base64/NEWS b/scsh/base64/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/scsh/base64/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/scsh/base64/interfaces.scm b/scsh/base64/load.scm similarity index 57% rename from scsh/base64/interfaces.scm rename to scsh/base64/load.scm index 2014885..4ee1f21 100644 --- a/scsh/base64/interfaces.scm +++ b/scsh/base64/load.scm @@ -4,3 +4,10 @@ base64-encode-string base64-decode-string base64-decode-port)) + +(define-structure base64 base64-interface + (open scheme-with-scsh + let-opt + byte-vectors + bytio) + (files base64)) diff --git a/scsh/base64/packages.scm b/scsh/base64/packages.scm deleted file mode 100644 index e4c4fe1..0000000 --- a/scsh/base64/packages.scm +++ /dev/null @@ -1,6 +0,0 @@ -(define-structure base64 base64-interface - (open scheme-with-scsh - let-opt - byte-vectors - bytio) - (files base64)) diff --git a/scsh/base64/pkg-def.scm b/scsh/base64/pkg-def.scm new file mode 100644 index 0000000..e79e276 --- /dev/null +++ b/scsh/base64/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "base64" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "base64.scm" 'scheme)) diff --git a/scsh/bytio/AUTHORS b/scsh/bytio/AUTHORS index 32d2642..ea94477 100644 --- a/scsh/bytio/AUTHORS +++ b/scsh/bytio/AUTHORS @@ -1 +1 @@ -Rolf-Thomas Happe +Copyright (c) 2003 Rolf-Thomas Happe diff --git a/scsh/bytio/NEWS b/scsh/bytio/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/scsh/bytio/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/scsh/bytio/interfaces.scm b/scsh/bytio/interfaces.scm deleted file mode 100644 index c5d8cca..0000000 --- a/scsh/bytio/interfaces.scm +++ /dev/null @@ -1,28 +0,0 @@ -; Copyright (c) 2003 RT Happe -; See the file COPYING distributed with the Scheme Untergrund Library - -(define-interface bytio-face - (export read-byte - peek-byte - write-byte - - read-bytes!/partial - read-bytes/partial - read-bytes! - read-bytes - write-bytes/partial - write-bytes - )) - - - - - - - - - - - - - diff --git a/scsh/bytio/packages.scm b/scsh/bytio/load.scm similarity index 69% rename from scsh/bytio/packages.scm rename to scsh/bytio/load.scm index e801cbf..addff24 100644 --- a/scsh/bytio/packages.scm +++ b/scsh/bytio/load.scm @@ -1,11 +1,24 @@ ; Copyright (c) 2003 RT Happe ; See the file COPYING distributed with the Scheme Untergrund Library +(define-interface bytio-face + (export read-byte + peek-byte + write-byte + + read-bytes!/partial + read-bytes/partial + read-bytes! + read-bytes + write-bytes/partial + write-bytes + )) + ;; byte (rather than character) i/o (define-structure bytio bytio-face (open krims ; assert sequence-lib ; subsequence sequence-length - byte-vectors + byte-vectors let-opt ; let-optionals srfi-23 ; error scsh ; fdes & port stuff, bitwise-and @@ -16,4 +29,3 @@ primitives ; copy-bytes! ) (files rw-bytes)) - diff --git a/scsh/bytio/pkg-def.scm b/scsh/bytio/pkg-def.scm new file mode 100644 index 0000000..b39047e --- /dev/null +++ b/scsh/bytio/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "bytio" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "rw-bytes.scm" 'scheme))