Moved package and interface definition to packages.scm. Generate load scripts.

build/dirs.scm

@@ -8,7 +8,8 @@
                      -mindepth 1
                      -type d
                      ! -name CVS
-                     ! -name rt-modules)))
+                     ! -name rt-modules
+                     ! -name sequences)))
 
 (define scsh-dirs
   (run/strings (find scsh

s48/args-fold/pkg-def.scm

@@ -1,8 +1,12 @@
 (define-package "srfi-37"
   (0 4)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)
+  (install-file "packages.scm" 'scheme)
   (install-file "args-fold.scm" 'scheme))

s48/banana/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "banana"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/binary-parse/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "binary-parse"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/cml/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "cml"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/concurrency/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "concurrency"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

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

@@ -1,7 +1,10 @@
 (define-package "continuation-data-type"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/exceptions/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "exceptions"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)
   (install-file "restart.scm" 'scheme)

s48/heap-images/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "heap-images"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/intsets/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "intsets"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/krims/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "krims"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/module-system/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "module-system"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/procedure-tables/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "procedure-tables"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/profile/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "profile"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

s48/srfi-10/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "srfi-10"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/afs/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "afs"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/base64/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "base64"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/bytio/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "bytio"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/dir-streams/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "dir-streams"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/file-mode/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "file-mode"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/image-info/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "image-info"
   (1 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/interaction/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "interaction"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/pps/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "pps"
   (0 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/scsh-packages/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "scsh-packages"
   (0 0)
   ()
-  ; (install-file "load.scm" 'base)
+  ;(write-to-load-script
+  ; `((config)
+  ;   (load ,(absolute-file-name "packages.scm"
+  ;                              (get-directory 'scheme #f)))))
   ; (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/sequences/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "sequences"
   (1 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/tiff/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "tiff"
   (1 0)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)

scsh/treaps/pkg-def.scm

@@ -1,7 +1,10 @@
 (define-package "treaps"
   (0 1)
   ()
-  (install-file "load.scm" 'base)
+  (write-to-load-script
+   `((config)
+     (load ,(absolute-file-name "packages.scm"
+                                (get-directory 'scheme #f)))))
   (install-file "README" 'doc)
   (install-file "NEWS" 'doc)
   (install-string (COPYING) "COPYING" 'doc)