Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Simplify the changes in the previous check-in. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
12fe311a3619fe59dee6630821361ce1 |
| User & Date: | mistachkin 2014-11-24 22:09:15 |
Context
|
2014-11-24
| ||
| 22:21 | Fix issues in the master release archive verification tool regarding file names containing spaces. check-in: 06cb175d37 user: mistachkin tags: trunk | |
| 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 | |
Changes
Changes to Setup/verify.eagle.
21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 .. 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 ... 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 |
#
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
set lines [split $data \n]
................................................................................
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]
if {$argc == 2} then {
................................................................................
usage "no extract directory is available"
}
if {![file isdirectory $extractDirectory]} then {
usage [appendArgs \
"extract directory \"" $extractDirectory "\" does not exist"]
}
if {[getSha1Hashes hashes] == 0} then {
usage "no repository hashes are available"
}
set archiveFileNames [list]
foreach extension [list exe rar zip] {
eval lappend archiveFileNames [findFilesRecursive \
[file join $directory [appendArgs *. $extension]]]
}
|
< < < < < < < < > > > > > > |
21 22 23 24 25 26 27 28 29 30 31 32 33 34 .. 46 47 48 49 50 51 52 53 54 55 56 57 58 59 ... 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 |
#
exit 1
}
proc getSha1Hashes { varName } {
variable fossil
upvar 1 $varName hashes
set data [exec -success Success -nocarriagereturns -- \
$fossil artifact current]
set result 0
set lines [split $data \n]
................................................................................
return $result
}
proc getSha1Sum { fileName } {
variable fossil
return [string range [exec -success Success -nocarriagereturns \
-trimall -- $fossil sha1sum $fileName] 0 39]
}
set argc [llength $argv]
if {$argc == 2} then {
................................................................................
usage "no extract directory is available"
}
if {![file isdirectory $extractDirectory]} then {
usage [appendArgs \
"extract directory \"" $extractDirectory "\" does not exist"]
}
if {$withHashes} then {
if {![file exists $fossil]} then {
usage [appendArgs "tool \"" $fossil "\" is missing"]
}
if {[getSha1Hashes hashes] == 0} then {
usage "no repository hashes are available"
}
}
set archiveFileNames [list]
foreach extension [list exe rar zip] {
eval lappend archiveFileNames [findFilesRecursive \
[file join $directory [appendArgs *. $extension]]]
}
|