Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updated practcl to the latest version |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
69e0145691b568676f922363e5299968 |
| User & Date: | hypnotoad 2017-10-24 19:43:33.480 |
Context
|
2017-11-03
| ||
| 19:20 | Updating practcl.tcl check-in: f2fa2eb449 user: hypnotoad tags: practcl | |
|
2017-10-24
| ||
| 19:43 | Updated practcl to the latest version check-in: 69e0145691 user: hypnotoad tags: practcl | |
|
2017-10-18
| ||
| 20:19 | Small checkin to trigger sha3 conversion check-in: e79d0c8936 user: hypnotoad tags: practcl | |
Changes
Changes to practcl.tcl.
| ︙ | ︙ | |||
108 109 110 111 112 113 114 115 116 117 118 119 120 121 |
# an object to be named later
###
if {[info command ::noop] eq {}} {
proc ::noop args {}
}
proc ::practcl::debug args {
::practcl::cputs ::DEBUG_INFO $args
}
###
# Drop in a static copy of Tcl
###
proc ::practcl::doexec args {
| > | 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
# an object to be named later
###
if {[info command ::noop] eq {}} {
proc ::noop args {}
}
proc ::practcl::debug args {
#puts $args
::practcl::cputs ::DEBUG_INFO $args
}
###
# Drop in a static copy of Tcl
###
proc ::practcl::doexec args {
|
| ︙ | ︙ | |||
959 960 961 962 963 964 965 |
set fname [file rootname [file tail $file]]
# Look for a package provide statement
foreach line [split $dat \n] {
set line [string trim $line]
if { [string range $line 0 14] != "package provide" } continue
set package [lindex $line 2]
set version [lindex $line 3]
| | | | 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 |
set fname [file rootname [file tail $file]]
# Look for a package provide statement
foreach line [split $dat \n] {
set line [string trim $line]
if { [string range $line 0 14] != "package provide" } continue
set package [lindex $line 2]
set version [lindex $line 3]
if {[string index $package 0] in "\$ \[ @"} continue
if {[string index $version 0] in "\$ \[ @"} continue
append buffer "package ifneeded $package $version \[list source \[file join \$dir [file tail $file]\]\]" \n
break
}
}
return $buffer
}
set fin [open $pkgidxfile r]
|
| ︙ | ︙ | |||
5289 5290 5291 5292 5293 5294 5295 |
::practcl::LOCAL add_tool tcllib {
tag trunk class tool.source fossil_url http://core.tcl.tk/tcllib
}
::practcl::LOCAL add_tool kettle {
tag trunk class tool.source fossil_url http://fossil.etoyoc.com/fossil/kettle
}
::practcl::LOCAL add_tool critcl {
| | | 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302 5303 5304 |
::practcl::LOCAL add_tool tcllib {
tag trunk class tool.source fossil_url http://core.tcl.tk/tcllib
}
::practcl::LOCAL add_tool kettle {
tag trunk class tool.source fossil_url http://fossil.etoyoc.com/fossil/kettle
}
::practcl::LOCAL add_tool critcl {
tag master class tool.source
git_url http://github.com/andreas-kupries/critcl
}
::practcl::LOCAL add_tool odie {
tag trunk class tool.source
fossil_url http://fossil.etoyoc.com/fossil/odie
}
}
|
| ︙ | ︙ |