ycl

Artifact [13e7ae7c0b]
Login

Artifact [13e7ae7c0b]

Artifact 13e7ae7c0bb4bf03002538ba0941520cda4dda94:


#! /bin/env tclsh

package ifneeded {ycl struct} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct $dir/lib/struct.tcl 
	package provide {ycl struct} 0.1
}} $dir]

package ifneeded {ycl struct test} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct::test $dir/lib/struct.test.tcl 
	package provide {ycl struct test} 0.1
}} $dir]

package ifneeded {ycl struct bittree} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct::bittree $dir/lib/bittree/bittree.tcl 
	package provide {ycl struct bittree} 0.1
}} $dir]

package ifneeded {ycl struct bittree test} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct::bittree::test \
		$dir/lib/bittree/test.tcl 
	package provide {ycl struct bittree test} 0.1
}} $dir]

package ifneeded {ycl struct env} 0.1 [list apply {{dir} {
	package require {ycl package}
	set name [yclprefix]::struct::env
	[yclprefix]::package::prep $name
	package provide {ycl struct env} 0.1
}} $dir]

package ifneeded {ycl struct env env} 0.3 [list apply {{dir} {
	package require {ycl struct env}
	[yclprefix]::package::source struct::env::env $dir/lib/env/env.tcl 
	package provide {ycl struct env env} 0.3
}} $dir]

package ifneeded {ycl struct map} 0.1 [list apply {{dir} {
	package require {ycl package}
	set name [yclprefix]::struct::map
	[yclprefix]::package::prep $name
	package provide {ycl struct map} 0.1
}} $dir]

package ifneeded {ycl struct map sqlite_compressed} 0.1 [list apply {{dir} {
	package require {ycl struct map}
	package require ego
	set ns [yclprefix]::struct::map::sqlite_compressed
	::tcllib::ego .new $ns
	$ns .eval [list ::source $dir/lib/map/sqlite/compressed.tcl]
	package provide {ycl struct map sqlite_compressed} 0.1
}} $dir]

package ifneeded {ycl struct env object} 0.1 [list apply {{dir} {
	package require {ycl struct env}
	package require {ycl shelf shelf}
	set name [yclprefix]::struct::env::object
	[yclprefix] shelf shelf .spawn $name
	$name .eval [list ::source $dir/lib/env/object.tcl]
	package provide {ycl struct env object} 0.1
}} $dir]

package ifneeded {ycl struct env test} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct::env::test $dir/lib/env/env.test.tcl 
	package provide {ycl struct env test} 0.1
}} $dir]

package ifneeded {ycl struct nxs} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct::nxs $dir/lib/nxs.tcl 
	package provide {ycl struct nxs} 0.1
}} $dir]

package ifneeded {ycl struct nxs test} 0.1 [list apply {{dir} {
	package require {ycl package}
	[yclprefix]::package::source struct::nxs::test $dir/lib/nxs.test.tcl 
	package provide {ycl struct nxs test} 0.1
}} $dir]