From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Jul 1989 19:26:33 +0000 (+0000)
Subject: Create directories when needed.  Change loop to find all
X-Git-Tag: 20090517-FFI~11937
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=be687d36320b6d790483c6649e5991e00ee378c9;p=mit-scheme.git

Create directories when needed.  Change loop to find all
subdirectories and convert all normal files within those
subdirectories (I hope this works on all unix variants).
---

diff --git a/etc/make_bin b/etc/make_bin
index 1d74bb9ba..276bda93f 100755
--- a/etc/make_bin
+++ b/etc/make_bin
@@ -7,10 +7,16 @@ if (! -e $scheme/microcode/Psbtobin ) then
 endif
 
 cd $scheme/psb
-foreach i (*)
+foreach i (`find * -type d -print | xargs echo`)
+  if (! -d $scheme/$i) then
+    echo "mkdir $scheme/$i"
+    mkdir $scheme/$i
+  endif
   cd $scheme/psb/$i
   foreach j (*)
-    echo "Psbtobin $scheme/$i/$j"
-    $scheme/microcode/Psbtobin < $j >! $scheme/$i/$j
+    if (-f $j) then
+      echo "Psbtobin $scheme/$i/$j"
+      $scheme/microcode/Psbtobin < $j >! $scheme/$i/$j
+    endif
   end
 end