#! /bin/env tclsh
package ifneeded {ycl comm http} 0.2 [list apply {{dir} {
package require {ycl package}
[yclprefix] package prep comm::http
package provide {ycl comm http} 0.2
}} $dir]
package ifneeded {ycl comm http client} 0.2 [list apply {{dir} {
package require {ycl comm http}
package require {ycl shelf shelf}
set name [yclprefix]::comm::http::client
[yclprefix] shelf shelf .spawn $name
$name .eval [list ::source $dir/lib/http/client.tcl]
package provide {ycl comm http client} 0.2
}} $dir]
package ifneeded {ycl comm http headers} 0.2 [list apply {{dir} {
package require {ycl comm http}
package require {ycl shelf shelf}
set name [yclprefix]::comm::http::headers
[yclprefix] shelf shelf .spawn $name
$name .eval [list ::source $dir/lib/http/headers.tcl]
package provide {ycl comm http headers} 0.2
}} $dir]
package ifneeded {ycl comm http request} 0.2 [list apply {{dir} {
package require {ycl package}
set name [yclprefix]::comm::http::request
[yclprefix] shelf shelf .spawn $name
$name .eval [list ::source $dir/lib/http/request.tcl]
package provide {ycl comm http request} 0.2
}} $dir]
package ifneeded {ycl comm http response} 0.2 [list apply {{dir} {
package require {ycl package}
package require {ycl shelf shelf}
set name [yclprefix]::comm::http::response
[yclprefix] shelf shelf .spawn $name
$name .eval [list ::source $dir/lib/http/response.tcl]
package provide {ycl comm http response} 0.2
}} $dir]
package ifneeded {ycl comm http util} 0.2 [list apply {{dir} {
package require {ycl comm http}
[yclprefix]::package::source comm::http::util $dir/lib/http/util.tcl
package provide {ycl comm http util} 0.2
}} $dir]
package ifneeded {ycl comm http test} 0.2 [list apply {{dir} {
package require {ycl package}
[yclprefix]::package::source comm::http::test $dir/lib/http/test.tcl
package provide {ycl comm http test} 0.2
}} $dir]
package ifneeded {ycl comm ucsd} 0.1 [list apply {{dir} {
package require {ycl package}
[yclprefix]::package::source comm::ucsd $dir/lib/ucsd.tcl
package provide {ycl comm ucsd} 0.1
}} $dir]