Mercurial > repos > rhope
comparison interp.c @ 46:429b5f441381
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 |