#! /bin/env tclsh
package ifneeded {ycl crypto} 0.1 [list apply {{dir} {
package require {ycl package}
[yclprefix]::package::source crypto $dir/lib/crypto.tcl
package provide {ycl crypto} 0.1
}} $dir]
package ifneeded {ycl crypto sha} 0.1 [list apply {{dir} {
package require {ycl crypto}
[yclprefix] package prep [yclprefix]::crypto::sha
package provide {ycl crypto sha} 0.1
}} $dir]
package ifneeded {ycl crypto sha sha} 1.0 [list apply {{dir} {
package require {ycl crypto sha}
set ns [yclprefix]::crypto::sha::sha
[yclprefix] package prep $ns
uplevel 1 [list [yclprefix] package loadpackage $dir \
{ycl crypto sha sha} 1.0 $ns {
[yclprefix] package packagesource $package $version $ns [
file join $dir lib sha sha.tcl]
}]
}} $dir]
package ifneeded {ycl crypto sha generic} 1.0 [list apply {{dir} {
package require {ycl crypto sha}
set ns [yclprefix]::crypto::sha::generic
[yclprefix] package prep $ns
uplevel 1 [list [yclprefix] package loadpackage $dir \
{ycl crypto sha generic} 1.0 $ns {
[yclprefix] package packagesource $package $version $ns [
file join $dir lib sha generic.tcl]
}]
}} $dir]
package ifneeded {ycl crypto sha openssl} 1.0 [list apply {{dir} {
package require {ycl crypto sha}
set ns [yclprefix]::crypto::sha::openssl
[yclprefix] package prep $ns
uplevel 1 [list [yclprefix] package loadpackage $dir \
{ycl crypto sha openssl} 1.0 $ns {
[yclprefix] package packagesource $package $version $ns [
file join $dir lib sha openssl.tcl]
}]
}} $dir]
package ifneeded {ycl crypto sha tcllibc} 1.0 [list apply {{dir} {
package require {ycl crypto sha}
set ns [yclprefix]::crypto::sha::tcllibc
[yclprefix] package prep $ns
uplevel 1 [list [yclprefix] package loadpackage $dir \
{ycl crypto sha tcllibc} 1.0 $ns {
[yclprefix] package packagesource $package $version $ns [
file join $dir lib sha tcllibc.tcl]
}]
}} $dir]
package ifneeded {ycl crypto sha test} 0.1 [list apply {{dir} {
package require {ycl crypto sha}
[yclprefix]::package::source crypto::sha::test $dir/lib/sha/test.tcl
package provide {ycl crypto sha test} 0.1
}} $dir]