TEA (tclconfig) Source Code

Check-in [64bde17a6d]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed a typo in practcl. Tweak to ensure inside of the practcl::module class that the make_object dict exists
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | practcl
Files: files | file ages | folders
SHA3-256: 64bde17a6da4a9367d1a584ef57374e8c3743edf642b50c0250a393d37d061e4
User & Date: hypnotoad 2018-10-28 06:50:48
Context
2018-12-05
15:31
Updating Practcl from tcllib check-in: 8171d2845f user: hypnotoad tags: practcl
2018-10-28
06:50
Fixed a typo in practcl. Tweak to ensure inside of the practcl::module class that the make_object dict exists check-in: 64bde17a6d user: hypnotoad tags: practcl
2018-10-25
17:53
Updated practcl check-in: 4519879c71 user: hypnotoad tags: practcl
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to practcl.tcl.

  6148   6148   # END: class product.tcl
  6149   6149   ###
  6150   6150   ###
  6151   6151   # START: class module.tcl
  6152   6152   ###
  6153   6153   ::clay::define ::practcl::module {
  6154   6154     superclass ::practcl::object ::practcl::product.dynamic
         6155  +  Dict make_object {}
  6155   6156     method _MorphPatterns {} {
  6156   6157       return {{@[email protected]} {::practcl::[email protected]@} ::practcl::module}
  6157   6158     }
  6158   6159     method add args {
  6159   6160       my variable links
  6160   6161       set object [::practcl::object new [self] {*}$args]
  6161   6162       foreach linktype [$object linktype] {
  6162   6163         lappend links($linktype) $object
  6163   6164       }
  6164   6165       return $object
  6165   6166     }
  6166         -  Dict make_object {}
  6167   6167     method install-headers args {}
  6168   6168     Ensemble make::_preamble {} {
  6169   6169       my variable make_object
         6170  +    if {![info exists make_object]} {
         6171  +      set make_object {}
         6172  +    }
  6170   6173     }
  6171   6174     Ensemble make::pkginfo {} {
  6172   6175       ###
  6173   6176       # Build local variables needed for install
  6174   6177       ###
  6175   6178       package require platform
  6176   6179       set result {}
................................................................................
  6276   6279       foreach {name obj} $make_object {
  6277   6280         if {[$obj do]} {
  6278   6281           lappend result $name
  6279   6282         }
  6280   6283       }
  6281   6284       return $result
  6282   6285     }
  6283         -  Ensemble make::todo {} {
         6286  +  Ensemble make::do {} {
  6284   6287       global CWD SRCDIR project SANDBOX
  6285   6288       foreach {name obj} $make_object {
  6286   6289         if {[$obj do]} {
  6287   6290           eval [$obj define get action]
  6288   6291         }
  6289   6292       }
  6290   6293     }