GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

small corrections in error messages

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1996-10-31 18:18:05 -02:00
parent 9d0044ce53
commit a1e41e3a12
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
strlib.c
View File

@ -3,7 +3,7 @@
** String library to LUA ** String library to LUA
*/ */
char *rcs_strlib="$Id: strlib.c,v 1.29 1996/09/20 18:20:44 roberto Exp roberto $"; char *rcs_strlib="$Id: strlib.c,v 1.30 1996/10/31 17:26:04 roberto Exp roberto $";
#include <string.h> #include <string.h>
#include <stdio.h> #include <stdio.h>
@ -359,10 +359,10 @@ static char *match (char *s, char *p, int level)
static void str_find (void) static void str_find (void)
{ {
char *s = lua_check_string(1, "find"); char *s = lua_check_string(1, "strfind");
char *p = lua_check_string(2, "find"); char *p = lua_check_string(2, "strfind");
long init = lua_opt_number(3, 1, "strfind") - 1; long init = lua_opt_number(3, 1, "strfind") - 1;
lua_arg_check(0 <= init && init <= strlen(s), "find"); lua_arg_check(0 <= init && init <= strlen(s), "strfind");
if (lua_getparam(4) != LUA_NOOBJECT || if (lua_getparam(4) != LUA_NOOBJECT ||
strpbrk(p, SPECIALS) == NULL) { /* no special caracters? */ strpbrk(p, SPECIALS) == NULL) { /* no special caracters? */
char *s2 = strstr(s+init, p); char *s2 = strstr(s+init, p);
@ -415,7 +415,7 @@ static void add_s (lua_Object newp)
addstr(lua_isstring(res) ? lua_getstring(res) : ""); addstr(lua_isstring(res) ? lua_getstring(res) : "");
lua_endblock(); lua_endblock();
} }
else lua_error("incorrect argument to `gsub'"); else lua_arg_check(0, "gsub");
} }
static void str_gsub (void) static void str_gsub (void)