Check-in [4ecb8a0dd3]

Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 4ecb8a0dd3f71d3a0a87c58c26047225bd1cc2d83a6dc0b51d0f19541581bf59
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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>"