TEA (tclconfig) Source Code: Check-in [64bde17a6d]

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 Leaf 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 Unified Diffs Ignore Whitespace Patch

Changes to practcl.tcl.

# END: class product.tcl
###
###
# START: class module.tcl
###
::clay::define ::practcl::module {
  superclass ::practcl::object ::practcl::product.dynamic

  method _MorphPatterns {} {
    return {{@[email protected]} {::practcl::[email protected]@} ::practcl::module}
  }
  method add args {
    my variable links
    set object [::practcl::object new [self] {*}$args]
    foreach linktype [$object linktype] {
      lappend links($linktype) $object
    }
    return $object
  }
  Dict make_object {}
  method install-headers args {}
  Ensemble make::_preamble {} {
    my variable make_object



  }
  Ensemble make::pkginfo {} {
    ###
    # Build local variables needed for install
    ###
    package require platform
    set result {}
................................................................................
    foreach {name obj} $make_object {
      if {[$obj do]} {
        lappend result $name
      }
    }
    return $result
  }
  Ensemble make::todo {} {
    global CWD SRCDIR project SANDBOX
    foreach {name obj} $make_object {
      if {[$obj do]} {
        eval [$obj define get action]
      }
    }
  }

# END: class product.tcl
###
###
# START: class module.tcl
###
::clay::define ::practcl::module {
  superclass ::practcl::object ::practcl::product.dynamic
  Dict make_object {}
  method _MorphPatterns {} {
    return {{@[email protected]} {::practcl::[email protected]@} ::practcl::module}
  }
  method add args {
    my variable links
    set object [::practcl::object new [self] {*}$args]
    foreach linktype [$object linktype] {
      lappend links($linktype) $object
    }
    return $object
  }

  method install-headers args {}
  Ensemble make::_preamble {} {
    my variable make_object
    if {![info exists make_object]} {
      set make_object {}
    }
  }
  Ensemble make::pkginfo {} {
    ###
    # Build local variables needed for install
    ###
    package require platform
    set result {}
................................................................................
    foreach {name obj} $make_object {
      if {[$obj do]} {
        lappend result $name
      }
    }
    return $result
  }
  Ensemble make::do {} {
    global CWD SRCDIR project SANDBOX
    foreach {name obj} $make_object {
      if {[$obj do]} {
        eval [$obj define get action]
      }
    }
  }