From 98c04866b207fb334419240681d8da8ac919dcdf Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Fri, 15 Feb 1991 00:51:05 +0000
Subject: [PATCH] Enhance to allow for command line definitions.  This makes it
 easier to share a source that works for pcc, gcc, and Vax-11 C (VMS).

---
 v7/src/microcode/s/ultrix.m4 | 29 ++++++++++++++++++++++++++---
 1 file changed, 26 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/s/ultrix.m4 b/v7/src/microcode/s/ultrix.m4
index 7e926e3b0..a7634fe87 100755
--- a/v7/src/microcode/s/ultrix.m4
+++ b/v7/src/microcode/s/ultrix.m4
@@ -1,4 +1,27 @@
 #!/bin/csh -f
-# $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/s/Attic/ultrix.m4,v 1.3 1990/08/14 18:20:07 cph Rel $
-# Postprocessing to make m4 work correctly under Ultrix.
-cc -E $* | sed -e '/^#/D' | m4 | sed -e 's/@/$/g' -e 's/^$//'
+# $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/s/Attic/ultrix.m4,v 1.4 1991/02/15 00:51:05 jinx Exp $
+# Postprocessing to make m4 work correctly under Ultrix & BSD.
+
+if ($#argv == 0) then
+  sed -e '/^#/D' | m4 | sed -e 's/@/$/g' -e 's/^$//'
+else
+  set tmpfil = "m4.tmp"
+  set seen_input = 0
+  rm -f "$tmpfil"
+  
+  while ($#argv != 0)
+    if ("$argv[1]" == "-P") then
+      echo "$argv[2]" >> "$tmpfil"
+      shift
+    else
+      set seen_input = 1
+      sed -e '/^#/D' < "$argv[1]" >> "$tmpfil"
+    endif
+    shift
+  end
+  if ($seen_input == 0) then
+    sed -e '/^#/D' >> "$tmpfil"
+  endif
+  m4 < "$tmpfil" | sed -e 's/@/$/g' -e 's/^$//'
+  rm -f "$tmpfil"
+endif
-- 
2.25.1