System.Data.SQLite
Check-in [59d9761e66]
Not logged in

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

Overview
Comment:Check for missing Fossil tool in the master release archive verification tool.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 59d9761e661f10725d7d8be1cabae98feeba8588
User & Date: mistachkin 2014-11-24 22:03:23
Context
2014-11-24
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
21:34
Improvements to the master release archive verification tool. check-in: e100045f84 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Setup/verify.eagle.

20
21
22
23
24
25
26




27
28
29
30
31
32
33
..
45
46
47
48
49
50
51




52
53
54
55
56
57
58
  # NOTE: Indicate to the caller, if any, that we have failed.
  #
  exit 1
}
 
proc getSha1Hashes { varName } {
  variable fossil





  upvar 1 $varName hashes

  set data [exec -success Success -nocarriagereturns -- \
      $fossil artifact current]

  set result 0
................................................................................
  }

  return $result
}
 
proc getSha1Sum { fileName } {
  variable fossil





  return [string range [exec -success Success -nocarriagereturns \
      -trimall -- $fossil sha1sum $fileName] 0 39]
}
 
set argc [llength $argv]








>
>
>
>







 







>
>
>
>







20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
..
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
  # NOTE: Indicate to the caller, if any, that we have failed.
  #
  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
................................................................................
  }

  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]