lmathlib.c-Dateireferenz

#include <stdlib.h>
#include <math.h>
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"

Include-Abhängigkeitsdiagramm für lmathlib.c:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	lmathlib_c
#define	LUA_LIB
#define	PI   (3.14159265358979323846)
#define	RADIANS_PER_DEGREE   (PI/180.0)

Funktionen
static int	math_abs (lua_State *L)
static int	math_pow (lua_State *L)
static int	math_min (lua_State *L)
static int	math_max (lua_State *L)
static int	math_random (lua_State *L)
static int	math_randomseed (lua_State *L)
LUALIB_API int	luaopen_math (lua_State *L)

Variablen
static const luaL_Reg	mathlib []

Makro-Dokumentation

#define lmathlib_c

Definiert in Zeile 11 der Datei lmathlib.c.

#define LUA_LIB

Definiert in Zeile 12 der Datei lmathlib.c.

#define PI   (3.14159265358979323846)

Definiert in Zeile 21 der Datei lmathlib.c.

#define RADIANS_PER_DEGREE   (PI/180.0)

Definiert in Zeile 22 der Datei lmathlib.c.

Dokumentation der Funktionen

LUALIB_API int luaopen_math

(

lua_State *

L)

Definiert in Zeile 272 der Datei lmathlib.c.

                                           {
  luaL_register(L, LUA_MATHLIBNAME, mathlib);
#if 0
  lua_pushnumber(L, PI);
  lua_setfield(L, -2, "pi");
  lua_pushnumber(L, HUGE_VAL);
  lua_setfield(L, -2, "huge");
#endif
#if defined(LUA_COMPAT_MOD)
  lua_getfield(L, -1, "fmod");
  lua_setfield(L, -2, "mod");
#endif
  return 1;
}

static int math_abs ( lua_State *  L)

static

Definiert in Zeile 26 der Datei lmathlib.c.

                                   {
#if 0
  lua_pushnumber(L, fabs(luaL_checknumber(L, 1)));
#else
  lua_pushnumber(L, abs(luaL_checknumber(L, 1)));
#endif
  return 1;
}

static int math_max ( lua_State *  L)

static

Definiert in Zeile 176 der Datei lmathlib.c.

                                   {
  int n = lua_gettop(L);  /* number of arguments */
  lua_Number dmax = luaL_checknumber(L, 1);
  int i;
  for (i=2; i<=n; i++) {
    lua_Number d = luaL_checknumber(L, i);
    if (d > dmax)
      dmax = d;
  }
  lua_pushnumber(L, dmax);
  return 1;
}

static int math_min ( lua_State *  L)

static

Definiert in Zeile 162 der Datei lmathlib.c.

                                   {
  int n = lua_gettop(L);  /* number of arguments */
  lua_Number dmin = luaL_checknumber(L, 1);
  int i;
  for (i=2; i<=n; i++) {
    lua_Number d = luaL_checknumber(L, i);
    if (d < dmin)
      dmin = d;
  }
  lua_pushnumber(L, dmin);
  return 1;
}

static int math_pow ( lua_State *  L)

static

Definiert in Zeile 114 der Datei lmathlib.c.

                                   {
#if 0
  lua_pushnumber(L, pow(luaL_checknumber(L, 1), luaL_checknumber(L, 2)));
#else
  lua_pushnumber(L, luai_ipow(luaL_checknumber(L, 1), luaL_checknumber(L, 2)));
#endif
  return 1;
}

static int math_random ( lua_State *  L)

static

Definiert in Zeile 190 der Datei lmathlib.c.

                                      {
  /* the `%' avoids the (rare) case of r==1, and is needed also because on
     some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */
#if 0
  lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX;
#endif
  switch (lua_gettop(L)) {  /* check number of arguments */
#if 0
    case 0: {  /* no arguments */
      lua_pushnumber(L, r);  /* Number between 0 and 1 */
      break;
    }
#endif
    case 1: {  /* only upper limit */
      int u = luaL_checkint(L, 1);
      luaL_argcheck(L, 1<=u, 1, "interval is empty");
#if 0
      lua_pushnumber(L, floor(r*u)+1);  /* int between 1 and `u' */
#else
      lua_pushnumber(L, rand()%u+1);
#endif
      break;
    }
    case 2: {  /* lower and upper limits */
      int l = luaL_checkint(L, 1);
      int u = luaL_checkint(L, 2);
      luaL_argcheck(L, l<=u, 2, "interval is empty");
#if 0
      lua_pushnumber(L, floor(r*(u-l+1))+l);  /* int between `l' and `u' */
#else
      lua_pushnumber(L, rand()%(u-l+1)+l);
#endif
      break;
    }
    default: return luaL_error(L, "wrong number of arguments");
  }
  return 1;
}

static int math_randomseed ( lua_State *  L)

static

Definiert in Zeile 230 der Datei lmathlib.c.

                                          {
  srand(luaL_checkint(L, 1));
  return 0;
}

Variablen-Dokumentation

const luaL_Reg mathlib[]

static

Definiert in Zeile 236 der Datei lmathlib.c.