1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
|
# to request.
#
proc getPackageFile { uri } {
variable loginCookie
variable quiet
if {[isEagle]} then {
if {![object invoke Eagle._Tests.Default \
TestHasScriptNewWebClientCallback ""]} then {
set error null
set code [object invoke Eagle._Tests.Default \
TestSetScriptNewWebClientCallback "" true true error]
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
|
# to request.
#
proc getPackageFile { uri } {
variable loginCookie
variable quiet
if {[isEagle]} then {
if {![info exists ::eagle_platform(compileOptions)]} then {
error "missing compile options from Eagle platform array"
}
if {[lsearch -exact -- \
$::eagle_platform(compileOptions) TEST] == -1} then {
error "cannot download: library missing TEST compile-option"
}
if {[lsearch -exact -- \
$::eagle_platform(compileOptions) NETWORK] == -1} then {
error "cannot download: library missing NETWORK compile-option"
}
if {![object invoke Eagle._Tests.Default \
TestHasScriptNewWebClientCallback ""]} then {
set error null
set code [object invoke Eagle._Tests.Default \
TestSetScriptNewWebClientCallback "" true true error]
|
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
|
maybeAddToAutoPath [expr {[isEagle] ? "eagle" : "tcl"}] \
$persistentRootDirectory
#
# NOTE: Provide the package to the interpreter.
#
package provide Eagle.Package.Downloader 1.0.5
}
|
|
|
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
|
maybeAddToAutoPath [expr {[isEagle] ? "eagle" : "tcl"}] \
$persistentRootDirectory
#
# NOTE: Provide the package to the interpreter.
#
package provide Eagle.Package.Downloader 1.0.6
}
|