conservatory/picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add exact/inexact function

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2013-10-28 00:33:10 +09:00
parent 350f4d1abd
commit 90b691be67
1 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/number.c
+24
View File
@@ -360,6 +360,26 @@ pic_number_expt(pic_state *pic)
return pic_float_value(h); return pic_float_value(h);
} }
static pic_value
pic_number_inexact(pic_state *pic)
{
double f;
pic_get_args(pic, "f", &f);
return pic_float_value(f);
}
static pic_value
pic_number_exact(pic_state *pic)
{
double f;
pic_get_args(pic, "f", &f);
return pic_int_value((int)round(f));
}
void void
pic_init_number(pic_state *pic) pic_init_number(pic_state *pic)
{ {
@@ -407,4 +427,8 @@ pic_init_number(pic_state *pic)
pic_defun(pic, "sqrt", pic_number_sqrt); pic_defun(pic, "sqrt", pic_number_sqrt);
pic_defun(pic, "expt", pic_number_expt); pic_defun(pic, "expt", pic_number_expt);
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_defun(pic, "inexact", pic_number_inexact);
pic_defun(pic, "exact", pic_number_exact);
pic_gc_arena_restore(pic, ai);
} }