Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Support implementations in tickets as well. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | branch-link |
| Files: | files | file ages | folders |
| SHA3-256: |
4ecb8a0dd3f71d3a0a87c58c26047225 |
| User & Date: | dkf 2018-10-12 21:29:49 |
Context
|
2018-10-12
| ||
| 21:30 | Added metadata about all 8.7 and 9.0 TIPs (where I can figure it out). check-in: 922263652c user: dkf tags: branch-link | |
| 21:29 | Support implementations in tickets as well. check-in: 4ecb8a0dd3 user: dkf tags: branch-link | |
| 19:45 | Start of script for providing links to implementation branches check-in: 92df43c1ee user: dkf tags: branch-link | |
Changes
Changes to scripts/mkhtmlindex.tcl.
175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 |
regexp {(\d+)(?:\.(\d+))?} $fields(tcl-version) -> v1 v2
set version $v1$v2
append class " [string tolower $type$state$version]"
append class " project$version"
}
}
}
if {[info exists fields(tcl-branch)] && [regexp {^[-\w]+$} $fields(tcl-branch)]} {
set link [format "/tcl/timeline?r=%s" $fields(tcl-branch)]
} elseif {[info exists fields(tk-branch)] && [regexp {^[-\w]+$} $fields(tk-branch)]} {
set link [format "/tk/timeline?r=%s" $fields(tk-branch)]
}
puts $index "<tr class='$class'>"
puts $index "<td valign='top'><a href='./tip/$number.md'>$number</a></td>"
if {[info exists fields(tcl-version)]} {
puts $index "<td valign='top'>[encodeHTML $type]</td>"
puts $index "<td valign='top'>[encodeHTML $fields(tcl-version)]</td>"
} else {
puts $index "<td valign='top' colspan=2>[encodeHTML $type]</td>"
|
> > > > > > > |
175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 |
regexp {(\d+)(?:\.(\d+))?} $fields(tcl-version) -> v1 v2
set version $v1$v2
append class " [string tolower $type$state$version]"
append class " project$version"
}
}
}
# Decode links to branches and tickets with implementations
if {[info exists fields(tcl-branch)] && [regexp {^[-\w]+$} $fields(tcl-branch)]} {
set link [format "/tcl/timeline?r=%s" $fields(tcl-branch)]
} elseif {[info exists fields(tk-branch)] && [regexp {^[-\w]+$} $fields(tk-branch)]} {
set link [format "/tk/timeline?r=%s" $fields(tk-branch)]
} elseif {[info exists fields(tcl-ticket)] && [regexp {^[a-f0-9]+$} $fields(tcl-ticket)]} {
set link [format "/tcl/tktview/%s" $fields(tcl-ticket)]
} elseif {[info exists fields(tk-ticket)] && [regexp {^[a-f0-9]+$} $fields(tk-ticket)]} {
set link [format "/tk/tktview/%s" $fields(tk-ticket)]
}
puts $index "<tr class='$class'>"
puts $index "<td valign='top'><a href='./tip/$number.md'>$number</a></td>"
if {[info exists fields(tcl-version)]} {
puts $index "<td valign='top'>[encodeHTML $type]</td>"
puts $index "<td valign='top'>[encodeHTML $fields(tcl-version)]</td>"
} else {
puts $index "<td valign='top' colspan=2>[encodeHTML $type]</td>"
|