| 0,0 → 1,65 |
|---|
| #include "math.c" |
| |
| /* |
| * init math module, namely, set its dictionary |
| */ |
| void math_init(TP) |
| { |
| /* |
| * new a module dict for math |
| */ |
| tp_obj math_mod = tp_dict(tp); |
| |
| /* |
| * initialize pi and e |
| */ |
| math_pi = tp_number(M_PI); |
| math_e = tp_number(M_E); |
| |
| /* |
| * bind math functions to math module |
| */ |
| tp_set(tp, math_mod, tp_string("pi"), math_pi); |
| tp_set(tp, math_mod, tp_string("e"), math_e); |
| tp_set(tp, math_mod, tp_string("acos"), tp_fnc(tp, math_acos)); |
| tp_set(tp, math_mod, tp_string("asin"), tp_fnc(tp, math_asin)); |
| tp_set(tp, math_mod, tp_string("atan"), tp_fnc(tp, math_atan)); |
| tp_set(tp, math_mod, tp_string("atan2"), tp_fnc(tp, math_atan2)); |
| tp_set(tp, math_mod, tp_string("ceil"), tp_fnc(tp, math_ceil)); |
| tp_set(tp, math_mod, tp_string("cos"), tp_fnc(tp, math_cos)); |
| tp_set(tp, math_mod, tp_string("cosh"), tp_fnc(tp, math_cosh)); |
| tp_set(tp, math_mod, tp_string("degrees"), tp_fnc(tp, math_degrees)); |
| tp_set(tp, math_mod, tp_string("exp"), tp_fnc(tp, math_exp)); |
| tp_set(tp, math_mod, tp_string("fabs"), tp_fnc(tp, math_fabs)); |
| tp_set(tp, math_mod, tp_string("floor"), tp_fnc(tp, math_floor)); |
| tp_set(tp, math_mod, tp_string("fmod"), tp_fnc(tp, math_fmod)); |
| tp_set(tp, math_mod, tp_string("frexp"), tp_fnc(tp, math_frexp)); |
| tp_set(tp, math_mod, tp_string("hypot"), tp_fnc(tp, math_hypot)); |
| tp_set(tp, math_mod, tp_string("ldexp"), tp_fnc(tp, math_ldexp)); |
| tp_set(tp, math_mod, tp_string("log"), tp_fnc(tp, math_log)); |
| tp_set(tp, math_mod, tp_string("log10"), tp_fnc(tp, math_log10)); |
| tp_set(tp, math_mod, tp_string("modf"), tp_fnc(tp, math_modf)); |
| tp_set(tp, math_mod, tp_string("pow"), tp_fnc(tp, math_pow)); |
| tp_set(tp, math_mod, tp_string("radians"), tp_fnc(tp, math_radians)); |
| tp_set(tp, math_mod, tp_string("sin"), tp_fnc(tp, math_sin)); |
| tp_set(tp, math_mod, tp_string("sinh"), tp_fnc(tp, math_sinh)); |
| tp_set(tp, math_mod, tp_string("sqrt"), tp_fnc(tp, math_sqrt)); |
| tp_set(tp, math_mod, tp_string("tan"), tp_fnc(tp, math_tan)); |
| tp_set(tp, math_mod, tp_string("tanh"), tp_fnc(tp, math_tanh)); |
| |
| /* |
| * bind special attributes to math module |
| */ |
| tp_set(tp, math_mod, tp_string("__doc__"), |
| tp_string( |
| "This module is always available. It provides access to the\n" |
| "mathematical functions defined by the C standard.")); |
| tp_set(tp, math_mod, tp_string("__name__"), tp_string("math")); |
| tp_set(tp, math_mod, tp_string("__file__"), tp_string(__FILE__)); |
| |
| /* |
| * bind to tiny modules[] |
| */ |
| tp_set(tp, tp->modules, tp_string("math"), math_mod); |
| } |
| |