From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 24 Aug 1992 15:18:30 +0000 (+0000)
Subject: Make dos.m4 preserve comments.
X-Git-Tag: 20090517-FFI~9080
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f3c32c1b5937c85cd3e5c01e758397b16f360a93;p=mit-scheme.git

Make dos.m4 preserve comments.
---

diff --git a/v7/src/microcode/s/dos.m4 b/v7/src/microcode/s/dos.m4
index 4810d033c..902b1c3a8 100755
--- a/v7/src/microcode/s/dos.m4
+++ b/v7/src/microcode/s/dos.m4
@@ -1,11 +1,14 @@
 #!/bin/csh -f
-# $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/s/Attic/dos.m4,v 1.2 1992/03/06 00:28:03 jinx Exp $
-# Postprocessing to get valid dos assembly language from cmpaux-i386.m4
+###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/s/Attic/dos.m4,v 1.3 1992/08/24 15:18:30 jinx Exp $
+###	Copyright (c) 1992 Massachusetts Institute of Technology
+
+####	Postprocessing to get valid dos assembly language from cmpaux-i386.m4
 
 set tmpfil = "m4.tmp"
 set seen_input = 0
 rm -f "$tmpfil"
 
+echo changecom\(\`\;\'\) >> "$tmpfil"
 echo "define(DOS,1)" >> "$tmpfil"
 while ($#argv != 0)
   if ("$argv[1]" == "-P") then
@@ -13,12 +16,12 @@ while ($#argv != 0)
     shift
   else
     set seen_input = 1
-    sed -e '/^#/D' < "$argv[1]" >> "$tmpfil"
+    sed -e '/#/;/g' < "$argv[1]" >> "$tmpfil"
   endif
   shift
 end
 if ($seen_input == 0) then
-  sed -e '/^#/D' >> "$tmpfil"
+  sed -e 's/#/;/g' >> "$tmpfil"
 endif
-m4 < "$tmpfil" | sed -e 's/#/;/g' -e 's/^$//' | sed -n -e '/^..*/p'
+m4 < "$tmpfil" | sed -e 's/^$//' | sed -n -e '/^..*/p'
 rm -f "$tmpfil"