proc getTclVersion {} {
if {[catch {tclEval info patchlevel} tclVersion] == 0} {
return "Tcl version $tclVersion"
}
return ""
}
proc getVersion { version } {
set length [string length $version]
return [string range $version 1 [expr {$length - 2}]]
}
set version [getVersion $manifest_version]
set tclVersion [getTclVersion]
set fossilUrl https://www.fossil-scm.org
set fossilDate [string range $manifest_date 0 9]T[string range $manifest_date 11 end]
This page was generated in about
puts [expr {([utime]+[stime]+1000)/1000*0.001}]s by
Fossil
version $release_version $tclVersion
$manifest_version
$manifest_date