new API function 'lua_pushliteral'

1 files changed, 14 insertions, 1 deletions

diff --git a/opcode.c b/opcode.c
index 64dcca68..437a1da5 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.23 1994/11/30 21:20:37 roberto Exp roberto $";
+char *rcs_opcode="$Id: opcode.c,v 3.24 1994/12/06 14:27:18 roberto Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -644,6 +644,19 @@ int lua_pushstring (char *s)
 }
 
 /*
+** Push an object (tag=string) on stack and register it on the constant table.
+   Return 0 on success or 1 on error.
+*/
+int lua_pushliteral (char *s)
+{
+ lua_checkstack(top-stack+1);
+ tsvalue(top) = lua_constant[luaI_findconstant(lua_constcreate(s))];
+ tag(top) = LUA_T_STRING;
+ top++;
+ return 0;
+}
+
+/*
 ** Push an object (tag=cfunction) to stack. Return 0 on success or 1 on error.
 */
 int lua_pushcfunction (lua_CFunction fn)