Changed to new package system.
This commit is contained in:
Anthony Carrico
parent
81c4f87072
commit
3d0ed4d8a3
|
|
@ -1 +1 @@
|
|||
Martin Gasbichler, (credit to Marc Feeley)
|
||||
Copyright (c) 2003 Martin Gasbichler
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
@ -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))
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
(define-structure continuation-data-type continuation-data-type-interface
|
||||
(open scheme)
|
||||
(files continuation-data-type))
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Martin Gasbichler
|
||||
Copyright (c) 2003 Martin Gasbichler
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
(define-interface reinitializers-interface
|
||||
(export make-reinitializer
|
||||
reinitializer?))
|
||||
|
||||
|
|
@ -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))
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
(define-structure reinitializers reinitializers-interface
|
||||
(open scheme
|
||||
define-record-types
|
||||
records)
|
||||
(files reinitializer))
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Michel Schinz
|
||||
Copyright (c) 2003 Michel Schinz
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -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))
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
(define-structure intsets intsets-interface
|
||||
(open scheme
|
||||
srfi-23 ;error
|
||||
srfi-1) ;list library
|
||||
(files intsets))
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Rolf-Thomas Happe
|
||||
Copyright (c) 2003 Rolf-Thomas Happe
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -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!))
|
||||
|
|
@ -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)))
|
||||
|
|
@ -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)))
|
||||
|
||||
|
||||
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Martin Gasbichler
|
||||
Copyright (c) 2003 Martin Gasbichler
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -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))
|
||||
|
|
@ -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)
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Taylor Campbell
|
||||
Copyright (c) 2003 Taylor Campbell
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -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))))
|
||||
|
|
@ -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
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Matthias Neubauer, Eric Knauel
|
||||
Copyright (c) 2003 Matthias Neubauer, Eric Knauel
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
(define-interface mini-profiler-interface
|
||||
(export
|
||||
profile-init!
|
||||
display-profile
|
||||
(define-prof :syntax)
|
||||
(account-for :syntax)))
|
||||
|
|
@ -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))
|
||||
|
|
@ -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))
|
||||
|
|
@ -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))
|
||||
|
|
@ -1 +1 @@
|
|||
Rolf-Thomas Happe
|
||||
Copyright (c) 2003 Rolf-Thomas Happe
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
version 0.0
|
||||
* New package system.
|
||||
|
|
@ -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=
|
||||
))
|
||||
|
||||
|
|
@ -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
|
||||
|
||||
|
|
@ -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))
|
||||
Loading…
Reference in New Issue