From 81c4f87072a795af57a85acfd44330652b1c28ac Mon Sep 17 00:00:00 2001 From: Anthony Carrico Date: Wed, 10 Mar 2004 17:07:41 +0000 Subject: [PATCH] Changed to new package system. --- s48/concurrency/AUTHORS | 2 +- s48/concurrency/NEWS | 2 ++ s48/concurrency/interfaces.scm | 8 -------- s48/concurrency/load.scm | 18 ++++++++++++++++++ s48/concurrency/packages.scm | 11 ----------- s48/concurrency/pkg-def.scm | 9 +++++++++ 6 files changed, 30 insertions(+), 20 deletions(-) create mode 100644 s48/concurrency/NEWS delete mode 100644 s48/concurrency/interfaces.scm create mode 100644 s48/concurrency/load.scm delete mode 100644 s48/concurrency/packages.scm create mode 100644 s48/concurrency/pkg-def.scm diff --git a/s48/concurrency/AUTHORS b/s48/concurrency/AUTHORS index 2df1b32..c8931a5 100644 --- a/s48/concurrency/AUTHORS +++ b/s48/concurrency/AUTHORS @@ -1 +1 @@ -Martin Gasbichler +Copyright (c) 2003 Martin Gasbichler diff --git a/s48/concurrency/NEWS b/s48/concurrency/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/s48/concurrency/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/s48/concurrency/interfaces.scm b/s48/concurrency/interfaces.scm deleted file mode 100644 index 9bc9f90..0000000 --- a/s48/concurrency/interfaces.scm +++ /dev/null @@ -1,8 +0,0 @@ -(define-interface semaphores-interface - (export make-semaphore - semaphore-post - semaphore-wait - with-semaphore-posted)) - -(define-interface with-lock-interface - (export with-lock)) \ No newline at end of file diff --git a/s48/concurrency/load.scm b/s48/concurrency/load.scm new file mode 100644 index 0000000..2d0a4fc --- /dev/null +++ b/s48/concurrency/load.scm @@ -0,0 +1,18 @@ +(define-interface semaphores-interface + (export make-semaphore + semaphore-post + semaphore-wait + with-semaphore-posted)) + +(define-interface with-lock-interface + (export with-lock))(define-structure semaphores semaphores-interface + (open scheme + locks + with-lock + define-record-types) + (files semaphore)) + +(define-structure with-lock with-lock-interface + (open scheme + locks) + (files with-lock)) \ No newline at end of file diff --git a/s48/concurrency/packages.scm b/s48/concurrency/packages.scm deleted file mode 100644 index b1da288..0000000 --- a/s48/concurrency/packages.scm +++ /dev/null @@ -1,11 +0,0 @@ -(define-structure semaphores semaphores-interface - (open scheme - locks - with-lock - define-record-types) - (files semaphore)) - -(define-structure with-lock with-lock-interface - (open scheme - locks) - (files with-lock)) \ No newline at end of file diff --git a/s48/concurrency/pkg-def.scm b/s48/concurrency/pkg-def.scm new file mode 100644 index 0000000..e9667eb --- /dev/null +++ b/s48/concurrency/pkg-def.scm @@ -0,0 +1,9 @@ +(define-package "concurrency" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "semaphore.scm" 'scheme) + (install-file "with-lock.scm" 'scheme))