#!/bin/sh

# script zum erzeugen der eps Bilder

k=`echo $1 | sed 's/\.f/.bas/g'`
echo 'creating '$k

cat $1 | sed 's/^[cC]/rem/g' \
       | sed '1 s/\.f/.bas/g' \
       | sed 's/        INCLUDE "japi.f"//g' \
       | sed 's/        integer.*$//g' \
       | sed 's/        character.*$//g' \
       | sed 's/        logical.*$//g' \
       | sed 's/call.//g' \
       | sed 's/continue//g' \
       | sed 's/ \.not\. j_start()/ j_start() = J_FALSE /g' \
       | sed 's/write(\*,\*)/print/g' \
       | sed 's/frame/jframe/g' \
       | sed 's/j_jframe/j_frame/g' \
       | sed 's/label/jlabel/g' \
       | sed 's/j_jlabel/j_label/g' \
       | sed 's/color/jcolor/g' \
       | sed 's/setjcolor/setcolor/g' \
       | sed 's/namedjcolor/namedcolor/g' \
       | sed 's/\.eq\./\=/g' \
       | sed 's/\.or\./or/g' \
       | sed 's/\.ne\./\<\>/g' \
       | sed 's/\.gt\./\>/g' \
       | sed 's/\.lt\./\</g' \
       | sed 's/\.true\./J_TRUE/g' \
       | sed 's/\.false\./J_FALSE/g' \
       | sed 's/\;//g' \
> $k