#! /bin/env tclsh
if {![package vsatisfies [package provide Tcl] 8.6]} {
return
}
package ifneeded {ycl keep} 0.1 [list apply {{dir} {
package require {ycl package}
[yclprefix]::package::prep [yclprefix]::keep
package provide {ycl keep} 0.1
}} $dir]
package ifneeded {ycl keep keep} 0.1 [list apply {{dir} {
package require {ycl keep}
package require ego
set ns [yclprefix]::keep::keep
ego ego .new $ns
$ns .eval [list ::source [file join $dir lib keep.tcl]]
package provide {ycl keep keep} 0.1
}} $dir]
package ifneeded {ycl keep test} 0.1 [list apply {{dir} {
package require {ycl keep}
package require ego
set ns [yclprefix]::keep::test
ego ego .new $ns
$ns .eval [list ::source [fie join $dir lib keep.test.tcl]]
package provide {ycl keep test} 0.1
}} $dir]