Overview
Comment: | Removed stringify code |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 6e66345ea7d6677a65668fdedf1cd0bc73ea99bf |
User & Date: | rkeene on 2010-09-26 19:39:23 |
Other Links: | manifest | tags |
Context
2010-09-26
| ||
22:52 | Updated logo, again check-in: a0a0e8ad2c user: rkeene tags: trunk | |
19:39 | Removed stringify code check-in: 6e66345ea7 user: rkeene tags: trunk | |
19:26 | Updated logo check-in: 5074d303a3 user: rkeene tags: trunk | |
Changes
Deleted kitdll/buildsrc/kitdll-0.0/stringify.tcl version [07e25e6903].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
#! /usr/bin/env tclsh proc stringifyfile {filename {key 0}} { catch { set fd [open $filename r] } if {![info exists fd]} { return "" } set data [read -nonewline $fd] close $fd foreach line [split $data \n] { set line [string map [list "\\" "\\\\" "\"" "\\\""] $line] append ret " \"$line\\n\"\n" } return $ret } foreach file $argv { puts -nonewline [stringifyfile $file] } exit 0 |
< < < < < < < < < < < < < < < < < < < < < < < < < < < |