static int Write(lua_State *L)
{
int t = lua_type(L, 3);
if(t == LUA_TSTRING) return WritePack(L);
if(t == LUA_TNIL) return WriteData(L);
return luaL_argerror(L, 3, errstring(ERR_TYPE));
}
// PACK を BUF に変換
BUF *PackToBuf(PACK *p)
{
BUF *b;
// 引数チェック
if (p == NULL)
{
return NULL;
}
b = NewBuf();
WritePack(b, p);
return b;
}
