Mercurial > repos > rhope
diff number.c @ 46:429b5f441381
Added Date Time object
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 01 Dec 2009 03:59:31 -0500 |
parents | 94c885692eb5 |
children |
line wrap: on
line diff
--- a/number.c Mon Nov 30 23:47:08 2009 -0500 +++ b/number.c Tue Dec 01 03:59:31 2009 -0500 @@ -180,6 +180,14 @@ return 0; } +int vis_whole_modulus(datum ** inputlist, queue_entry * worker_entry) +{ + inputlist[0] = copy_datum(inputlist[0], 0); + inputlist[0]->c.integers.num_a %= inputlist[1]->c.integers.num_a; + release_ref(inputlist[1]); + return 0; +} + int vis_greaterint(datum ** inputlist, queue_entry * worker_entry) { @@ -424,4 +432,14 @@ release_ref(inputlist[0]); inputlist[0] = output; return 0; -} \ No newline at end of file +} + +int vis_real_fromwhole(datum ** inputlist, queue_entry * worker_entry) +{ + datum * output = new_datum(BUILTIN_TYPE_REAL, 3, 0, worker_entry->instance->def->program); + output->c.real = inputlist[0]->c.integers.num_a; + release_ref(inputlist[0]); + inputlist[0] = output; + return 0; +} +