Tcl Source Code

Artifact [f18cb4b4b5]
Login

Artifact f18cb4b4b582adc83102e085f9b2713e05b4ce205967a60eb7f9de80b1497393:


#!/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