echo "19 appl"
echo "20 cl_analyze"
echo "21 closures.doc"
echo "22 codegen"
echo "23 compile_decl"
echo "24 compile_stubs"
echo "25 display"
echo "26 find_inline"
echo "27 ident"
echo "28 is_int_const"
echo "29 op_codes"
echo "30 sl_analyze"
echo "31 trace"
echo "32 traverse"
echo "33 type_constr"
echo "34 var_in_reg"
echo "35 codegen_str.inc"
echo "36 drefops"
echo "37 find_inline"


echo "------------"
echo "files PASS5d"
echo "------------"
echo "1 RIC"
echo "2 display"
echo "3 find_inline"
echo "4 ident"
echo "5 is_int_const"
echo "6 op_codes"
echo "7 sl_analyze"
echo "8 trace"
echo "9 traverse"
echo "10 type_constr"
echo "11 var_in_reg"
echo "12 codegen"
echo "13 codegen_str.inc"
echo "14 find_inline"

echo "15 appl"
echo "16 cl_analyze"
echo "17 closures.doc"
echo "18 compile_decl"
echo "19 compile_stubs"
echo "20 display"
echo "21 find_inline"

echo "------------"

echo "111 TEST fact"
echo "112 TEST misc"
echo "113 TEST simp0001"
echo "114 TEST simp0002"

echo "999 quit"
echo "select"
read select
while [ $select -ne 999 ]
do 
case $select in
1) emacs pass5d/RIC.c pass5d/RIC.icn;;
2) emacs pass5d/display.c pass5d/display.icn;;
3) emacs pass5d/find_inline.c pass5d/find_inline.icn;;
4) emacs pass5d/ident.c pass5d/ident.icn;;
5) emacs pass5d/is_int_const.c pass5d/is_int_const.icn;;
6) emacs pass5d/op_codes.c pass5d/op_codes.icn;;
7) emacs pass5d/sl_analyze.c pass5d/sl_analyze.icn;;
8) emacs pass5d/trace.c pass5d/trace.icn;;
9) emacs pass5d/traverse.c pass5d/traverse.icn;;
10) emacs pass5d/type_constr.c pass5d/type_constr.icn;;
11) emacs pass5d/var_in_reg.c pass5d/var_in_reg.icn;;
12) emacs pass5d/codegen.c pass5d/codegen.icn;;
13) emacs pass5d/codegen.c pass5d/codegen_str.inc.icn;;
14) emacs pass5d/find_inline.c pass5d/find_inline.icn;;
15) emacs pass5d/appl.c pass5d/appl.icn;;
16) emacs pass5d/cl_analyze.c pass5d/cl_analyze.icn;;
17) emacs pass5d/closures.doc.c pass5d/closures.doc.icn;;
18) emacs pass5d/compile_decl.c pass5d/compile_decl.icn;;
19) emacs pass5d/compile_stubs.c pass5d/compile_stubs.icn;;
20) emacs pass5d/display.c pass5d/display.icn;;
21) emacs pass5d/find_inline.c pass5d/find_inline.icn;;

111) ./testfact;;
112) ./testmisc;;
113) ./testsimp0001;;
114) ./testsimp0002;;
123) ./testsimp0011;;
124) ./testsimp0012;;
125) ./testsimp0013;;

esac
echo "------------"
echo "files"
echo "------------"
echo "1 RIC"
echo "2 display"
echo "3 find_inline"
echo "4 ident"
echo "5 is_int_const"
echo "6 op_codes"
echo "7 sl_analyze"
echo "8 trace"
echo "9 traverse"
echo "10 type_constr"
echo "11 var_in_reg"
echo "12 codegen"
echo "13 codegen_str.inc"
echo "14 find_inline"
echo "15 appl"
echo "16 cl_analyze"
echo "17 closures.doc"
echo "18 compile_decl"
echo "19 compile_stubs"
echo "20 display"
echo "21 find_inline"
echo "------------"

echo "111 TEST fact"
echo "112 TEST misc"
echo "113 TEST simp0001"
echo "114 TEST simp0002"


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