Mercurial > repos > rhope

comparison interp.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 9ee9adc696e7
children 6202b866d72c
comparison
equal deleted inserted replaced
45:6420c35edb43 46:429b5f441381
1480 aworker = create_worker(prog, "RShift@Whole Number", 2, 1, WORKER_TYPE); 1480 aworker = create_worker(prog, "RShift@Whole Number", 2, 1, WORKER_TYPE);
1481 aworker->implement_func=(custom_worker *)vis_whole_rsh; 1481 aworker->implement_func=(custom_worker *)vis_whole_rsh;
1482 aworker->input_types[0] = BUILTIN_TYPE_WHOLE; 1482 aworker->input_types[0] = BUILTIN_TYPE_WHOLE;
1483 aworker->input_types[1] = BUILTIN_TYPE_WHOLE; 1483 aworker->input_types[1] = BUILTIN_TYPE_WHOLE;
1484 1484
1485 aworker = create_worker(prog, "%@Whole Number", 2, 1, WORKER_TYPE);
1486 aworker->implement_func=(custom_worker *)vis_whole_modulus;
1487 aworker->input_types[0] = BUILTIN_TYPE_WHOLE;
1488 aworker->input_types[1] = BUILTIN_TYPE_WHOLE;
1489
1485 //add_method(this_comp, aworker); 1490 //add_method(this_comp, aworker);
1486 1491
1487 current_method = 0; 1492 current_method = 0;
1488 this_comp = create_company(prog, "Real Number", 6, 0, FALSE);//<string, =, >, <, +, - 1493 this_comp = create_company(prog, "Real Number", 6, 0, FALSE);//<string, =, >, <, +, -
1489 aworker = create_worker(prog, "<String@Real Number", 1, 1, WORKER_TYPE); 1494 aworker = create_worker(prog, "<String@Real Number", 1, 1, WORKER_TYPE);
1564 aworker->input_types[1] = BUILTIN_TYPE_REAL; 1569 aworker->input_types[1] = BUILTIN_TYPE_REAL;
1565 1570
1566 aworker = create_worker(prog, "Square Root@Real Number", 1, 1, WORKER_TYPE); 1571 aworker = create_worker(prog, "Square Root@Real Number", 1, 1, WORKER_TYPE);
1567 aworker->implement_func=(custom_worker *)vis_real_sqrt; 1572 aworker->implement_func=(custom_worker *)vis_real_sqrt;
1568 aworker->input_types[0] = BUILTIN_TYPE_REAL; 1573 aworker->input_types[0] = BUILTIN_TYPE_REAL;
1574
1575 aworker = create_worker(prog, "Truncate to Whole@Real Number", 1, 1, WORKER_TYPE);
1576 aworker->implement_func=(custom_worker *)vis_whole_fromreal;
1577 aworker->input_types[0] = BUILTIN_TYPE_REAL;
1578
1579 aworker = create_worker(prog, "<Whole Number@Real Number", 1, 1, WORKER_TYPE);
1580 aworker->implement_func=(custom_worker *)vis_real_fromwhole;
1581 aworker->input_types[0] = BUILTIN_TYPE_WHOLE;
1569 1582
1570 //add_method(this_comp, aworker); 1583 //add_method(this_comp, aworker);
1571 1584
1572 current_method = 0; 1585 current_method = 0;
1573 this_comp = create_company(prog, "List", 7, 1, FALSE);//Index, Append, Swap, Insert, Remove, Set, Length, New 1586 this_comp = create_company(prog, "List", 7, 1, FALSE);//Index, Append, Swap, Insert, Remove, Set, Length, New