From 1eade4ac9d64e0d8bf3a7867072e84fe823a84e0 Mon Sep 17 00:00:00 2001
From: sater <none@none>
Date: Thu, 19 Jul 1984 11:50:18 +0000
Subject: [PATCH] Initial revision

---
 util/shf/march.sh | 50 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 util/shf/march.sh

diff --git a/util/shf/march.sh b/util/shf/march.sh
new file mode 100755
index 000000000..9d52b57a9
--- /dev/null
+++ b/util/shf/march.sh
@@ -0,0 +1,50 @@
+: '$Header$'
+
+case $# in
+3) makecmd=$3 ;;
+2) makecmd=comparchentry ;;
+*) echo "Usage: $0 srcdir archname [ makecmd ]"; exit 1 ;;
+esac
+
+errors=no
+if test -r $1/LIST
+then
+  <$1/LIST (
+    read archname
+    if test -r $1/$archname
+    then 
+      arch x $1/$archname
+      for file in `arch t $1/$archname`
+      do
+	suffix=`expr $file : '.*\(\..*\)'`
+	ofile=`$makecmd $file $suffix`
+	if test $? != 0
+	then errors=yes
+	fi
+	rm $file
+	OFILES="$OFILES $ofile"
+      done
+    else
+      while read file
+      do
+	suffix=`expr $file : '.*\(\..*\)'`
+	ofile=`$makecmd $1/$file $suffix`
+	if test $? != 0
+	then errors=yes
+	fi
+	OFILES="$OFILES $ofile"
+      done
+    fi
+    if test $errors = no
+    then
+      arch cr $2 $OFILES
+      rm $OFILES
+    else
+      echo $2 not made, due to compilation errors
+      exit 1
+    fi
+  )
+else
+  echo no LIST file in directory $1
+  exit 1
+fi
-- 
2.34.1