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

3
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)
(flatten
(tree-map atom-to-fmt-c (tree-map atom-to-fmt-c
(fold-right append (list) (fold-right append (list)
(list-join (reverse (list-split type '*)) (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))))