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

Browse Source
This commit was merged in pull request #18.
This commit is contained in:
Ekaterina Vaartis
2025-10-26 20:54:11 +03:00
committed by Alex Egorov
parent 1ca7e2ee15
commit c48ebc7585
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 * const char -> const char * const
(if (atom? type) (atom-to-fmt-c type)
(tree-map atom-to-fmt-c
(fold-right append (list)
(list-join (reverse (list-split type '*))
'(*))))))
(flatten
(tree-map atom-to-fmt-c
(fold-right append (list)
(list-join (reverse (list-split type '*))
'(*)))))))
(define (walk-fn-def form)
(match form

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

@@ -64,6 +64,14 @@
'(%var (struct suc) s)
(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
'(%var (struct suc) s (hoge piyo))
(walk-var '(var s (struct suc) (hoge piyo))))