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

add less than(<) operator

This commit is contained in:
Yuichi Nishiwaki 2013-10-16 17:43:38 +09:00
parent 4d4fbeb9aa
commit 27da3d030b
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/number.c
View File

@ -3,6 +3,20 @@
#include "picrin.h" #include "picrin.h"
#include "picrin/value.h" #include "picrin/value.h"
static pic_value
pic_number_lt(pic_state *pic)
{
double f,g;
pic_get_args(pic, "ff", &f, &g);
if (f < g) {
return pic_true_value();
}
else {
return pic_false_value();
}
}
static pic_value static pic_value
pic_number_sqrt(pic_state *pic) pic_number_sqrt(pic_state *pic)
{ {
@ -76,6 +90,7 @@ pic_number_atan(pic_state *pic)
void void
pic_init_number(pic_state *pic) pic_init_number(pic_state *pic)
{ {
pic_defun(pic, "<", pic_number_lt);
pic_defun(pic, "sqrt", pic_number_sqrt); pic_defun(pic, "sqrt", pic_number_sqrt);
pic_defun(pic, "sin", pic_number_sin); pic_defun(pic, "sin", pic_number_sin);
pic_defun(pic, "cos", pic_number_cos); pic_defun(pic, "cos", pic_number_cos);