Overview
| Comment: | Add support for hooking the 'package unknown' handler in both Tcl and Eagle. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3bc512e10f0fb5b9494af7e6259d5cc3 |
| User & Date: | mistachkin on 2016-08-15 18:30:35 |
| Other Links: | manifest | tags |
Context
|
2016-08-15
| ||
| 18:45 | Add comments and robustify error logging. check-in: 54f7833d58 user: mistachkin tags: trunk | |
| 18:30 | Add support for hooking the 'package unknown' handler in both Tcl and Eagle. check-in: 3bc512e10f user: mistachkin tags: trunk | |
| 05:06 | Robustify the handling of malformed responses from the package repository server. Add comments. check-in: 2ea4b56805 user: mistachkin tags: trunk | |
Changes
Modified client/pkgr.eagle from [ddaa5b7b84] to [051495fc84].
| ︙ | |||
431 432 433 434 435 436 437 438 439 440 441 442 443 444 | 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
eagle [list proc $newProcName(2) {} [info body [appendArgs \
[namespace current] :: tclMustBeReady]]]
return [eagle $script(outer)]
}
}
proc hookPackageUnknownHandler {} {
set varName [appendArgs [getLookupVarNamePrefix] saved_package_unknown]
if {[info exists $varName]} then {
error "package unknown handler already hooked"
}
set $varName [package unknown]
package unknown [appendArgs [namespace current] ::packageUnknownHandler]
}
proc unhookPackageUnknownHandler {} {
set varName [appendArgs [getLookupVarNamePrefix] saved_package_unknown]
if {![info exists $varName]} then {
error "package unknown handler is not hooked"
}
package unknown [set $varName]
unset $varName
}
proc packageUnknownHandler { package {version ""} } {
if {[catch {main $package $version} error(1)] == 0} then {
return
} else {
tclLog [appendArgs \
"pkgr: new handler failed for \"" $package " " $version \
"\", error: " $error(1)]
}
set varName [appendArgs [getLookupVarNamePrefix] saved_package_unknown]
if {[info exists $varName]} then {
set oldHandler [set $varName]
} else {
set oldHandler ""
}
if {[string length $oldHandler] > 0} then {
lappend oldHandler $package $version
if {[catch {uplevel #0 $oldHandler} error(2)] == 0} then {
return
} else {
tclLog [appendArgs \
"pkgr: old handler failed for \"" $package " " $version \
"\", error: " $error(2)]
}
}
error [array get error]
}
proc main { package version } {
#
# NOTE: Issue the lookup request to the remote package repository.
#
set data [getLookupData [getLookupApiKey] $package $version]
|
| ︙ |
Modified client/pkgr.eagle.harpy from [eb19421d6f] to [c88d48d019].
| ︙ | |||
17 18 19 20 21 22 23 | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | - + - + - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + |
THE ASSOCIATED SOFTWARE MAY NOT WORK PROPERLY IF THIS FILE IS ALTERED.
-->
<Certificate xmlns="https://eagle.to/2011/harpy"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Protocol>None</Protocol>
<Vendor>Mistachkin Systems</Vendor>
|