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

Proof-of-concept for Cyc-foreign-value

Browse source
This commit is contained in:
Justin Ethier 2020-04-14 18:57:36 -04:00
parent d345d71da9
commit 4006ca560d
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cgen.sld
View file

@ -992,6 +992,13 @@
"boolean_f")
args))
((eq? 'Cyc-foreign-value fun)
;; TODO: take type into account, do not hardcode int
(c-code/vars
(string-append
"obj_int2obj(" (car args) ")")
(list)))
((prim? fun)
(let* ((c-fun
(c-compile-prim fun cont ast-id))

6
scheme/cyclone/primitives.sld
View file

@ -90,6 +90,7 @@
Cyc-list
Cyc-if
Cyc-foreign-code
Cyc-foreign-value
Cyc-fast-plus
Cyc-fast-sub
Cyc-fast-mul
@ -240,6 +241,7 @@
(Cyc-stderr 0 0)
(Cyc-if 3 3)
(Cyc-foreign-code 1 #f)
(Cyc-foreign-value 2 2)
(Cyc-fast-plus 2 2)
(Cyc-fast-sub 2 2)
(Cyc-fast-mul 2 2)
@ -531,7 +533,8 @@
((eq? p 'Cyc-stderr) "Cyc_stderr")
((eq? p 'Cyc-list) "Cyc_list")
((eq? p 'Cyc-if) "Cyc_if")
((eq? p 'Cyc-foreign-code) "TODO")
((eq? p 'Cyc-foreign-code) "UNDEF")
((eq? p 'Cyc-foreign-value) "UNDEF")
((eq? p 'Cyc-fast-plus) "Cyc_fast_sum")
((eq? p 'Cyc-fast-sub) "Cyc_fast_sub")
((eq? p 'Cyc-fast-mul) "Cyc_fast_mul")
@ -705,6 +708,7 @@
(memq p '(
Cyc-list
Cyc-foreign-code
Cyc-foreign-value
Cyc-fast-plus
Cyc-fast-sub
Cyc-fast-mul