ref: baa3c241b77085b6f770be2cd13afaafaaa7559a
parent: a4302059767288d2a0b3e18f7f85b95ff2e07f61
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Wed Jul 17 20:39:35 EDT 2024
codegen: produce #line directives pointing at otf.[ch].in
--- a/gen.rkt
+++ b/gen.rkt
@@ -594,6 +594,7 @@
(out (at out-dir "otf.h")
(λ ()
+ (printf "#line 1 \"otf.h.in\"\n")
(printf "~a" (port->string (open-input-file (at in-dir "otf.h.in")) #:close? #t))
(printf "\n")
(printf "~a" (format gen-h))))
@@ -605,9 +606,13 @@
(out (at out-dir "otf.c")
(λ ()
- (printf "~a"
- (string-replace (port->string (open-input-file (at in-dir "otf.c.in")) #:close? #t)
- "OTF_EXTRA_FIELDS\n"
- (format extra-context-fields #:on-all remove-duplicates)))
- (printf "\n")
- (printf "~a" (format (λ (c) (gen-c c #f #f))))))
+ (begin
+ (define c-data (port->lines (open-input-file (at in-dir "otf.c.in")) #:close? #t))
+ (define extra-fields-index (index-of c-data "OTF_EXTRA_FIELDS"))
+ (define extra-fields-data
+ (string-append (format extra-context-fields #:on-all remove-duplicates)
+ (~a "#line " (+ extra-fields-index 2) "\"otf.c.in\"")))
+ (printf "#line 1 \"otf.c.in\"\n")
+ (for-each (λ (s) (printf "~a\n" s)) (list-set c-data extra-fields-index extra-fields-data))
+ (printf "\n")
+ (printf "~a" (format (λ (c) (gen-c c #f #f)))))))