Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Small errors plague us all... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6afb5b02226587b3ef9e2e6ba4c5f418 |
| User & Date: | dkf 2011-07-29 20:46:10 |
Context
|
2011-08-01
| ||
| 09:15 | [Bug 3382474]: Added code to determine the version number of contributed packages from their directo... check-in: a258021b9a user: dkf tags: trunk | |
|
2011-07-31
| ||
| 23:16 | Bring up to date with mainline. check-in: e878fe8df0 user: dkf tags: dkf-utf16-branch | |
|
2011-07-29
| ||
| 20:46 | Small errors plague us all... check-in: 6afb5b0222 user: dkf tags: trunk | |
| 20:20 | Small enhancements to improve cross-linking with contributed packages. check-in: 81c94d0f5a user: dkf tags: trunk | |
Changes
Changes to tools/tcltk-man2html-utils.tcl.
| ︙ | ︙ | |||
823 824 825 826 827 828 829 |
}
return [reference-error "Uncaught quote case" $text]
}
bold {
if {$offset(end-bold) < 0} {
return [append result $text]
}
| | | 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 |
}
return [reference-error "Uncaught quote case" $text]
}
bold {
if {$offset(end-bold) < 0} {
return [append result $text]
}
if {[string match "c.*" $invert([lindex $offsets 1])]} {
set offsets [lreplace $offsets 1 1]
}
switch -exact -- $invert([lindex $offsets 1]) {
url - end-bold {
append result \
[string range $text 0 [expr {$offset(bold)-1}]]
set body [string range $text [expr {$offset(bold)+3}] \
|
| ︙ | ︙ | |||
857 858 859 860 861 862 863 |
c.tk - c.ttk - c.tcl - c.tdbc - c.itcl {
append result [string range $text 0 \
[expr {[lindex $offsets 0]-1}]]
regexp -indices -start [lindex $offsets 0] {\w+} $text range
set body [string range $text {*}$range]
set text [string range $text[set text ""] \
[expr {[lindex $range 1]+1}] end]
| | | 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 |
c.tk - c.ttk - c.tcl - c.tdbc - c.itcl {
append result [string range $text 0 \
[expr {[lindex $offsets 0]-1}]]
regexp -indices -start [lindex $offsets 0] {\w+} $text range
set body [string range $text {*}$range]
set text [string range $text[set text ""] \
[expr {[lindex $range 1]+1}] end]
append result [cross-reference $body]
continue
}
Tcl1 - Tcl2 {
set off [lindex $offsets 0]
append result [string range $text 0 [expr {$off-1}]]
set text [string range $text[set text ""] [expr {$off+3}] end]
append result [cross-reference Tcl]
|
| ︙ | ︙ |