Changed to new package system.

This commit is contained in:
Anthony Carrico 2004-03-10 16:40:44 +00:00
parent 2fbf8d1cbc
commit 56de79847f
5 changed files with 68 additions and 46 deletions

View File

@ -1 +1 @@
Mike Sperber Copyright (c) 2003 Mike Sperber

2
s48/cml/NEWS Normal file
View File

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

View File

@ -1,45 +0,0 @@
(define-interface trans-ids-interface
(export enter-cr! leave-cr!
leave-cr-and-block!
trans-id?
make-trans-id
cr-trans-id-wait cr-trans-id-wakeup cr-maybe-trans-id-wakeup
trans-id-thread-uid trans-id-cancelled?))
(define-interface rendezvous-interface
(export always-rv never-rv
guard with-nack choose wrap
sync
select))
(define-interface make-rendezvous-interface
(export make-blocked make-enabled make-base))
(define-interface rendezvous-channels-interface
(export make-channel
channel?
send-rv send
receive-rv receive))
(define-interface rendezvous-async-channels-interface
(export make-async-channel
async-channel?
send-async
receive-async-rv
receive-async))
(define-interface rendezvous-placeholders-interface
(export make-placeholder
placeholder?
placeholder-value
placeholder-set!
placeholder-value-rv))
(define-interface rendezvous-jars-interface
(export make-jar
jar?
jar-take
jar-put!
jar-take-rv))

View File

@ -1,3 +1,47 @@
(define-interface trans-ids-interface
(export enter-cr! leave-cr!
leave-cr-and-block!
trans-id?
make-trans-id
cr-trans-id-wait cr-trans-id-wakeup cr-maybe-trans-id-wakeup
trans-id-thread-uid trans-id-cancelled?))
(define-interface rendezvous-interface
(export always-rv never-rv
guard with-nack choose wrap
sync
select))
(define-interface make-rendezvous-interface
(export make-blocked make-enabled make-base))
(define-interface rendezvous-channels-interface
(export make-channel
channel?
send-rv send
receive-rv receive))
(define-interface rendezvous-async-channels-interface
(export make-async-channel
async-channel?
send-async
receive-async-rv
receive-async))
(define-interface rendezvous-placeholders-interface
(export make-placeholder
placeholder?
placeholder-value
placeholder-set!
placeholder-value-rv))
(define-interface rendezvous-jars-interface
(export make-jar
jar?
jar-take
jar-put!
jar-take-rv))
(define-structure trans-ids trans-ids-interface (define-structure trans-ids trans-ids-interface
(open scheme (open scheme
srfi-9 big-util srfi-9 big-util

21
s48/cml/pkg-def.scm Normal file
View File

@ -0,0 +1,21 @@
(define-package "cml"
(0 0)
()
(install-file "load.scm" 'base)
(install-file "README" 'doc)
(install-file "NEWS" 'doc)
(install-string (COPYING) "COPYING" 'doc)
(install-file "async-channels.scm" 'scheme)
(install-file "placeholder.scm" 'scheme)
(install-file "trans-id.scm" 'scheme)
(install-file "channel.scm" 'scheme)
(install-file "jar.scm" 'scheme)
(install-file "rendezvous.scm" 'scheme))