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

rewrite arithmetic operators and comparators with pic_op

This commit is contained in:
Yuichi Nishiwaki 2015-07-20 02:03:56 +09:00
parent a5317898cb
commit 4a7c87eb84
1 changed files with 57 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

245
extlib/benz/number.c
View File

@ -115,199 +115,68 @@ pic_number_exact(pic_state *pic)
return pic_int_value((int)(round(f))); return pic_int_value((int)(round(f)));
} }
#define DEFINE_ARITH_CMP(op, name) \ #define DEFINE_CMP(op) \
static pic_value \ static pic_value \
pic_number_##name(pic_state *pic) \ pic_number_##op(pic_state *pic) \
{ \ { \
size_t argc, i; \ size_t argc, i; \
pic_value *argv; \ pic_value *argv; \
double f,g; \ \
\ pic_get_args(pic, "*", &argc, &argv); \
pic_get_args(pic, "ff*", &f, &g, &argc, &argv); \ \
\ if (argc < 2) { \
if (! (f op g)) \ return pic_true_value(); \
return pic_false_value(); \ } \
\ \
for (i = 0; i < argc; ++i) { \ for (i = 1; i < argc; ++i) { \
f = g; \ if (! pic_##op(pic, argv[i - 1], argv[i])) { \
if (pic_float_p(argv[i])) \ return pic_false_value(); \
g = pic_float(argv[i]); \ } \
else if (pic_int_p(argv[i])) \ } \
g = pic_int(argv[i]); \ return pic_true_value(); \
else \
pic_errorf(pic, #op ": number required"); \
\
if (! (f op g)) \
return pic_false_value(); \
} \
\
return pic_true_value(); \
} }
#define DEFINE_ARITH_CMP2(op, name) \ DEFINE_CMP(eq)
static pic_value \ DEFINE_CMP(lt)
pic_number_##name(pic_state *pic) \ DEFINE_CMP(le)
{ \ DEFINE_CMP(gt)
size_t argc, i; \ DEFINE_CMP(ge)
pic_value *argv; \
int f,g; \ #define DEFINE_AOP(op, v1, c0) \
\ static pic_value \
pic_get_args(pic, "ii*", &f, &g, &argc, &argv); \ pic_number_##op(pic_state *pic) \
\ { \
if (! (f op g)) \ size_t argc, i; \
return pic_false_value(); \ pic_value *argv, tmp; \
\ \
for (i = 0; i < argc; ++i) { \ pic_get_args(pic, "*", &argc, &argv); \
f = g; \ \
if (pic_int_p(argv[i])) \ if (argc == 0) { \
g = pic_int(argv[i]); \ c0; \
else \ } \
pic_errorf(pic, #op ": number required"); \ else if (argc == 1) { \
\ return v1; \
if (! (f op g)) \ } \
return pic_false_value(); \ \
} \ tmp = argv[0]; \
\ for (i = 1; i < argc; ++i) { \
return pic_true_value(); \ tmp = pic_##op(pic, tmp, argv[i]); \
} \
return tmp; \
} }
#if PIC_ENABLE_FLOAT DEFINE_AOP(add, argv[0], do {
DEFINE_ARITH_CMP(==, eq) return pic_int_value(0);
DEFINE_ARITH_CMP(<, lt) } while (0))
DEFINE_ARITH_CMP(>, gt) DEFINE_AOP(mul, argv[0], do {
DEFINE_ARITH_CMP(<=, le) return pic_int_value(1);
DEFINE_ARITH_CMP(>=, ge) } while (0))
#else DEFINE_AOP(sub, pic_sub(pic, pic_int_value(0), argv[0]), do {
DEFINE_ARITH_CMP2(==, eq) pic_errorf(pic, "-: at least one argument required");
DEFINE_ARITH_CMP2(<, lt) } while (0))
DEFINE_ARITH_CMP2(>, gt) DEFINE_AOP(div, pic_div(pic, pic_int_value(1), argv[0]), do {
DEFINE_ARITH_CMP2(<=, le) pic_errorf(pic, "/: at least one argument required");
DEFINE_ARITH_CMP2(>=, ge) } while (0))
#endif
#define DEFINE_ARITH_OP(op, name, unit) \
static pic_value \
pic_number_##name(pic_state *pic) \
{ \
size_t argc, i; \
pic_value *argv; \
double f; \
bool e = true; \
\
pic_get_args(pic, "*", &argc, &argv); \
\
f = unit; \
for (i = 0; i < argc; ++i) { \
if (pic_int_p(argv[i])) { \
f op##= pic_int(argv[i]); \
} \
else if (pic_float_p(argv[i])) { \
e = false; \
f op##= pic_float(argv[i]); \
} \
else { \
pic_errorf(pic, #op ": number required"); \
} \
} \
\
return e ? pic_int_value((int)f) : pic_float_value(f); \
}
#define DEFINE_ARITH_OP2(op, name, unit) \
static pic_value \
pic_number_##name(pic_state *pic) \
{ \
size_t argc, i; \
pic_value *argv; \
int f; \
\
pic_get_args(pic, "*", &argc, &argv); \
\
f = unit; \
for (i = 0; i < argc; ++i) { \
if (pic_int_p(argv[i])) { \
f op##= pic_int(argv[i]); \
} \
else { \
pic_errorf(pic, #op ": number required"); \
} \
} \
\
return pic_int_value(f); \
}
#if PIC_ENABLE_FLOAT
DEFINE_ARITH_OP(+, add, 0)
DEFINE_ARITH_OP(*, mul, 1)
#else
DEFINE_ARITH_OP2(+, add, 0)
DEFINE_ARITH_OP2(*, mul, 1)
#endif
#define DEFINE_ARITH_INV_OP(op, name, unit, exact) \
static pic_value \
pic_number_##name(pic_state *pic) \
{ \
size_t argc, i; \
pic_value *argv; \
double f; \
bool e = true; \
\
pic_get_args(pic, "F*", &f, &e, &argc, &argv); \
\
e = e && exact; \
\
if (argc == 0) { \
f = unit op f; \
} \
for (i = 0; i < argc; ++i) { \
if (pic_int_p(argv[i])) { \
f op##= pic_int(argv[i]); \
} \
else if (pic_float_p(argv[i])) { \
e = false; \
f op##= pic_float(argv[i]); \
} \
else { \
pic_errorf(pic, #op ": number required"); \
} \
} \
\
return e ? pic_int_value((int)f) : pic_float_value(f); \
}
#define DEFINE_ARITH_INV_OP2(op, name, unit) \
static pic_value \
pic_number_##name(pic_state *pic) \
{ \
size_t argc, i; \
pic_value *argv; \
int f; \
\
pic_get_args(pic, "i*", &f, &argc, &argv); \
\
if (argc == 0) { \
f = unit op f; \
} \
for (i = 0; i < argc; ++i) { \
if (pic_int_p(argv[i])) { \
f op##= pic_int(argv[i]); \
} \
else { \
pic_errorf(pic, #op ": number required"); \
} \
} \
\
return pic_int_value(f); \
}
#if PIC_ENABLE_FLOAT
DEFINE_ARITH_INV_OP(-, sub, 0, true)
DEFINE_ARITH_INV_OP(/, div, 1, false)
#else
DEFINE_ARITH_INV_OP2(-, sub, 0)
DEFINE_ARITH_INV_OP2(/, div, 1)
#endif
static pic_value static pic_value
pic_number_number_to_string(pic_state *pic) pic_number_number_to_string(pic_state *pic)