From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 5 Mar 1992 20:30:55 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~9626
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d694c070bad5e27185b9d9a04c2fd3b72b70d800;p=mit-scheme.git

Initial revision
---

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"