# -*- tcl -*- # Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix 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 punk::mix::templates 999999.0a1.0 # Meta platform tcl # Meta license BSD # @@ Meta End # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ## Requirements ##e.g package require frobz package require punk::cap # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ namespace eval punk::mix::templates { variable pkg punk::mix::templates variable cap_provider #punk::cap::register_package punk::mix::templates [list\ # {punk.templates {relpath ../templates}}\ #] namespace eval capsystem { if {[info commands capprovider.registration] eq ""} { punk::cap::class::interface_capprovider.registration create capprovider.registration oo::objdefine capprovider.registration { method get_declarations {} { set decls [list] lappend decls [list punk.templates {relpath ../templates}] lappend decls [list punk.templates {relpath ../templates2}] lappend decls [list punk.test {something blah}] return $decls } } } } if {[info commands provider] eq ""} { punk::cap::class::interface_capprovider.provider create provider punk::mix::templates oo::objdefine provider { method register {{capabilityname_glob *}} { #puts registering punk::mix::templates $capabilityname next } method capabilities {} { next } } } # -- --- #provider api # -- --- #none - declarations only } # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ## Ready package provide punk::mix::templates [namespace eval punk::mix::templates { variable version set version 999999.0a1.0 }] return