Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Check for missing Fossil tool in the master release archive verification tool. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
59d9761e661f10725d7d8be1cabae98f |
User & Date: | mistachkin 2014-11-24 22:03:23.077 |
Context
2014-11-24
| ||
22:09 | Simplify the changes in the previous check-in. check-in: 12fe311a36 user: mistachkin tags: trunk | |
22:03 | Check for missing Fossil tool in the master release archive verification tool. check-in: 59d9761e66 user: mistachkin tags: trunk | |
21:34 | Improvements to the master release archive verification tool. check-in: e100045f84 user: mistachkin tags: trunk | |
Changes
Changes to Setup/verify.eagle.
︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | + + + + | # NOTE: Indicate to the caller, if any, that we have failed. # exit 1 } proc getSha1Hashes { varName } { variable fossil if {![file exists $fossil]} then { usage [appendArgs "tool \"" $fossil "\" is missing"] } upvar 1 $varName hashes set data [exec -success Success -nocarriagereturns -- \ $fossil artifact current] set result 0 |
︙ | |||
45 46 47 48 49 50 51 52 53 54 55 56 57 58 | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | + + + + | } return $result } proc getSha1Sum { fileName } { variable fossil if {![file exists $fossil]} then { usage [appendArgs "tool \"" $fossil "\" is missing"] } return [string range [exec -success Success -nocarriagereturns \ -trimall -- $fossil sha1sum $fileName] 0 39] } set argc [llength $argv] |
︙ |