Initial revision
authorMichael R. Blair <edu/mit/csail/zurich/ziggy>
Mon, 28 Mar 1994 07:06:48 +0000 (07:06 +0000)
committerMichael R. Blair <edu/mit/csail/zurich/ziggy>
Mon, 28 Mar 1994 07:06:48 +0000 (07:06 +0000)
v7/src/wabbit/wabbit.cbf [new file with mode: 0644]
v7/src/wabbit/wabbit.pkg [new file with mode: 0644]
v7/src/wabbit/wabbit.sf [new file with mode: 0644]

diff --git a/v7/src/wabbit/wabbit.cbf b/v7/src/wabbit/wabbit.cbf
new file mode 100644 (file)
index 0000000..92b89c8
--- /dev/null
@@ -0,0 +1,36 @@
+#| -*-Scheme-*-
+
+$Id: wabbit.cbf,v 1.1 1994/03/28 07:06:48 ziggy Exp $
+
+Copyright (c) 1994 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+(fluid-let ((compiler:coalescing-constant-warnings? #f))
+  (compile-directory "."))
diff --git a/v7/src/wabbit/wabbit.pkg b/v7/src/wabbit/wabbit.pkg
new file mode 100644 (file)
index 0000000..16bea03
--- /dev/null
@@ -0,0 +1,67 @@
+#| -*-Scheme-*-
+
+$Id: wabbit.pkg,v 1.1 1994/03/28 07:06:27 ziggy Exp $
+
+Copyright (c) 1994 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+;;;; Wabbit Hunting / Headhunting System Packaging
+
+(global-definitions "../runtime/runtime")
+
+
+(define-package (gc-wabbits)
+  (files "wabbit")
+  (parent ())
+  (export ()
+         wabbit-hunt
+         wabbit-season!
+         wabbit-season?
+           duck-season!
+           duck-season?
+         cellify
+          get-wabbit-descwiptor
+         make-wabbit-descwiptor
+              wabbit-descwiptor?
+              wabbit-descwiptor/hunt-disable-flag
+              wabbit-descwiptor/wabbit-vector
+              wabbit-descwiptor/wabbit-buffer
+              wabbit-descwiptor/headhunt-enable-flag
+              wabbit-descwiptor/headhunt-collection
+          set-wabbit-descwiptor/hunt-disable-flag!
+          set-wabbit-descwiptor/wabbit-vector!
+          set-wabbit-descwiptor/wabbit-buffer!
+          set-wabbit-descwiptor/headhunt-enable-flag!
+          set-wabbit-descwiptor/headhunt-collection!
+         headhunt
+         *default-fudd-thunk*
+         *default-headhunt-fudd-thunk*
+         *default-headhunt-wabbit-descwiptor*)
+  (initialization (initialize-package!)))
diff --git a/v7/src/wabbit/wabbit.sf b/v7/src/wabbit/wabbit.sf
new file mode 100644 (file)
index 0000000..668f151
--- /dev/null
@@ -0,0 +1,43 @@
+#| -*-Scheme-*-
+
+$Id: wabbit.sf,v 1.1 1994/03/28 07:06:40 ziggy Exp $
+
+Copyright (c) 1994 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+(fluid-let ((sf/default-syntax-table syntax-table/system-internal))
+  (sf-directory "."))
+
+(if (not (name->package '(CROSS-REFERENCE)))
+    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
+
+(cref/generate-constructors "wabbit")
+(sf "wabbit.con" "wabbit.bcon")
+(sf "wabbit.ldr" "wabbit.bldr")