Changed to new package system.

s48/continuation-data-type/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler, (credit to Marc Feeley)
+Copyright (c) 2003 Martin Gasbichler

s48/continuation-data-type/NEWS

@@ -0,0 +1,5 @@
+version 0.1
+* New package system.
+
+version 0.0 2003-02-20
+* proposed by Marc Feeley on the Scheme Workshop 2001.

s48/continuation-data-type/load.scm

@@ -2,3 +2,6 @@
   (export continuation-capture
 	  continuation-graft
 	  continuation-return))
+(define-structure continuation-data-type continuation-data-type-interface
+  (open scheme)
+  (files continuation-data-type))

s48/continuation-data-type/packages.scm

@@ -1,3 +0,0 @@
-(define-structure continuation-data-type continuation-data-type-interface
-  (open scheme)
-  (files continuation-data-type))

s48/continuation-data-type/pkg-def.scm

@@ -0,0 +1,8 @@
+(define-package "continuation-data-type"
+  (0 1)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "continuation-data-type.scm" 'scheme))

s48/heap-images/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler
+Copyright (c) 2003 Martin Gasbichler

s48/heap-images/NEWS

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

s48/heap-images/interfaces.scm

@@ -1,4 +0,0 @@
-(define-interface reinitializers-interface
-  (export make-reinitializer
-          reinitializer?))
-  

s48/heap-images/load.scm

@@ -0,0 +1,8 @@
+(define-interface reinitializers-interface
+  (export make-reinitializer
+          reinitializer?))
+  (define-structure reinitializers reinitializers-interface
+  (open scheme
+        define-record-types
+        records)
+  (files reinitializer))

s48/heap-images/packages.scm

@@ -1,5 +0,0 @@
-(define-structure reinitializers reinitializers-interface
-  (open scheme
-        define-record-types
-        records)
-  (files reinitializer))

s48/heap-images/pkg-def.scm

@@ -0,0 +1,8 @@
+(define-package "heap-images"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "reinitializer.scm" 'scheme))

s48/intsets/AUTHORS

@@ -1 +1 @@
-Michel Schinz
+Copyright (c) 2003 Michel Schinz

s48/intsets/NEWS

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

s48/intsets/load.scm

@@ -9,3 +9,8 @@
           intset-delete
           intset-contains?
           intset-map))
+(define-structure intsets intsets-interface
+  (open scheme
+        srfi-23                         ;error
+        srfi-1)                         ;list library
+  (files intsets))

s48/intsets/packages.scm

@@ -1,5 +0,0 @@
-(define-structure intsets intsets-interface
-  (open scheme
-        srfi-23                         ;error
-        srfi-1)                         ;list library
-  (files intsets))

s48/intsets/pkg-def.scm

@@ -0,0 +1,8 @@
+(define-package "intsets"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "intsets.scm" 'scheme))

s48/krims/AUTHORS

@@ -1 +1 @@
-Rolf-Thomas Happe
+Copyright (c) 2003 Rolf-Thomas Happe

s48/krims/NEWS

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

s48/krims/interfaces.scm

@@ -1,36 +0,0 @@
-;; since SRFI-1-INTERFACE isn't defined in the usual 0.6.3 image
-;; definition hijacked from scsh-0.6.3/scheme/more-interfaces.scm 
-(define-interface srfi-1-face
-  (export map for-each member assoc	; redefined from R5RS
-	  xcons make-list list-tabulate cons* list-copy 
-	  proper-list? circular-list? dotted-list? not-pair? null-list? list=
-	  circular-list length+
-	  iota
-	  first second third fourth fifth sixth seventh eighth ninth tenth
-	  car+cdr
-	  take       drop       
-	  take-right drop-right 
-	  take!      drop-right!
-	  split-at   split-at!
-	  last last-pair
-	  zip unzip1 unzip2 unzip3 unzip4 unzip5
-	  count
-	  append! append-reverse append-reverse! concatenate concatenate! 
-	  unfold       fold       pair-fold       reduce
-	  unfold-right fold-right pair-fold-right reduce-right
-	  append-map append-map! map! pair-for-each filter-map map-in-order
-	  filter  partition  remove
-	  filter! partition! remove! 
-	  find find-tail any every list-index
-	  take-while drop-while take-while!
-	  span break span! break!
-	  delete delete!
-	  alist-cons alist-copy
-	  delete-duplicates delete-duplicates!
-	  alist-delete alist-delete!
-	  reverse! 
-	  lset<= lset= lset-adjoin  
-	  lset-union  lset-intersection  lset-difference  lset-xor
-	  lset-diff+intersection
-	  lset-union! lset-intersection! lset-difference! lset-xor!
-	  lset-diff+intersection!))

s48/krims/load.scm

@@ -0,0 +1,71 @@
+; Copyright (c) 2003 RT Happe <rthappe at web de>
+; See the file COPYING distributed with the Scheme Untergrund Library
+
+;; since SRFI-1-INTERFACE isn't defined in the usual 0.6.3 image
+;; definition hijacked from scsh-0.6.3/scheme/more-interfaces.scm
+(define-interface srfi-1-face
+  (export map for-each member assoc	; redefined from R5RS
+	  xcons make-list list-tabulate cons* list-copy
+	  proper-list? circular-list? dotted-list? not-pair? null-list? list=
+	  circular-list length+
+	  iota
+	  first second third fourth fifth sixth seventh eighth ninth tenth
+	  car+cdr
+	  take       drop
+	  take-right drop-right
+	  take!      drop-right!
+	  split-at   split-at!
+	  last last-pair
+	  zip unzip1 unzip2 unzip3 unzip4 unzip5
+	  count
+	  append! append-reverse append-reverse! concatenate concatenate!
+	  unfold       fold       pair-fold       reduce
+	  unfold-right fold-right pair-fold-right reduce-right
+	  append-map append-map! map! pair-for-each filter-map map-in-order
+	  filter  partition  remove
+	  filter! partition! remove!
+	  find find-tail any every list-index
+	  take-while drop-while take-while!
+	  span break span! break!
+	  delete delete!
+	  alist-cons alist-copy
+	  delete-duplicates delete-duplicates!
+	  alist-delete alist-delete!
+	  reverse!
+	  lset<= lset= lset-adjoin
+	  lset-union  lset-intersection  lset-difference  lset-xor
+	  lset-diff+intersection
+	  lset-union! lset-intersection! lset-difference! lset-xor!
+	  lset-diff+intersection!))
+
+;; odds and ends
+(define-structure krims
+  (export (assert :syntax)
+          (receive/name :syntax)
+          (gen-dispatch :syntax))
+  (open srfi-28                         ; format
+        srfi-23                         ; error
+        scheme)
+  (files krims))
+
+;; srfi-1 + REST
+(define-structure srfi-1+
+  (compound-interface srfi-1-face
+                      (export rest))
+  (open srfi-1 scheme)
+  (begin (define rest cdr)))
+
+;; srfi-9 + define-record-discloser
+;; [ extended version of the srfi-9 structure def
+;;   from scsh-0.6.3/scheme/more-packages.scm ]
+(define-structure srfi-9+
+  (export (define-record-type :syntax)
+          define-record-discloser)
+  (open scheme-level-2
+	(with-prefix define-record-types sys:))
+  (begin
+    (define-syntax define-record-type
+      (syntax-rules ()
+	((define-record-type type-name . stuff)
+	 (sys:define-record-type type-name type-name . stuff))))
+    (define define-record-discloser sys:define-record-discloser)))

s48/krims/packages.scm

@@ -1,37 +0,0 @@
-; Copyright (c) 2003 RT Happe <rthappe at web de>
-; See the file COPYING distributed with the Scheme Untergrund Library
-
-;; odds and ends
-(define-structure krims
-  (export (assert :syntax)
-          (receive/name :syntax)
-          (gen-dispatch :syntax))
-  (open srfi-28                         ; format
-        srfi-23                         ; error
-        scheme)
-  (files krims))
-
-;; srfi-1 + REST
-(define-structure srfi-1+
-  (compound-interface srfi-1-face
-                      (export rest))
-  (open srfi-1 scheme)
-  (begin (define rest cdr)))
-
-;; srfi-9 + define-record-discloser
-;; [ extended version of the srfi-9 structure def 
-;;   from scsh-0.6.3/scheme/more-packages.scm ]
-(define-structure srfi-9+
-  (export (define-record-type :syntax)
-          define-record-discloser)
-  (open scheme-level-2 
-	(with-prefix define-record-types sys:))
-  (begin
-    (define-syntax define-record-type
-      (syntax-rules ()
-	((define-record-type type-name . stuff)
-	 (sys:define-record-type type-name type-name . stuff))))
-    (define define-record-discloser sys:define-record-discloser)))
-
-
-

s48/krims/pkg-def.scm

@@ -0,0 +1,8 @@
+(define-package "krims"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "krims.scm" 'scheme))

s48/module-system/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler
+Copyright (c) 2003 Martin Gasbichler

s48/module-system/NEWS

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

s48/module-system/interfaces.scm

@@ -1,17 +0,0 @@
-(define-interface rt-modules-interface
-  (export ((lambda-interface 
-	    with-names-from-rt-structure)
-	   :syntax)
-	  reify-structure
-          rt-structure->environment
-	  load-structure
-	  load-config-file
-	  rt-structure-binding))
-
-(define-interface rt-modules-core-interface
-  (export interface-value-names 
-	  reify-structure
-          rt-structure->environment
-	  load-config-file
-	  rt-structure-binding
-	  load-structure))

s48/module-system/load.scm

@@ -1,4 +1,20 @@
-(define-structure rt-modules rt-modules-interface
+(define-interface rt-modules-interface
+  (export ((lambda-interface 
+	    with-names-from-rt-structure)
+	   :syntax)
+	  reify-structure
+          rt-structure->environment
+	  load-structure
+	  load-config-file
+	  rt-structure-binding))
+
+(define-interface rt-modules-core-interface
+  (export interface-value-names 
+	  reify-structure
+          rt-structure->environment
+	  load-config-file
+	  rt-structure-binding
+	  load-structure))(define-structure rt-modules rt-modules-interface
 
   (open scheme
 	rt-modules-core)

s48/module-system/pkg-def.scm

@@ -0,0 +1,9 @@
+(define-package "module-system"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "overlapping-imports.scm" 'scheme)
+  (install-file "rt-module.scm" 'scheme))

s48/procedure-tables/AUTHORS

@@ -1 +1 @@
-Taylor Campbell
+Copyright (c) 2003 Taylor Campbell

s48/procedure-tables/NEWS

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

s48/procedure-tables/interfaces.scm

@@ -1,5 +0,0 @@
-(define-interface procedure-hash-interface
-  (export (procedure-hash (proc (:procedure) :exact-integer))))
-
-(define-interface procedure-tables-interface
-  (export (make-procedure-table (proc () :value))))

s48/procedure-tables/load.scm

@@ -1,3 +1,9 @@
+(define-interface procedure-hash-interface
+  (export (procedure-hash (proc (:procedure) :exact-integer))))
+
+(define-interface procedure-tables-interface
+  (export (make-procedure-table (proc () :value))))
+
 (define-structure procedure-hash procedure-hash-interface
   (open scheme
         more-types

s48/procedure-tables/pkg-def.scm

@@ -0,0 +1,9 @@
+(define-package "procedure-tables"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "procedure-tables.scm" 'scheme)
+  (install-file "procedure-hash.scm" 'scheme))

s48/profile/AUTHORS

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

s48/profile/NEWS

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

s48/profile/interfaces.scm

@@ -1,6 +0,0 @@
-(define-interface mini-profiler-interface
-  (export
-   profile-init!
-   display-profile
-   (define-prof :syntax)
-   (account-for :syntax)))

s48/profile/load.scm

@@ -0,0 +1,16 @@
+(define-interface mini-profiler-interface
+  (export
+   profile-init!
+   display-profile
+   (define-prof :syntax)
+   (account-for :syntax)))(define-structure mini-profiler mini-profiler-interface
+  (open scheme
+	table
+	formats
+	extended-ports
+	time)
+  (files profile))
+
+(define-structure no-mini-profiler mini-profiler-interface
+  (open scheme)
+  (files no-profile))

s48/profile/packages.scm

@@ -1,11 +0,0 @@
-(define-structure mini-profiler mini-profiler-interface
-  (open scheme
-	table
-	formats
-	extended-ports
-	time)
-  (files profile))
-
-(define-structure no-mini-profiler mini-profiler-interface
-  (open scheme)
-  (files no-profile))

s48/profile/pkg-def.scm

@@ -0,0 +1,9 @@
+(define-package "profile"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "no-profile.scm" 'scheme)
+  (install-file "profile.scm" 'scheme))

s48/sequences/AUTHORS

@@ -1 +1 @@
-Rolf-Thomas Happe
+Copyright (c) 2003 Rolf-Thomas Happe

s48/sequences/NEWS

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

s48/sequences/interfaces.scm

@@ -1,96 +0,0 @@
-; Copyright (c) 2003 RT Happe <rthappe at web de>
-; See the file COPYING distributed with the Scheme Untergrund Library
-
-;; the basic protocol including a vanilla constructor
-(define-interface sequence-basics-face
-  (export sequence?
-          sequence-length
-          sequence-ref
-          sequence-set!
-          make-another-sequence))
-
-;; things definable in terms of the basic protocol
-(define-interface sequence-extras-face
-  (export sequence->list
-          sequence-tabulate!
-          sequence-fill!
-          subsequence
-          sequence-copy
-          sequence-copy!
-          sequence-copy/maker
-          sequence-append
-          sequence-map sequences-map
-          sequence-map/maker sequences-map/maker
-          sequence-map-into! sequences-map-into!
-          sequence-for-each sequences-for-each
-          sequence-fold sequences-fold
-          sequence-fold-right sequences-fold-right
-          sequence-null?
-          sequence-any sequences-any
-          sequence-every sequences-every
-          sequence= sequences=
-          ))
-
-;; specialised sequence operations (for lists, actually)
-(define-interface sequence-specifics-face
-  (export list-set!
-          list-fill!
-          sublist
-          ))
-
-;; the sequence ADT etc.
-(define-interface absequences-face
-  (export make-sequence-behavior
-          sequence-behavior?
-          make-absequence-record
-          absequence:behavior
-          make-absequence/behavior
-          absequence/behavior
-          list->absequence/behavior
-          absequence?
-          absequence-ref
-          absequence-set!
-          absequence-length))
-
-;; the basic + extra sequence procedures
-;; [ extends the union of SEQUENCE-BASICS- and -EXTRAS-INTERFACE with
-;;   `VECTOR' replacing `SEQUENCE' ]
-(define-interface vector-lib-face
-  (export ;; constructors and the like
-          make-vector
-          vector
-          list->vector                  ; with opts
-          vector-tabulate
-          ;; basics w/o the vanilla constructor
-          vector?
-          vector-length
-          vector-ref
-          vector-set!
-
-          ;; extras
-          vector->list
-          vector-fill!
-          vector-tabulate!
-          subvector
-          vector-copy
-          vector-copy!
-          vector-append
-          vector-map   ; forget the optional MAKER arg
-          vector-map-into!
-          vector-for-each
-          vector-fold
-          vector-fold-right
-          vector-null?
-          vector-any
-          vector-every
-          vector=
-          vectors-map  ; but not vectors-map/maker
-          vectors-map-into!
-          vectors-for-each
-          vectors-fold
-          vectors-fold-right
-          vectors-any
-          vectors-every
-          vectors=
-          ))
-

s48/sequences/load.scm

@@ -1,6 +1,99 @@
 ; Copyright (c) 2003 RT Happe <rthappe at web de>
 ; See the file COPYING distributed with the Scheme Untergrund Library
 
+;; the basic protocol including a vanilla constructor
+(define-interface sequence-basics-face
+  (export sequence?
+          sequence-length
+          sequence-ref
+          sequence-set!
+          make-another-sequence))
+
+;; things definable in terms of the basic protocol
+(define-interface sequence-extras-face
+  (export sequence->list
+          sequence-tabulate!
+          sequence-fill!
+          subsequence
+          sequence-copy
+          sequence-copy!
+          sequence-copy/maker
+          sequence-append
+          sequence-map sequences-map
+          sequence-map/maker sequences-map/maker
+          sequence-map-into! sequences-map-into!
+          sequence-for-each sequences-for-each
+          sequence-fold sequences-fold
+          sequence-fold-right sequences-fold-right
+          sequence-null?
+          sequence-any sequences-any
+          sequence-every sequences-every
+          sequence= sequences=
+          ))
+
+;; specialised sequence operations (for lists, actually)
+(define-interface sequence-specifics-face
+  (export list-set!
+          list-fill!
+          sublist
+          ))
+
+;; the sequence ADT etc.
+(define-interface absequences-face
+  (export make-sequence-behavior
+          sequence-behavior?
+          make-absequence-record
+          absequence:behavior
+          make-absequence/behavior
+          absequence/behavior
+          list->absequence/behavior
+          absequence?
+          absequence-ref
+          absequence-set!
+          absequence-length))
+
+;; the basic + extra sequence procedures
+;; [ extends the union of SEQUENCE-BASICS- and -EXTRAS-INTERFACE with
+;;   `VECTOR' replacing `SEQUENCE' ]
+(define-interface vector-lib-face
+  (export ;; constructors and the like
+          make-vector
+          vector
+          list->vector                  ; with opts
+          vector-tabulate
+          ;; basics w/o the vanilla constructor
+          vector?
+          vector-length
+          vector-ref
+          vector-set!
+
+          ;; extras
+          vector->list
+          vector-fill!
+          vector-tabulate!
+          subvector
+          vector-copy
+          vector-copy!
+          vector-append
+          vector-map   ; forget the optional MAKER arg
+          vector-map-into!
+          vector-for-each
+          vector-fold
+          vector-fold-right
+          vector-null?
+          vector-any
+          vector-every
+          vector=
+          vectors-map  ; but not vectors-map/maker
+          vectors-map-into!
+          vectors-for-each
+          vectors-fold
+          vectors-fold-right
+          vectors-any
+          vectors-every
+          vectors=
+          ))
+
 ;;; refers to structures from sunterlib/s48/krims
 ;;; relies on implicit shadowing of exported bindings
 

s48/sequences/pkg-def.scm

@@ -0,0 +1,13 @@
+(define-package "sequences"
+  (0 0)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "baseqs.scm" 'scheme)
+  (install-file "genseqs.scm" 'scheme)
+  (install-file "uniseqs.scm" 'scheme)
+  (install-file "composeqs.scm" 'scheme)
+  (install-file "specseqs.scm" 'scheme)
+  (install-file "vecnames.scm" 'scheme))