System.Data.SQLite

Check-in [12fe311a36]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Simplify the changes in the previous check-in.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 12fe311a3619fe59dee6630821361ce18240fac2
User & Date: mistachkin 2014-11-24 22:09:15.899
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
Side-by-Side Diff Ignore Whitespace Patch
Changes to Setup/verify.eagle.
︙
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

21
22
23
24
25
26
27




28
29
30
31
32
33
34








-
-
-
-








  #
  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]
︙
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

46
47
48
49
50
51
52




53
54
55
56
57
58
59








-
-
-
-









  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 {
︙
145
146
147
148
149
150
151





152
153



154
155
156
157
158
159
160

137
138
139
140
141
142
143
144
145
146
147
148


149
150
151
152
153
154
155
156
157
158








+
+
+
+
+
-
-
+
+
+








  }

  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"
    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]]]
︙