Artifact 17f23458cc1ff18edcb07033b0ccc9163ea7c20d:

• File packages/list/pkgIndex.tcl — part of check-in [05319ded5e] at 2020-03-23 21:35:40 on branch trunk — list new command list

  {ns this} fix bad variable name (user: pooryorick size: 2217)

#! /bin/env tclsh

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


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


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


package ifneeded {ycl list list} 1.0 [list apply {{dir} {
	package require {ycl proc}
	package require {ycl list}
	namespace eval [yclprefix]::list::list [list ::source [
		file join $dir lib object.tcl
	]]
	[yclprefix] proc alias [[yclprefix] ns join [yclprefix] list new] [
		[yclprefix] ns join [yclprefix] list list util .new]
	package provide {ycl list list} 1.0
}} $dir]


try [string map {@name@ {{ycl list ordered}} @version@ 0.1} {
	package ifneeded @name@ @version@ [list apply {{dir} {
		package require {ycl list}
		set ns [[yclprefix] package prep list::ordered]
		[yclprefix] package loadpackage $dir @name@ @version@ $ns {
			[yclprefix] package packagesource $package $version $ns [
				file join $dir lib ordered.tcl]
		}
	}} $dir]
}]


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


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


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


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