Overview
Comment: | More work-in-progress. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | pending |
Files: | files | file ages | folders |
SHA1: |
44676f92a6ca468aad4c84e837809824 |
User & Date: | mistachkin on 2020-03-25 17:30:46 |
Other Links: | branch diff | manifest | tags |
Context
2020-03-25
| ||
22:25 | Yet more work-in-progress on 'package ifneeded' version extraction. check-in: 8485e855f4 user: mistachkin tags: pending | |
17:30 | More work-in-progress. check-in: 44676f92a6 user: mistachkin tags: pending | |
17:21 | Begin work on modularization of the 'checkForHigherVersion' procedure. check-in: 30f6328ac1 user: mistachkin tags: pending | |
Changes
Modified client/1.0/neutral/pkgd.eagle from [233d36365e] to [d74b59e929].
︙ | ︙ | |||
1583 1584 1585 1586 1587 1588 1589 | if {$isClient} then { set persistentDirectory $clientDirectory } else { verifyPersistentRootDirectory set persistentDirectory $persistentRootDirectory } | > > > | | | > | | | | | | | | | | | | | | | | | | > > > > | 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 | if {$isClient} then { set persistentDirectory $clientDirectory } else { verifyPersistentRootDirectory set persistentDirectory $persistentRootDirectory } set fileNamesOnly [list VERSION pkgIndex.eagle pkgIndex.tcl] foreach fileNameOnly $fileNamesOnly { set fileName [file join $packageName $fileNameOnly] set downloadFileName [file join $temporaryDirectory $fileName] file mkdir [file dirname $downloadFileName] if {[catch { downloadOneFile $language $version $platform \ $fileName $downloadFileName $usePgp }] == 0} then { if {$usePgp} then { downloadOneFile $language $version $platform \ [appendArgs $fileName .asc] \ [appendArgs $downloadFileName .asc] $usePgp } set localFileName [file join $persistentDirectory $fileName] set compare [package vcompare \ [extractVersionFromFile $downloadFileName] \ [extractVersionFromFile $localFileName]] if {[isEagle]} then { file delete -recursive -- $temporaryDirectory } else { file delete -force -- $temporaryDirectory } return [expr {$compare > 0}] } } error "could not check higher version: no supported file names" } # # NOTE: This procedure attempts to guess a package name based on a list of # its files. It relies upon the fact that all packages must include # a package index file. The language argument must be one of the # literal strings "eagle", "tcl", or "client". The fileNames argument |
︙ | ︙ |