Artifact fe7777dc30bac3a5edbc1d718a14c1a5632916d3:

• File packages/file/pkgIndex.tcl — part of check-in [e31c194738] at 2020-02-09 22:45:55 on branch trunk — ycl shelf

  refactor into {ycl ns object} and redesign to use namespaces as containers for three distinct and non-overlapping things: units of code, object interfaces, and object member data.

  everything else cascading rewrites based on changes to ycl shelf (user: pooryorick size: 1690)

#! /bin/env tclsh


package ifneeded {ycl file} 1.0 [list apply {{dir} {
	package require {ycl package}
	set ns [[yclprefix] package prep file]
	uplevel 1 [list [yclprefix] package loadpackage $dir {ycl file} 1.0 $ns {
		[yclprefix] package packagesource $package $version $ns [
			file join $dir lib file.tcl]
	}]
}} $dir]


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


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


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


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


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


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