You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
1009 B
32 lines
1009 B
|
|
package require punk::cap |
|
|
|
|
|
tcl::namespace::eval punk::mix { |
|
proc init {} { |
|
package require punk::cap::handlers::templates ;#handler for templates cap |
|
punk::cap::register_capabilityname punk.templates ::punk::cap::handlers::templates ;#time taken should generally be sub 200us |
|
|
|
package require punk::mix::templates ;#registers as provider pkg for 'punk.templates' capability with punk::cap |
|
set t [time { |
|
if {[catch {punk::mix::templates::provider register *} errM]} { |
|
puts stderr "punk::mix failure during punk::mix::templates::provider register *" |
|
puts stderr $errM |
|
puts stderr "-----" |
|
puts stderr $::errorInfo |
|
} |
|
}] |
|
puts stderr "->punk::mix::templates::provider register * t=$t" |
|
} |
|
init |
|
|
|
} |
|
|
|
package require punk::mix::base |
|
package require punk::mix::cli |
|
|
|
package provide punk::mix [tcl::namespace::eval punk::mix { |
|
variable version |
|
set version 0.2 |
|
|
|
}]
|
|
|