lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 73664eb7399655e7cf65132c91a1aa16191a1667
parent feed56a01ccb9ca99271e0feca79f71aa5c38f8e
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri, 18 Nov 1994 17:27:19 -0200

function 'lua_createstring' moved from table.c to tree.c

Diffstat:
Mtable.c | 12+-----------
Mtable.h | 3+--
Mtree.c | 5+++--
Mtree.h | 4++--
4 files changed, 7 insertions(+), 17 deletions(-)

diff --git a/table.c b/table.c @@ -3,7 +3,7 @@ ** Module to control static tables */ -char *rcs_table="$Id: table.c,v 2.19 1994/11/16 17:39:16 roberto Exp $"; +char *rcs_table="$Id: table.c,v 2.20 1994/11/17 13:58:57 roberto Exp roberto $"; #include <string.h> @@ -180,16 +180,6 @@ void lua_pack (void) /* -** If the string isn't allocated, allocate a new string at string tree. -*/ -char *lua_createstring (char *s) -{ - if (s == NULL) return NULL; - return lua_strcreate(s); -} - - -/* ** Add a file name at file table, checking overflow. This function also set ** the external variable "lua_filename" with the function filename set. ** Return 0 on success or error message on error. diff --git a/table.h b/table.h @@ -1,7 +1,7 @@ /* ** Module to control static tables ** TeCGraf - PUC-Rio -** $Id: table.h,v 2.6 1994/11/16 16:03:48 roberto Exp roberto $ +** $Id: table.h,v 2.7 1994/11/17 13:58:57 roberto Exp roberto $ */ #ifndef table_h @@ -23,7 +23,6 @@ int luaI_findconstant (TreeNode *t); void lua_travsymbol (void (*fn)(Object *)); void lua_markobject (Object *o); void lua_pack (void); -char *lua_createstring (char *s); char *lua_addfile (char *fn); int lua_delfile (void); char *lua_filename (void); diff --git a/tree.c b/tree.c @@ -3,7 +3,7 @@ ** TecCGraf - PUC-Rio */ -char *rcs_tree="$Id: tree.c,v 1.7 1994/11/16 18:09:11 roberto Exp roberto $"; +char *rcs_tree="$Id: tree.c,v 1.8 1994/11/17 13:58:57 roberto Exp roberto $"; #include <string.h> @@ -53,9 +53,10 @@ static TreeNode *tree_create (TreeNode **node, char *str) } } -char *lua_strcreate (char *str) +char *lua_createstring (char *str) { StringNode *newString; + if (str == NULL) return NULL; lua_pack(); newString = (StringNode *)luaI_malloc(sizeof(StringNode)+strlen(str)); newString->mark = UNMARKED_STRING; diff --git a/tree.h b/tree.h @@ -1,7 +1,7 @@ /* ** tree.h ** TecCGraf - PUC-Rio -** $Id: tree.h,v 1.3 1994/11/16 16:03:48 roberto Exp roberto $ +** $Id: tree.h,v 1.4 1994/11/17 13:58:57 roberto Exp roberto $ */ #ifndef tree_h @@ -28,7 +28,7 @@ typedef struct TreeNode #define indexstring(s) (*(((Word *)s)-1)) -char *lua_strcreate (char *str); +char *lua_createstring (char *str); TreeNode *lua_constcreate (char *str); int lua_strcollector (void); TreeNode *lua_varnext (char *n);