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
Unified Diff 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

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








<
<
<
<








21
22
23
24
25
26
27




28
29
30
31
32
33
34

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


  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 {








<
<
<
<








46
47
48
49
50
51
52




53
54
55
56
57
58
59


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





151
152
153
154

155
156
157
158
159
160
161

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








>
>
>
>
>




>








136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

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