Browse Source

package provide fixes (compat tcl9 var scope change)

master
Julian Noble 1 year ago
parent
commit
ff33daa5de
  1. 2
      src/deps/dictutils-0.2.tm
  2. 12
      src/modules/overtype-1.4.tm
  3. 13
      src/modules/punk/mix/templates/module/module_clitemplate-0.0.1.tm
  4. 12
      src/modules/punk/overlay-0.1.tm

2
src/deps/dictutils-0.2.tm vendored

@ -7,7 +7,7 @@
# License: http://www.cs.nott.ac.uk/~nem/license.terms (Tcl-style).
#
package require Tcl 8.6
package require Tcl 8.6-
package provide dictutils 0.2
namespace eval dictutils {

12
src/modules/overtype-1.4.tm

@ -1,5 +1,3 @@
package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}]
#Julian Noble <julian@precisium.com.au> - 2003
#Released under standard 'BSD license' conditions.
#
@ -178,3 +176,13 @@ proc overtype::right {args} {
namespace eval overtype {
interp alias {} ::overtype::center {} ::overtype::centre
}
#breaks in tcl9 due to variable scoping change (fix of 'creative writing' problem)
#package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}]
package provide overtype [namespace eval overtype {
variable version
set version 1.4
}]

13
src/modules/punk/mix/templates/module/module_clitemplate-0.0.1.tm

@ -1,8 +1,4 @@
package provide punk::clitemplate [namespace eval punk::clitemplate {
variable version
set version 0.1
}]
namespace eval punk::clitemplate {
proc runcli {args} {
@ -61,6 +57,9 @@ namespace eval punk::clitemplate::clicommands {
}
}
}
package provide punk::clitemplate [namespace eval punk::clitemplate {
variable version
set version 0.1
}]

12
src/modules/punk/overlay-0.1.tm

@ -1,6 +1,5 @@
package provide [lindex [list [set ver [join [lassign [split [ file tail [file rootname [info script] ]] -] pkg] -]] $pkg] 1]\
[namespace eval $pkg[unset pkg] {list [variable version $ver[unset ver]]$version}]
#package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}]
@ -60,3 +59,12 @@ namespace eval ::punk::overlay {
return $routine
}
}
##breaks in tcl9 due to variable scoping change
#package provide [lindex [list [set ver [join [lassign [split [ file tail [file rootname [info script] ]] -] pkg] -]] $pkg] 1]\
# [namespace eval $pkg[unset pkg] {list [variable version $ver[unset ver]]$version}]
package provide punk::overlay [namespace eval punk::overlay {
variable version
set version 0.1
}]

Loading…
Cancel
Save