From 49eb7f8d5c10c2b322ee66b8611068ffcc5cce5a Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 28 Feb 1995 01:29:41 +0000
Subject: [PATCH] Initial revision

---
 v8/src/bench/bench.cbf | 25 +++++++++++++++++++++++
 v8/src/bench/bench.pkg | 46 ++++++++++++++++++++++++++++++++++++++++++
 v8/src/bench/bench.sf  | 11 ++++++++++
 3 files changed, 82 insertions(+)
 create mode 100644 v8/src/bench/bench.cbf
 create mode 100644 v8/src/bench/bench.pkg
 create mode 100644 v8/src/bench/bench.sf

diff --git a/v8/src/bench/bench.cbf b/v8/src/bench/bench.cbf
new file mode 100644
index 000000000..6c4ccfd7a
--- /dev/null
+++ b/v8/src/bench/bench.cbf
@@ -0,0 +1,25 @@
+;; -*- SCheme -*-
+
+(cbf '("library"
+
+       "boyer"
+       "browse"
+       "conform"
+       "cpstak"
+       "ctak"
+       "dderiv"
+       "deriv"
+       "destruct"
+       "div"
+       ;;"earley"
+       "fib"
+       ;;"flatten"
+       "matmul1"
+       "matmul2"
+       "peval"
+       "puzzle"
+       "tak"
+       "takl"
+       "traverse"
+       "triangle"))
+
diff --git a/v8/src/bench/bench.pkg b/v8/src/bench/bench.pkg
new file mode 100644
index 000000000..cc1e3869f
--- /dev/null
+++ b/v8/src/bench/bench.pkg
@@ -0,0 +1,46 @@
+;; -*- Scheme -*-
+;;
+;; This file is really for generating the cross reference so we can find
+;; the free variables of the benchmarks.
+
+(define-package (benchmarks)
+  (parent ())
+  (files "boyer.scm"
+	 "browse.scm"
+	 "conform.scm"
+	 "cpstak.scm"
+	 "ctak.scm"
+	 "dderiv.scm"
+	 "deriv.scm"
+	 "destruct.scm"
+	 "div.scm"
+	 "earley.scm"
+	 "fib.scm"
+	 "flatten.scm"
+	 "library.scm"
+	 "matmul1.scm"
+	 "matmul2.scm"
+	 "peval.scm"
+	 "puzzle.scm"
+	 ;;"run.scm"
+	 "tak.scm"
+	 "takl.scm"
+	 "traverse.scm"
+	 "triangle.scm")
+
+  ;; We import only those procedures too hard to put in library.scm or too
+  ;; inconsequential to performance to bother.
+  (import ()
+	  call-with-current-continuation ; hard
+	  display			; not used much
+	  error				; not called in normal execution
+	  error:bad-range-argument	; used in library.scm
+	  error:wrong-type-argument	; used in library.scm
+	  fixed-objects-item		; library initialization
+	  make-entity			; ""
+	  newline			; not used much
+	  string=?
+	  symbol?			; 
+	  write				; not used much
+	  ))
+	
\ No newline at end of file
diff --git a/v8/src/bench/bench.sf b/v8/src/bench/bench.sf
new file mode 100644
index 000000000..ee8064837
--- /dev/null
+++ b/v8/src/bench/bench.sf
@@ -0,0 +1,11 @@
+;; -*-Scheme-*-
+;;
+;; This file is really for generating the cross reference so we can find
+;; the free variables of the benchmarks.
+
+(sf-directory ".")
+
+(load-option 'CREF)
+(cref/generate-constructors "bench")
+;;(sf "bench.con")
+;;(sf "bench.ldr")
\ No newline at end of file
-- 
2.25.1