# -*- tcl -*- # Maintenance Instruction: leave the 999999.xxx.x as is and use 'dev make' or src/make.tcl to update from -buildversion.txt # # Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. # Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ # (C) 2023 # # @@ Meta Begin # Application tcl9test 999999.0a1.0 # Meta platform tcl # Meta license # @@ Meta End # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ## Requirements ##e.g package require frobz # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ foreach base [tcl::tm::list] { if {[string match -nocase "${base}*" [info script]]} { set nsprefix [join [lrange [file split [string trimleft [string range [info script] [string length $base] end] /]] 0 end-1] ::] if {[string length $nsprefix]} {set nsprefix ${nsprefix}::} break } } namespace eval [lassign [split [file rootname [file tail [info script] ]] -] pkgtail verparts]$nsprefix$pkgtail[unset pkgtail] { #-------------------------------------- #unset ::nsparts; unset ::base variable pkg [namespace current] variable pkgtail [namespace tail [namespace current]] variable version [join $::verparts -][unset ::verparts] #-------------------------------------- puts stdout "-->[info script]" puts stdout "-->[namespace current]" uplevel #0 [list package provide $pkgtail $version] #package provide [lassign {tcl9test 999999.0a1.0} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $::ver[set ::ver {}]]$version}] } #package provide [lassign {tcl9test 999999.0a1.0} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $::ver[set ::ver {}]]$version}] # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ## Ready #package provide tcl9test [namespace eval tcl9test { # variable version # set version 999999.0a1.0 #}] #return