Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * tkchat.tcl (::tkchat::parseStr): Render words of 10..40 characters as links to fossil artifact IDs on core.tcl.tk. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c2dfc15db550cf8cf2a0e8f2824f3f8d |
| User & Date: | rmax 2011-03-23 17:31:25.000 |
Context
|
2011-05-12
| ||
| 21:25 | Make all http requests explictly ipv4 when using 8.6. There is currently a bug in the ipv6 socket handling in 8.6 where if a site has an ipv6 address and does not provide a services on that address then socket -async will return an error to tcl. A synchronous socket will try ipv6 and then ipv4 before returning to tcl. To work around this we can force http requests to use ipv4 until this is fixed so that async sockets operate like the synchronous ones. Signed-off-by: Pat Thoyts <[email protected]> check-in: 35f975c8d8 user: patthoyts tags: trunk | |
|
2011-03-23
| ||
| 17:31 | * tkchat.tcl (::tkchat::parseStr): Render words of 10..40 characters as links to fossil artifact IDs on core.tcl.tk. check-in: c2dfc15db5 user: rmax tags: trunk | |
|
2011-01-06
| ||
| 17:15 | Add standalone support to askleo check-in: 21449c368f user: rmax tags: trunk | |
Changes
Changes to apps/tkchat/ChangeLog.
1 2 3 4 5 6 7 | 2011-01-06 Reinhard Max <[email protected]> * askleo/askleo.tcl: Complete the API adjustments and add support for running askleo.tcl as a standalone application. 2010-11-16 Reinhard Max <[email protected]> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2011-03-23 Reinhard Max <[email protected]> * tkchat.tcl (::tkchat::parseStr): Render words of 10..40 characters as links to fossil artifact IDs on core.tcl.tk. 2011-01-06 Reinhard Max <[email protected]> * askleo/askleo.tcl: Complete the API adjustments and add support for running askleo.tcl as a standalone application. 2010-11-16 Reinhard Max <[email protected]> |
| ︙ | ︙ |
Changes to apps/tkchat/tkchat.tcl.
| ︙ | ︙ | |||
275 276 277 278 279 280 281 |
}
}
namespace eval ::tkchat {
variable chatWindowTitle "The Tcler's Chat"
variable HEADUrl {http://tcllib.cvs.sourceforge.net/*checkout*/tcllib/tclapps/apps/tkchat/tkchat.tcl?revision=HEAD}
| | | 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 |
}
}
namespace eval ::tkchat {
variable chatWindowTitle "The Tcler's Chat"
variable HEADUrl {http://tcllib.cvs.sourceforge.net/*checkout*/tcllib/tclapps/apps/tkchat/tkchat.tcl?revision=HEAD}
variable rcsid {$Id: tkchat.tcl,v 1.482 2011/03/23 17:31:26 rmax Exp $}
variable MSGS
set MSGS(entered) [list \
"%user% has entered the chat!" \
"Out of a cloud of smoke, %user% appears!" \
"%user% saunters in." \
"%user% wanders in." \
|
| ︙ | ︙ | |||
1032 1033 1034 1035 1036 1037 1038 |
}
if {[string length $str]} {
lappend sList $str ""
}
set out {}
variable TipIndex
| < > > > > > > > > > > > > > > | 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 |
}
if {[string length $str]} {
lappend sList $str ""
}
set out {}
variable TipIndex
foreach {str url} $sList {
if {[string length $url]} {
lappend out $str $url {}
continue
}
# Assume any 6 or 7-digit sequence is a SF bug id and make
# URLs for them
while {[regexp -- {^(.*?)(\m[0-9]{6,7}\M)(.*?)$} \
$str -> pre id post]} {
if {[string length $pre]} {
lappend out $pre {} {}
}
set url "http://sourceforge.net/support/tracker.php?aid=$id"
lappend out $id $url $url
set str $post
}
# Render words of 10..40 characters as links to fossil
# artifact IDs on core.tcl.tk
while {[regexp -- {^(.*?)(\m[[:xdigit:]]{10,40}\M)(.*?)$} \
$str -> pre id post]} {
if {[string length $pre]} {
lappend out $pre {} {}
}
set url "http://core.tcl.tk/redirect?name=$id"
lappend out $id $url $url
set str $post
}
# Detect the mentioning of TIPs and link to them
while {[regexp -- {^(.*?)[Tt][Ii][Pp]\s?\#?(\d+)(.*?)$} $str -> pre id post]} {
if {[string length $pre]} { lappend out $pre {} {} }
set tt ""
catch {
if {[info exists TipIndex] && $id < [llength $TipIndex] && $id >= 0} {
array set tip [lindex $TipIndex $id]
set tt $tip(Title)
|
| ︙ | ︙ |