Mercurial > repos > rhope

comparison number.c @ 46:429b5f441381

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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