Sign in
chromium
/
external
/
github.com
/
pwnall
/
sqlite
/
refs/heads/pointer-with-destructor
/
.
/
tool
/
tostr.tcl
blob: cb06ee947f98c33c2d55c09381b314c2fe6b7c57 [
file
] [
log
] [
blame
] [
edit
]
#!/usr/bin/tcl
#
# Convert input text into a C string
#
set
in
[
open
[
lindex
$
argv
0
]
rb
]
while
{
![
eof
$
in
]}
{
set
line
[
gets
$
in
]
if
{
[
eof
$
in
]}
break
;
set
x
[
string map
"\\\\ \\\\\\\\ \\\" \\\\\""
$
line
]
puts
"\"$x\\n\""
}
close
$
in