mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-26 00:10:27 +00:00
Code Issues 1 Releases Wiki Activity

added in place op! operators

Browse Source
This commit is contained in:
J.-F. Cap 2019-03-14 11:53:50 +01:00 committed by Calvin Rose
parent 15c6300608
commit 5a9f7c3a85
1 changed files with 46 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/core/bigint.c
View File

@ -189,14 +189,23 @@ static Janet cfun_bi_uint64_new(int32_t argc, Janet *argv) {
#define OPMETHOD(type,name,oper) \
static Janet cfun_##type##_##name(int32_t argc, Janet *argv) { \
janet_arity(argc, 2, -1); \
janet_arity(argc, 2, -1); \
bi_##type *box = (bi_##type *)janet_abstract(&bi_##type##_type, sizeof(bi_##type)); \
*box = check_bi_##type(argv[0]); \
for (int i=1;i<argc;i++) \
*box oper##= check_bi_##type(argv[i]); \
return janet_wrap_abstract(box); \
} \
\
static Janet cfun_##type##_##name##_mut(int32_t argc, Janet *argv) { \
janet_arity(argc, 2, -1); \
bi_##type *box = (bi_##type *)janet_getabstract(argv,0,&bi_##type##_type); \
for (int i=1;i<argc;i++) \
*box oper##= check_bi_##type(argv[i]); \
return janet_wrap_abstract(box); \
}
#define DIVMETHOD(type,name,oper) \
static Janet cfun_##type##_##name(int32_t argc, Janet *argv) { \
janet_arity(argc, 2, -1); \
@ -208,9 +217,21 @@ static Janet cfun_##type##_##name(int32_t argc, Janet *argv) { \
*box oper##= check_bi_##type(argv[i]); \
} \
return janet_wrap_abstract(box); \
} \
\
static Janet cfun_##type##_##name##_mut(int32_t argc, Janet *argv) { \
janet_arity(argc, 2, -1); \
bi_##type *box = (bi_##type *)janet_getabstract(argv,0,&bi_##type##_type); \
for (int i=1;i<argc;i++) { \
bi_##type value = check_bi_##type(argv[i]); \
if (value == 0) janet_panic("division by zero"); \
*box oper##= check_bi_##type(argv[i]); \
} \
return janet_wrap_abstract(box); \
}
#define COMPMETHOD(type,name,oper) \
static Janet cfun_##type##_##name(int32_t argc, Janet *argv) { \
janet_fixarity(argc, 2); \
@ -276,6 +297,18 @@ static JanetMethod int64_methods[] = {
{"^", cfun_int64_xor},
{"<<", cfun_int64_lshift},
{">>", cfun_int64_rshift},
{"+!", cfun_int64_add_mut},
{"-!", cfun_int64_sub_mut},
{"*!", cfun_int64_mul_mut},
{"/!", cfun_int64_div_mut},
{"%!", cfun_int64_mod_mut},
{"&!", cfun_int64_and_mut},
{"|!", cfun_int64_or_mut},
{"^!", cfun_int64_xor_mut},
{"<<!", cfun_int64_lshift_mut},
{">>!", cfun_int64_rshift_mut},
{NULL, NULL}
};
@ -296,6 +329,18 @@ static JanetMethod uint64_methods[] = {
{"^", cfun_uint64_xor},
{"<<", cfun_uint64_lshift},
{">>", cfun_uint64_rshift},
{"+!", cfun_uint64_add_mut},
{"-!", cfun_uint64_sub_mut},
{"*!", cfun_uint64_mul_mut},
{"/!", cfun_uint64_div_mut},
{"%!", cfun_uint64_mod_mut},
{"&!", cfun_uint64_and_mut},
{"|!", cfun_uint64_or_mut},
{"^!", cfun_uint64_xor_mut},
{"<<!", cfun_uint64_lshift_mut},
{">>!", cfun_uint64_rshift_mut},
{NULL, NULL}
};