Mercurial > repos > rhope
comparison interp.c @ 28:d8b4d38fceb6
Merged in the worker registration code for the math functions added for ICFP 08
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 26 Jun 2009 19:57:46 -0400 |
parents | 20d40cb8abf3 |
children | 3cc5e4a42344 |
comparison
equal
deleted
inserted
replaced
27:0c9272a96b58 | 28:d8b4d38fceb6 |
---|---|
1526 | 1526 |
1527 aworker = create_worker(prog, "/@Real Number", 2, 1, WORKER_TYPE); | 1527 aworker = create_worker(prog, "/@Real Number", 2, 1, WORKER_TYPE); |
1528 aworker->implement_func=(custom_worker *)vis_real_div; | 1528 aworker->implement_func=(custom_worker *)vis_real_div; |
1529 aworker->input_types[0] = BUILTIN_TYPE_REAL; | 1529 aworker->input_types[0] = BUILTIN_TYPE_REAL; |
1530 aworker->input_types[1] = BUILTIN_TYPE_REAL; | 1530 aworker->input_types[1] = BUILTIN_TYPE_REAL; |
1531 | |
1532 aworker = create_worker(prog, "Cosine@Real Number", 1, 1, WORKER_TYPE); | |
1533 aworker->implement_func=(custom_worker *)vis_real_cos; | |
1534 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1535 | |
1536 aworker = create_worker(prog, "Sine@Real Number", 1, 1, WORKER_TYPE); | |
1537 aworker->implement_func=(custom_worker *)vis_real_sin; | |
1538 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1539 | |
1540 aworker = create_worker(prog, "Tangent@Real Number", 1, 1, WORKER_TYPE); | |
1541 aworker->implement_func=(custom_worker *)vis_real_tan; | |
1542 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1543 | |
1544 aworker = create_worker(prog, "Arc Cosine@Real Number", 1, 1, WORKER_TYPE); | |
1545 aworker->implement_func=(custom_worker *)vis_real_arccos; | |
1546 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1547 | |
1548 aworker = create_worker(prog, "Arc Sine@Real Number", 1, 1, WORKER_TYPE); | |
1549 aworker->implement_func=(custom_worker *)vis_real_arcsin; | |
1550 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1551 | |
1552 aworker = create_worker(prog, "Arc Tangent@Real Number", 1, 1, WORKER_TYPE); | |
1553 aworker->implement_func=(custom_worker *)vis_real_arctan; | |
1554 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1555 | |
1556 aworker = create_worker(prog, "^@Real Number", 2, 1, WORKER_TYPE); | |
1557 aworker->implement_func=(custom_worker *)vis_real_exp; | |
1558 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1559 aworker->input_types[1] = BUILTIN_TYPE_REAL; | |
1560 | |
1561 aworker = create_worker(prog, "Square Root@Real Number", 1, 1, WORKER_TYPE); | |
1562 aworker->implement_func=(custom_worker *)vis_real_sqrt; | |
1563 aworker->input_types[0] = BUILTIN_TYPE_REAL; | |
1531 | 1564 |
1532 //add_method(this_comp, aworker); | 1565 //add_method(this_comp, aworker); |
1533 | 1566 |
1534 current_method = 0; | 1567 current_method = 0; |
1535 this_comp = create_company(prog, "List", 7, 1, FALSE);//Index, Append, Swap, Insert, Remove, Set, Length, New | 1568 this_comp = create_company(prog, "List", 7, 1, FALSE);//Index, Append, Swap, Insert, Remove, Set, Length, New |