阅读lmathlib.c

1. 重要的结构 luaL_Reg

typedef struct luaL_Reg {
  const char *name;
  lua_CFunction func;
} luaL_Reg;

typedef int (*lua_CFunction) (lua_State *L);

可以用该结构做参数简单的来创建table

luaL_newlib(L, mathlib);

这样在栈顶创建了一个table，并且table各个域（主要是各种方法 c closure， 注意是没有upvalue）

math lib里面还添加了几个常量，赋值

  lua_pushnumber(L, PI);
  lua_setfield(L, -2, "pi");
  lua_pushnumber(L, (lua_Number)HUGE_VAL);
  lua_setfield(L, -2, "huge");
  lua_pushinteger(L, LUA_MAXINTEGER);
  lua_setfield(L, -2, "maxinteger");
  lua_pushinteger(L, LUA_MININTEGER);
  lua_setfield(L, -2, "mininteger");

放一个值到栈顶，然后设置给刚刚创建的这个table。

2. RANDOM 能够处理0-2个参数

lua_gettop()检测参数数量

luaL_checkinteger(L, 1); 这个函数用来检查栈上的参数是否是int值，并返回

                                      ; 这个顺序是从上到下（我的理解）

lua_pushinteger(L, (lua_Integer)r + low); 将结果放回栈里

return 1; 表示返回一个值，注意一定要将栈对齐。

static int math_random (lua_State *L) {
  lua_Integer low, up;
  double r = (double)l_rand() * (1.0 / ((double)L_RANDMAX + 1.0));
  switch (lua_gettop(L)) {  /* check number of arguments */
    case 0: {  /* no arguments */
      lua_pushnumber(L, (lua_Number)r);  /* Number between 0 and 1 */
      return 1;
    }
    case 1: {  /* only upper limit */
      low = 1;
      up = luaL_checkinteger(L, 1);
      break;
    }
    case 2: {  /* lower and upper limits */
      low = luaL_checkinteger(L, 1);
      up = luaL_checkinteger(L, 2);
      break;
    }
    default: return luaL_error(L, "wrong number of arguments");
  }
  /* random integer in the interval [low, up] */
  luaL_argcheck(L, low <= up, 1, "interval is empty"); 
  luaL_argcheck(L, low >= 0 || up <= LUA_MAXINTEGER + low, 1,
                   "interval too large");
  r *= (double)(up - low) + 1.0;
  lua_pushinteger(L, (lua_Integer)r + low);
  return 1;
}