From 84e234dda4b0c181a6a801477ef3a6296f79103d Mon Sep 17 00:00:00 2001
From: "Sunrin SHIMURA (keen)" <3han5chou7@gmail.com>
Date: Sun, 18 Jan 2015 04:39:43 +0000
Subject: [PATCH] add picrin to benchmarkable system

---
 etc/R7RS/bench | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/etc/R7RS/bench b/etc/R7RS/bench
index 553c27e2..5a2ca793 100755
--- a/etc/R7RS/bench
+++ b/etc/R7RS/bench
@@ -96,6 +96,7 @@ setup ()
   FOMENT=${FOMENT:-"foment"}
   HUSK=${HUSK:-"huski"}
   CHIBI=${CHIBI:-"chibi-scheme"}
+  PICRIN=${PICRIN:-"picrin"}
 }
 
 setup
@@ -112,6 +113,7 @@ Usage: bench [-r runs] <system> <benchmark>
 
   sagittarius      for Sagittarius Scheme
   gauche           for Gauche Scheme
+  picrin           for picrin Scheme
   all              for all of the above
 
 <benchmark> is the name of the benchmark(s) to run:
@@ -234,6 +236,20 @@ chibi_exec ()
 
 # -----------------------------------------------------------------------------
 
+# -----------------------------------------------------------------------------
+# Definitions specific to picrin Scheme
+
+picrin_comp ()
+{
+  :
+}
+
+picrin_exec ()
+{
+  time "${PICRIN}" "$1" < "$2"
+}
+
+
 ## Arg processing...
 if [ "$#" -lt 2 ]; then
   error '>>> At least two command line arguments are needed'
@@ -326,6 +342,16 @@ sagittarius)NAME='Sagittarius'
 	    EXECCOMMANDS=""
             ;;
 
+       picrin)NAME='picrin'
+            COMP=picrin_comp
+            EXEC=picrin_exec
+            COMPOPTS=""
+            EXTENSION="sch"
+            EXTENSIONCOMP="sch"
+	    COMPCOMMANDS=""
+	    EXECCOMMANDS=""
+            ;;
+
    esac
 
    {