mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

no more errors on accesses to 'string' and strings

This commit is contained in:
Roberto Ierusalimschy 2011-06-28 14:13:52 -03:00
parent f180822fa6
commit 17526ed2fe
1 changed files with 7 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lstrlib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lstrlib.c,v 1.168 2011/06/09 18:22:47 roberto Exp roberto $
** $Id: lstrlib.c,v 1.169 2011/06/16 14:14:05 roberto Exp roberto $
** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h
*/
@ -917,15 +917,6 @@ static int str_format (lua_State *L) {
/* }====================================================== */
static int noindex (lua_State *L) {
const char *f = lua_tostring(L, 2);
if (f)
return luaL_error(L, "no field '%s' in strings", f);
else
return luaL_error(L, "no such field in strings");
}
static const luaL_Reg strlib[] = {
{"byte", str_byte},
{"char", str_char},
@ -941,22 +932,19 @@ static const luaL_Reg strlib[] = {
{"reverse", str_reverse},
{"sub", str_sub},
{"upper", str_upper},
{"__index", noindex},
{NULL, NULL}
};
static void createmetatable (lua_State *L) {
/* setmetatable("", {__index = string}) */
lua_createtable(L, 0, 1); /* table to be metatable for strings */
lua_pushliteral(L, ""); /* dummy string */
lua_createtable(L, 0, 1); /* create metatable for strings */
lua_pushvalue(L, -3); /* set the string library... */
lua_setfield(L, -2, "__index"); /* ...as the __index metamethod */
lua_setmetatable(L, -2); /* set metatable for strings */
lua_pushvalue(L, -2); /* copy table */
lua_setmetatable(L, -2); /* set table as metatable for strings */
lua_pop(L, 1); /* pop dummy string */
/* setmetatable(string, string) */
lua_pushvalue(L, -1); /* push string library */
lua_setmetatable(L, -2); /* set it as its own metatable */
lua_pushvalue(L, -2); /* get string library */
lua_setfield(L, -2, "__index"); /* metatable.__index = string */
lua_pop(L, 1); /* pop metatable */
}