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

when formatting with '%q', all control characters are coded 

as \nnn.
This commit is contained in:
Roberto Ierusalimschy 2007-02-07 15:53:08 -02:00
parent cf86576a83
commit d62a21b9d3
1 changed files with 14 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lstrlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.134 2006/09/11 14:07:24 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.135 2006/09/18 16:33:14 roberto Exp roberto $
** Standard library for string operations and pattern-matching ** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -697,25 +697,20 @@ static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
const char *s = luaL_checklstring(L, arg, &l); const char *s = luaL_checklstring(L, arg, &l);
luaL_addchar(b, '"'); luaL_addchar(b, '"');
while (l--) { while (l--) {
switch (*s) { if (*s == '"' || *s == '\\' || *s == '\n') {
case '"': case '\\': case '\n': { luaL_addchar(b, '\\');
luaL_addchar(b, '\\'); luaL_addchar(b, *s);
luaL_addchar(b, *s);
break;
}
case '\r': {
luaL_addlstring(b, "\\r", 2);
break;
}
case '\0': {
luaL_addlstring(b, "\\000", 4);
break;
}
default: {
luaL_addchar(b, *s);
break;
}
} }
else if (*s == '\0' || iscntrl(uchar(*s))) {
char buff[10];
if (*s != '\0' && !isdigit(uchar(*(s+1))))
sprintf(buff, "\\%d", uchar(*s));
else
sprintf(buff, "\\%03d", uchar(*s));
luaL_addstring(b, buff);
}
else
luaL_addchar(b, *s);
s++; s++;
} }
luaL_addchar(b, '"'); luaL_addchar(b, '"');