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

add pic_valid_int predicate

This commit is contained in:
Yuichi Nishiwaki 2014-03-25 12:24:53 +09:00
parent b95184431f
commit fe56195988
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/picrin.h
View File

@ -33,6 +33,7 @@ extern "C" {
#include <setjmp.h> #include <setjmp.h>
#include <stdio.h> #include <stdio.h>
#include <stdint.h> #include <stdint.h>
#include <limits.h>
#include <assert.h> #include <assert.h>
#include "xvect/xvect.h" #include "xvect/xvect.h"

8
include/picrin/value.h
View File

@ -156,6 +156,8 @@ typedef struct pic_blob pic_blob;
static inline enum pic_tt pic_type(pic_value); static inline enum pic_tt pic_type(pic_value);
static inline const char *pic_type_repr(enum pic_tt); static inline const char *pic_type_repr(enum pic_tt);
static inline bool pic_valid_int(double);
static inline pic_value pic_nil_value(); static inline pic_value pic_nil_value();
static inline pic_value pic_true_value(); static inline pic_value pic_true_value();
static inline pic_value pic_false_value(); static inline pic_value pic_false_value();
@ -256,6 +258,12 @@ pic_type_repr(enum pic_tt tt)
return 0; /* logic flaw */ return 0; /* logic flaw */
} }
static inline bool
pic_valid_int(double v)
{
return INT_MIN <= v && v <= INT_MAX;
}
static inline pic_value static inline pic_value
pic_nil_value() pic_nil_value()
{ {