forked from KolibriOS/kolibrios
66 lines
2.6 KiB
C
66 lines
2.6 KiB
C
|
#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);
|
||
|
|
}
|
||
|
|
|