From 095840bcbbbd3fdd952a64c605b173d3c0d37b1e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Dec 1990 23:48:36 +0000
Subject: [PATCH] Rewrite for 7.1.0 release.

---
 etc/make_psb | 58 +++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 41 insertions(+), 17 deletions(-)

diff --git a/etc/make_psb b/etc/make_psb
index d5debef0e..11a6b2479 100755
--- 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
-- 
2.25.1