Tcl Source Code

addVerToFile.tcl at tip
Login

File tools/addVerToFile.tcl from the latest check-in


#!/usr/bin/env tclsh
if {$argc < 1} {
    error "need a filename argument"
}
lassign $argv filename
set f [open $filename a]
puts $f "TCL_VERSION=[info tclversion]"
puts $f "TCL_PATCHLEVEL=[info patchlevel]"
close $f