linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SICS-752 Escape all embedded braces in hlistprop tcllist output

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-23 12:40:26 +10:00
parent 6dba13a5ab
commit 565ba9d10d
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
sicshipadaba.c
View File

@ -3609,11 +3609,16 @@ static int ListSICSHdbProperty(SConnection * pCon, SicsInterp * pSics,
while ((pKey = GetNextHdbProperty(targetNode, buffer, 511)) != NULL) {
DynStringConcat(data, (char *) pKey);
if (genTclList) {
DynStringConcat(data, " ");
DynStringConcat(data, "{");
DynStringConcat(data, buffer);
DynStringConcat(data, "}");
DynStringConcat(data, " ");
char *bp;
DynStringConcatChar(data, ' ');
DynStringConcatChar(data, '{');
for (bp = buffer; *bp; ++bp) {
if (*bp == '{' || *bp == '}')
DynStringConcatChar(data, '\\');
DynStringConcatChar(data, *bp);
}
DynStringConcatChar(data, '}');
DynStringConcatChar(data, ' ');
} else {
DynStringConcat(data, "=");
DynStringConcat(data, buffer);