Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Support implementations in tickets as well. |
---|---|
Downloads: | Tarball | ZIP 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.967 |
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>" |
︙ | ︙ |