aboutsummaryrefslogtreecommitdiff
path: root/ltm.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-07-12 15:11:58 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-07-12 15:11:58 -0300
commitae1cf64348ca7bcb6d3abb19a0b97918e343914c (patch)
tree23bd25ec0cc4d29ad62a64fad039495fbbee8bb5 /ltm.c
parenta264fd089e1814bc13d6de924b928959af2e38d9 (diff)
downloadlua-ae1cf64348ca7bcb6d3abb19a0b97918e343914c.tar.gz
lua-ae1cf64348ca7bcb6d3abb19a0b97918e343914c.tar.bz2
lua-ae1cf64348ca7bcb6d3abb19a0b97918e343914c.zip
better names for type-related functions
Diffstat (limited to 'ltm.c')
-rw-r--r--ltm.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/ltm.c b/ltm.c
index 29419adf..38b74db9 100644
--- a/ltm.c
+++ b/ltm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltm.c,v 1.72 2001/06/06 18:00:19 roberto Exp roberto $ 2** $Id: ltm.c,v 1.73 2001/06/15 20:36:57 roberto Exp roberto $
3** Tag methods 3** Tag methods
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -70,7 +70,8 @@ int luaT_validevent (int t, int e) { /* ORDER LUA_T */
70 70
71void luaT_init (lua_State *L) { 71void luaT_init (lua_State *L) {
72 static const l_char *const typenames[NUM_TAGS] = { 72 static const l_char *const typenames[NUM_TAGS] = {
73 l_s("userdata"), l_s("nil"), l_s("number"), l_s("string"), l_s("table"), l_s("function") 73 l_s("userdata"), l_s("nil"), l_s("number"), l_s("string"),
74 l_s("table"), l_s("function")
74 }; 75 };
75 int i; 76 int i;
76 for (i=0; i<NUM_TAGS; i++) 77 for (i=0; i<NUM_TAGS; i++)
@@ -177,7 +178,7 @@ LUA_API void lua_settagmethod (lua_State *L, int t, const l_char *event) {
177 checktag(L, t); 178 checktag(L, t);
178 if (!luaT_validevent(t, e)) 179 if (!luaT_validevent(t, e))
179 luaO_verror(L, l_s("cannot change `%.20s' tag method for type `%.20s'%.20s"), 180 luaO_verror(L, l_s("cannot change `%.20s' tag method for type `%.20s'%.20s"),
180 luaT_eventname[e], basictypename(G(L), t), 181 luaT_eventname[e], typenamebytag(G(L), t),
181 (t == LUA_TTABLE || t == LUA_TUSERDATA) ? 182 (t == LUA_TTABLE || t == LUA_TUSERDATA) ?
182 l_s(" with default tag") : l_s("")); 183 l_s(" with default tag") : l_s(""));
183 switch (ttype(L->top - 1)) { 184 switch (ttype(L->top - 1)) {