1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
|
# here, because Eagle does not add a version argument when one is
# not explicitly supplied to the [package require] sub-command.
#
proc packageUnknownHandler { package {version ""} } {
variable verboseUnknownResult
#
# NOTE: First, run our [package unknown] handler.
#
set code(1) [catch {main $package $version handler} result(1)]
if {$verboseUnknownResult} then {
pkgLog [appendArgs \
"repository handler results for package \"" [formatPackageName \
$package $version] "\" are " [formatResult $code(1) $result(1)]]
}
|
|
|
|
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
|
# here, because Eagle does not add a version argument when one is
# not explicitly supplied to the [package require] sub-command.
#
proc packageUnknownHandler { package {version ""} } {
variable verboseUnknownResult
#
# NOTE: First, run our special [package unknown] handler.
#
set code(1) [catch {lookupPackage $package $version handler} result(1)]
if {$verboseUnknownResult} then {
pkgLog [appendArgs \
"repository handler results for package \"" [formatPackageName \
$package $version] "\" are " [formatResult $code(1) $result(1)]]
}
|
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
|
# currently configured package repository server. The package
# argument is the name of the package being sought, it cannot be an
# empty string. The version argument must be a specific version -OR-
# a package specification that conforms to TIP #268. The caller
# argument must be an empty string -OR- the literal string "handler".
#
# <public>
proc main { package version caller } {
#
# NOTE: Get the list of API keys and try each one, in order, until
# the package is found.
#
set apiKeys [getLookupApiKeys]; lappend apiKeys ""
foreach apiKey $apiKeys {
|
|
|
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
|
# currently configured package repository server. The package
# argument is the name of the package being sought, it cannot be an
# empty string. The version argument must be a specific version -OR-
# a package specification that conforms to TIP #268. The caller
# argument must be an empty string -OR- the literal string "handler".
#
# <public>
proc lookupPackage { package version caller } {
#
# NOTE: Get the list of API keys and try each one, in order, until
# the package is found.
#
set apiKeys [getLookupApiKeys]; lappend apiKeys ""
foreach apiKey $apiKeys {
|