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

new names for 'ascii' ('strbyte') and 'int2str' ('strchar')

This commit is contained in:
Roberto Ierusalimschy 1998-05-31 19:20:45 -03:00
parent 243a808067
commit 6152973f9c
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lstrlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.12 1998/03/24 20:14:25 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.13 1998/05/18 22:21:55 roberto Exp roberto $
** Standard library for strings and pattern-matching ** Standard library for strings and pattern-matching
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -92,7 +92,7 @@ static void str_rep (void)
} }
static void str_ascii (void) static void str_byte (void)
{ {
long l; long l;
char *s = luaL_check_lstr(1, &l); char *s = luaL_check_lstr(1, &l);
@ -101,12 +101,14 @@ static void str_ascii (void)
lua_pushnumber((unsigned char)s[pos-1]); lua_pushnumber((unsigned char)s[pos-1]);
} }
static void str_int2str (void) static void str_char (void) {
{
int i = 0; int i = 0;
luaL_resetbuffer(); luaL_resetbuffer();
while (lua_getparam(++i) != LUA_NOOBJECT) while (lua_getparam(++i) != LUA_NOOBJECT) {
luaL_addchar((int)luaL_check_number(i)); double c = luaL_check_number(i);
luaL_arg_check((unsigned char)c == c, i, "invalid value");
luaL_addchar((int)c);
}
closeandpush(); closeandpush();
} }
@ -518,9 +520,10 @@ static struct luaL_reg strlib[] = {
{"strsub", str_sub}, {"strsub", str_sub},
{"strlower", str_lower}, {"strlower", str_lower},
{"strupper", str_upper}, {"strupper", str_upper},
{"int2str", str_int2str}, {"strchar", str_char},
{"strrep", str_rep}, {"strrep", str_rep},
{"ascii", str_ascii}, {"ascii", str_byte}, /* for compatibility */
{"strbyte", str_byte},
{"format", str_format}, {"format", str_format},
{"strfind", str_find}, {"strfind", str_find},
{"gsub", str_gsub} {"gsub", str_gsub}