echo "files PASS1"
echo "1 initids"
echo "2 stt"
echo "3 scanner"
echo "4 tmp + scanner "
echo "5 precedence "
echo "6 scan + scan inc"
echo "7 mkappl"
echo "8 mkappl2"
echo "9 outermost_op"
echo "10 single_arg"
echo "11 cand_cond"
echo "12 cor_cond"
echo "------------"
echo "110 TEST init"
echo "111 TEST fact"
echo "112 TEST misc"
echo "113 TEST simp0001"
echo "114 TEST simp0002"
echo "123 TEST simp0011"
echo "124 TEST simp0012"
echo "125 TEST simp0013"
echo "888 NOTES.txt"
echo "999 quit"
echo "select"
read select
while [ $select -ne 999 ]
do 
case $select in
1)  emacs pass1/parser/initids.c pass1/parser/initids.icn;;
2)  emacs pass1/stt/stt.c pass1/stt/stt.icn;;
3) emacs pass1/scanner/scan.c pass1/scanner/scan.icn;; 
4) emacs pass1/scanner/scan.tmp.icn.tmp.icn pass1/scanner/scan.icn;; 
5) emacs pass1/applinfer/precedence.c pass1/applinfer/precedence.icn;;
6) emacs pass1/scanner/scan.icn pass1/scanner/scan_sep_inc.icn ;; 
7) emacs pass1/applinfer/mkappl.c pass1/applinfer/mkappl.icn;;
8) emacs pass1/applinfer/mkappl2.c pass1/applinfer/mkappl2.icn;;
9) emacs pass1/applinfer/outermost_op.c pass1/applinfer/outermost_op.icn;;
10) emacs pass1/applinfer/single_arg.c pass1/applinfer/single_arg.icn;;
11) emacs pass1/applinfer/cand_cond.c pass1/applinfer/cand_cond.icn;;
12) emacs pass1/applinfer/cor_cond.c pass1/applinfer/cor_cond.icn;;

110) ./testinit;;
111) ./testfact;;
112) ./testmisc;;
113) ./testsimp0001;;
114) ./testsimp0002;;
123) ./testsimp0011;;
124) ./testsimp0012;;
125) ./testsimp0013;;
888) emacs NOTES.txt ;;

esac
echo "files PASS1"
echo "1 initids"
echo "2 stt"
echo "3 scanner"
echo "4 tmp + scanner "
echo "5 precedence "
echo "6 scan + scan inc"
echo "7 mkappl"
echo "8 mkappl2"
echo "9 outermost_op"
echo "10 single_arg"
echo "11 cand_cond"
echo "12 cor_cond"
echo "-----------"
echo "110 TEST init"
echo "111 TEST fact"
echo "112 TEST misc"
echo "113 TEST simp0001"
echo "114 TEST simp0002"
echo "123 TEST simp0011"
echo "124 TEST simp0012"
echo "125 TEST simp0013"
echo "888 NOTES.txt"

echo "999 quit"
echo "select"
read select
done
