TEA (tclconfig) Source Code

Check-in [f6a89ef414]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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:f6a89ef414e3eb259644a6c7c6fffd63cb6dafb5c9177fb1458342d90b908953
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
    }
    ###