および関数はで定義されていluaL_ref
ます。彼らは、彼らが操作しているテーブルに保存している無料の参照リストを追跡することによって機能します。これらの関数は比較的短いので、ここに含めます。luaL_unref
lauxlib.c
LUALIB_API int luaL_ref (lua_State *L, int t) {
int ref;
t = abs_index(L, t);
if (lua_isnil(L, -1)) {
lua_pop(L, 1); /* remove from stack */
return LUA_REFNIL; /* 'nil' has a unique fixed reference */
}
lua_rawgeti(L, t, FREELIST_REF); /* get first free element */
ref = (int)lua_tointeger(L, -1); /* ref = t[FREELIST_REF] */
lua_pop(L, 1); /* remove it from stack */
if (ref != 0) { /* any free element? */
lua_rawgeti(L, t, ref); /* remove it from list */
lua_rawseti(L, t, FREELIST_REF); /* (t[FREELIST_REF] = t[ref]) */
}
else { /* no free elements */
ref = (int)lua_objlen(L, t);
ref++; /* create new reference */
}
lua_rawseti(L, t, ref);
return ref;
}
LUALIB_API void luaL_unref (lua_State *L, int t, int ref) {
if (ref >= 0) {
t = abs_index(L, t);
lua_rawgeti(L, t, FREELIST_REF);
lua_rawseti(L, t, ref); /* t[ref] = t[FREELIST_REF] */
lua_pushinteger(L, ref);
lua_rawseti(L, t, FREELIST_REF); /* t[FREELIST_REF] = ref */
}
}
これらの関数は、(操作しているテーブル以外に)追加のストレージを必要としないため、非常に便利です。ただし、参照値を反復処理する必要がある場合など、参照値と同じテーブルに空き参照リストを格納することが望ましくない場合があります。
私はこの問題を解決するために書きましluaX_ref
たluaX_unref
。それらは、リスト用に別のテーブルに無料の参照リストを格納することを除いて、luaL_ref
およびとほぼ同じように機能します。(私のプロジェクトでは、これらを別のソースファイルに入れ、必要に応じて含めました。変更することはお勧めしません。)luaL_unref
l
lauxlib.c
static int abs_index(lua_State * L, int i){
return i > 0 || i <= LUA_REGISTRYINDEX ? i : lua_gettop(L) + i + 1;
}
LUALIB_API int luaX_ref(lua_State *L, int t, int l){
int ref;
t = abs_index(L, t);
l = abs_index(L, l);
if(lua_isnil(L, -1)){
lua_pop(L, 1); /* remove from stack */
return LUA_REFNIL; /* 'nil' has a unique fixed reference */
}
lua_rawgeti(L, l, FREELIST_REF); /* get first free element */
ref = (int) lua_tointeger(L, -1); /* ref = l[FREELIST_REF] */
lua_pop(L, 1); /* remove it from stack */
if(ref != 0){ /* any free element? */
lua_rawgeti(L, l, ref); /* remove it from list */
lua_rawseti(L, l, FREELIST_REF); /* (l[FREELIST_REF] = l[ref]) */
}else{ /* no free elements */
ref = (int)lua_objlen(L, l);
ref++; /* create new reference */
}
lua_pushboolean(L, 1);
lua_rawseti(L, l, ref); /* l[ref] = true */
lua_rawseti(L, t, ref); /* t[ref] = value */
return ref;
}
LUALIB_API void luaX_unref(lua_State *L, int t, int l, int ref){
if(ref >= 0){
t = abs_index(L, t);
l = abs_index(L, l);
lua_rawgeti(L, l, FREELIST_REF);
lua_rawseti(L, l, ref); /* l[ref] = l[FREELIST_REF] */
lua_pushinteger(L, ref);
lua_rawseti(L, l, FREELIST_REF); /* l[FREELIST_REF] = ref */
lua_pushnil(L);
lua_rawseti(L, t, ref); /* t[ref] = nil */
}
}
次に、使用法を確認します。
lua_newtable(L); /* 1 */
lua_newtable(L); /* 2 */
lua_pushboolean(L, 0);
int ref1 = luaX_ref(L, 1, 2);
lua_pushinteger(L, 7);
int ref2 = luaX_ref(L, 1, 2);
lua_pushstring(L, "test");
int ref3 = luaX_ref(L, 1, 2);
tableDump(L, 1);
tableDump(L, 2);
luaX_unref(L, 1, 2, ref1);
tableDump(L, 1);
tableDump(L, 2);
luaX_unref(L, 1, 2, ref3);
tableDump(L, 1);
tableDump(L, 2);
luaX_unref(L, 1, 2, ref2);
tableDump(L, 1);
tableDump(L, 2);
printf("done.\n");
出力:
1: false, 2: 7, 3: `test',
1: true, 2: true, 3: true,
2: 7, 3: `test',
3: true, 2: true, 0: 1,
2: 7,
3: 1, 2: true, 0: 3,
3: 1, 2: 3, 0: 2,
done.