1.lua程式碼

ss = require "LUA2C1"

a= ss.new(1000)   --陣列大小為1000
print(a) 

print(ss.size(a))  --獲取陣列的大小
for i=1,1000 do
	ss.set(a, i, 1/i)  --設定陣列的值
end 
print(ss.get(a, 10))   --獲取陣列的值

2.C程式碼（省略了標頭檔案）

typedef struct NumArray {
	int size;
	double values[1]; /* variable part */
} NumArray; 

static int newarray (lua_State *L) {
	int n = luaL_checkint(L, 1);    //檢視引數是否為int型別
	size_t nbytes = sizeof(NumArray) + (n - 1)*sizeof(double);  //計算大小
	NumArray *a = (NumArray *)lua_newuserdata(L, nbytes);  //分配記憶體空間
	a->size = n;   //賦值
	return 1; /* new userdatum is already on the stack *///傳遞給lua
} 

static int setarray (lua_State *L) {
	NumArray *a = (NumArray *)lua_touserdata(L, 1);  //返回1中記憶體塊的地址
	int index = luaL_checkint(L, 2);    //檢查第二個引數是否為int
	double value = luaL_checknumber(L, 3);  //同上
	luaL_argcheck(L, a != NULL, 1, "`array' expected");  //給第1個引數設定防錯資訊
	luaL_argcheck(L, 1 <= index && index <= a->size, 2,  //第二個引數的防錯
		"index out of range");
	a->values[index-1] = value;    //設定陣列中的數值
	return 0;
}

static int getarray (lua_State *L) {   //獲取陣列中的值
	NumArray *a = (NumArray *)lua_touserdata(L, 1);  //從棧中獲取記憶體塊
	int index = luaL_checkint(L, 2);   //檢查第二個引數的值
	luaL_argcheck(L, a != NULL, 1, "'array' expected");
	luaL_argcheck(L, 1 <= index && index <= a->size, 2,
		"index out of range");
	lua_pushnumber(L, a->values[index-1]);   //獲取第二個引數的值
	return 1;
} 

static int getsize (lua_State *L) {    //獲取陣列的大小
	NumArray *a = (NumArray *)lua_touserdata(L, 1);
	luaL_argcheck(L, a != NULL, 1, "`array' expected");
	lua_pushnumber(L, a->size);   //獲取這個值
	return 1;
} 



static struct luaL_Reg func[] =
{
	{"sum", sum},
	{"l_map", l_map},
	{"add", Add},
	{"l_split", l_split},
	{"showstr", showstr},
	{"str_upper", str_upper},
	{"new", newarray},
	{"set", setarray},
	{"get", getarray},
	{"size", getsize}, 
	{NULL, NULL}
};

int luaopen_LUA2C1(lua_State *L)
{
	luaL_register(L, "ss", func);
	return 1;
}