Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Prototype code for Cyc-foreign-code

Browse source
This commit is contained in:
Justin Ethier 2020-04-13 18:51:16 -04:00
parent 1d9bb537a1
commit d345d71da9
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cgen.sld
View file

@ -986,6 +986,12 @@
"\n"
"continue;"))))
((eq? 'Cyc-foreign-code fun)
(c-code/vars
(string-append
"boolean_f")
args))
((prim? fun)
(let* ((c-fun
(c-compile-prim fun cont ast-id))

4
scheme/cyclone/primitives.sld
View file

@ -89,6 +89,7 @@
Cyc-stderr
Cyc-list
Cyc-if
Cyc-foreign-code
Cyc-fast-plus
Cyc-fast-sub
Cyc-fast-mul
@ -238,6 +239,7 @@
(Cyc-stdin 0 0)
(Cyc-stderr 0 0)
(Cyc-if 3 3)
(Cyc-foreign-code 1 #f)
(Cyc-fast-plus 2 2)
(Cyc-fast-sub 2 2)
(Cyc-fast-mul 2 2)
@ -529,6 +531,7 @@
((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-fast-plus) "Cyc_fast_sum")
((eq? p 'Cyc-fast-sub) "Cyc_fast_sub")
((eq? p 'Cyc-fast-mul) "Cyc_fast_mul")
@ -701,6 +704,7 @@
(or
(memq p '(
Cyc-list
Cyc-foreign-code
Cyc-fast-plus
Cyc-fast-sub
Cyc-fast-mul