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

Inline more define-c functions

Browse source
This commit is contained in:
Justin Ethier 2017-05-09 12:44:42 +00:00
parent dfdd84d585
commit 48ee3708d5
1 changed files with 18 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
scheme/base.sld
View file

@ -1082,11 +1082,14 @@
(define-c floor (define-c floor
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, floor, z); ") " return_exact_double_op(data, k, floor, z); "
"(void *data, object ptr, object z)"
" return_exact_double_op_no_cps(data, ptr, floor, z);")
(define-c ceiling (define-c ceiling
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, ceil, z); ") " return_exact_double_op(data, k, ceil, z); "
;TODO: working on define-c:inline macro to make it less verbose to do this "(void *data, object ptr, object z)"
" return_exact_double_op_no_cps(data, ptr, ceil, z);")
(define-c truncate (define-c truncate
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, (int), z); " " return_exact_double_op(data, k, (int), z); "
@ -1094,11 +1097,15 @@
" return_exact_double_op_no_cps(data, ptr, (int), z);") " return_exact_double_op_no_cps(data, ptr, (int), z);")
(define-c round (define-c round
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, round, z); ") " return_exact_double_op(data, k, round, z); "
"(void *data, object ptr, object z)"
" return_exact_double_op_no_cps(data, ptr, round, z);")
(define exact truncate) (define exact truncate)
(define-c inexact (define-c inexact
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, (double), z); ") " return_inexact_double_op(data, k, (double), z); "
"(void *data, object ptr, object z)"
" return_inexact_double_op_no_cps(data, ptr, (double), z);")
(define-c abs (define-c abs
"(void *data, int argc, closure _, object k, object num)" "(void *data, int argc, closure _, object k, object num)"
" Cyc_check_num(data, num); " Cyc_check_num(data, num);
@ -1147,7 +1154,9 @@
(values s r))) (values s r)))
(define-c sqrt (define-c sqrt
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, sqrt, z);") " return_inexact_double_op(data, k, sqrt, z);"
"(void *data, object ptr, object z)"
" return_inexact_double_op_no_cps(data, ptr, sqrt, z);")
(define (exact-integer? num) (define (exact-integer? num)
(and (exact? num) (integer? num))) (and (exact? num) (integer? num)))
(define-c exact? (define-c exact?
@ -1226,7 +1235,9 @@
" Cyc_expt(data, k, z1, z2); ") " Cyc_expt(data, k, z1, z2); ")
(define-c eof-object (define-c eof-object
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
" return_closcall1(data, k, Cyc_EOF); ") " return_closcall1(data, k, Cyc_EOF); "
"(void *data, object ptr)"
" return Cyc_EOF;")
(define-c input-port? (define-c input-port?
"(void *data, int argc, closure _, object k, object port)" "(void *data, int argc, closure _, object k, object port)"
" port_type *p = (port_type *)port; " port_type *p = (port_type *)port;