System.Data.SQLite

Check-in [f64b6958a2]
Login

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

Overview
Comment:Pickup release archive verification tool changes from upstream.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f64b6958a22fb405c1a5d504b04f6d4d917bfb4c
User & Date: mistachkin 2014-11-26 20:15:27.817
Context
2014-11-28
08:38
Fix typo on the release process web page. Fix for [89774dc93e]. check-in: 0d23e2583b user: mistachkin tags: trunk
2014-11-26
20:15
Pickup release archive verification tool changes from upstream. check-in: f64b6958a2 user: mistachkin tags: trunk
2014-11-25
17:29
Make sure the interop files are copied before the PostBuildEvent. Fix for [f16c93a932]. Make sure the interop files are copied when publishing a project that refers to a NuGet package containing them. Fix for [e796ac82c1]. check-in: eb697cca1c user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Setup/verify.eagle.
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

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]

  foreach line $lines {
    if {[string range $line 0 1] eq "F "} then {
      set fields [split $line " "]







|







24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

proc getSha1Hashes { varName } {
  variable fossil

  upvar 1 $varName hashes

  set data [exec -success Success -nocarriagereturns -- \
      $fossil artifact current]; # or "release"

  set result 0
  set lines [split $data \n]

  foreach line $lines {
    if {[string range $line 0 1] eq "F "} then {
      set fields [split $line " "]
330
331
332
333
334
335
336

337
338
339
340
341
342
343
344
345
346

        catch {
          file attributes $extractFileName -readonly false
          file delete $extractFileName
        }

        try {

          if {[catch {eval [string map \
              $extractCommandMap $extractCommand]} result] == 0} then {
            if {[info exists hashes($manifestFileName)]} then {
              set hash [getSha1Sum $extractFileName]

              if {[string length $hash] > 0} then {
                if {$hash ne $hashes($manifestFileName)} then {
                  puts stdout [appendArgs \
                      "ERROR: Archive \"" $archiveFileName \
                      "\" file \"" $manifestFileName \







>
|
|
|







330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347

        catch {
          file attributes $extractFileName -readonly false
          file delete $extractFileName
        }

        try {
          if {[info exists hashes($manifestFileName)]} then {
            if {[catch {
              eval [string map $extractCommandMap $extractCommand]
            } result] == 0} then {
              set hash [getSha1Sum $extractFileName]

              if {[string length $hash] > 0} then {
                if {$hash ne $hashes($manifestFileName)} then {
                  puts stdout [appendArgs \
                      "ERROR: Archive \"" $archiveFileName \
                      "\" file \"" $manifestFileName \
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
                    "\" file \"" $manifestFileName \
                    "\" could not be hashed."]

                set exitCode 1
              }
            } else {
              puts stdout [appendArgs \
                  "ERROR: Archive \"" $archiveFileName \
                  "\" file \"" $manifestFileName \
                  "\" has no repository hash."]

              set exitCode 1
            }
          } else {
            puts stdout [appendArgs \
                "ERROR: Failed to extract file \"" \
                $manifestFileName "\" from archive \"" \
                $archiveFileName "\", error: " $result]

            set exitCode 1
          }
        } finally {
          catch {
            file attributes $extractFileName -readonly false
            file delete $extractFileName







|
|
|





|
|
|







357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
                    "\" file \"" $manifestFileName \
                    "\" could not be hashed."]

                set exitCode 1
              }
            } else {
              puts stdout [appendArgs \
                  "ERROR: Failed to extract file \"" \
                  $manifestFileName "\" from archive \"" \
                  $archiveFileName "\", error: " $result]

              set exitCode 1
            }
          } else {
            puts stdout [appendArgs \
                "ERROR: Archive \"" $archiveFileName \
                "\" file \"" $manifestFileName \
                "\" has no repository hash."]

            set exitCode 1
          }
        } finally {
          catch {
            file attributes $extractFileName -readonly false
            file delete $extractFileName