26 static int math_abs (lua_State *L) {  in math_abs()  argument
27   lua_pushnumber(L, fabs(luaL_checknumber(L, 1)));  in math_abs()
31 static int math_sin (lua_State *L) {  in math_sin()  argument
32   lua_pushnumber(L, sin(luaL_checknumber(L, 1)));  in math_sin()
36 static int math_sinh (lua_State *L) {  in math_sinh()  argument
37   lua_pushnumber(L, sinh(luaL_checknumber(L, 1)));  in math_sinh()
41 static int math_cos (lua_State *L) {  in math_cos()  argument
42   lua_pushnumber(L, cos(luaL_checknumber(L, 1)));  in math_cos()
46 static int math_cosh (lua_State *L) {  in math_cosh()  argument
47   lua_pushnumber(L, cosh(luaL_checknumber(L, 1)));  in math_cosh()
51 static int math_tan (lua_State *L) {  in math_tan()  argument
52   lua_pushnumber(L, tan(luaL_checknumber(L, 1)));  in math_tan()
56 static int math_tanh (lua_State *L) {  in math_tanh()  argument
57   lua_pushnumber(L, tanh(luaL_checknumber(L, 1)));  in math_tanh()
61 static int math_asin (lua_State *L) {  in math_asin()  argument
62   lua_pushnumber(L, asin(luaL_checknumber(L, 1)));  in math_asin()
66 static int math_acos (lua_State *L) {  in math_acos()  argument
67   lua_pushnumber(L, acos(luaL_checknumber(L, 1)));  in math_acos()
71 static int math_atan (lua_State *L) {  in math_atan()  argument
72   lua_pushnumber(L, atan(luaL_checknumber(L, 1)));  in math_atan()
76 static int math_atan2 (lua_State *L) {  in math_atan2()  argument
77   lua_pushnumber(L, atan2(luaL_checknumber(L, 1), luaL_checknumber(L, 2)));  in math_atan2()
81 static int math_ceil (lua_State *L) {  in math_ceil()  argument
82   lua_pushnumber(L, ceil(luaL_checknumber(L, 1)));  in math_ceil()
86 static int math_floor (lua_State *L) {  in math_floor()  argument
87   lua_pushnumber(L, floor(luaL_checknumber(L, 1)));  in math_floor()
91 static int math_fmod (lua_State *L) {  in math_fmod()  argument
92   lua_pushnumber(L, fmod(luaL_checknumber(L, 1), luaL_checknumber(L, 2)));  in math_fmod()
96 static int math_modf (lua_State *L) {  in math_modf()  argument
98   double fp = modf(luaL_checknumber(L, 1), &ip);  in math_modf()
99   lua_pushnumber(L, ip);  in math_modf()
100   lua_pushnumber(L, fp);  in math_modf()
104 static int math_sqrt (lua_State *L) {  in math_sqrt()  argument
105   lua_pushnumber(L, sqrt(luaL_checknumber(L, 1)));  in math_sqrt()
109 static int math_pow (lua_State *L) {  in math_pow()  argument
110   lua_pushnumber(L, pow(luaL_checknumber(L, 1), luaL_checknumber(L, 2)));  in math_pow()
114 static int math_log (lua_State *L) {  in math_log()  argument
115   lua_pushnumber(L, log(luaL_checknumber(L, 1)));  in math_log()
119 static int math_log10 (lua_State *L) {  in math_log10()  argument
120   lua_pushnumber(L, log10(luaL_checknumber(L, 1)));  in math_log10()
124 static int math_exp (lua_State *L) {  in math_exp()  argument
125   lua_pushnumber(L, exp(luaL_checknumber(L, 1)));  in math_exp()
129 static int math_deg (lua_State *L) {  in math_deg()  argument
130   lua_pushnumber(L, luaL_checknumber(L, 1)/RADIANS_PER_DEGREE);  in math_deg()
134 static int math_rad (lua_State *L) {  in math_rad()  argument
135   lua_pushnumber(L, luaL_checknumber(L, 1)*RADIANS_PER_DEGREE);  in math_rad()
139 static int math_frexp (lua_State *L) {  in math_frexp()  argument
141   lua_pushnumber(L, frexp(luaL_checknumber(L, 1), &e));  in math_frexp()
142   lua_pushinteger(L, e);  in math_frexp()
146 static int math_ldexp (lua_State *L) {  in math_ldexp()  argument
147   lua_pushnumber(L, ldexp(luaL_checknumber(L, 1), luaL_checkint(L, 2)));  in math_ldexp()
153 static int math_min (lua_State *L) {  in math_min()  argument
154   int n = lua_gettop(L);  /* number of arguments */  in math_min()
155   lua_Number dmin = luaL_checknumber(L, 1);  in math_min()
158     lua_Number d = luaL_checknumber(L, i);  in math_min()
162   lua_pushnumber(L, dmin);  in math_min()
167 static int math_max (lua_State *L) {  in math_max()  argument
168   int n = lua_gettop(L);  /* number of arguments */  in math_max()
169   lua_Number dmax = luaL_checknumber(L, 1);  in math_max()
172     lua_Number d = luaL_checknumber(L, i);  in math_max()
176   lua_pushnumber(L, dmax);  in math_max()
181 static int math_random (lua_State *L) {  in math_random()  argument
185   switch (lua_gettop(L)) {  /* check number of arguments */  in math_random()
187       lua_pushnumber(L, r);  /* Number between 0 and 1 */  in math_random()
191       int u = luaL_checkint(L, 1);  in math_random()
192       luaL_argcheck(L, 1<=u, 1, "interval is empty");  in math_random()
193       lua_pushnumber(L, floor(r*u)+1);  /* int between 1 and `u' */  in math_random()
197       int l = luaL_checkint(L, 1);  in math_random()
198       int u = luaL_checkint(L, 2);  in math_random()
199       luaL_argcheck(L, l<=u, 2, "interval is empty");  in math_random()
200       lua_pushnumber(L, floor(r*(u-l+1))+l);  /* int between `l' and `u' */  in math_random()
203     default: return luaL_error(L, "wrong number of arguments");  in math_random()
209 static int math_randomseed (lua_State *L) {  in math_randomseed()  argument
210   srand(luaL_checkint(L, 1));  in math_randomseed()
251 LUALIB_API int luaopen_math (lua_State *L) {  in luaopen_math()  argument
252   luaL_register(L, LUA_MATHLIBNAME, mathlib);  in luaopen_math()
253   lua_pushnumber(L, PI);  in luaopen_math()
254   lua_setfield(L, -2, "pi");  in luaopen_math()
255   lua_pushnumber(L, HUGE_VAL);  in luaopen_math()
256   lua_setfield(L, -2, "huge");  in luaopen_math()
258   lua_getfield(L, -1, "fmod");  in luaopen_math()
259   lua_setfield(L, -2, "mod");  in luaopen_math()