Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-04-19 19:31:27 -04:00
parent 7c2da7b4fd
commit 82d6379cdf
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test-foreign.scm
View file

@ -1,6 +1,8 @@
(import (import
(scheme base) (scheme base)
(scheme write) (scheme write)
(scheme cyclone cgen)
(scheme cyclone util)
(scheme cyclone pretty-print)) (scheme cyclone pretty-print))
(define-syntax foreign-code (define-syntax foreign-code
@ -22,8 +24,11 @@
(c-fnc (cadddr expr)) (c-fnc (cadddr expr))
(rv-type (caddr expr)) (rv-type (caddr expr))
(arg-types (cddddr expr)) (arg-types (cddddr expr))
(arg-syms (map gensym arg-types)) ;; TODO: need mangled strings, no syms!!! (arg-syms
(arg-mangled "TODO") ;; TODO: convert above (map
(lambda (type)
(mangle (gensym type)))
arg-types))
(arg-strings (arg-strings
(map (map
(lambda (sym) (lambda (sym)