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

new function for copy strings (strdup is not ANSI)

This commit is contained in:
Roberto Ierusalimschy 1995-02-06 17:37:51 -02:00
parent 3203460c9e
commit 2d053126e6
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
strlib.c
View File

@ -3,16 +3,27 @@
** String library to LUA ** String library to LUA
*/ */
char *rcs_strlib="$Id: strlib.c,v 1.10 1995/02/02 18:54:58 roberto Exp $"; char *rcs_strlib="$Id: strlib.c,v 1.11 1995/02/02 20:05:37 roberto Exp roberto $";
#include <string.h> #include <string.h>
#include <strings.h>
#include <stdlib.h> #include <stdlib.h>
#include <ctype.h> #include <ctype.h>
#include "lua.h" #include "lua.h"
#include "lualib.h" #include "lualib.h"
static char *newstring (lua_Object o)
{
char *s = lua_getstring(o);
char *ns = (char *)malloc(strlen(s)+1);
if (ns == 0)
lua_error("not enough memory for new string");
strcpy(ns, s);
return ns;
}
/* /*
** Return the position of the first caracter of a substring into a string ** Return the position of the first caracter of a substring into a string
** LUA interface: ** LUA interface:
@ -86,7 +97,7 @@ static void str_sub (void)
lua_error ("incorrect arguments to function `strsub'"); lua_error ("incorrect arguments to function `strsub'");
if (o3 != LUA_NOOBJECT && !lua_isnumber(o3)) if (o3 != LUA_NOOBJECT && !lua_isnumber(o3))
lua_error ("incorrect third argument to function `strsub'"); lua_error ("incorrect third argument to function `strsub'");
s = lua_copystring(o1); s = newstring(o1);
start = lua_getnumber (o2); start = lua_getnumber (o2);
end = o3 == LUA_NOOBJECT ? strlen(s) : lua_getnumber (o3); end = o3 == LUA_NOOBJECT ? strlen(s) : lua_getnumber (o3);
if (end < start || start < 1 || end > strlen(s)) if (end < start || start < 1 || end > strlen(s))
@ -110,7 +121,7 @@ static void str_lower (void)
lua_Object o = lua_getparam (1); lua_Object o = lua_getparam (1);
if (!lua_isstring(o)) if (!lua_isstring(o))
lua_error ("incorrect arguments to function `strlower'"); lua_error ("incorrect arguments to function `strlower'");
c = s = lua_copystring(o); c = s = newstring(o);
while (*c != 0) while (*c != 0)
{ {
*c = tolower(*c); *c = tolower(*c);
@ -132,7 +143,7 @@ static void str_upper (void)
lua_Object o = lua_getparam (1); lua_Object o = lua_getparam (1);
if (!lua_isstring(o)) if (!lua_isstring(o))
lua_error ("incorrect arguments to function `strlower'"); lua_error ("incorrect arguments to function `strlower'");
c = s = lua_copystring(o); c = s = newstring(o);
while (*c != 0) while (*c != 0)
{ {
*c = toupper(*c); *c = toupper(*c);