run-examples1

#!/bin/tcsh -f
unlimit stack
set runs=(0 1 2)
foreach run ($runs)
  echo saddle Stalin $run
  time ./saddle-stalin
  end
foreach run ($runs)
  echo saddle "Scheme->C" $run
  time ./saddle-s2c
  end
foreach run ($runs)
  echo saddle Chicken $run
  time ./saddle-chicken
  end
foreach run ($runs)
  echo saddle Bigloo $run
  time ./saddle-bigloo
  end
foreach run ($runs)
  echo saddle Gambit $run
  time ./saddle-gambit
  end
foreach run ($runs)
  echo saddle Larceny $run
  ~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny <<EOF
(load "common-larceny.fasl")
(load "saddle-larceny.fasl")
(time (saddle))
EOF
  end
foreach run ($runs)
  echo saddle Ikarus $run
  ~/schemes/install/bin/ikarus <<EOF
(load "common-ikarus.scm")
(load "saddle-ikarus.scm")
(time (saddle))
EOF
  end
foreach run ($runs)
  echo saddle MzC $run
  time ./saddle-mzc
  end
foreach run ($runs)
  echo saddle MzScheme $run
  time mzscheme -f common-mzscheme.ss -f saddle-mzscheme.ss -e "(saddle)" -v
  end
foreach run ($runs)
  echo saddle Scmutils $run
  ~/schemes/install/scmutils/mit-scheme/bin/scheme\
    --library ~/schemes/install/scmutils/mit-scheme/lib\
    --heap 6000\
    --band edwin-mechanics.com\
    <<EOF
(load "common-scmutils")
(load "saddle-scmutils")
(with-timings
 (lambda () (saddle))
 (lambda (run-time gc-time real-time)
  (display "Timings: ")
  (write (internal-time/ticks->seconds run-time))
  (write-char #\space)
  (write (internal-time/ticks->seconds gc-time))
  (write-char #\space)
  (write (internal-time/ticks->seconds real-time))
  (newline)))
EOF
  end
foreach run ($runs)
  echo saddle MLton $run
  time ./saddle-mlton
  end
foreach run ($runs)
  echo saddle SML/NJ $run
  time schroot --chroot i386-sid sml @SMLload=saddle-smlnj.x86-linux
  end
foreach run ($runs)
  echo saddle OCaml $run
  time ./saddle-ocaml
  end
foreach run ($runs)
  echo saddle GHC $run
  time ./saddle-ghc
  end
foreach run ($runs)
  echo saddle FADBAD++ $run
  time ./saddle-fadbad++
  end
foreach run ($runs)
  echo saddle ADIFOR $run
  time ./saddle-adifor1000
  end
foreach run ($runs)
  echo saddle Tapenade $run
  time ./saddle-tapenade1000
  end
foreach run ($runs)
  echo saddle Stalingrad $run
  time ./saddle-stalingrad1000
  end
foreach run ($runs)
  echo particle Stalin $run
  time ./particle-stalin
  end
foreach run ($runs)
  echo particle "Scheme->C" $run
  time ./particle-s2c
  end
foreach run ($runs)
  echo particle Chicken $run
  time ./particle-chicken
  end
foreach run ($runs)
  echo particle Bigloo $run
  time ./particle-bigloo
  end
foreach run ($runs)
  echo particle Gambit $run
  time ./particle-gambit
  end
foreach run ($runs)
  echo particle Larceny $run
  ~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny <<EOF
(load "common-larceny.fasl")
(load "particle-larceny.fasl")
(time (particle))
EOF
  end
foreach run ($runs)
  echo particle Ikarus $run
  ~/schemes/install/bin/ikarus <<EOF
(load "common-ikarus.scm")
(load "particle-ikarus.scm")
(time (particle))
EOF
  end
foreach run ($runs)
  echo particle MzC $run
  time ./particle-mzc
  end
foreach run ($runs)
  echo particle MzScheme $run
  time mzscheme -f common-mzscheme.ss -f particle-mzscheme.ss -e "(particle)" -v
  end
foreach run ($runs)
  echo particle Scmutils $run
  ~/schemes/install/scmutils/mit-scheme/bin/scheme\
    --library ~/schemes/install/scmutils/mit-scheme/lib\
    --heap 6000\
    --band edwin-mechanics.com\
    <<EOF
(load "common-scmutils")
(load "particle-scmutils")
(with-timings
 (lambda () (particle))
 (lambda (run-time gc-time real-time)
  (display "Timings: ")
  (write (internal-time/ticks->seconds run-time))
  (write-char #\space)
  (write (internal-time/ticks->seconds gc-time))
  (write-char #\space)
  (write (internal-time/ticks->seconds real-time))
  (newline)))
EOF
  end
foreach run ($runs)
  echo particle MLton $run
  time ./particle-mlton
  end
foreach run ($runs)
  echo particle SML/NJ $run
  time schroot --chroot i386-sid sml @SMLload=particle-smlnj.x86-linux
  end
foreach run ($runs)
  echo particle OCaml $run
  time ./particle-ocaml
  end
foreach run ($runs)
  echo particle GHC $run
  time ./particle-ghc
  end
foreach run ($runs)
  echo particle FADBAD++ $run
  time ./particle-fadbad++
  end
foreach run ($runs)
  echo particle ADIFOR $run
  time ./particle-adifor1000
  end
foreach run ($runs)
  echo particle Tapenade $run
  time ./particle-tapenade1000
  end
foreach run ($runs)
  echo particle Stalingrad $run
  time ./particle-stalingrad1000
  end