mescc: Nyacc comment escapes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 6 Oct 2018 18:32:49 +0000 (20:32 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 6 Oct 2018 18:32:49 +0000 (20:32 +0200)
* module/mescc/compile.scm (ast->comment): Nyacc comment escapes.

module/mescc/compile.scm

index d82724def744cde53a6daaa16e26bddf523bab38..d94b3f726fc4756372c7c19e7e11b7fc14763a2e 100644 (file)
 
 (define (ast->comment o)
   (if mes? '()
-      (let ((source (with-output-to-string (lambda () (pretty-print-c99 o)))))
+      (let* ((source (with-output-to-string (lambda () (pretty-print-c99 o))))
+             ;; Nyacc fixups
+             (source (string-substitute source "\\" "\\\\"))
+             (source (string-substitute source "'\\'" "'\\\\'"))
+             (source (string-substitute source "'\"'" "'\\\"'"))
+             (source (string-substitute source "'''" "'\\''")))
         (make-comment (string-join (string-split source #\newline) " ")))))
 
 (define (r*n info n)