nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new option 'q' in function "format".

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1996-03-14 12:52:35 -03:00
parent 281db390e8
commit 2fee7e42c9
1 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
strlib.c
View File

@@ -3,7 +3,7 @@
** String library to LUA ** String library to LUA
*/ */
char *rcs_strlib="$Id: strlib.c,v 1.18 1996/02/12 18:32:40 roberto Exp $"; char *rcs_strlib="$Id: strlib.c,v 1.18 1996/02/12 18:34:44 roberto Exp roberto $";
#include <string.h> #include <string.h>
#include <stdio.h> #include <stdio.h>
@@ -175,6 +175,17 @@ static void str_ascii (void)
lua_pushnumber(s[pos]); lua_pushnumber(s[pos]);
} }
void luaI_addquoted (char *s)
{
luaI_addchar('"');
for (; *s; s++)
{
if (*s == '"' || *s == '\\' || *s == '\n')
luaI_addchar('\\');
luaI_addchar(*s);
}
luaI_addchar('"');
}
#define MAX_CONVERTION 2000 #define MAX_CONVERTION 2000
#define MAX_FORMAT 50 #define MAX_FORMAT 50
@@ -215,6 +226,10 @@ static void str_format (void)
form[i+1] = 0; /* ends string */ form[i+1] = 0; /* ends string */
switch (form[i]) switch (form[i])
{ {
case 'q':
luaI_addquoted(lua_check_string(arg++, "format"));
buff[0] = '\0'; /* addchar already done */
break;
case 's': case 's':
{ {
char *s = lua_check_string(arg++, "format"); char *s = lua_check_string(arg++, "format");