alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki Activity

fix nested types producing wrong C code #18

Merged
vaartis merged 1 commits from fix-nested-pointer-type-writing into better-types 2025-10-26 18:56:09 +01:00
Conversation 0 Commits 1 Files Changed 2 +13 -4
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
fmt-c-writer.scm
View File

@@ -141,10 +141,11 @@
;; * const char -> const char * ;; * const char -> const char *
;; const * const char -> const char * const ;; const * const char -> const char * const
(if (atom? type) (atom-to-fmt-c type) (if (atom? type) (atom-to-fmt-c type)
(tree-map atom-to-fmt-c (flatten
(fold-right append (list) (tree-map atom-to-fmt-c
(list-join (reverse (list-split type '*)) (fold-right append (list)
'(*)))))) (list-join (reverse (list-split type '*))
'(*)))))))
(define (walk-fn-def form) (define (walk-fn-def form)
(match form (match form

8
tests/fmt-c-writer.scm
View File

@@ -64,6 +64,14 @@
'(%var (struct suc) s) '(%var (struct suc) s)
(walk-var '(var s (struct suc)))) (walk-var '(var s (struct suc))))
(test
'(%var (const struct suc *) s s1)
(walk-var '(var s (* const struct suc) s1)))
(test
'(%var (const struct suc *) s s1)
(walk-var '(var s (* (const struct suc)) s1)))
(test (test
'(%var (struct suc) s (hoge piyo)) '(%var (struct suc) s (hoge piyo))
(walk-var '(var s (struct suc) (hoge piyo)))) (walk-var '(var s (struct suc) (hoge piyo))))