static int GLua_BitStream_Index(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	const char *key = lua_tostring(L,2);
	GLUA_UNUSED(stream);
	lua_getmetatable(L,1);
	lua_getfield(L,-1,key);
	return 1;
}

static int GLua_BitStream_ToString(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	if (stream->reading) {
		lua_pushstring(L,va("BitStream [ Reading - %i / %i bytes ]", stream->stream.readcount, stream->stream.maxsize ));
	} else {
		lua_pushstring(L,va("BitStream [ Writing - %i / %i bytes ]", stream->stream.cursize, stream->stream.maxsize ));
	}
	return 1;
}

static int GLua_BitStream_GetData(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	
	if (stream->reading) {
		lua_pushlstring(L, stream->data, stream->stream.maxsize);
	} else {
		lua_pushlstring(L, stream->data, stream->stream.cursize);
	}
	return 1;
}

static int GLua_BitStream_Reset(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	if (stream->reading) {
		BitStream_BeginReading(&stream->stream);
	} else {
		stream->stream.cursize = 0;
		stream->stream.bit = 0;
	}
	return 0;
}

static int GLua_BitStream_GetLength(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	
	if (stream->reading) {
		lua_pushinteger(L, stream->stream.maxsize);
	} else {
		lua_pushinteger(L, stream->stream.cursize);
	}
	return 1;
}

static int GLua_BitStream_BytesRemaining(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	
	if (stream->reading) {
		lua_pushinteger(L, stream->stream.maxsize - stream->stream.readcount);
	} else {
		lua_pushinteger(L, stream->stream.maxsize - stream->stream.cursize);
	}
	return 1;
}

static int GLua_BitStream_GetData(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	
	if (stream->reading) {
		lua_pushlstring(L, reinterpret_cast<const char *>(stream->data), stream->stream.maxsize);
	} else {
		lua_pushlstring(L, reinterpret_cast<const char *>(stream->data), stream->stream.cursize);
	}
	return 1;
}

static int GLua_BitStream_WriteUInt(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	unsigned int val = luaL_checkinteger(L,2);
	
	if (stream->reading) {
		luaL_error(L, "Attempted to write to a read-only bitstream");
		return 0;
	}

	BitStream_WriteUInt(&stream->stream, val);
	
	return 0;
}

static int GLua_BitStream_WriteBool(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	int val = lua_toboolean(L,2);
	
	if (stream->reading) {
		luaL_error(L, "Attempted to write to a read-only bitstream");
		return 0;
	}

	BitStream_WriteBool(&stream->stream, val);
	
	return 0;
}

static int GLua_BitStream_WriteString(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	const char *val = luaL_checkstring(L,2);
	
	if (stream->reading) {
		luaL_error(L, "Attempted to write to a read-only bitstream");
		return 0;
	}

	BitStream_WriteString(&stream->stream, val);
	
	return 0;
}

static int GLua_BitStream_WriteDouble(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	double val = luaL_checknumber(L,2);
	
	if (stream->reading) {
		luaL_error(L, "Attempted to write to a read-only bitstream");
		return 0;
	}

	BitStream_WriteDouble(&stream->stream, val);
	
	return 0;
}

static int GLua_BitStream_ReadDouble(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	double val;
	
	if (!stream->reading) {
		luaL_error(L, "Attempted to read from a write-only bitstream");
		return 0;
	}

	val = BitStream_ReadDouble(&stream->stream);
	
	lua_pushnumber(L, val);
	return 1;
}

static int GLua_BitStream_ReadUInt(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	unsigned int val;
	
	if (!stream->reading) {
		luaL_error(L, "Attempted to read from a write-only bitstream");
		return 0;
	}

	val = BitStream_ReadUInt(&stream->stream);
	
	lua_pushinteger(L, val);
	return 1;
}

static int GLua_BitStream_ReadBool(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	int val;
	
	if (!stream->reading) {
		luaL_error(L, "Attempted to read from a write-only bitstream");
		return 0;
	}

	val = BitStream_ReadBool(&stream->stream);
	
	lua_pushboolean(L, val);
	return 1;
}

static int GLua_BitStream_ReadString(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	luaL_Buffer B;
	char ch;
	
	if (!stream->reading) {
		luaL_error(L, "Attempted to read from a write-only bitstream");
		return 0;
	}

	luaL_buffinit(L, &B);
	while (1) {
		ch = BitStream_ReadChar(&stream->stream);
		if (!ch) {
			break;
		}
		luaL_addchar(&B, ch);
	}
	luaL_pushresult(&B);
	return 1;
}

static int GLua_BitStream_WriteData(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	unsigned int length;
	unsigned int deslength;
	const char *val = luaL_checklstring(L,2, &length);

	if (!lua_isnoneornil(L,3)) {
		deslength = luaL_checkinteger(L,3);
		if (length < deslength) {
			luaL_error(L, "BitStream_WriteData: Specified length is less than data length");
		}
		length = deslength;
	}
	
	if (stream->reading) {
		luaL_error(L, "Attempted to write to a read-only bitstream");
		return 0;
	}

	BitStream_WriteData(&stream->stream, (const unsigned char *)val, length);
	
	return 0;
}

static int GLua_BitStream_GetMaxLength(lua_State *L) {
	GLua_Bitstream_t *stream = GLua_CheckBitStream(L, 1);
	
	lua_pushinteger(L, stream->stream.maxsize);
	return 1;
}