From b09e0eb32c5e86679bce0afe45e770d271d3348b Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Sun, 21 Jan 2007 23:19:54 +0000
Subject: [PATCH] Fix up C comments so that */ inside them will not destroy the
 output.

---
 v7/src/compiler/machines/C/cutl.scm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/machines/C/cutl.scm b/v7/src/compiler/machines/C/cutl.scm
index 960dfaffa..0d8ea772e 100644
--- a/v7/src/compiler/machines/C/cutl.scm
+++ b/v7/src/compiler/machines/C/cutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cutl.scm,v 1.9 2007/01/05 21:19:20 cph Exp $
+$Id: cutl.scm,v 1.10 2007/01/21 23:19:54 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -208,7 +208,23 @@ USA.
       (string=? "INVOKE_PRIMITIVE_TARGET" (c:line-text line))))
 
 (define (c:comment . content)
-  (string-append "/* " (c:line-items content) " */"))
+  (string-append "/* " (c:preserve-comment (c:line-items content)) " */"))
+
+(define (c:preserve-comment comment)
+  (cond ((string-search-forward "*/" comment)
+         => (lambda (index)
+              (call-with-output-string
+                (lambda (port)
+                  (let ((end (string-length comment)))
+                    (let loop ((start 0) (index index))
+                      (write-substring comment start index port)
+                      (write-string "*\\/" port)
+                      (let ((index (+ index 2)))
+                        (cond ((substring-search-forward "*/" comment index end)
+                               => (lambda (index*) (loop index index*)))
+                              (else
+                               (write-substring comment index end port))))))))))
+        (else comment)))
 
 (define (c:string . content)
   (string-append "\"" (c:line-items content) "\""))
-- 
2.25.1