#!/usr/bin/env ikarus --r6rs-script

(import (ikarus))

;(define all-benchmarks
;  '(ack array1 bibfreq boyer browse cat compiler conform cpstak ctak dderiv
;    deriv destruc diviter divrec dynamic earley fft fib fibc fibfp
;    fpsum gcbench gcold graphs lattice matrix maze mazefun mbrot
;    nbody nboyer nqueens ntakl nucleic paraffins parsing perm9 peval
;    pi pnpoly primes puzzle quicksort ray sboyer scheme simplex
;    slatex string sum sum1 sumfp sumloop tail tak takl trav1 trav2
;    triangl wc))

(define all-benchmarks
  '(cat tail wc slatex))

        
(define cmd 
  "../src/ikarus -b ../scheme/ikarus.boot --r6rs-script bench.ss ~a")

(for-each 
  (lambda (x) 
    (fprintf (current-error-port) "running ~s\n" x)
    (for-each 
      (lambda (_)
        (unless (zero? (system (format cmd x)))
          (fprintf (current-error-port) "ERROR: ~s failed\n" x)))
      (make-list 5)))
  all-benchmarks)