Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
45:6420c35edb43 | 46:429b5f441381 |
---|---|
178 inputlist[0]->c.integers.num_a >>= inputlist[1]->c.integers.num_a; | 178 inputlist[0]->c.integers.num_a >>= inputlist[1]->c.integers.num_a; |
179 release_ref(inputlist[1]); | 179 release_ref(inputlist[1]); |
180 return 0; | 180 return 0; |
181 } | 181 } |
182 | 182 |
183 int vis_whole_modulus(datum ** inputlist, queue_entry * worker_entry) | |
184 { | |
185 inputlist[0] = copy_datum(inputlist[0], 0); | |
186 inputlist[0]->c.integers.num_a %= inputlist[1]->c.integers.num_a; | |
187 release_ref(inputlist[1]); | |
188 return 0; | |
189 } | |
190 | |
183 | 191 |
184 int vis_greaterint(datum ** inputlist, queue_entry * worker_entry) | 192 int vis_greaterint(datum ** inputlist, queue_entry * worker_entry) |
185 { | 193 { |
186 int result; | 194 int result; |
187 if(inputlist[0]->c.integers.num_a > inputlist[1]->c.integers.num_a) | 195 if(inputlist[0]->c.integers.num_a > inputlist[1]->c.integers.num_a) |
423 output->c.integers.num_a = inputlist[0]->c.real; | 431 output->c.integers.num_a = inputlist[0]->c.real; |
424 release_ref(inputlist[0]); | 432 release_ref(inputlist[0]); |
425 inputlist[0] = output; | 433 inputlist[0] = output; |
426 return 0; | 434 return 0; |
427 } | 435 } |
436 | |
437 int vis_real_fromwhole(datum ** inputlist, queue_entry * worker_entry) | |
438 { | |
439 datum * output = new_datum(BUILTIN_TYPE_REAL, 3, 0, worker_entry->instance->def->program); | |
440 output->c.real = inputlist[0]->c.integers.num_a; | |
441 release_ref(inputlist[0]); | |
442 inputlist[0] = output; | |
443 return 0; | |
444 } | |
445 |