Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Updated practcl from tcllib |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | practcl |
Files: | files | file ages | folders |
SHA3-256: |
f6a89ef414e3eb259644a6c7c6fffd63 |
User & Date: | hypnotoad 2018-01-11 19:38:31.299 |
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 } ### |
︙ | ︙ |