Package Downloads Server: Check-in [ccfa024e3e]

Overview

Comment:	Stub in support for grabbing the package name out of the lookup metadata.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	ccfa024e3e592aa347579d187332b7febe924fb8
User & Date:	mistachkin on 2019-09-08 21:56:43
Other Links:	manifest \| tags

Context

2019-09-08
22:06		Update docs. check-in: 898d013d38 user: mistachkin tags: trunk
21:56		Stub in support for grabbing the package name out of the lookup metadata. check-in: ccfa024e3e user: mistachkin tags: trunk
2019-08-31
03:48		Fix comments, regenerate and sign the HTML documentation. check-in: f5da0feb0b user: mistachkin tags: trunk

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified client/1.0/neutral/VERSION from [1e5e59f039] to [c2e64b60cb].

Modified client/1.0/neutral/VERSION.asc from [c239e9d457] to [3f114e1a07].

Modified client/1.0/neutral/pkgIndex.eagle from [96665c9132] to [efb7154339].

Modified client/1.0/neutral/pkgIndex.eagle.asc from [6cd2bb0835] to [94989ac99f].

Modified client/1.0/neutral/pkgIndex.eagle.harpy from [0c33954b58] to [1111dac78e].

Modified client/1.0/neutral/pkgIndex.eagle.harpy.asc from [342b015243] to [4e14f6309d].

Modified client/1.0/neutral/pkgIndex.tcl from [b976a053dd] to [ae23f17591].

Modified client/1.0/neutral/pkgIndex.tcl.asc from [a6c508ab39] to [b140f62c0a].

Modified client/1.0/neutral/pkgd.eagle from [e2513eec21] to [516b433c80].

Modified client/1.0/neutral/pkgd.eagle.asc from [3cd15179e4] to [55ac79a1b1].

Modified client/1.0/neutral/pkgd.eagle.harpy from [13d4602eca] to [c7e90b4ac6].

Modified client/1.0/neutral/pkgd.eagle.harpy.asc from [71c85b9ca4] to [4b9fe1b786].

Modified client/1.0/neutral/pkgr.eagle from [dfa0384d13] to [3e9426a583].

Modified client/1.0/neutral/pkgr.eagle.asc from [bd50d8c742] to [ce51a0d4a3].

Modified client/1.0/neutral/pkgr.eagle.harpy from [568d603295] to [a43e7c022a].

Modified client/1.0/neutral/pkgr.eagle.harpy.asc from [b73e2bfc1a] to [15384687c9].

Modified client/1.0/neutral/pkgu.eagle from [ed1c8f89c8] to [91b4637141].

Modified client/1.0/neutral/pkgu.eagle.asc from [9a055a8e05] to [9be3485b4e].

Modified client/1.0/neutral/pkgu.eagle.harpy from [e114880f4e] to [9074c43b4b].

Modified client/1.0/neutral/pkgu.eagle.harpy.asc from [73afa0c22b] to [8b4ef04148].

︙
1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162	1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176	+ + + + + + + + + + + + + +	# # NOTE: The code must be the literal string "OK" for the package lookup # request to be considered successful. # return [expr {$code eq "OK"}] } # # NOTE: This procedure returns non-zero if the specified string value is a # valid package name. The emptyOk argument can be non-zero if the # caller wishes to permit an empty string. This procedure is shared # with the server. # proc isValidPackageName { name {emptyOk false} } { if {$emptyOk && [string length $name] == 0} then { return true } return [regexp -- {^[A-Za-z][0-9A-Za-z\.]*$} $name] } # # NOTE: This procedure was stolen from the "common.tcl" script used by the # package repository server. It has been modified to support both # native Tcl and Eagle. It should be noted here that TIP #268 syntax # is not supported by Eagle. For native Tcl, the requirement argument # must be a package version or requirement conforming to the TIP #268 # syntax. For Eagle, the requirement argument must be a simple dotted
︙
1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236	1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265	+ + + + + + + + + + + + + + +	# of the immediate caller, that should receive the extracted package # lookup metadata. The caller argument must be an empty string -OR- # the literal string "handler". # proc extractAndVerifyLookupMetadata { result varName caller } { variable strictUnknownLanguage # # NOTE: Grab the returned package name. It cannot be an empty string # and it must conform to the general conventions for a package # name. # set name [getDictionaryValue $result Name] if {[string length $name] == 0} then { error "missing name" } if {![isValidPackageName $name false]} then { error "bad name" } # # NOTE: Grab the returned patch level. It cannot be an empty string # and it must conform to the TIP #268 requirements for a single # package version. # set patchLevel [getDictionaryValue $result PatchLevel]
︙
1266 1267 1268 1269 1270 1271 1272 ~~1273~~ 1274 1275 1276 1277 1278 1279 1280	1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309	- +	# NOTE: Grab the package script certificate. If it is an empty string # then the package script is unsigned, which is not allowed by # this client. In that case, just raise an error. # set certificate [getDictionaryValue $result Certificate] if {[string length $certificate] == 0} then { ~~error "missing ~~script~~ certificate"~~ error "missing certificate" } # # NOTE: Are we being called from the [package unknown] handler # in "strict" mode? # if {$strictUnknownLanguage && $caller eq "handler"} then {
︙
1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310	1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340	+	# # NOTE: If the caller wants the package lookup metadata, use their # array variable name. # if {[string length $varName] > 0} then { upvar 1 $varName metadata set metadata(name) $name set metadata(patchLevel) $patchLevel set metadata(language) $language set metadata(script) $script set metadata(certificate) $certificate } }
︙
1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479	1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516	+ + + + + + +	# # NOTE: If the entire package metadata array is missing, fail. # if {![info exists metadata]} then { error "missing metadata" } # # NOTE: If the name for the package is mising, fail. # if {![info exists metadata(name)]} then { error "missing name" } # # NOTE: If the patch level for the package is mising, fail. # if {![info exists metadata(patchLevel)]} then { error "missing patch level" }
︙
1491 1492 1493 1494 1495 1496 1497 ~~1498~~ 1499 1500 1501 1502 1503 1504 1505	1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542	- +	error "missing script" } # # NOTE: If the package script certificate is mising, fail. # if {![info exists metadata(certificate)]} then { ~~error "missing ~~script~~ certificate"~~ error "missing certificate" } # # NOTE: Create common cleanup script block that deletes any temporary # files created for the script verification process. # set script(cleanup) {
︙
1798 1799 1800 1801 1802 1803 1804 ~~1805~~ 1806 1807 1808 1809 1810 1811 1812	1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849	- +	} default { error "unsupported metadata language" } } } } else { ~~error "unsupported ~~script~~ certificate"~~ error "unsupported certificate" } } # # NOTE: This procedure returns non-zero if the specified package appears to # be present. The package argument is the name of the package being # sought, it cannot be an empty string. The version argument must be
︙
2588 2589 2590 2591 2592 2593 2594 ~~2595~~ 2596 2597	2625 2626 2627 2628 2629 2630 2631 2632 2633 2634	- +	# different operations. # setupPackageUnknownHandler # # NOTE: Provide the package to the interpreter. # ~~package provide Eagle.Package.Repository 1.0.6~~ package provide Eagle.Package.Repository 1.0.8 }