From 3403d07912ceb49aff1402ba5b23ecc5f893d608 Mon Sep 17 00:00:00 2001 From: Nicolas Williams Date: Mon, 17 Jun 2013 20:21:37 -0500 Subject: Add mod (and setmod) operators --- builtin.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'builtin.c') diff --git a/builtin.c b/builtin.c index a2adb1ac..96f6ef42 100644 --- a/builtin.c +++ b/builtin.c @@ -119,6 +119,15 @@ static jv f_divide(jv input, jv a, jv b) { } } +static jv f_mod(jv input, jv a, jv b) { + jv_free(input); + if (jv_get_kind(a) == JV_KIND_NUMBER && jv_get_kind(b) == JV_KIND_NUMBER) { + return jv_number((intmax_t)jv_number_value(a) % (intmax_t)jv_number_value(b)); + } else { + return type_error2(a, b, "cannot be divided"); + } +} + static jv f_equal(jv input, jv a, jv b) { jv_free(input); return jv_bool(jv_equal(a, b)); @@ -476,6 +485,7 @@ static const struct cfunction function_list[] = { {(cfunction_ptr)f_minus, "_minus", 3}, {(cfunction_ptr)f_multiply, "_multiply", 3}, {(cfunction_ptr)f_divide, "_divide", 3}, + {(cfunction_ptr)f_mod, "_mod", 3}, {(cfunction_ptr)f_tonumber, "tonumber", 1}, {(cfunction_ptr)f_tostring, "tostring", 1}, {(cfunction_ptr)f_keys, "keys", 1}, -- cgit v1.2.3