On Sat, 27 Jan 2007 02:22:58 -0500 Shawn O. Pearce wrote:
> Love it or hate it, some people actually still program in Tcl. Some
> of those programs are meant for interfacing with Git. Programs such as
> gitk and git-gui. It may be useful to have Tcl-safe output available
> from for-each-ref, just like shell, Perl and Python already enjoy.
[...]
> +void tcl_quote_print(FILE *stream, const char *src)
> +{
> + const char lb = '{';
> + const char rb = '}';
> + const char bq = '\\';
> + char c;
> +
> + fputc(lb, stream);
> + while ((c = *src++)) {
> + if (c == lb || c == rb || c == bq)
> + fputc(bq, stream);
> + fputc(c, stream);
> + }
> + fputc(rb, stream);
> +}
No, this is broken - backslashes cannot be used to quote special
characters in braces.
If the first character of a word is an open brace (``{'') then
the word is terminated by the matching close brace (``}'').
Braces nest within the word: for each additional open brace
there must be an additional close brace (however, if an open
brace or close brace within the word is quoted with a backslash
then it is not counted in locating the matching close brace).
No substitutions are performed on the characters between the
braces except for backslash-newline substitutions described
below, nor do semi-colons, newlines, close brackets, or white
space receive any special interpretation. The word will consist
of exactly the characters between the outer braces, not includ-
ing the braces themselves.
The problem is that using '\{' will protect from nonmatching braces,
but the backslash will stay in the resulting string - it will not be
removed. Similarly for '\}' and '\\'.
Tcl itself checks whether using braces is safe (it could be safe if
the text does not have nonmatching braces and does not have an odd
number of backslash characters at end of line), and uses just
backslashes if braces cannot be used. See tclUtil.c,
Tcl_ScanCountedElement() and Tcl_ConvertCountedElement().
This code adds a backslash before ']', '[', '$', ';', ' ', '\\', '"',
'{', '}', and also converts special characters '\f', '\n', '\r', '\t',
'\v' to C-style escape sequences.
Untested code (output will not look very nice, but it is not intended
for human consumption anyway):
void tcl_quote_print(FILE *stream, const char *src)
{
char c;
while ((c = *src++)) {
switch (c) {
case ']':
case '[':
case '$':
case ';':
case ' ':
case '\\':
case '"':
case '{':
case '}':
fputc('\\', stream);
default:
fputc(c, stream);
break;
case '\f':
fputs("\\f", stream);
break;
case '\n':
fputs("\\n", stream);
break;
case '\r':
fputs("\\r", stream);
break;
case '\t':
fputs("\\t", stream);
break;
case '\v':
fputs("\\v", stream);
break;
}
}
}
Attachment:
pgpjp3tH4twbY.pgp
Description: PGP signature