System.Data.SQLite
Check-in [12fe311a36]
Not logged in

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: 12fe311a3619fe59dee6630821361ce18240fac2
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
Hide Diffs Unified Diffs Show Whitespace Changes Patch

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]]]
  }