Mercurial > repos > rhope

comparison interp.c @ 28:d8b4d38fceb6

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