fi
fi
-kod_files="kod.c kodecosdll.c"
-
-if ( echo $* | grep keep\-kod > /dev/null ) ; then
- keep_these_too="${kod_files} ${keep_these_too}"
- if [ -n "${verbose}" ] ; then
- echo Keeping ${kod_files}
- fi
-else
- lose_these_too="${kod_files} ${lose_these_too}"
- if [ -n "${verbose}" ] ; then
- echo Deleting ${kod_files}
- fi
-fi
+#kod_files="kod.c kodecosdll.c"
+#
+#if ( echo $* | grep keep\-kod > /dev/null ) ; then
+# keep_these_too="${kod_files} ${keep_these_too}"
+# if [ -n "${verbose}" ] ; then
+# echo Keeping ${kod_files}
+# fi
+#else
+# lose_these_too="${kod_files} ${lose_these_too}"
+# if [ -n "${verbose}" ] ; then
+# echo Deleting ${kod_files}
+# fi
+#fi
tic80_files="tic80-tdep.c"
done
fi
-if ( echo $* | grep keep\-kod > /dev/null ) ; then
- for i in * ; do
- if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
- if [ -n "${verbose}" ] ; then
- echo Keeping kod stuff in $i
- fi
- fi
- done
-else
- for i in * ; do
- if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
- if [ -n "${verbose}" ] ; then
- echo Removing traces of \"kod\" from $i...
- fi
- cp $i new
- sed '/start\-sanitize\-kod/,/end-\sanitize\-kod/d' < $i > new
- if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
- if [ -n "${verbose}" ] ; then
- echo Caching $i in .Recover...
- fi
- mv $i .Recover
- fi
- mv new $i
- fi
- done
-fi
+#if ( echo $* | grep keep\-kod > /dev/null ) ; then
+# for i in * ; do
+# if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
+# if [ -n "${verbose}" ] ; then
+# echo Keeping kod stuff in $i
+# fi
+# fi
+# done
+#else
+# for i in * ; do
+# if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
+# if [ -n "${verbose}" ] ; then
+# echo Removing traces of \"kod\" from $i...
+# fi
+# cp $i new
+# sed '/start\-sanitize\-kod/,/end-\sanitize\-kod/d' < $i > new
+# if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
+# if [ -n "${verbose}" ] ; then
+# echo Caching $i in .Recover...
+# fi
+# mv $i .Recover
+# fi
+# mv new $i
+# fi
+# done
+#fi
# This is a temporary measure to sanitize out references to the
# startup code need by the TclPro debugger. When that goes out