Initial revision

diff --git a/v8/src/bench/bench.cbf b/v8/src/bench/bench.cbf
new file mode 100644 (file)
index 0000000..6c4ccfd
--- /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 (file)
index 0000000..cc1e386
--- /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 (file)
index 0000000..ee80648
--- /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