From b1141427991dea7a96597f2aacdedf243b60decd Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 26 Aug 2003 09:04:13 -0300
Subject: new auxiliary function `luaH_setstr'

---
 ltable.c | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'ltable.c')

diff --git a/ltable.c b/ltable.c
index ed247d4e..c3bce93a 100644
--- a/ltable.c
+++ b/ltable.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltable.c,v 1.133 2003/04/28 13:31:46 roberto Exp roberto $
+** $Id: ltable.c,v 1.134 2003/04/28 19:26:16 roberto Exp roberto $
 ** Lua tables (hash)
 ** See Copyright Notice in lua.h
 */
@@ -511,3 +511,15 @@ TObject *luaH_setnum (lua_State *L, Table *t, int key) {
   }
 }
 
+
+TObject *luaH_setstr (lua_State *L, Table *t, TString *key) {
+  const TObject *p = luaH_getstr(t, key);
+  if (p != &luaO_nilobject)
+    return cast(TObject *, p);
+  else {
+    TObject k;
+    setsvalue(&k, key);
+    return newkey(L, t, &k);
+  }
+}
+
-- 
cgit v1.2.3-55-g6feb