compile-examples

#!/bin/tcsh -f
unlimit stack
setenv SCMAXHEAP 1700
~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny <<EOF
(compiler-switches 'fast-unsafe)
(compile-file "common-larceny.scm")
EOF
~/schemes/install/scmutils/mit-scheme/bin/scheme\
  --library ~/schemes/install/scmutils/mit-scheme/lib\
  --heap 6000\
  --band edwin-mechanics.com\
  <<EOF
(cf "common-scmutils")
EOF
ghc -O common-ghc.hs
mv common-ghc.hi Common.hi
# -no-clone-size-limit breaks this example under etch and sarge
/usr/bin/stalin -db -d\
       -Ob -Om -On -Or -Ot\
       -copt -O3\
       -copt -freg-struct-return\
       -copt -fomit-frame-pointer\
       -copt -ffast-math\
       saddle-stalin.sc
scc -o saddle-s2c -Ob -Og -Ot -O2 saddle-s2c.sc
rm -f saddle-s2c.c
csc -disable-interrupts\
    -debug-level 0\
    -block\
    -lambda-lift\
    -optimize-leaf-routines\
    -unsafe\
    -O3\
    saddle-chicken.sc
# -Obench -O6 give compiler error -fstack not accepted
bigloo -unsafe -O5\
       -copt "-O3 -freg-struct-return -fomit-frame-pointer -ffast-math"\
       -o saddle-bigloo -suffix sc saddle-bigloo.sc
rm -f saddle-bigloo.o
~/schemes/install/4.0b22/bin/gsc -link saddle-gambit.sc
gcc -I ~/schemes/install/4.0b22/include/\
    -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -D___SINGLE_HOST\
    -o saddle-gambit\
    saddle-gambit.c saddle-gambit_.c\
    -L ~/schemes/install/4.0b22/lib/ -lgambc -lm -ldl -lutil
rm -f saddle-gambit.c saddle-gambit_.c
~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny <<EOF
(compiler-switches 'fast-unsafe)
(load "common-larceny.fasl")
(compile-file "saddle-larceny.scm")
EOF
mzc --unsafe-disable-interrupts\
    --unsafe-skip-tests\
    --unsafe-fixnum-arithmetic\
    --exe saddle-mzc saddle-mzc.ss
~/schemes/install/scmutils/mit-scheme/bin/scheme\
  --library ~/schemes/install/scmutils/mit-scheme/lib\
  --heap 6000\
  --band edwin-mechanics.com\
  <<EOF
(load "common-scmutils")
(cf "saddle-scmutils")
EOF
cat {common,saddle}-mlton.sml >foo.sml
mlton foo.sml
rm -f foo.sml
mv foo saddle-mlton
schroot --chroot i386-sid sml common-smlnj.sml saddle-smlnj.sml <<EOF
SMLofNJ.exportFn ("saddle-smlnj",saddle);
EOF
cat {common,saddle}-ocaml.ml >foo.ml
ocamlopt -inline 100 -ffast-math -o foo foo.ml
rm -f foo.ml
rm -f foo.{cmi,cmx,o}
mv foo saddle-ocaml
ghc -o saddle-ghc -O common-ghc.o saddle-ghc.hs
rm -f saddle-ghc.{hi,o}
g++ -I ~/pkg/FADBAD++\
    -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -o saddle-fadbad++\
    saddle-fadbad++.cpp
Adifor2.1 AD_SCRIPT=saddle-adifor1.adf
Adifor2.1 AD_SCRIPT=saddle-adifor2.adf
gfortran -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -o saddle-adifor1000\
    saddle-adifor1000.f saddle-adifor1.f saddle-adifor2.f common-adifor.f\
    g_saddle-adifor1.f h_common-adifor.f h_g_saddle-adifor1.f\
    h_saddle-adifor1.f h_saddle-adifor2.f\
    $AD_LIB/lib/ReqADIntrinsics-$AD_OS.o $AD_LIB/lib/libADIntrinsics-$AD_OS.a
rm -f *.{A,aux} *~ .*.f
rm -rf AD_cache
rm -f g_saddle-adifor1.f h_common-adifor.f h_g_saddle-adifor1.f\
      h_saddle-adifor1.f h_saddle-adifor2.f
rm -f DIFFSIZES.inc
tapenade -root inner\
         -d -multi -o saddle-tapenade\
         -diffvarname "_g" -difffuncname "_g"\
         common-tapenade.f saddle-tapenade.f
cp saddle-tapenade-DIFFSIZES1.inc DIFFSIZES.inc
tapenade -root outer\
         -d -multi -o saddle-tapenade\
         -diffvarname "_h" -difffuncname "_h"\
         common-tapenade.f saddle-tapenade.f saddle-tapenade_gv.f
cp saddle-tapenade-DIFFSIZES2.inc DIFFSIZES.inc
rm -f foo.f
sed -f saddle-tapenade.sed <saddle-tapenade_hv.f >foo.f
mv foo.f saddle-tapenade_hv.f
gfortran -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -o saddle-tapenade1000\
    common-tapenade.f\
    saddle-tapenade1000.f saddle-tapenade_gv.f saddle-tapenade_hv.f
rm -f DIFFSIZES.inc saddle-tapenade_{g,h}v.{f,msg}
stalingrad -no-assert -compile -sra -inline -alias\
           -copt -O3\
           -copt -march=k8\
           -copt -mfpmath=sse\
           -copt -fomit-frame-pointer\
           -copt -ffast-math\
           saddle-stalingrad1000
# -no-clone-size-limit breaks this example under etch and sarge
/usr/bin/stalin -db -d\
       -Ob -Om -On -Or -Ot\
       -copt -O3\
       -copt -freg-struct-return\
       -copt -fomit-frame-pointer\
       -copt -ffast-math\
       particle-stalin.sc
scc -o particle-s2c -Ob -Og -Ot -O3 particle-s2c.sc
rm -f particle-s2c.c
csc -disable-interrupts\
    -debug-level 0\
    -block\
    -lambda-lift\
    -optimize-leaf-routines\
    -unsafe\
    -O3\
    particle-chicken.sc
# -Obench -O6 give compiler error -fstack not accepted
bigloo -unsafe -O5\
       -copt "-O3 -freg-struct-return -fomit-frame-pointer -ffast-math"\
       -o particle-bigloo -suffix sc particle-bigloo.sc
rm -f particle-bigloo.o
~/schemes/install/4.0b22/bin/gsc -link particle-gambit.sc
gcc -I ~/schemes/install/4.0b22/include/\
    -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -D___SINGLE_HOST\
    -o particle-gambit\
    particle-gambit.c particle-gambit_.c\
    -L ~/schemes/install/4.0b22/lib/ -lgambc -lm -ldl -lutil
rm -f particle-gambit.c particle-gambit_.c
~/schemes/install/larceny-0.93-bin-native-ia32-linux86/larceny <<EOF
(compiler-switches 'fast-unsafe)
(load "common-larceny.fasl")
(compile-file "particle-larceny.scm")
EOF
mzc --unsafe-disable-interrupts\
    --unsafe-skip-tests\
    --unsafe-fixnum-arithmetic\
    --exe particle-mzc particle-mzc.ss
~/schemes/install/scmutils/mit-scheme/bin/scheme\
  --library ~/schemes/install/scmutils/mit-scheme/lib\
  --heap 6000\
  --band edwin-mechanics.com\
  <<EOF
(load "common-scmutils")
(cf "particle-scmutils")
EOF
cat {common,particle}-mlton.sml >foo.sml
mlton foo.sml
rm -f foo.sml
mv foo particle-mlton
schroot --chroot i386-sid sml common-smlnj.sml particle-smlnj.sml <<EOF
SMLofNJ.exportFn ("particle-smlnj",particle);
EOF
cat {common,particle}-ocaml.ml >foo.ml
ocamlopt -inline 100 -ffast-math -o foo foo.ml
rm -f foo.ml
rm -f foo.{cmi,cmx,o}
mv foo particle-ocaml
ghc -o particle-ghc -O common-ghc.o particle-ghc.hs
rm -f particle-ghc.{hi,o}
g++ -I ~/pkg/FADBAD++\
    -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -o particle-fadbad++\
    particle-fadbad++.cpp
Adifor2.1 AD_SCRIPT=particle-adifor1.adf
Adifor2.1 AD_SCRIPT=particle-adifor2.adf
gfortran -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -o particle-adifor1000\
    particle-adifor1000.f particle-adifor1.f particle-adifor2.f\
    common-adifor.f\
    g_common-adifor.f h_common-adifor.f h_g_common-adifor.f\
    g_particle-adifor1.f h_g_particle-adifor1.f h_particle-adifor2.f\
    $AD_LIB/lib/ReqADIntrinsics-$AD_OS.o $AD_LIB/lib/libADIntrinsics-$AD_OS.a
rm -f *.{A,aux} *~ .*.f
rm -rf AD_cache
rm -f g_common-adifor.f h_common-adifor.f h_g_common-adifor.f\
      g_particle-adifor1.f h_g_particle-adifor1.f h_particle-adifor2.f
rm -f DIFFSIZES.inc
tapenade -root p\
         -d -multi -o particle-tapenade\
         -diffvarname "_g" -difffuncname "_g"\
         common-tapenade.f particle-tapenade.f
cp particle-tapenade-DIFFSIZES1.inc DIFFSIZES.inc
tapenade -root naive_euler\
         -d -multi -o particle-tapenade\
         -diffvarname "_h" -difffuncname "_h"\
         common-tapenade.f particle-tapenade.f particle-tapenade_gv.f
cp particle-tapenade-DIFFSIZES2.inc DIFFSIZES.inc
rm -f foo.f
sed -f particle-tapenade.sed <particle-tapenade_hv.f >foo.f
mv foo.f particle-tapenade_hv.f
gfortran -O3\
    -march=k8\
    -mfpmath=sse\
    -fomit-frame-pointer\
    -ffast-math\
    -o particle-tapenade1000\
    common-tapenade.f\
    particle-tapenade1000.f particle-tapenade_gv.f particle-tapenade_hv.f
rm -f DIFFSIZES.inc particle-tapenade_{g,h}v.{f,msg}
stalingrad -no-assert -compile -sra -inline -alias\
           -copt -O3\
           -copt -march=k8\
           -copt -mfpmath=sse\
           -copt -fomit-frame-pointer\
           -copt -ffast-math\
           particle-stalingrad1000
rm -f Common.hi common-ghc.o
Generated by GNU enscript 1.6.4.