lua

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

commit 2fee7e42c93ffdd4859fa4d06602760eacbef629
parent 281db390e8c8bdb8423a21728a2d4ac703ac3f33
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 14 Mar 1996 12:52:15 -0300

new option 'q' in function "format".

Diffstat:
Mstrlib.c | 17++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/strlib.c b/strlib.c @@ -3,7 +3,7 @@ ** 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 <stdio.h> @@ -175,6 +175,17 @@ static void str_ascii (void) 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_FORMAT 50 @@ -215,6 +226,10 @@ static void str_format (void) form[i+1] = 0; /* ends string */ switch (form[i]) { + case 'q': + luaI_addquoted(lua_check_string(arg++, "format")); + buff[0] = '\0'; /* addchar already done */ + break; case 's': { char *s = lua_check_string(arg++, "format");