Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updated practcl from tcllib |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | practcl |
| Files: | files | file ages | folders |
| SHA3-256: |
f6a89ef414e3eb259644a6c7c6fffd63 |
| User & Date: | hypnotoad 2018-01-11 19:38:31 |
Context
|
2018-01-16
| ||
| 23:27 |
New version of practcl.tcl from tcllib.
New version of the tclZipfs.c file. Now an identical file is checked into set core itself. check-in: 3785abe658 user: hypnotoad tags: practcl | |
|
2018-01-11
| ||
| 19:38 | Updated practcl from tcllib check-in: f6a89ef414 user: hypnotoad tags: practcl | |
| 18:09 | Update version to 4.0. Added an implementation of tclzipfs.c in the compat/ directory. Updated the practcl library check-in: 310f8e80f8 user: hypnotoad tags: practcl | |
Changes
Changes to practcl.tcl.
1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 |
set filename [file join $builddir ${name}Config.sh]
if {[file exists $filename]} {
set l [expr {[string length $name]+1}]
foreach {field dat} [::practcl::read_Config.sh $filename] {
set field [string tolower $field]
if {[string match ${name}_* $field]} {
set field [string range $field $l end]
}
dict set result $field $dat
}
set conf_result $result
return $result
}
###
|
> > > > > > > > |
1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 |
set filename [file join $builddir ${name}Config.sh]
if {[file exists $filename]} {
set l [expr {[string length $name]+1}]
foreach {field dat} [::practcl::read_Config.sh $filename] {
set field [string tolower $field]
if {[string match ${name}_* $field]} {
set field [string range $field $l end]
}
switch $field {
version {
dict set result pkg_vers $dat
}
lib_file {
set field libfile
}
}
dict set result $field $dat
}
set conf_result $result
return $result
}
###
|