scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
Anthony Carrico 2004-03-14 22:59:57 +00:00
parent 04a99f66a6
commit aeef47ae62
52 changed files with 107 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
build/dirs.scm
View File

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

0
s48/args-fold/load.scm → s48/args-fold/packages.scm
View File

6
s48/args-fold/pkg-def.scm
View File

@ -1,8 +1,12 @@
(define-package "srfi-37" (define-package "srfi-37"
(0 4) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)
(install-file "packages.scm" 'scheme)
(install-file "args-fold.scm" 'scheme)) (install-file "args-fold.scm" 'scheme))

0
s48/banana/load.scm → s48/banana/packages.scm
View File

5
s48/banana/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "banana" (define-package "banana"
(0 1) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/binary-parse/load.scm → s48/binary-parse/packages.scm
View File

5
s48/binary-parse/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "binary-parse" (define-package "binary-parse"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/cml/load.scm → s48/cml/packages.scm
View File

5
s48/cml/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "cml" (define-package "cml"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/concurrency/load.scm → s48/concurrency/packages.scm
View File

5
s48/concurrency/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "concurrency" (define-package "concurrency"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/continuation-data-type/load.scm → s48/continuation-data-type/packages.scm
View File

5
s48/continuation-data-type/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "continuation-data-type" (define-package "continuation-data-type"
(0 1) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/exceptions/load.scm → s48/exceptions/packages.scm
View File

5
s48/exceptions/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "exceptions" (define-package "exceptions"
(0 1) (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-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)
(install-file "restart.scm" 'scheme) (install-file "restart.scm" 'scheme)

0
s48/heap-images/load.scm → s48/heap-images/packages.scm
View File

5
s48/heap-images/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "heap-images" (define-package "heap-images"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/intsets/load.scm → s48/intsets/packages.scm
View File

5
s48/intsets/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "intsets" (define-package "intsets"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/krims/load.scm → s48/krims/packages.scm
View File

5
s48/krims/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "krims" (define-package "krims"
(0 1) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/module-system/load.scm → s48/module-system/packages.scm
View File

5
s48/module-system/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "module-system" (define-package "module-system"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/procedure-tables/load.scm → s48/procedure-tables/packages.scm
View File

5
s48/procedure-tables/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "procedure-tables" (define-package "procedure-tables"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/profile/load.scm → s48/profile/packages.scm
View File

5
s48/profile/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "profile" (define-package "profile"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
s48/srfi-10/load.scm → s48/srfi-10/packages.scm
View File

5
s48/srfi-10/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "srfi-10" (define-package "srfi-10"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/afs/load.scm → scsh/afs/packages.scm
View File

5
scsh/afs/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "afs" (define-package "afs"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/base64/load.scm → scsh/base64/packages.scm
View File

5
scsh/base64/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "base64" (define-package "base64"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/bytio/load.scm → scsh/bytio/packages.scm
View File

5
scsh/bytio/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "bytio" (define-package "bytio"
(0 1) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/dir-streams/load.scm → scsh/dir-streams/packages.scm
View File

5
scsh/dir-streams/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "dir-streams" (define-package "dir-streams"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/file-mode/load.scm → scsh/file-mode/packages.scm
View File

5
scsh/file-mode/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "file-mode" (define-package "file-mode"
(0 1) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/image-info/load.scm → scsh/image-info/packages.scm
View File

5
scsh/image-info/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "image-info" (define-package "image-info"
(1 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/interaction/load.scm → scsh/interaction/packages.scm
View File

5
scsh/interaction/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "interaction" (define-package "interaction"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/pps/load.scm → scsh/pps/packages.scm
View File

5
scsh/pps/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "pps" (define-package "pps"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

5
scsh/scsh-packages/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "scsh-packages" (define-package "scsh-packages"
(0 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/sequences/load.scm → scsh/sequences/packages.scm
View File

5
scsh/sequences/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "sequences" (define-package "sequences"
(1 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/tiff/load.scm → scsh/tiff/packages.scm
View File

5
scsh/tiff/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "tiff" (define-package "tiff"
(1 0) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)

0
scsh/treaps/load.scm → scsh/treaps/packages.scm
View File

5
scsh/treaps/pkg-def.scm
View File

@ -1,7 +1,10 @@
(define-package "treaps" (define-package "treaps"
(0 1) (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 "README" 'doc)
(install-file "NEWS" 'doc) (install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc) (install-string (COPYING) "COPYING" 'doc)