add psyntax as a kind of realistic-program benchmark (I'd like to have more)

svn: r17298

collects/tests/mzscheme/benchmarks/common/auto.ss

@@ -317,6 +317,9 @@ exec mzscheme -qu "$0" ${1+"$@"}
       takr2
       triangle))
 
+  (define extra-benchmarks
+    '(psyntax))
+
   (define (run-benchmark impl bm)
     (let ([i (ormap (lambda (i)
                       (and (eq? impl (impl-name i))
@@ -349,6 +352,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
                   actual-implementations-to-run 
                   num-iterations)
     (process-command-line benchmarks
+                          extra-benchmarks
                           (map impl-name impls) obsolte-impls
                           3))
 

collects/tests/mzscheme/benchmarks/common/cmdline.ss

@@ -14,6 +14,7 @@
   (define current-output-file (make-parameter #f))
   
   (define (process-command-line benchmarks 
+                                extra-benchmarks
                                 implementations non-default-implementations
                                 num-iterations)
     
@@ -50,7 +51,10 @@
          (printf "Benchmarks:\n")
          (for-each (lambda (bm)
                      (printf " ~a\n" bm))
-                   benchmarks)]
+                   benchmarks)
+         (for-each (lambda (bm)
+                     (printf " ~a (not run by default)\n" bm))
+                   extra-benchmarks)]
         [("-o" "--out") filename "append output to <filename>"
          (current-output-file filename)]
         [("-n" "--iters") n "set number of run iterations"
@@ -80,7 +84,8 @@
                          (remq (cdr a)
                                (or run-implementations default-implementations)))
                    (loop (cdr args)))]
-             [(memq s benchmarks)
+             [(or (memq s benchmarks)
+                  (memq s extra-benchmarks))
               =>
               (lambda (l)
                 (let* ([...? (and (pair? (cdr args))

collects/tests/mzscheme/benchmarks/common/psyntax.ss

@@ -0,0 +1,5 @@
+#lang r5rs
+(#%require scheme/include
+           (only scheme/base time))
+(include "psyntax.sch")
+