Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updated practcl to the latest version |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
69e0145691b568676f922363e5299968 |
| User & Date: | hypnotoad 2017-10-24 19:43:33 |
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 ... 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 .... 5289 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302 5303 |
# 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 {
................................................................................
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]
................................................................................
::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 trunk 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
}
}
|
> | | | |
108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 ... 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 .... 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302 5303 5304 |
# 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 {
................................................................................
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]
................................................................................
::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
}
}
|