Rewrite for 7.1.0 release.

diff --git a/etc/make_psb b/etc/make_psb
index d5debef0e740b895b91675aa35148e8254d8ab35..11a6b247961944cebecef6e773981a67d9e3353d 100755 (executable)
--- a/etc/make_psb
+++ b/etc/make_psb
@@ -1,21 +1,45 @@
-#!/bin/csh -f
+#!/bin/sh
 
-set scheme=`pwd`
+scheme=`pwd`
 
-if (! -e $scheme/microcode/Bintopsb ) then
-  (cd $scheme/microcode; make Bintopsb)
-endif
+if [ ! -x microcode/Bintopsb ]
+then
+  (cd microcode; make Bintopsb)
+fi
 
-cd $scheme/runtime
-foreach i (*.bin)
-  if (("$i" != "scheme.bin") && ("$i" != "sicp.bin")) then
-    echo "Bintopsb $scheme/runtime/$i"
-    $scheme/microcode/Bintopsb <$i >$i:r.psb
-  endif
-end
+if [ ! -d psb ]
+then
+  echo "mkdir psb"
+  mkdir psb
+fi
 
-cd $scheme/sf
-foreach i (*.bin)
-  echo "Bintopsb $scheme/sf/$i"
-  $scheme/microcode/Bintopsb <$i >$i:r.psb
-end
+if [ ! -d psb/lib ]
+then
+  echo "mkdir psb/lib"
+  mkdir psb/lib
+fi
+echo "Bintopsb lib/utabmd.bin"
+./microcode/Bintopsb < microcode/utabmd.bin > psb/lib/utabmd.bin
+
+for i in runtime sf cref
+do
+  if [ ! -d psb/$i ]
+  then
+    echo "mkdir psb/$i"
+    mkdir psb/$i
+  fi
+  if [ $i = runtime ]
+  then
+    ii=runtim
+  else
+    ii=$i
+  fi
+  (
+    cd $i
+    for j in *.bin $ii.bcon $ii.bldr
+    do
+      echo "Bintopsb $i/$j"
+      ../microcode/Bintopsb < $j > ../psb/$i/$j
+    done
+  )
+done