From d694c070bad5e27185b9d9a04c2fd3b72b70d800 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 5 Mar 1992 20:30:55 +0000
Subject: [PATCH] Initial revision

---
 v7/src/microcode/s/dos.m4 | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 v7/src/microcode/s/dos.m4

diff --git a/v7/src/microcode/s/dos.m4 b/v7/src/microcode/s/dos.m4
new file mode 100755
index 000000000..3fbc8f295
--- /dev/null
+++ b/v7/src/microcode/s/dos.m4
@@ -0,0 +1,24 @@
+#!/bin/csh -f
+# $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/s/Attic/dos.m4,v 1.1 1992/03/05 20:30:55 jinx Exp $
+# Postprocessing to get valid dos assembly language from cmpaux-i386.m4
+
+set tmpfil = "m4.tmp"
+set seen_input = 0
+rm -f "$tmpfil"
+
+echo "define(DOS,1)" >> "$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"
-- 
2.25.1