Artifact 96022f35ada2194f6f8ccf6fd95809e90ed277c4:
- File tool/tostr.tcl — part of check-in [5b67752153] at 2015-10-07 12:36:42 on branch omit-awk — Convert the tool/tostr.awk script into tool/tostr.tcl. Remove two obsolete Makefiles. Purge NAWK from the configure script and from unix makefiles. There are still two uses of NAWK in Makefile.msc. (user: drh size: 243) [more...]
#!/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