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 Unified 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	# # 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 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	> > > > > > > > > > > > > >	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	# 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 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]	> > > > > > > > > > > > > > >	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	# 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"~~ } # # NOTE: Are we being called from the [package unknown] handler # in "strict" mode? # if {$strictUnknownLanguage && $caller eq "handler"} then {	\|	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 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	# # 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(patchLevel) $patchLevel set metadata(language) $language set metadata(script) $script set metadata(certificate) $certificate } }	>	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	# # NOTE: If the entire package metadata array is missing, fail. # if {![info exists metadata]} then { error "missing metadata" } # # NOTE: If the patch level for the package is mising, fail. # if {![info exists metadata(patchLevel)]} then { error "missing patch level" }	> > > > > > >	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	error "missing script" } # # NOTE: If the package script certificate is mising, fail. # if {![info exists metadata(certificate)]} then { ~~error "missing ~~script~~ certificate"~~ } # # NOTE: Create common cleanup script block that deletes any temporary # files created for the script verification process. # set script(cleanup) {	\|	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 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	} default { error "unsupported metadata language" } } } } else { ~~error "unsupported ~~script~~ 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	\|	1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849	} default { error "unsupported metadata language" } } } } else { 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	# different operations. # setupPackageUnknownHandler # # NOTE: Provide the package to the interpreter. # ~~package provide Eagle.Package.Repository 1.0.6~~ }	\|	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.8 }