Fossil SCM
|
1
|
<footer> |
|
2
|
<th1> |
|
3
|
proc getTclVersion {} { |
|
4
|
if {[catch {tclEval info patchlevel} tclVersion] == 0} { |
|
5
|
return "<a href=\"https://www.tcl.tk/\">Tcl</a> version $tclVersion" |
|
6
|
} |
|
7
|
return "" |
|
8
|
} |
|
9
|
proc getVersion { version } { |
|
10
|
set length [string length $version] |
|
11
|
return [string range $version 1 [expr {$length - 2}]] |
|
12
|
} |
|
13
|
set version [getVersion $manifest_version] |
|
14
|
set tclVersion [getTclVersion] |
|
15
|
set fossilUrl https://fossil-scm.org |
|
16
|
set fossilDate [string range $manifest_date 0 9]T[string range $manifest_date 11 end] |
|
17
|
</th1> |
|
18
|
This page was generated in about |
|
19
|
<th1>puts [expr {([utime]+[stime]+1000)/1000*0.001}]</th1>s by |
|
20
|
<a href="$fossilUrl/">Fossil</a> |
|
21
|
version $release_version $tclVersion |
|
22
|
<a href="$fossilUrl/index.html/info/$version">$manifest_version</a> |
|
23
|
<a href="$fossilUrl/index.html/timeline?c=$fossilDate&y=ci">$manifest_date</a> |
|
24
|
</footer> |
|
25
|
|