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

Added a temporary placeholder for sine

Browse source
This commit is contained in:
Justin Ethier 2016-01-21 22:56:33 -05:00
parent 7ce9b1e389
commit c8bffc8301
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scheme/time.sld
View file

@ -3,6 +3,7 @@
current-second current-second
current-jiffy current-jiffy
jiffies-per-second jiffies-per-second
sin ;; just temporary, will be relocated
) )
(import (scheme base) (import (scheme base)
) )
@ -24,4 +25,14 @@
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
" make_int(box, CLOCKS_PER_SEC); " make_int(box, CLOCKS_PER_SEC);
return_closcall1(data, k, &box); ") return_closcall1(data, k, &box); ")
(define-c sin
"(void *data, int argc, closure _, object k, object z)"
" make_double(d, 0.0);
Cyc_check_num(data, z);
if (type_of(z) == integer_tag) {
d.value = sin(((integer_type *)z)->value);
} else {
d.value = sin(((double_type *)z)->value);
}
return_closcall1(data, k, &d); ")
)) ))