System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 9f8eb6176751569a0af40e7ea572409600ddac62:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 76 65 72 69 66 79 2e 65 61 67  .#..# verify.eag
0060: 6c 65 20 2d 2d 20 52 65 6c 65 61 73 65 20 41 72  le -- Release Ar
0070: 63 68 69 76 65 20 56 65 72 69 66 69 63 61 74 69  chive Verificati
0080: 6f 6e 20 54 6f 6f 6c 0d 0a 23 0d 0a 23 20 57 72  on Tool..#..# Wr
0090: 69 74 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73  itten by Joe Mis
00a0: 74 61 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65  tachkin...# Rele
00b0: 61 73 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c  ased to the publ
00c0: 69 63 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61  ic domain, use a
00d0: 74 20 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21  t your own risk!
00e0: 0d 0a 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23  ..#..###########
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0130: 23 23 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20  ####....package 
0140: 72 65 71 75 69 72 65 20 45 61 67 6c 65 0d 0a 0c  require Eagle...
0150: 0d 0a 70 72 6f 63 20 75 73 61 67 65 20 7b 20 65  ..proc usage { e
0160: 72 72 6f 72 20 7d 20 7b 0d 0a 20 20 69 66 20 7b  rror } {..  if {
0170: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
0180: 65 72 72 6f 72 5d 20 3e 20 30 7d 20 74 68 65 6e  error] > 0} then
0190: 20 7b 70 75 74 73 20 73 74 64 6f 75 74 20 24 65   {puts stdout $e
01a0: 72 72 6f 72 7d 0d 0a 0d 0a 20 20 70 75 74 73 20  rror}....  puts 
01b0: 73 74 64 6f 75 74 20 22 75 73 61 67 65 3a 5c 0d  stdout "usage:\.
01c0: 0a 5b 66 69 6c 65 20 74 61 69 6c 20 5b 69 6e 66  .[file tail [inf
01d0: 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62  o nameofexecutab
01e0: 6c 65 5d 5d 5c 0d 0a 5b 66 69 6c 65 20 74 61 69  le]]\..[file tai
01f0: 6c 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d  l [info script]]
0200: 20 3c 64 69 72 65 63 74 6f 72 79 3e 20 3c 77 69   <directory> <wi
0210: 74 68 48 61 73 68 65 73 3e 20 5c 5b 66 61 69 6c  thHashes> \[fail
0220: 48 61 73 68 65 73 5c 5d 22 0d 0a 0d 0a 20 20 23  Hashes\]"....  #
0230: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 49 6e 64 69  ..  # NOTE: Indi
0240: 63 61 74 65 20 74 6f 20 74 68 65 20 63 61 6c 6c  cate to the call
0250: 65 72 2c 20 69 66 20 61 6e 79 2c 20 74 68 61 74  er, if any, that
0260: 20 77 65 20 68 61 76 65 20 66 61 69 6c 65 64 2e   we have failed.
0270: 0d 0a 20 20 23 0d 0a 20 20 65 78 69 74 20 31 0d  ..  #..  exit 1.
0280: 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 67 65 74 46  .}.....proc getF
0290: 69 6c 65 48 61 73 68 65 73 20 7b 20 76 61 72 4e  ileHashes { varN
02a0: 61 6d 65 20 7d 20 7b 0d 0a 20 20 76 61 72 69 61  ame } {..  varia
02b0: 62 6c 65 20 66 6f 73 73 69 6c 0d 0a 0d 0a 20 20  ble fossil....  
02c0: 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65  upvar 1 $varName
02d0: 20 68 61 73 68 65 73 0d 0a 0d 0a 20 20 73 65 74   hashes....  set
02e0: 20 64 61 74 61 20 5b 65 78 65 63 20 2d 73 75 63   data [exec -suc
02f0: 63 65 73 73 20 53 75 63 63 65 73 73 20 2d 6e 6f  cess Success -no
0300: 63 61 72 72 69 61 67 65 72 65 74 75 72 6e 73 20  carriagereturns 
0310: 2d 2d 20 5c 0d 0a 20 20 20 20 20 20 24 66 6f 73  -- \..      $fos
0320: 73 69 6c 20 61 72 74 69 66 61 63 74 20 63 75 72  sil artifact cur
0330: 72 65 6e 74 5d 3b 20 23 20 6f 72 20 22 72 65 6c  rent]; # or "rel
0340: 65 61 73 65 22 0d 0a 0d 0a 20 20 73 65 74 20 72  ease"....  set r
0350: 65 73 75 6c 74 20 30 0d 0a 20 20 73 65 74 20 6c  esult 0..  set l
0360: 69 6e 65 73 20 5b 73 70 6c 69 74 20 24 64 61 74  ines [split $dat
0370: 61 20 5c 6e 5d 0d 0a 0d 0a 20 20 66 6f 72 65 61  a \n]....  forea
0380: 63 68 20 6c 69 6e 65 20 24 6c 69 6e 65 73 20 7b  ch line $lines {
0390: 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e  ..    if {[strin
03a0: 67 20 72 61 6e 67 65 20 24 6c 69 6e 65 20 30 20  g range $line 0 
03b0: 31 5d 20 65 71 20 22 46 20 22 7d 20 74 68 65 6e  1] eq "F "} then
03c0: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69   {..      set fi
03d0: 65 6c 64 73 20 5b 73 70 6c 69 74 20 24 6c 69 6e  elds [split $lin
03e0: 65 20 22 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 20  e " "]....      
03f0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 66 69  if {[llength $fi
0400: 65 6c 64 73 5d 20 3e 3d 20 33 7d 20 74 68 65 6e  elds] >= 3} then
0410: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20   {..        set 
0420: 66 69 6c 65 4e 61 6d 65 20 5b 73 74 72 69 6e 67  fileName [string
0430: 20 6d 61 70 20 5b 6c 69 73 74 20 5c 5c 73 20 22   map [list \\s "
0440: 20 22 5d 20 5b 6c 69 6e 64 65 78 20 24 66 69 65   "] [lindex $fie
0450: 6c 64 73 20 31 5d 5d 0d 0a 20 20 20 20 20 20 20  lds 1]]..       
0460: 20 73 65 74 20 68 61 73 68 20 5b 6c 69 6e 64 65   set hash [linde
0470: 78 20 24 66 69 65 6c 64 73 20 32 5d 0d 0a 0d 0a  x $fields 2]....
0480: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67          if {[reg
0490: 65 78 70 20 2d 2d 20 7b 5b 30 2d 39 61 2d 66 5d  exp -- {[0-9a-f]
04a0: 7b 34 30 2c 36 34 7d 7d 20 24 68 61 73 68 5d 7d  {40,64}} $hash]}
04b0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
04c0: 20 20 20 73 65 74 20 68 61 73 68 65 73 28 24 66     set hashes($f
04d0: 69 6c 65 4e 61 6d 65 29 20 24 68 61 73 68 3b 20  ileName) $hash; 
04e0: 69 6e 63 72 20 72 65 73 75 6c 74 0d 0a 20 20 20  incr result..   
04f0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
0500: 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20  .    }..  }.... 
0510: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d   return $result.
0520: 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 67 65 74 53  .}.....proc getS
0530: 68 61 31 53 75 6d 20 7b 20 66 69 6c 65 4e 61 6d  ha1Sum { fileNam
0540: 65 20 7d 20 7b 0d 0a 20 20 76 61 72 69 61 62 6c  e } {..  variabl
0550: 65 20 66 6f 73 73 69 6c 0d 0a 0d 0a 20 20 73 65  e fossil....  se
0560: 74 20 68 61 73 68 20 5b 73 74 72 69 6e 67 20 72  t hash [string r
0570: 61 6e 67 65 20 5b 65 78 65 63 20 2d 73 75 63 63  ange [exec -succ
0580: 65 73 73 20 53 75 63 63 65 73 73 20 2d 6e 6f 63  ess Success -noc
0590: 61 72 72 69 61 67 65 72 65 74 75 72 6e 73 20 5c  arriagereturns \
05a0: 0d 0a 20 20 20 20 20 20 2d 74 72 69 6d 61 6c 6c  ..      -trimall
05b0: 20 2d 2d 20 24 66 6f 73 73 69 6c 20 73 68 61 31   -- $fossil sha1
05c0: 73 75 6d 20 5b 61 70 70 65 6e 64 41 72 67 73 20  sum [appendArgs 
05d0: 5c 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5d  \" $fileName \"]
05e0: 5d 20 30 20 33 39 5d 0d 0a 0d 0a 20 20 69 66 20  ] 0 39]....  if 
05f0: 7b 5b 72 65 67 65 78 70 20 2d 2d 20 7b 5b 30 2d  {[regexp -- {[0-
0600: 39 61 2d 66 5d 7b 34 30 7d 7d 20 24 68 61 73 68  9a-f]{40}} $hash
0610: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 72  ]} then {..    r
0620: 65 74 75 72 6e 20 24 68 61 73 68 0d 0a 20 20 7d  eturn $hash..  }
0630: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 22 22 0d  ....  return "".
0640: 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 67 65 74 53  .}.....proc getS
0650: 68 61 33 53 75 6d 20 7b 20 66 69 6c 65 4e 61 6d  ha3Sum { fileNam
0660: 65 20 7d 20 7b 0d 0a 20 20 76 61 72 69 61 62 6c  e } {..  variabl
0670: 65 20 66 6f 73 73 69 6c 0d 0a 0d 0a 20 20 73 65  e fossil....  se
0680: 74 20 68 61 73 68 20 5b 73 74 72 69 6e 67 20 72  t hash [string r
0690: 61 6e 67 65 20 5b 65 78 65 63 20 2d 73 75 63 63  ange [exec -succ
06a0: 65 73 73 20 53 75 63 63 65 73 73 20 2d 6e 6f 63  ess Success -noc
06b0: 61 72 72 69 61 67 65 72 65 74 75 72 6e 73 20 5c  arriagereturns \
06c0: 0d 0a 20 20 20 20 20 20 2d 74 72 69 6d 61 6c 6c  ..      -trimall
06d0: 20 2d 2d 20 24 66 6f 73 73 69 6c 20 73 68 61 33   -- $fossil sha3
06e0: 73 75 6d 20 5b 61 70 70 65 6e 64 41 72 67 73 20  sum [appendArgs 
06f0: 5c 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5d  \" $fileName \"]
0700: 5d 20 30 20 36 33 5d 0d 0a 0d 0a 20 20 69 66 20  ] 0 63]....  if 
0710: 7b 5b 72 65 67 65 78 70 20 2d 2d 20 7b 5b 30 2d  {[regexp -- {[0-
0720: 39 61 2d 66 5d 7b 36 34 7d 7d 20 24 68 61 73 68  9a-f]{64}} $hash
0730: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 72  ]} then {..    r
0740: 65 74 75 72 6e 20 24 68 61 73 68 0d 0a 20 20 7d  eturn $hash..  }
0750: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 22 22 0d  ....  return "".
0760: 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 67 65 74 49  .}.....proc getI
0770: 6e 6e 6f 53 65 74 75 70 52 6f 6f 74 4d 61 70 20  nnoSetupRootMap 
0780: 7b 7d 20 7b 0d 0a 20 20 72 65 74 75 72 6e 20 5b  {} {..  return [
0790: 6c 69 73 74 20 61 70 70 5c 5c 20 5b 61 70 70 65  list app\\ [appe
07a0: 6e 64 41 72 67 73 20 7b 7b 61 70 70 7d 7d 20 5c  ndArgs {{app}} \
07b0: 5c 5d 20 74 6d 70 5c 5c 20 5b 61 70 70 65 6e 64  \] tmp\\ [append
07c0: 41 72 67 73 20 7b 7b 74 6d 70 7d 7d 20 5c 5c 5d  Args {{tmp}} \\]
07d0: 5d 0d 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 67 65  ]..}.....proc ge
07e0: 74 45 78 65 63 43 6f 6d 6d 61 6e 64 50 72 65 66  tExecCommandPref
07f0: 69 78 20 7b 7d 20 7b 0d 0a 20 20 72 65 74 75 72  ix {} {..  retur
0800: 6e 20 5b 6c 69 73 74 20 65 78 65 63 20 2d 73 75  n [list exec -su
0810: 63 63 65 73 73 20 53 75 63 63 65 73 73 20 2d 6e  ccess Success -n
0820: 6f 63 61 72 72 69 61 67 65 72 65 74 75 72 6e 73  ocarriagereturns
0830: 20 2d 2d 5d 0d 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63   --]..}.....proc
0840: 20 63 6f 6d 62 69 6e 65 45 72 72 6f 72 73 20 7b   combineErrors {
0850: 20 65 72 72 6f 72 31 20 65 72 72 6f 72 32 20 7d   error1 error2 }
0860: 20 7b 0d 0a 20 20 72 65 74 75 72 6e 20 5b 61 70   {..  return [ap
0870: 70 65 6e 64 41 72 67 73 20 5c 6e 5c 6e 20 24 65  pendArgs \n\n $e
0880: 72 72 6f 72 31 20 5c 6e 20 24 65 72 72 6f 72 32  rror1 \n $error2
0890: 20 5c 6e 5d 0d 0a 7d 0d 0a 0c 0d 0a 73 65 74 20   \n]..}.....set 
08a0: 61 72 67 63 20 5b 6c 6c 65 6e 67 74 68 20 24 61  argc [llength $a
08b0: 72 67 76 5d 0d 0a 0d 0a 69 66 20 7b 24 61 72 67  rgv]....if {$arg
08c0: 63 20 3e 3d 20 32 20 26 26 20 24 61 72 67 63 20  c >= 2 && $argc 
08d0: 3c 3d 20 33 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  <= 3} then {..  
08e0: 73 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b 6c  set directory [l
08f0: 69 6e 64 65 78 20 24 61 72 67 76 20 30 5d 0d 0a  index $argv 0]..
0900: 0d 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20  ..  if {[string 
0910: 6c 65 6e 67 74 68 20 24 64 69 72 65 63 74 6f 72  length $director
0920: 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  y] == 0} then {.
0930: 0a 20 20 20 20 75 73 61 67 65 20 22 69 6e 76 61  .    usage "inva
0940: 6c 69 64 20 64 69 72 65 63 74 6f 72 79 20 73 70  lid directory sp
0950: 65 63 69 66 69 65 64 22 0d 0a 20 20 7d 0d 0a 0d  ecified"..  }...
0960: 0a 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 69 73  .  if {![file is
0970: 64 69 72 65 63 74 6f 72 79 20 24 64 69 72 65 63  directory $direc
0980: 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  tory]} then {.. 
0990: 20 20 20 75 73 61 67 65 20 5b 61 70 70 65 6e 64     usage [append
09a0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
09b0: 22 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 24  "directory \"" $
09c0: 64 69 72 65 63 74 6f 72 79 20 22 5c 22 20 64 6f  directory "\" do
09d0: 65 73 20 6e 6f 74 20 65 78 69 73 74 22 5d 0d 0a  es not exist"]..
09e0: 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 77 69 74    }....  set wit
09f0: 68 48 61 73 68 65 73 20 5b 6c 69 6e 64 65 78 20  hHashes [lindex 
0a00: 24 61 72 67 76 20 31 5d 0d 0a 0d 0a 20 20 69 66  $argv 1]....  if
0a10: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
0a20: 20 24 77 69 74 68 48 61 73 68 65 73 5d 20 3d 3d   $withHashes] ==
0a30: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
0a40: 75 73 61 67 65 20 22 69 6e 76 61 6c 69 64 20 5c  usage "invalid \
0a50: 22 77 69 74 68 48 61 73 68 65 73 5c 22 20 66 6c  "withHashes\" fl
0a60: 61 67 20 73 70 65 63 69 66 69 65 64 22 0d 0a 20  ag specified".. 
0a70: 20 7d 0d 0a 0d 0a 20 20 69 66 20 7b 21 5b 73 74   }....  if {![st
0a80: 72 69 6e 67 20 69 73 20 62 6f 6f 6c 65 61 6e 20  ring is boolean 
0a90: 2d 73 74 72 69 63 74 20 24 77 69 74 68 48 61 73  -strict $withHas
0aa0: 68 65 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  hes]} then {..  
0ab0: 20 20 75 73 61 67 65 20 22 62 61 64 20 5c 22 77    usage "bad \"w
0ac0: 69 74 68 48 61 73 68 65 73 5c 22 20 66 6c 61 67  ithHashes\" flag
0ad0: 2c 20 6e 6f 74 20 61 20 62 6f 6f 6c 65 61 6e 22  , not a boolean"
0ae0: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 66  ..  }....  set f
0af0: 61 69 6c 48 61 73 68 65 73 20 5b 65 78 70 72 20  ailHashes [expr 
0b00: 7b 24 61 72 67 63 20 3e 3d 20 33 20 3f 20 5b 6c  {$argc >= 3 ? [l
0b10: 69 6e 64 65 78 20 24 61 72 67 76 20 32 5d 20 3a  index $argv 2] :
0b20: 20 74 72 75 65 7d 5d 0d 0a 0d 0a 20 20 69 66 20   true}]....  if 
0b30: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
0b40: 24 66 61 69 6c 48 61 73 68 65 73 5d 20 3d 3d 20  $failHashes] == 
0b50: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 75  0} then {..    u
0b60: 73 61 67 65 20 22 69 6e 76 61 6c 69 64 20 5c 22  sage "invalid \"
0b70: 66 61 69 6c 48 61 73 68 65 73 5c 22 20 66 6c 61  failHashes\" fla
0b80: 67 20 73 70 65 63 69 66 69 65 64 22 0d 0a 20 20  g specified"..  
0b90: 7d 0d 0a 0d 0a 20 20 69 66 20 7b 21 5b 73 74 72  }....  if {![str
0ba0: 69 6e 67 20 69 73 20 62 6f 6f 6c 65 61 6e 20 2d  ing is boolean -
0bb0: 73 74 72 69 63 74 20 24 66 61 69 6c 48 61 73 68  strict $failHash
0bc0: 65 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  es]} then {..   
0bd0: 20 75 73 61 67 65 20 22 62 61 64 20 5c 22 66 61   usage "bad \"fa
0be0: 69 6c 48 61 73 68 65 73 5c 22 20 66 6c 61 67 2c  ilHashes\" flag,
0bf0: 20 6e 6f 74 20 61 20 62 6f 6f 6c 65 61 6e 22 0d   not a boolean".
0c00: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 65 78  .  }....  set ex
0c10: 69 74 43 6f 64 65 20 30 0d 0a 0d 0a 20 20 73 65  itCode 0....  se
0c20: 74 20 73 63 72 69 70 74 20 5b 69 6e 66 6f 20 73  t script [info s
0c30: 63 72 69 70 74 5d 0d 0a 20 20 73 65 74 20 70 61  cript]..  set pa
0c40: 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  th [file dirname
0c50: 20 24 73 63 72 69 70 74 5d 0d 0a 20 20 73 65 74   $script]..  set
0c60: 20 72 6f 6f 74 4e 61 6d 65 20 5b 66 69 6c 65 20   rootName [file 
0c70: 72 6f 6f 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74  rootname [file t
0c80: 61 69 6c 20 24 73 63 72 69 70 74 5d 5d 0d 0a 0d  ail $script]]...
0c90: 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  .  if {![info ex
0ca0: 69 73 74 73 20 66 6f 73 73 69 6c 5d 7d 20 74 68  ists fossil]} th
0cb0: 65 6e 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69  en {..    if {[i
0cc0: 6e 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28 46  nfo exists env(F
0cd0: 6f 73 73 69 6c 54 6f 6f 6c 29 5d 7d 20 74 68 65  ossilTool)]} the
0ce0: 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66  n {..      set f
0cf0: 6f 73 73 69 6c 20 24 65 6e 76 28 46 6f 73 73 69  ossil $env(Fossi
0d00: 6c 54 6f 6f 6c 29 0d 0a 20 20 20 20 7d 0d 0a 0d  lTool)..    }...
0d10: 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20  .    if {![info 
0d20: 65 78 69 73 74 73 20 66 6f 73 73 69 6c 5d 20 7c  exists fossil] |
0d30: 7c 20 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20  | ![file exists 
0d40: 24 66 6f 73 73 69 6c 5d 7d 20 74 68 65 6e 20 7b  $fossil]} then {
0d50: 0d 0a 20 20 20 20 20 20 73 65 74 20 66 6f 73 73  ..      set foss
0d60: 69 6c 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70  il [file join $p
0d70: 61 74 68 20 66 6f 73 73 69 6c 2e 65 78 65 5d 0d  ath fossil.exe].
0d80: 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20  .    }..  }.... 
0d90: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
0da0: 74 73 20 69 6e 6e 6f 75 6e 70 5d 7d 20 74 68 65  ts innounp]} the
0db0: 6e 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e  n {..    if {[in
0dc0: 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28 49 6e  fo exists env(In
0dd0: 6e 6f 55 6e 70 61 63 6b 54 6f 6f 6c 29 5d 7d 20  noUnpackTool)]} 
0de0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65  then {..      se
0df0: 74 20 69 6e 6e 6f 75 6e 70 20 24 65 6e 76 28 49  t innounp $env(I
0e00: 6e 6e 6f 55 6e 70 61 63 6b 54 6f 6f 6c 29 0d 0a  nnoUnpackTool)..
0e10: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20      }....    if 
0e20: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69  {![info exists i
0e30: 6e 6e 6f 75 6e 70 5d 20 7c 7c 20 21 5b 66 69 6c  nnounp] || ![fil
0e40: 65 20 65 78 69 73 74 73 20 24 69 6e 6e 6f 75 6e  e exists $innoun
0e50: 70 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  p]} then {..    
0e60: 20 20 73 65 74 20 69 6e 6e 6f 75 6e 70 20 5b 66    set innounp [f
0e70: 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68 20 69  ile join $path i
0e80: 6e 6e 6f 75 6e 70 2e 65 78 65 5d 0d 0a 20 20 20  nnounp.exe]..   
0e90: 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 69 66 20   }..  }....  if 
0ea0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69  {![info exists i
0eb0: 6e 6e 6f 65 78 74 72 61 63 74 5d 7d 20 74 68 65  nnoextract]} the
0ec0: 6e 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e  n {..    if {[in
0ed0: 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28 49 6e  fo exists env(In
0ee0: 6e 6f 45 78 74 72 61 63 74 54 6f 6f 6c 29 5d 7d  noExtractTool)]}
0ef0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73   then {..      s
0f00: 65 74 20 69 6e 6e 6f 65 78 74 72 61 63 74 20 24  et innoextract $
0f10: 65 6e 76 28 49 6e 6e 6f 45 78 74 72 61 63 74 54  env(InnoExtractT
0f20: 6f 6f 6c 29 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  ool)..    }.... 
0f30: 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78     if {![info ex
0f40: 69 73 74 73 20 69 6e 6e 6f 65 78 74 72 61 63 74  ists innoextract
0f50: 5d 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 73  ] || ![file exis
0f60: 74 73 20 24 69 6e 6e 6f 65 78 74 72 61 63 74 5d  ts $innoextract]
0f70: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
0f80: 73 65 74 20 69 6e 6e 6f 65 78 74 72 61 63 74 20  set innoextract 
0f90: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68  [file join $path
0fa0: 20 69 6e 6e 6f 65 78 74 72 61 63 74 2e 65 78 65   innoextract.exe
0fb0: 5d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d  ]..    }..  }...
0fc0: 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78  .  if {![info ex
0fd0: 69 73 74 73 20 72 61 72 5d 7d 20 74 68 65 6e 20  ists rar]} then 
0fe0: 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f  {..    if {[info
0ff0: 20 65 78 69 73 74 73 20 65 6e 76 28 55 6e 52 41   exists env(UnRA
1000: 52 54 6f 6f 6c 29 5d 7d 20 74 68 65 6e 20 7b 0d  RTool)]} then {.
1010: 0a 20 20 20 20 20 20 73 65 74 20 72 61 72 20 24  .      set rar $
1020: 65 6e 76 28 55 6e 52 41 52 54 6f 6f 6c 29 0d 0a  env(UnRARTool)..
1030: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20      }....    if 
1040: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72  {![info exists r
1050: 61 72 5d 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78  ar] || ![file ex
1060: 69 73 74 73 20 24 72 61 72 5d 7d 20 74 68 65 6e  ists $rar]} then
1070: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 72 61   {..      set ra
1080: 72 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61  r [file join $pa
1090: 74 68 20 55 6e 52 41 52 2e 65 78 65 5d 0d 0a 20  th UnRAR.exe].. 
10a0: 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 69     }..  }....  i
10b0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
10c0: 20 7a 69 70 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20   zip]} then {.. 
10d0: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
10e0: 73 74 73 20 65 6e 76 28 55 6e 5a 69 70 54 6f 6f  sts env(UnZipToo
10f0: 6c 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  l)]} then {..   
1100: 20 20 20 73 65 74 20 7a 69 70 20 24 65 6e 76 28     set zip $env(
1110: 55 6e 5a 69 70 54 6f 6f 6c 29 0d 0a 20 20 20 20  UnZipTool)..    
1120: 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69  }....    if {![i
1130: 6e 66 6f 20 65 78 69 73 74 73 20 7a 69 70 5d 20  nfo exists zip] 
1140: 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 73 74 73  || ![file exists
1150: 20 24 7a 69 70 5d 7d 20 74 68 65 6e 20 7b 0d 0a   $zip]} then {..
1160: 20 20 20 20 20 20 73 65 74 20 7a 69 70 20 5b 66        set zip [f
1170: 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68 20 55  ile join $path U
1180: 6e 5a 69 70 2e 65 78 65 5d 0d 0a 20 20 20 20 7d  nZip.exe]..    }
1190: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 6f 75 72 63  ..  }....  sourc
11a0: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61  e [file join $pa
11b0: 74 68 20 64 61 74 61 20 5b 61 70 70 65 6e 64 41  th data [appendA
11c0: 72 67 73 20 24 72 6f 6f 74 4e 61 6d 65 20 2e 6c  rgs $rootName .l
11d0: 73 74 5d 5d 0d 0a 0d 0a 20 20 69 66 20 7b 21 5b  st]]....  if {![
11e0: 61 72 72 61 79 20 65 78 69 73 74 73 20 6d 61 6e  array exists man
11f0: 69 66 65 73 74 73 5d 7d 20 74 68 65 6e 20 7b 0d  ifests]} then {.
1200: 0a 20 20 20 20 75 73 61 67 65 20 22 6d 61 73 74  .    usage "mast
1210: 65 72 20 61 72 63 68 69 76 65 20 6d 61 6e 69 66  er archive manif
1220: 65 73 74 20 69 73 20 6d 69 73 73 69 6e 67 22 0d  est is missing".
1230: 0a 20 20 7d 0d 0a 0d 0a 20 20 70 61 63 6b 61 67  .  }....  packag
1240: 65 20 72 65 71 75 69 72 65 20 45 61 67 6c 65 2e  e require Eagle.
1250: 54 65 73 74 3b 20 73 65 74 20 65 78 74 72 61 63  Test; set extrac
1260: 74 44 69 72 65 63 74 6f 72 79 20 5b 67 65 74 54  tDirectory [getT
1270: 65 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 0d  emporaryPath]...
1280: 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c  .  if {[string l
1290: 65 6e 67 74 68 20 24 65 78 74 72 61 63 74 44 69  ength $extractDi
12a0: 72 65 63 74 6f 72 79 5d 20 3d 3d 20 30 7d 20 74  rectory] == 0} t
12b0: 68 65 6e 20 7b 0d 0a 20 20 20 20 75 73 61 67 65  hen {..    usage
12c0: 20 22 6e 6f 20 65 78 74 72 61 63 74 20 64 69 72   "no extract dir
12d0: 65 63 74 6f 72 79 20 69 73 20 61 76 61 69 6c 61  ectory is availa
12e0: 62 6c 65 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 69  ble"..  }....  i
12f0: 66 20 7b 21 5b 66 69 6c 65 20 69 73 64 69 72 65  f {![file isdire
1300: 63 74 6f 72 79 20 24 65 78 74 72 61 63 74 44 69  ctory $extractDi
1310: 72 65 63 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b  rectory]} then {
1320: 0d 0a 20 20 20 20 75 73 61 67 65 20 5b 61 70 70  ..    usage [app
1330: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
1340: 20 20 20 22 65 78 74 72 61 63 74 20 64 69 72 65     "extract dire
1350: 63 74 6f 72 79 20 5c 22 22 20 24 65 78 74 72 61  ctory \"" $extra
1360: 63 74 44 69 72 65 63 74 6f 72 79 20 22 5c 22 20  ctDirectory "\" 
1370: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 5d  does not exist"]
1380: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 69 66 20 7b 24  ..  }....  if {$
1390: 77 69 74 68 48 61 73 68 65 73 7d 20 74 68 65 6e  withHashes} then
13a0: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 21 5b 66 69   {..    if {![fi
13b0: 6c 65 20 65 78 69 73 74 73 20 24 66 6f 73 73 69  le exists $fossi
13c0: 6c 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  l]} then {..    
13d0: 20 20 75 73 61 67 65 20 5b 61 70 70 65 6e 64 41    usage [appendA
13e0: 72 67 73 20 22 74 6f 6f 6c 20 5c 22 22 20 24 66  rgs "tool \"" $f
13f0: 6f 73 73 69 6c 20 22 5c 22 20 69 73 20 6d 69 73  ossil "\" is mis
1400: 73 69 6e 67 22 5d 0d 0a 20 20 20 20 7d 0d 0a 0d  sing"]..    }...
1410: 0a 20 20 20 20 69 66 20 7b 5b 67 65 74 46 69 6c  .    if {[getFil
1420: 65 48 61 73 68 65 73 20 68 61 73 68 65 73 5d 20  eHashes hashes] 
1430: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..  
1440: 20 20 20 20 75 73 61 67 65 20 22 6e 6f 20 72 65      usage "no re
1450: 70 6f 73 69 74 6f 72 79 20 68 61 73 68 65 73 20  pository hashes 
1460: 61 72 65 20 61 76 61 69 6c 61 62 6c 65 22 0d 0a  are available"..
1470: 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20      }..  }....  
1480: 73 65 74 20 68 61 73 68 50 72 65 66 69 78 20 5b  set hashPrefix [
1490: 65 78 70 72 20 7b 24 66 61 69 6c 48 61 73 68 65  expr {$failHashe
14a0: 73 20 3f 20 22 45 52 52 4f 52 22 20 3a 20 22 57  s ? "ERROR" : "W
14b0: 41 52 4e 49 4e 47 22 7d 5d 0d 0a 20 20 73 65 74  ARNING"}]..  set
14c0: 20 61 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65   archiveFileName
14d0: 73 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 66 6f  s [list]....  fo
14e0: 72 65 61 63 68 20 65 78 74 65 6e 73 69 6f 6e 20  reach extension 
14f0: 5b 6c 69 73 74 20 65 78 65 20 6e 75 70 6b 67 20  [list exe nupkg 
1500: 72 61 72 20 7a 69 70 5d 20 7b 0d 0a 20 20 20 20  rar zip] {..    
1510: 65 76 61 6c 20 6c 61 70 70 65 6e 64 20 61 72 63  eval lappend arc
1520: 68 69 76 65 46 69 6c 65 4e 61 6d 65 73 20 5b 66  hiveFileNames [f
1530: 69 6e 64 46 69 6c 65 73 52 65 63 75 72 73 69 76  indFilesRecursiv
1540: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 66 69  e \..        [fi
1550: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 65 63 74 6f  le join $directo
1560: 72 79 20 5b 61 70 70 65 6e 64 41 72 67 73 20 2a  ry [appendArgs *
1570: 2e 20 24 65 78 74 65 6e 73 69 6f 6e 5d 5d 5d 0d  . $extension]]].
1580: 0a 20 20 7d 0d 0a 0d 0a 20 20 66 6f 72 65 61 63  .  }....  foreac
1590: 68 20 61 72 63 68 69 76 65 46 69 6c 65 4e 61 6d  h archiveFileNam
15a0: 65 20 24 61 72 63 68 69 76 65 46 69 6c 65 4e 61  e $archiveFileNa
15b0: 6d 65 73 20 7b 0d 0a 20 20 20 20 73 65 74 20 6d  mes {..    set m
15c0: 61 6e 69 66 65 73 74 20 5b 66 69 6c 65 20 74 61  anifest [file ta
15d0: 69 6c 20 24 61 72 63 68 69 76 65 46 69 6c 65 4e  il $archiveFileN
15e0: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  ame]....    #.. 
15f0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d     # NOTE: Attem
1600: 70 74 20 74 6f 20 65 78 74 72 61 63 74 20 74 68  pt to extract th
1610: 65 20 76 65 72 73 69 6f 6e 20 61 6e 64 2f 6f 72  e version and/or
1620: 20 64 61 74 65 2f 74 69 6d 65 0d 0a 20 20 20 20   date/time..    
1630: 23 20 20 20 20 20 20 20 69 6e 66 6f 72 6d 61 74  #       informat
1640: 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 6d 61 6e  ion from the man
1650: 69 66 65 73 74 20 66 69 6c 65 20 6e 61 6d 65 2e  ifest file name.
1660: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 72 65 67  ..    #..    reg
1670: 65 78 70 20 2d 2d 20 7b 28 5c 64 2b 29 5c 2e 28  exp -- {(\d+)\.(
1680: 5c 64 2b 29 5c 2e 28 5c 64 2b 29 5c 2e 28 5c 64  \d+)\.(\d+)\.(\d
1690: 2b 29 7d 20 24 6d 61 6e 69 66 65 73 74 20 64 75  +)} $manifest du
16a0: 6d 6d 79 20 5c 0d 0a 20 20 20 20 20 20 20 20 6d  mmy \..        m
16b0: 61 6a 6f 72 20 6d 69 6e 6f 72 20 62 75 69 6c 64  ajor minor build
16c0: 20 72 65 76 69 73 69 6f 6e 0d 0a 0d 0a 20 20 20   revision....   
16d0: 20 72 65 67 65 78 70 20 2d 2d 20 7b 28 5c 64 7b   regexp -- {(\d{
16e0: 34 7d 29 2d 28 5c 64 7b 32 7d 29 2d 28 5c 64 7b  4})-(\d{2})-(\d{
16f0: 32 7d 29 2d 28 5c 64 7b 32 7d 29 7d 20 24 6d 61  2})-(\d{2})} $ma
1700: 6e 69 66 65 73 74 20 5c 0d 0a 20 20 20 20 20 20  nifest \..      
1710: 20 20 64 75 6d 6d 79 20 79 65 61 72 20 6d 6f 6e    dummy year mon
1720: 74 68 20 64 61 79 20 73 65 71 75 65 6e 63 65 0d  th day sequence.
1730: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  ...    #..    # 
1740: 48 41 43 4b 3a 20 41 74 74 65 6d 70 74 20 74 6f  HACK: Attempt to
1750: 20 6d 61 74 63 68 20 61 6e 64 20 72 65 6d 6f 76   match and remov
1760: 65 20 73 75 62 2d 73 74 72 69 6e 67 73 20 66 72  e sub-strings fr
1770: 6f 6d 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20  om the..    #   
1780: 20 20 20 20 6d 61 6e 69 66 65 73 74 20 66 69 6c      manifest fil
1790: 65 20 6e 61 6d 65 20 74 68 61 74 20 6c 6f 6f 6b  e name that look
17a0: 20 6c 69 6b 65 20 74 68 65 20 6e 61 6d 65 20 6f   like the name o
17b0: 66 20 61 0d 0a 20 20 20 20 23 20 20 20 20 20 20  f a..    #      
17c0: 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 61   build configura
17d0: 74 69 6f 6e 20 28 65 2e 67 2e 20 22 64 65 62 75  tion (e.g. "debu
17e0: 67 22 20 6f 72 20 22 72 65 6c 65 61 73 65 22 29  g" or "release")
17f0: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 72 65  ...    #..    re
1800: 67 73 75 62 20 2d 2d 20 7b 2d 64 65 62 75 67 2d  gsub -- {-debug-
1810: 7c 2d 72 65 6c 65 61 73 65 2d 7d 20 24 6d 61 6e  |-release-} $man
1820: 69 66 65 73 74 20 7b 2d 7d 20 6d 61 6e 69 66 65  ifest {-} manife
1830: 73 74 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20  st....    #..   
1840: 20 23 20 48 41 43 4b 3a 20 53 70 65 63 69 61 6c   # HACK: Special
1850: 20 68 61 63 6b 20 74 6f 20 61 6c 6c 6f 77 20 22   hack to allow "
1860: 43 4c 52 76 58 22 20 74 6f 20 61 70 70 65 61 72  CLRvX" to appear
1870: 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 23 20 20   in the..    #  
1880: 20 20 20 20 20 6d 61 6e 69 66 65 73 74 20 66 69       manifest fi
1890: 6c 65 20 6e 61 6d 65 73 2c 20 70 61 72 74 20 31  le names, part 1
18a0: 2c 20 74 68 65 20 76 61 6e 69 73 68 69 6e 67 2e  , the vanishing.
18b0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74  ..    #..    set
18c0: 20 6d 61 6e 69 66 65 73 74 20 5b 73 74 72 69 6e   manifest [strin
18d0: 67 20 6d 61 70 20 5c 0d 0a 20 20 20 20 20 20 20  g map \..       
18e0: 20 5b 6c 69 73 74 20 43 4c 52 76 32 20 43 4c 52   [list CLRv2 CLR
18f0: 76 54 57 4f 20 43 4c 52 76 34 20 43 4c 52 76 46  vTWO CLRv4 CLRvF
1900: 4f 55 52 5d 20 24 6d 61 6e 69 66 65 73 74 5d 0d  OUR] $manifest].
1910: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  ...    #..    # 
1920: 48 41 43 4b 3a 20 53 70 65 63 69 61 6c 20 68 61  HACK: Special ha
1930: 63 6b 20 74 6f 20 61 6c 6c 6f 77 20 22 45 46 36  ck to allow "EF6
1940: 22 2c 20 22 57 69 6e 33 32 22 2c 20 22 78 36 34  ", "Win32", "x64
1950: 22 2c 20 61 6e 64 0d 0a 20 20 20 20 23 20 20 20  ", and..    #   
1960: 20 20 20 20 22 78 38 36 22 20 74 6f 20 61 70 70      "x86" to app
1970: 65 61 72 20 69 6e 20 74 68 65 20 6d 61 6e 69 66  ear in the manif
1980: 65 73 74 20 66 69 6c 65 20 6e 61 6d 65 73 2c 20  est file names, 
1990: 70 61 72 74 20 31 2c 0d 0a 20 20 20 20 23 20 20  part 1,..    #  
19a0: 20 20 20 20 20 74 68 65 20 76 61 6e 69 73 68 69       the vanishi
19b0: 6e 67 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ng...    #..    
19c0: 73 65 74 20 6d 61 6e 69 66 65 73 74 20 5b 73 74  set manifest [st
19d0: 72 69 6e 67 20 6d 61 70 20 5c 0d 0a 20 20 20 20  ring map \..    
19e0: 20 20 20 20 5b 6c 69 73 74 20 45 46 36 20 45 46      [list EF6 EF
19f0: 2d 53 49 58 20 57 69 6e 33 32 20 57 69 6e 2d 54  -SIX Win32 Win-T
1a00: 48 49 52 54 59 54 57 4f 20 78 36 34 20 78 2d 53  HIRTYTWO x64 x-S
1a10: 49 58 54 59 46 4f 55 52 20 5c 0d 0a 20 20 20 20  IXTYFOUR \..    
1a20: 20 20 20 20 78 38 36 20 78 2d 45 49 47 48 54 59      x86 x-EIGHTY
1a30: 53 49 58 5d 20 24 6d 61 6e 69 66 65 73 74 5d 0d  SIX] $manifest].
1a40: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  ...    #..    # 
1a50: 48 41 43 4b 3a 20 41 74 74 65 6d 70 74 20 74 6f  HACK: Attempt to
1a60: 20 6d 61 74 63 68 20 61 6e 64 20 72 65 6d 6f 76   match and remov
1a70: 65 20 73 75 62 2d 73 74 72 69 6e 67 73 20 66 72  e sub-strings fr
1a80: 6f 6d 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20  om the..    #   
1a90: 20 20 20 20 6d 61 6e 69 66 65 73 74 20 66 69 6c      manifest fil
1aa0: 65 20 6e 61 6d 65 20 74 68 61 74 20 6c 6f 6f 6b  e name that look
1ab0: 20 6c 69 6b 65 20 61 20 76 65 72 73 69 6f 6e 20   like a version 
1ac0: 6e 75 6d 62 65 72 0d 0a 20 20 20 20 23 20 20 20  number..    #   
1ad0: 20 20 20 20 69 6e 20 74 68 65 20 66 6f 72 6d 61      in the forma
1ae0: 74 20 22 3c 6d 61 6a 6f 72 3e 2e 3c 6d 69 6e 6f  t "<major>.<mino
1af0: 72 3e 2e 3c 62 75 69 6c 64 3e 2e 3c 72 65 76 69  r>.<build>.<revi
1b00: 73 69 6f 6e 3e 22 0d 0a 20 20 20 20 23 20 20 20  sion>"..    #   
1b10: 20 20 20 20 61 6e 64 2f 6f 72 20 61 20 64 61 74      and/or a dat
1b20: 65 2f 74 69 6d 65 20 73 74 72 69 6e 67 20 6d 61  e/time string ma
1b30: 74 63 68 69 6e 67 20 74 68 65 20 66 6f 72 6d 61  tching the forma
1b40: 74 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 22  t..    #       "
1b50: 59 59 59 59 2d 4d 4d 2d 44 44 2d 4e 4e 22 20 28  YYYY-MM-DD-NN" (
1b60: 77 68 65 72 65 20 74 68 65 20 4e 4e 20 70 6f 72  where the NN por
1b70: 74 69 6f 6e 20 69 73 20 61 20 67 65 6e 65 72 69  tion is a generi
1b80: 63 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 69  c..    #       i
1b90: 6e 63 72 65 6d 65 6e 74 69 6e 67 20 73 65 71 75  ncrementing sequ
1ba0: 65 6e 63 65 20 6e 75 6d 62 65 72 29 2e 0d 0a 20  ence number)... 
1bb0: 20 20 20 23 0d 0a 20 20 20 20 72 65 67 73 75 62     #..    regsub
1bc0: 20 2d 2d 20 7b 5c 64 2b 5c 2e 5c 64 2b 5c 2e 5c   -- {\d+\.\d+\.\
1bd0: 64 2b 5c 2e 5c 64 2b 7d 20 24 6d 61 6e 69 66 65  d+\.\d+} $manife
1be0: 73 74 20 7b 7d 20 6d 61 6e 69 66 65 73 74 0d 0a  st {} manifest..
1bf0: 20 20 20 20 72 65 67 73 75 62 20 2d 2d 20 7b 5c      regsub -- {\
1c00: 64 7b 34 7d 2d 5c 64 7b 32 7d 2d 5c 64 7b 32 7d  d{4}-\d{2}-\d{2}
1c10: 2d 5c 64 7b 32 7d 7d 20 24 6d 61 6e 69 66 65 73  -\d{2}} $manifes
1c20: 74 20 7b 7d 20 6d 61 6e 69 66 65 73 74 0d 0a 0d  t {} manifest...
1c30: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 48 41  .    #..    # HA
1c40: 43 4b 3a 20 53 70 65 63 69 61 6c 20 68 61 63 6b  CK: Special hack
1c50: 20 74 6f 20 61 6c 6c 6f 77 20 22 43 4c 52 76 58   to allow "CLRvX
1c60: 22 20 74 6f 20 61 70 70 65 61 72 20 69 6e 20 74  " to appear in t
1c70: 68 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  he..    #       
1c80: 6d 61 6e 69 66 65 73 74 20 66 69 6c 65 20 6e 61  manifest file na
1c90: 6d 65 73 2c 20 70 61 72 74 20 32 2c 20 74 68 65  mes, part 2, the
1ca0: 20 72 65 74 75 72 6e 2e 0d 0a 20 20 20 20 23 0d   return...    #.
1cb0: 0a 20 20 20 20 73 65 74 20 6d 61 6e 69 66 65 73  .    set manifes
1cc0: 74 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5c 0d  t [string map \.
1cd0: 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 43  .        [list C
1ce0: 4c 52 76 54 57 4f 20 43 4c 52 76 32 20 43 4c 52  LRvTWO CLRv2 CLR
1cf0: 76 46 4f 55 52 20 43 4c 52 76 34 5d 20 24 6d 61  vFOUR CLRv4] $ma
1d00: 6e 69 66 65 73 74 5d 0d 0a 0d 0a 20 20 20 20 23  nifest]....    #
1d10: 0d 0a 20 20 20 20 23 20 48 41 43 4b 3a 20 53 70  ..    # HACK: Sp
1d20: 65 63 69 61 6c 20 68 61 63 6b 20 74 6f 20 61 6c  ecial hack to al
1d30: 6c 6f 77 20 22 45 46 36 22 2c 20 22 57 69 6e 33  low "EF6", "Win3
1d40: 32 22 2c 20 22 78 36 34 22 2c 20 61 6e 64 0d 0a  2", "x64", and..
1d50: 20 20 20 20 23 20 20 20 20 20 20 20 22 78 38 36      #       "x86
1d60: 22 20 74 6f 20 61 70 70 65 61 72 20 69 6e 20 74  " to appear in t
1d70: 68 65 20 6d 61 6e 69 66 65 73 74 20 66 69 6c 65  he manifest file
1d80: 20 6e 61 6d 65 73 2c 20 70 61 72 74 20 32 2c 0d   names, part 2,.
1d90: 0a 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65  .    #       the
1da0: 20 72 65 74 75 72 6e 2e 0d 0a 20 20 20 20 23 0d   return...    #.
1db0: 0a 20 20 20 20 73 65 74 20 6d 61 6e 69 66 65 73  .    set manifes
1dc0: 74 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5c 0d  t [string map \.
1dd0: 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 45  .        [list E
1de0: 46 2d 53 49 58 20 45 46 36 20 57 69 6e 2d 54 48  F-SIX EF6 Win-TH
1df0: 49 52 54 59 54 57 4f 20 57 69 6e 33 32 20 78 2d  IRTYTWO Win32 x-
1e00: 53 49 58 54 59 46 4f 55 52 20 78 36 34 20 5c 0d  SIXTYFOUR x64 \.
1e10: 0a 20 20 20 20 20 20 20 20 78 2d 45 49 47 48 54  .        x-EIGHT
1e20: 59 53 49 58 20 78 38 36 5d 20 24 6d 61 6e 69 66  YSIX x86] $manif
1e30: 65 73 74 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  est]....    #.. 
1e40: 20 20 20 23 20 48 41 43 4b 3a 20 46 69 78 75 70     # HACK: Fixup
1e50: 20 6d 61 6e 69 66 65 73 74 20 66 69 6c 65 20 6e   manifest file n
1e60: 61 6d 65 73 20 74 68 61 74 20 63 6f 72 72 65 73  ames that corres
1e70: 70 6f 6e 64 20 74 6f 20 74 68 65 0d 0a 20 20 20  pond to the..   
1e80: 20 23 20 20 20 20 20 20 20 4e 75 47 65 74 20 70   #       NuGet p
1e90: 61 63 6b 61 67 65 73 20 66 6f 72 20 53 79 6d 62  ackages for Symb
1ea0: 6f 6c 53 6f 75 72 63 65 2e 0d 0a 20 20 20 20 23  olSource...    #
1eb0: 0d 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78  ..    if {[regex
1ec0: 70 20 2d 2d 20 7b 5b 2f 5c 5c 5d 53 79 6d 62 6f  p -- {[/\\]Symbo
1ed0: 6c 53 6f 75 72 63 65 5b 2f 5c 5c 5d 7d 20 24 61  lSource[/\\]} $a
1ee0: 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 5d 7d  rchiveFileName]}
1ef0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73   then {..      s
1f00: 65 74 20 6d 61 6e 69 66 65 73 74 20 5b 73 74 72  et manifest [str
1f10: 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 2e 2e  ing map [list ..
1f20: 20 2e 53 6f 75 72 63 65 2e 2e 5d 20 24 6d 61 6e   .Source..] $man
1f30: 69 66 65 73 74 5d 0d 0a 20 20 20 20 7d 0d 0a 0d  ifest]..    }...
1f40: 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20  .    if {![info 
1f50: 65 78 69 73 74 73 20 6d 61 6e 69 66 65 73 74 73  exists manifests
1f60: 28 24 6d 61 6e 69 66 65 73 74 29 5d 7d 20 74 68  ($manifest)]} th
1f70: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 70 75 74 73  en {..      puts
1f80: 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e 64 41   stdout [appendA
1f90: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
1fa0: 20 22 57 41 52 4e 49 4e 47 3a 20 43 61 6e 6e 6f   "WARNING: Canno
1fb0: 74 20 66 69 6e 64 20 6d 61 73 74 65 72 20 6d 61  t find master ma
1fc0: 6e 69 66 65 73 74 20 5c 22 22 20 5c 0d 0a 20 20  nifest \"" \..  
1fd0: 20 20 20 20 20 20 20 20 24 6d 61 6e 69 66 65 73          $manifes
1fe0: 74 20 22 5c 22 20 66 6f 72 20 61 72 63 68 69 76  t "\" for archiv
1ff0: 65 20 5c 22 22 20 24 61 72 63 68 69 76 65 46 69  e \"" $archiveFi
2000: 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20  leName \..      
2010: 20 20 20 20 22 5c 22 2c 20 73 6b 69 70 70 65 64      "\", skipped
2020: 2e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 63 6f 6e  ."]....      con
2030: 74 69 6e 75 65 0d 0a 20 20 20 20 7d 0d 0a 0d 0a  tinue..    }....
2040: 20 20 20 20 73 65 74 20 6d 61 6e 69 66 65 73 74      set manifest
2050: 46 69 6c 65 4e 61 6d 65 73 20 5b 6c 69 73 74 5d  FileNames [list]
2060: 0d 0a 0d 0a 20 20 20 20 66 6f 72 65 61 63 68 20  ....    foreach 
2070: 6c 69 73 74 20 5b 6c 72 61 6e 67 65 20 24 6d 61  list [lrange $ma
2080: 6e 69 66 65 73 74 73 28 24 6d 61 6e 69 66 65 73  nifests($manifes
2090: 74 29 20 31 20 65 6e 64 5d 20 7b 0d 0a 20 20 20  t) 1 end] {..   
20a0: 20 20 20 73 65 74 20 72 61 77 4d 61 6e 69 66 65     set rawManife
20b0: 73 74 46 69 6c 65 4e 61 6d 65 73 20 5b 73 65 74  stFileNames [set
20c0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
20d0: 20 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e            [appen
20e0: 64 41 72 67 73 20 5b 6c 69 6e 64 65 78 20 24 6d  dArgs [lindex $m
20f0: 61 6e 69 66 65 73 74 73 28 24 6d 61 6e 69 66 65  anifests($manife
2100: 73 74 29 20 30 5d 20 5c 0d 0a 20 20 20 20 20 20  st) 0] \..      
2110: 20 20 20 20 5f 6d 61 6e 69 66 65 73 74 73 5d 20      _manifests] 
2120: 28 20 24 6c 69 73 74 20 29 5d 5d 0d 0a 0d 0a 20  ( $list )]].... 
2130: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
2140: 78 69 73 74 73 20 6d 61 6e 69 66 65 73 74 73 28  xists manifests(
2150: 24 6d 61 6e 69 66 65 73 74 2c 73 75 62 73 74 29  $manifest,subst)
2160: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
2170: 20 20 20 73 65 74 20 72 61 77 4d 61 6e 69 66 65     set rawManife
2180: 73 74 46 69 6c 65 4e 61 6d 65 73 20 5b 73 75 62  stFileNames [sub
2190: 73 74 20 24 72 61 77 4d 61 6e 69 66 65 73 74 46  st $rawManifestF
21a0: 69 6c 65 4e 61 6d 65 73 5d 0d 0a 20 20 20 20 20  ileNames]..     
21b0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 66 6f 72 65   }....      fore
21c0: 61 63 68 20 6d 61 6e 69 66 65 73 74 46 69 6c 65  ach manifestFile
21d0: 4e 61 6d 65 20 24 72 61 77 4d 61 6e 69 66 65 73  Name $rawManifes
21e0: 74 46 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20  tFileNames {..  
21f0: 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 61        lappend ma
2200: 6e 69 66 65 73 74 46 69 6c 65 4e 61 6d 65 73 20  nifestFileNames 
2210: 24 6d 61 6e 69 66 65 73 74 46 69 6c 65 4e 61 6d  $manifestFileNam
2220: 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  e..      }..    
2230: 7d 0d 0a 0d 0a 20 20 20 20 73 65 74 20 69 73 53  }....    set isS
2240: 65 74 75 70 20 66 61 6c 73 65 0d 0a 0d 0a 20 20  etup false....  
2250: 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 74 65    if {[file exte
2260: 6e 73 69 6f 6e 20 24 61 72 63 68 69 76 65 46 69  nsion $archiveFi
2270: 6c 65 4e 61 6d 65 5d 20 69 6e 20 5b 6c 69 73 74  leName] in [list
2280: 20 2e 6e 75 70 6b 67 20 2e 7a 69 70 5d 7d 20 74   .nupkg .zip]} t
2290: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 69 66 20  hen {..      if 
22a0: 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24  {![file exists $
22b0: 7a 69 70 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  zip]} then {..  
22c0: 20 20 20 20 20 20 75 73 61 67 65 20 5b 61 70 70        usage [app
22d0: 65 6e 64 41 72 67 73 20 22 74 6f 6f 6c 20 5c 22  endArgs "tool \"
22e0: 22 20 24 7a 69 70 20 22 5c 22 20 69 73 20 6d 69  " $zip "\" is mi
22f0: 73 73 69 6e 67 22 5d 0d 0a 20 20 20 20 20 20 7d  ssing"]..      }
2300: 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 6c 69  ....      set li
2310: 73 74 43 6f 6d 6d 61 6e 64 28 31 29 20 5b 67 65  stCommand(1) [ge
2320: 74 45 78 65 63 43 6f 6d 6d 61 6e 64 50 72 65 66  tExecCommandPref
2330: 69 78 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20  ix]....      if 
2340: 7b 5b 6c 69 6e 64 65 78 20 24 6c 69 73 74 43 6f  {[lindex $listCo
2350: 6d 6d 61 6e 64 28 31 29 20 30 5d 20 6e 65 20 22  mmand(1) 0] ne "
2360: 65 72 72 6f 72 22 7d 20 74 68 65 6e 20 7b 0d 0a  error"} then {..
2370: 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20          lappend 
2380: 6c 69 73 74 43 6f 6d 6d 61 6e 64 28 31 29 20 24  listCommand(1) $
2390: 7a 69 70 20 2d 5a 20 2d 31 20 5c 0d 0a 20 20 20  zip -Z -1 \..   
23a0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6e           [file n
23b0: 61 74 69 76 65 6e 61 6d 65 20 24 61 72 63 68 69  ativename $archi
23c0: 76 65 46 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20  veFileName]..   
23d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65     }....      se
23e0: 74 20 6c 69 73 74 43 6f 6d 6d 61 6e 64 28 32 29  t listCommand(2)
23f0: 20 5b 6c 69 73 74 20 65 72 72 6f 72 20 22 6e 6f   [list error "no
2400: 20 66 61 6c 6c 62 61 63 6b 20 6c 69 73 74 20 63   fallback list c
2410: 6f 6d 6d 61 6e 64 22 5d 0d 0a 20 20 20 20 20 20  ommand"]..      
2420: 73 65 74 20 65 78 74 72 61 63 74 43 6f 6d 6d 61  set extractComma
2430: 6e 64 28 31 29 20 5b 67 65 74 45 78 65 63 43 6f  nd(1) [getExecCo
2440: 6d 6d 61 6e 64 50 72 65 66 69 78 5d 0d 0a 0d 0a  mmandPrefix]....
2450: 20 20 20 20 20 20 69 66 20 7b 5b 6c 69 6e 64 65        if {[linde
2460: 78 20 24 65 78 74 72 61 63 74 43 6f 6d 6d 61 6e  x $extractComman
2470: 64 28 31 29 20 30 5d 20 6e 65 20 22 65 72 72 6f  d(1) 0] ne "erro
2480: 72 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  r"} then {..    
2490: 20 20 20 20 6c 61 70 70 65 6e 64 20 65 78 74 72      lappend extr
24a0: 61 63 74 43 6f 6d 6d 61 6e 64 28 31 29 20 24 7a  actCommand(1) $z
24b0: 69 70 20 2d 6a 20 2d 6f 20 5c 0d 0a 20 20 20 20  ip -j -o \..    
24c0: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6e 61          [file na
24d0: 74 69 76 65 6e 61 6d 65 20 24 61 72 63 68 69 76  tivename $archiv
24e0: 65 46 69 6c 65 4e 61 6d 65 5d 20 5c 0d 0a 20 20  eFileName] \..  
24f0: 20 20 20 20 20 20 20 20 20 20 5c 22 25 66 69 6c            \"%fil
2500: 65 4e 61 6d 65 25 5c 22 20 2d 64 20 5c 22 25 64  eName%\" -d \"%d
2510: 69 72 65 63 74 6f 72 79 25 5c 22 0d 0a 20 20 20  irectory%\"..   
2520: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65     }....      se
2530: 74 20 65 78 74 72 61 63 74 43 6f 6d 6d 61 6e 64  t extractCommand
2540: 28 32 29 20 5b 6c 69 73 74 20 65 72 72 6f 72 20  (2) [list error 
2550: 22 6e 6f 20 66 61 6c 6c 62 61 63 6b 20 65 78 74  "no fallback ext
2560: 72 61 63 74 20 63 6f 6d 6d 61 6e 64 22 5d 0d 0a  ract command"]..
2570: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 66      } elseif {[f
2580: 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e 20 24 61  ile extension $a
2590: 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 5d 20  rchiveFileName] 
25a0: 65 71 20 22 2e 65 78 65 22 20 26 26 20 5c 0d 0a  eq ".exe" && \..
25b0: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20          [string 
25c0: 6d 61 74 63 68 20 2d 6e 6f 63 61 73 65 20 2a 53  match -nocase *S
25d0: 65 74 75 70 2a 2e 65 78 65 20 24 6d 61 6e 69 66  etup*.exe $manif
25e0: 65 73 74 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  est]} then {..  
25f0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 48      #..      # H
2600: 41 43 4b 3a 20 54 68 65 72 65 20 69 73 20 73 6f  ACK: There is so
2610: 6d 65 20 73 70 65 63 69 61 6c 20 68 61 6e 64 6c  me special handl
2620: 69 6e 67 20 6e 65 65 64 65 64 20 66 6f 72 20 64  ing needed for d
2630: 65 61 6c 69 6e 67 20 77 69 74 68 0d 0a 20 20 20  ealing with..   
2640: 20 20 20 23 20 20 20 20 20 20 20 73 65 74 75 70     #       setup
2650: 20 70 61 63 6b 61 67 65 73 2c 20 77 68 69 63 68   packages, which
2660: 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 20 61   are currently a
2670: 6c 77 61 79 73 20 63 72 65 61 74 65 64 20 77 69  lways created wi
2680: 74 68 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  th..      #     
2690: 20 20 74 68 65 20 49 6e 6e 6f 20 53 65 74 75 70    the Inno Setup
26a0: 20 74 6f 6f 6c 2e 20 20 54 68 65 20 74 77 6f 20   tool.  The two 
26b0: 74 6f 6f 6c 73 20 74 68 61 74 20 63 61 6e 20 62  tools that can b
26c0: 65 20 75 73 65 64 20 74 6f 0d 0a 20 20 20 20 20  e used to..     
26d0: 20 23 20 20 20 20 20 20 20 76 65 72 69 66 79 20   #       verify 
26e0: 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20  the contents of 
26f0: 74 68 65 73 65 20 70 61 63 6b 61 67 65 73 20 61  these packages a
2700: 72 65 20 22 69 6e 6e 6f 75 6e 70 22 20 61 6e 64  re "innounp" and
2710: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
2720: 22 69 6e 6e 6f 65 78 74 72 61 63 74 22 2e 20 20  "innoextract".  
2730: 53 69 6e 63 65 20 74 68 69 73 20 61 72 63 68 69  Since this archi
2740: 76 65 20 66 69 6c 65 20 6e 61 6d 65 20 6c 6f 6f  ve file name loo
2750: 6b 73 20 6c 69 6b 65 0d 0a 20 20 20 20 20 20 23  ks like..      #
2760: 20 20 20 20 20 20 20 6f 6e 65 20 74 68 61 74 20         one that 
2770: 63 6f 6e 74 61 69 6e 73 20 61 20 73 65 74 75 70  contains a setup
2780: 20 70 61 63 6b 61 67 65 2c 20 61 73 73 75 6d 65   package, assume
2790: 20 74 68 61 74 20 69 74 20 69 73 2e 0d 0a 20 20   that it is...  
27a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74      #..      set
27b0: 20 6c 69 73 74 43 6f 6d 6d 61 6e 64 28 31 29 20   listCommand(1) 
27c0: 5b 67 65 74 45 78 65 63 43 6f 6d 6d 61 6e 64 50  [getExecCommandP
27d0: 72 65 66 69 78 5d 0d 0a 0d 0a 20 20 20 20 20 20  refix]....      
27e0: 69 66 20 7b 5b 6c 69 6e 64 65 78 20 24 6c 69 73  if {[lindex $lis
27f0: 74 43 6f 6d 6d 61 6e 64 28 31 29 20 30 5d 20 6e  tCommand(1) 0] n
2800: 65 20 22 65 72 72 6f 72 22 7d 20 74 68 65 6e 20  e "error"} then 
2810: 7b 0d 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65  {..        lappe
2820: 6e 64 20 6c 69 73 74 43 6f 6d 6d 61 6e 64 28 31  nd listCommand(1
2830: 29 20 24 69 6e 6e 6f 75 6e 70 20 2d 76 20 5c 0d  ) $innounp -v \.
2840: 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69  .            [fi
2850: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 24 61  le nativename $a
2860: 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 5d 0d  rchiveFileName].
2870: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
2880: 20 20 73 65 74 20 65 78 74 72 61 63 74 43 6f 6d    set extractCom
2890: 6d 61 6e 64 28 31 29 20 5b 67 65 74 45 78 65 63  mand(1) [getExec
28a0: 43 6f 6d 6d 61 6e 64 50 72 65 66 69 78 5d 0d 0a  CommandPrefix]..
28b0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 69 6e  ..      if {[lin
28c0: 64 65 78 20 24 65 78 74 72 61 63 74 43 6f 6d 6d  dex $extractComm
28d0: 61 6e 64 28 31 29 20 30 5d 20 6e 65 20 22 65 72  and(1) 0] ne "er
28e0: 72 6f 72 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror"} then {..  
28f0: 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 65 78        lappend ex
2900: 74 72 61 63 74 43 6f 6d 6d 61 6e 64 28 31 29 20  tractCommand(1) 
2910: 24 69 6e 6e 6f 75 6e 70 20 2d 78 20 2d 65 20 2d  $innounp -x -e -
2920: 79 20 5c 22 2d 64 25 64 69 72 65 63 74 6f 72 79  y \"-d%directory
2930: 25 5c 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  %\" \..         
2940: 20 20 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e     [file nativen
2950: 61 6d 65 20 24 61 72 63 68 69 76 65 46 69 6c 65  ame $archiveFile
2960: 4e 61 6d 65 5d 20 5c 22 25 66 69 6c 65 4e 61 6d  Name] \"%fileNam
2970: 65 25 5c 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  e%\"..      }...
2980: 0a 20 20 20 20 20 20 73 65 74 20 6c 69 73 74 43  .      set listC
2990: 6f 6d 6d 61 6e 64 28 32 29 20 5b 67 65 74 45 78  ommand(2) [getEx
29a0: 65 63 43 6f 6d 6d 61 6e 64 50 72 65 66 69 78 5d  ecCommandPrefix]
29b0: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c  ....      if {[l
29c0: 69 6e 64 65 78 20 24 6c 69 73 74 43 6f 6d 6d 61  index $listComma
29d0: 6e 64 28 32 29 20 30 5d 20 6e 65 20 22 65 72 72  nd(2) 0] ne "err
29e0: 6f 72 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or"} then {..   
29f0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 69 73       lappend lis
2a00: 74 43 6f 6d 6d 61 6e 64 28 32 29 20 24 69 6e 6e  tCommand(2) $inn
2a10: 6f 65 78 74 72 61 63 74 20 2d 2d 6c 69 73 74 20  oextract --list 
2a20: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b  \..            [
2a30: 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20  file nativename 
2a40: 24 61 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65  $archiveFileName
2a50: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  ]..      }....  
2a60: 20 20 20 20 73 65 74 20 65 78 74 72 61 63 74 43      set extractC
2a70: 6f 6d 6d 61 6e 64 28 32 29 20 5b 67 65 74 45 78  ommand(2) [getEx
2a80: 65 63 43 6f 6d 6d 61 6e 64 50 72 65 66 69 78 5d  ecCommandPrefix]
2a90: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c  ....      if {[l
2aa0: 69 6e 64 65 78 20 24 65 78 74 72 61 63 74 43 6f  index $extractCo
2ab0: 6d 6d 61 6e 64 28 32 29 20 30 5d 20 6e 65 20 22  mmand(2) 0] ne "
2ac0: 65 72 72 6f 72 22 7d 20 74 68 65 6e 20 7b 0d 0a  error"} then {..
2ad0: 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20          lappend 
2ae0: 65 78 74 72 61 63 74 43 6f 6d 6d 61 6e 64 28 32  extractCommand(2
2af0: 29 20 24 69 6e 6e 6f 65 78 74 72 61 63 74 20 2d  ) $innoextract -
2b00: 2d 65 78 74 72 61 63 74 20 2d 2d 6f 75 74 70 75  -extract --outpu
2b10: 74 2d 64 69 72 20 5c 0d 0a 20 20 20 20 20 20 20  t-dir \..       
2b20: 20 20 20 20 20 5c 22 25 64 69 72 65 63 74 6f 72       \"%director
2b30: 79 25 5c 22 20 2d 2d 69 6e 63 6c 75 64 65 20 5c  y%\" --include \
2b40: 22 25 66 69 6c 65 4e 61 6d 65 25 5c 22 20 5c 0d  "%fileName%\" \.
2b50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69  .            [fi
2b60: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 24 61  le nativename $a
2b70: 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 5d 0d  rchiveFileName].
2b80: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
2b90: 20 20 73 65 74 20 69 73 53 65 74 75 70 20 74 72    set isSetup tr
2ba0: 75 65 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  ue..    } else {
2bb0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69  ..      if {![fi
2bc0: 6c 65 20 65 78 69 73 74 73 20 24 72 61 72 5d 7d  le exists $rar]}
2bd0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
2be0: 20 75 73 61 67 65 20 5b 61 70 70 65 6e 64 41 72   usage [appendAr
2bf0: 67 73 20 22 74 6f 6f 6c 20 5c 22 22 20 24 72 61  gs "tool \"" $ra
2c00: 72 20 22 5c 22 20 69 73 20 6d 69 73 73 69 6e 67  r "\" is missing
2c10: 22 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  "]..      }.... 
2c20: 20 20 20 20 20 73 65 74 20 6c 69 73 74 43 6f 6d       set listCom
2c30: 6d 61 6e 64 28 31 29 20 5b 67 65 74 45 78 65 63  mand(1) [getExec
2c40: 43 6f 6d 6d 61 6e 64 50 72 65 66 69 78 5d 0d 0a  CommandPrefix]..
2c50: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 69 6e  ..      if {[lin
2c60: 64 65 78 20 24 6c 69 73 74 43 6f 6d 6d 61 6e 64  dex $listCommand
2c70: 28 31 29 20 30 5d 20 6e 65 20 22 65 72 72 6f 72  (1) 0] ne "error
2c80: 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  "} then {..     
2c90: 20 20 20 6c 61 70 70 65 6e 64 20 6c 69 73 74 43     lappend listC
2ca0: 6f 6d 6d 61 6e 64 28 31 29 20 24 72 61 72 20 76  ommand(1) $rar v
2cb0: 62 20 2d 2d 20 5c 0d 0a 20 20 20 20 20 20 20 20  b -- \..        
2cc0: 20 20 20 20 5b 66 69 6c 65 20 6e 61 74 69 76 65      [file native
2cd0: 6e 61 6d 65 20 24 61 72 63 68 69 76 65 46 69 6c  name $archiveFil
2ce0: 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d  eName]..      }.
2cf0: 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 6c 69 73  ...      set lis
2d00: 74 43 6f 6d 6d 61 6e 64 28 32 29 20 5b 6c 69 73  tCommand(2) [lis
2d10: 74 20 65 72 72 6f 72 20 22 6e 6f 20 66 61 6c 6c  t error "no fall
2d20: 62 61 63 6b 20 6c 69 73 74 20 63 6f 6d 6d 61 6e  back list comman
2d30: 64 22 5d 0d 0a 20 20 20 20 20 20 73 65 74 20 65  d"]..      set e
2d40: 78 74 72 61 63 74 43 6f 6d 6d 61 6e 64 28 31 29  xtractCommand(1)
2d50: 20 5b 67 65 74 45 78 65 63 43 6f 6d 6d 61 6e 64   [getExecCommand
2d60: 50 72 65 66 69 78 5d 0d 0a 0d 0a 20 20 20 20 20  Prefix]....     
2d70: 20 69 66 20 7b 5b 6c 69 6e 64 65 78 20 24 65 78   if {[lindex $ex
2d80: 74 72 61 63 74 43 6f 6d 6d 61 6e 64 28 31 29 20  tractCommand(1) 
2d90: 30 5d 20 6e 65 20 22 65 72 72 6f 72 22 7d 20 74  0] ne "error"} t
2da0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 6c  hen {..        l
2db0: 61 70 70 65 6e 64 20 65 78 74 72 61 63 74 43 6f  append extractCo
2dc0: 6d 6d 61 6e 64 28 31 29 20 24 72 61 72 20 78 20  mmand(1) $rar x 
2dd0: 2d 65 70 20 2d 79 20 2d 2d 20 5c 0d 0a 20 20 20  -ep -y -- \..   
2de0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6e           [file n
2df0: 61 74 69 76 65 6e 61 6d 65 20 24 61 72 63 68 69  ativename $archi
2e00: 76 65 46 69 6c 65 4e 61 6d 65 5d 20 5c 0d 0a 20  veFileName] \.. 
2e10: 20 20 20 20 20 20 20 20 20 20 20 5c 22 25 66 69             \"%fi
2e20: 6c 65 4e 61 6d 65 25 5c 22 20 5c 22 25 64 69 72  leName%\" \"%dir
2e30: 65 63 74 6f 72 79 25 5c 22 0d 0a 20 20 20 20 20  ectory%\"..     
2e40: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20   }....      set 
2e50: 65 78 74 72 61 63 74 43 6f 6d 6d 61 6e 64 28 32  extractCommand(2
2e60: 29 20 5b 6c 69 73 74 20 65 72 72 6f 72 20 22 6e  ) [list error "n
2e70: 6f 20 66 61 6c 6c 62 61 63 6b 20 65 78 74 72 61  o fallback extra
2e80: 63 74 20 63 6f 6d 6d 61 6e 64 22 5d 0d 0a 20 20  ct command"]..  
2e90: 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b    }....    if {[
2ea0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 73  catch {..      s
2eb0: 65 74 20 64 61 74 61 20 5b 65 76 61 6c 20 24 6c  et data [eval $l
2ec0: 69 73 74 43 6f 6d 6d 61 6e 64 28 31 29 5d 0d 0a  istCommand(1)]..
2ed0: 20 20 20 20 7d 20 65 72 72 6f 72 31 5d 20 3d 3d      } error1] ==
2ee0: 20 30 20 7c 7c 20 5b 63 61 74 63 68 20 7b 0d 0a   0 || [catch {..
2ef0: 20 20 20 20 20 20 73 65 74 20 64 61 74 61 20 5b        set data [
2f00: 65 76 61 6c 20 24 6c 69 73 74 43 6f 6d 6d 61 6e  eval $listComman
2f10: 64 28 32 29 5d 0d 0a 0d 0a 20 20 20 20 20 20 69  d(2)]....      i
2f20: 66 20 7b 24 69 73 53 65 74 75 70 7d 20 74 68 65  f {$isSetup} the
2f30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  n {..        #..
2f40: 20 20 20 20 20 20 20 20 23 20 48 41 43 4b 3a 20          # HACK: 
2f50: 54 68 65 20 22 69 6e 6e 6f 65 78 74 72 61 63 74  The "innoextract
2f60: 22 20 74 6f 6f 6c 20 64 6f 65 73 20 6e 6f 74 20  " tool does not 
2f70: 75 73 65 20 74 68 65 20 63 75 72 6c 79 0d 0a 20  use the curly.. 
2f80: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62         #       b
2f90: 72 61 63 65 73 20 61 72 6f 75 6e 64 20 74 68 65  races around the
2fa0: 20 22 7b 61 70 70 7d 22 2d 73 74 79 6c 65 20 64   "{app}"-style d
2fb0: 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 73 2e 0d  irectory names..
2fc0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
2fd0: 20 20 20 20 73 65 74 20 64 61 74 61 20 5b 73 74      set data [st
2fe0: 72 69 6e 67 20 6d 61 70 20 5b 67 65 74 49 6e 6e  ring map [getInn
2ff0: 6f 53 65 74 75 70 52 6f 6f 74 4d 61 70 5d 20 24  oSetupRootMap] $
3000: 64 61 74 61 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  data]..      }..
3010: 20 20 20 20 7d 20 65 72 72 6f 72 32 5d 20 3d 3d      } error2] ==
3020: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
3030: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 48 41 43    #..      # HAC
3040: 4b 3a 20 54 68 65 20 49 6e 6e 6f 20 53 65 74 75  K: The Inno Setu
3050: 70 20 75 6e 70 61 63 6b 69 6e 67 20 74 6f 6f 6c  p unpacking tool
3060: 20 72 65 71 75 69 72 65 73 20 73 6f 6d 65 20 65   requires some e
3070: 78 74 72 61 0d 0a 20 20 20 20 20 20 23 20 20 20  xtra..      #   
3080: 20 20 20 20 70 61 72 73 69 6e 67 20 6c 6f 67 69      parsing logi
3090: 63 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20  c to handle the 
30a0: 6f 75 74 70 75 74 2e 0d 0a 20 20 20 20 20 20 23  output...      #
30b0: 0d 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6e 74  ..      set cont
30c0: 61 69 6e 65 64 46 69 6c 65 4e 61 6d 65 73 20 5b  ainedFileNames [
30d0: 6c 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 69  list]....      i
30e0: 66 20 7b 24 69 73 53 65 74 75 70 7d 20 74 68 65  f {$isSetup} the
30f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20  n {..        if 
3100: 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 6f 6e 74 61  {[llength $conta
3110: 69 6e 65 64 46 69 6c 65 4e 61 6d 65 73 5d 20 3d  inedFileNames] =
3120: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
3130: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b         foreach {
3140: 64 75 6d 6d 79 20 6d 61 74 63 68 46 69 6c 65 4e  dummy matchFileN
3150: 61 6d 65 7d 20 5b 72 65 67 65 78 70 20 2d 6c 69  ame} [regexp -li
3160: 6e 65 20 2d 61 6c 6c 20 2d 69 6e 6c 69 6e 65 20  ne -all -inline 
3170: 2d 2d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  -- \..          
3180: 20 20 20 20 7b 5e 5b 20 30 2d 39 5d 7b 31 30 7d      {^[ 0-9]{10}
3190: 20 20 5c 64 7b 34 7d 5c 2e 5c 64 7b 32 7d 5c 2e    \d{4}\.\d{2}\.
31a0: 5c 64 7b 32 7d 20 5c 64 7b 32 7d 3a 5c 64 7b 32  \d{2} \d{2}:\d{2
31b0: 7d 20 20 28 2e 2a 29 24 7d 20 24 64 61 74 61 5d  }  (.*)$} $data]
31c0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
31d0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  #..            #
31e0: 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20 66   NOTE: Add the f
31f0: 69 6c 65 20 6e 61 6d 65 20 65 78 74 72 61 63 74  ile name extract
3200: 65 64 20 66 72 6f 6d 20 74 68 65 20 6f 75 74 70  ed from the outp
3210: 75 74 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ut..            
3220: 23 20 20 20 20 20 20 20 6c 69 6e 65 20 74 6f 20  #       line to 
3230: 74 68 65 20 6c 69 73 74 20 6f 66 20 66 69 6c 65  the list of file
3240: 20 6e 61 6d 65 73 20 63 6f 6e 74 61 69 6e 65 64   names contained
3250: 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20   in..           
3260: 20 23 20 20 20 20 20 20 20 74 68 69 73 20 61 72   #       this ar
3270: 63 68 69 76 65 2e 0d 0a 20 20 20 20 20 20 20 20  chive...        
3280: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
3290: 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6e 74 61     lappend conta
32a0: 69 6e 65 64 46 69 6c 65 4e 61 6d 65 73 20 24 6d  inedFileNames $m
32b0: 61 74 63 68 46 69 6c 65 4e 61 6d 65 0d 0a 20 20  atchFileName..  
32c0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
32d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
32e0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 6f  if {[llength $co
32f0: 6e 74 61 69 6e 65 64 46 69 6c 65 4e 61 6d 65 73  ntainedFileNames
3300: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  ] == 0} then {..
3310: 20 20 20 20 20 20 20 20 20 20 66 6f 72 65 61 63            foreac
3320: 68 20 7b 64 75 6d 6d 79 20 6d 61 74 63 68 46 69  h {dummy matchFi
3330: 6c 65 4e 61 6d 65 7d 20 5b 72 65 67 65 78 70 20  leName} [regexp 
3340: 2d 6c 69 6e 65 20 2d 61 6c 6c 20 2d 69 6e 6c 69  -line -all -inli
3350: 6e 65 20 2d 2d 20 5c 0d 0a 20 20 20 20 20 20 20  ne -- \..       
3360: 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72         [appendAr
3370: 67 73 20 7b 5e 20 2d 20 22 28 2e 2a 29 22 28 3f  gs {^ - "(.*)"(?
3380: 3a 20 5c 5b 74 65 6d 70 5c 5d 29 3f 20 5c 28 5c  : \[temp\])? \(\
3390: 64 2b 28 3f 3a 5c 2e 5c 64 2b 29 3f 20 7d 20 5c  d+(?:\.\d+)? } \
33a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
33b0: 7b 28 3f 3a 42 7c 4b 69 42 7c 4d 69 42 7c 47 69  {(?:B|KiB|MiB|Gi
33c0: 42 7c 54 69 42 7c 50 69 42 7c 45 69 42 7c 5a 69  B|TiB|PiB|EiB|Zi
33d0: 42 7c 59 69 42 29 5c 29 24 7d 5d 20 24 64 61 74  B|YiB)\)$}] $dat
33e0: 61 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  a] {..          
33f0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..           
3400: 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 65   # NOTE: Add the
3410: 20 66 69 6c 65 20 6e 61 6d 65 20 65 78 74 72 61   file name extra
3420: 63 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6f 75  cted from the ou
3430: 74 70 75 74 0d 0a 20 20 20 20 20 20 20 20 20 20  tput..          
3440: 20 20 23 20 20 20 20 20 20 20 6c 69 6e 65 20 74    #       line t
3450: 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 20 66 69  o the list of fi
3460: 6c 65 20 6e 61 6d 65 73 20 63 6f 6e 74 61 69 6e  le names contain
3470: 65 64 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 20  ed in..         
3480: 20 20 20 23 20 20 20 20 20 20 20 74 68 69 73 20     #       this 
3490: 61 72 63 68 69 76 65 2e 0d 0a 20 20 20 20 20 20  archive...      
34a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
34b0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6e       lappend con
34c0: 74 61 69 6e 65 64 46 69 6c 65 4e 61 6d 65 73 20  tainedFileNames 
34d0: 24 6d 61 74 63 68 46 69 6c 65 4e 61 6d 65 0d 0a  $matchFileName..
34e0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
34f0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
3500: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68        # NOTE: Th
3510: 65 20 22 69 6e 6e 6f 65 78 74 72 61 63 74 22 20  e "innoextract" 
3520: 74 6f 6f 6c 20 64 6f 65 73 20 6e 6f 74 20 69 6e  tool does not in
3530: 63 6c 75 64 65 20 74 68 65 0d 0a 20 20 20 20 20  clude the..     
3540: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 63 72       #       scr
3550: 69 70 74 20 66 69 6c 65 20 69 6e 20 74 68 65 20  ipt file in the 
3560: 6c 69 73 74 3b 20 74 68 65 72 65 66 6f 72 65 2c  list; therefore,
3570: 20 66 61 6b 65 20 69 74 2e 0d 0a 20 20 20 20 20   fake it...     
3580: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
3590: 20 20 6c 61 70 70 65 6e 64 20 63 6f 6e 74 61 69    lappend contai
35a0: 6e 65 64 46 69 6c 65 4e 61 6d 65 73 20 69 6e 73  nedFileNames ins
35b0: 74 61 6c 6c 5f 73 63 72 69 70 74 2e 69 73 73 0d  tall_script.iss.
35c0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
35d0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
35e0: 20 20 20 20 66 6f 72 65 61 63 68 20 6d 61 74 63      foreach matc
35f0: 68 46 69 6c 65 4e 61 6d 65 20 5b 73 70 6c 69 74  hFileName [split
3600: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69   [string map [li
3610: 73 74 20 5c 5c 20 2f 5d 20 5b 73 74 72 69 6e 67  st \\ /] [string
3620: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
3630: 74 72 69 6d 20 24 64 61 74 61 5d 5d 20 5c 6e 5d  trim $data]] \n]
3640: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d   {..          #.
3650: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
3660: 45 3a 20 52 65 70 6c 61 63 65 20 74 68 65 20 64  E: Replace the d
3670: 79 6e 61 6d 69 63 61 6c 6c 79 20 63 61 6c 63 75  ynamically calcu
3680: 6c 61 74 65 64 20 4d 44 35 20 68 61 73 68 0d 0a  lated MD5 hash..
3690: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
36a0: 20 20 66 6f 72 20 74 68 65 20 73 70 65 63 69 61    for the specia
36b0: 6c 20 4e 75 47 65 74 20 70 61 63 6b 61 67 65 20  l NuGet package 
36c0: 66 69 6c 65 20 6e 61 6d 65 2c 20 69 66 0d 0a 20  file name, if.. 
36d0: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
36e0: 20 6e 65 65 64 65 64 2e 0d 0a 20 20 20 20 20 20   needed...      
36f0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
3700: 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 74 65 6e   if {[file exten
3710: 73 69 6f 6e 20 24 6d 61 74 63 68 46 69 6c 65 4e  sion $matchFileN
3720: 61 6d 65 5d 20 65 71 20 22 2e 70 73 6d 64 63 70  ame] eq ".psmdcp
3730: 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  "} then {..     
3740: 20 20 20 20 20 20 20 72 65 67 73 75 62 20 2d 2d         regsub --
3750: 20 7b 2f 5b 30 2d 39 61 2d 66 5d 7b 33 32 7d 5c   {/[0-9a-f]{32}\
3760: 2e 7d 20 24 6d 61 74 63 68 46 69 6c 65 4e 61 6d  .} $matchFileNam
3770: 65 20 7b 2f 24 7b 6d 64 35 7d 2e 7d 20 5c 0d 0a  e {/${md5}.} \..
3780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3790: 6d 61 74 63 68 46 69 6c 65 4e 61 6d 65 0d 0a 20  matchFileName.. 
37a0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20           }....  
37b0: 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20          lappend 
37c0: 63 6f 6e 74 61 69 6e 65 64 46 69 6c 65 4e 61 6d  containedFileNam
37d0: 65 73 20 24 6d 61 74 63 68 46 69 6c 65 4e 61 6d  es $matchFileNam
37e0: 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  e..        }..  
37f0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 66      }....      f
3800: 6f 72 65 61 63 68 20 6d 61 6e 69 66 65 73 74 46  oreach manifestF
3810: 69 6c 65 4e 61 6d 65 20 24 6d 61 6e 69 66 65 73  ileName $manifes
3820: 74 46 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20  tFileNames {..  
3830: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
3840: 20 23 20 54 4f 44 4f 3a 20 53 68 6f 75 6c 64 20   # TODO: Should 
3850: 77 65 20 75 73 65 20 2d 6e 6f 63 61 73 65 20 68  we use -nocase h
3860: 65 72 65 20 62 65 63 61 75 73 65 20 57 69 6e 64  ere because Wind
3870: 6f 77 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ows..        #  
3880: 20 20 20 20 20 69 73 20 74 68 65 20 70 72 69 6d       is the prim
3890: 61 72 79 20 72 65 6c 65 61 73 65 20 70 6c 61 74  ary release plat
38a0: 66 6f 72 6d 3f 0d 0a 20 20 20 20 20 20 20 20 23  form?..        #
38b0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 6c  ..        if {[l
38c0: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 2d 2d  search -exact --
38d0: 20 24 63 6f 6e 74 61 69 6e 65 64 46 69 6c 65 4e   $containedFileN
38e0: 61 6d 65 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  ames \..        
38f0: 20 20 20 20 24 6d 61 6e 69 66 65 73 74 46 69 6c      $manifestFil
3900: 65 4e 61 6d 65 5d 20 3d 3d 20 2d 31 7d 20 74 68  eName] == -1} th
3910: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
3920: 70 75 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70  puts stdout [app
3930: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
3940: 20 20 20 20 20 20 20 20 20 22 45 52 52 4f 52 3a           "ERROR:
3950: 20 41 72 63 68 69 76 65 20 5c 22 22 20 24 61 72   Archive \"" $ar
3960: 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 20 5c 0d  chiveFileName \.
3970: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
3980: 5c 22 20 6d 69 73 73 69 6e 67 20 66 69 6c 65 20  \" missing file 
3990: 5c 22 22 20 24 6d 61 6e 69 66 65 73 74 46 69 6c  \"" $manifestFil
39a0: 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20  eName \..       
39b0: 20 20 20 20 20 20 20 22 5c 22 20 66 72 6f 6d 20         "\" from 
39c0: 6d 61 6e 69 66 65 73 74 20 5c 22 22 20 24 6d 61  manifest \"" $ma
39d0: 6e 69 66 65 73 74 20 22 5c 22 2e 22 5d 0d 0a 0d  nifest "\"."]...
39e0: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 65  .          set e
39f0: 78 69 74 43 6f 64 65 20 31 0d 0a 20 20 20 20 20  xitCode 1..     
3a00: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
3a10: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
3a20: 45 3a 20 53 6b 69 70 20 63 68 65 63 6b 69 6e 67  E: Skip checking
3a30: 20 68 61 73 68 65 73 20 69 66 20 74 68 61 74 20   hashes if that 
3a40: 77 61 73 20 6e 6f 74 20 72 65 71 75 65 73 74 65  was not requeste
3a50: 64 20 6f 6e 20 74 68 65 0d 0a 20 20 20 20 20 20  d on the..      
3a60: 20 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e    #       comman
3a70: 64 20 6c 69 6e 65 2e 0d 0a 20 20 20 20 20 20 20  d line...       
3a80: 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b   #..        if {
3a90: 21 24 77 69 74 68 48 61 73 68 65 73 7d 20 74 68  !$withHashes} th
3aa0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
3ab0: 63 6f 6e 74 69 6e 75 65 0d 0a 20 20 20 20 20 20  continue..      
3ac0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23    }....        #
3ad0: 0d 0a 20 20 20 20 20 20 20 20 23 20 48 41 43 4b  ..        # HACK
3ae0: 3a 20 46 6f 72 20 6e 6f 77 2c 20 6f 6e 6c 79 20  : For now, only 
3af0: 76 65 72 69 66 79 20 68 61 73 68 65 73 20 66 6f  verify hashes fo
3b00: 72 20 74 68 6f 73 65 20 66 69 6c 65 73 20 61 63  r those files ac
3b10: 74 75 61 6c 6c 79 0d 0a 20 20 20 20 20 20 20 20  tually..        
3b20: 23 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 20  #       present 
3b30: 69 6e 20 74 68 65 20 72 65 70 6f 73 69 74 6f 72  in the repositor
3b40: 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  y...        #.. 
3b50: 20 20 20 20 20 20 20 69 66 20 7b 21 5b 73 74 72         if {![str
3b60: 69 6e 67 20 6d 61 74 63 68 20 2d 6e 6f 63 61 73  ing match -nocas
3b70: 65 20 2d 2d 20 2a 53 6f 75 72 63 65 2a 20 24 61  e -- *Source* $a
3b80: 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 5d 20  rchiveFileName] 
3b90: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
3ba0: 20 20 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20    ![info exists 
3bb0: 68 61 73 68 65 73 28 24 6d 61 6e 69 66 65 73 74  hashes($manifest
3bc0: 46 69 6c 65 4e 61 6d 65 29 5d 7d 20 74 68 65 6e  FileName)]} then
3bd0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 6f   {..          co
3be0: 6e 74 69 6e 75 65 0d 0a 20 20 20 20 20 20 20 20  ntinue..        
3bf0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  }....        #..
3c00: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
3c10: 53 6b 69 70 20 61 6e 79 74 68 69 6e 67 20 74 68  Skip anything th
3c20: 61 74 20 64 6f 65 73 20 6e 6f 74 20 6c 6f 6f 6b  at does not look
3c30: 20 6c 69 6b 65 20 61 20 66 69 6c 65 2e 0d 0a 20   like a file... 
3c40: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
3c50: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e    if {[string in
3c60: 64 65 78 20 24 6d 61 6e 69 66 65 73 74 46 69 6c  dex $manifestFil
3c70: 65 4e 61 6d 65 20 65 6e 64 5d 20 69 6e 20 5b 6c  eName end] in [l
3c80: 69 73 74 20 2f 20 5c 5c 5d 7d 20 74 68 65 6e 20  ist / \\]} then 
3c90: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e  {..          con
3ca0: 74 69 6e 75 65 0d 0a 20 20 20 20 20 20 20 20 7d  tinue..        }
3cb0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20  ....        set 
3cc0: 65 78 74 72 61 63 74 46 69 6c 65 4e 61 6d 65 20  extractFileName 
3cd0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5c 0d 0a 20 20  [file join \..  
3ce0: 20 20 20 20 20 20 20 20 20 20 24 65 78 74 72 61            $extra
3cf0: 63 74 44 69 72 65 63 74 6f 72 79 20 5b 66 69 6c  ctDirectory [fil
3d00: 65 20 74 61 69 6c 20 24 6d 61 6e 69 66 65 73 74  e tail $manifest
3d10: 46 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20  FileName]]....  
3d20: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20        catch {.. 
3d30: 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 61 74           file at
3d40: 74 72 69 62 75 74 65 73 20 24 65 78 74 72 61 63  tributes $extrac
3d50: 74 46 69 6c 65 4e 61 6d 65 20 2d 72 65 61 64 6f  tFileName -reado
3d60: 6e 6c 79 20 66 61 6c 73 65 0d 0a 20 20 20 20 20  nly false..     
3d70: 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65       file delete
3d80: 20 24 65 78 74 72 61 63 74 46 69 6c 65 4e 61 6d   $extractFileNam
3d90: 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  e..        }....
3da0: 20 20 20 20 20 20 20 20 74 72 79 20 7b 0d 0a 20          try {.. 
3db0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 6e           if {[in
3dc0: 66 6f 20 65 78 69 73 74 73 20 68 61 73 68 65 73  fo exists hashes
3dd0: 28 24 6d 61 6e 69 66 65 73 74 46 69 6c 65 4e 61  ($manifestFileNa
3de0: 6d 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  me)]} then {..  
3df0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63            if {[c
3e00: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
3e10: 20 20 20 20 20 20 73 65 74 20 65 78 74 72 61 63        set extrac
3e20: 74 43 6f 6d 6d 61 6e 64 4d 61 70 20 5b 6c 69 73  tCommandMap [lis
3e30: 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  t \..           
3e40: 20 20 20 20 20 20 20 25 66 69 6c 65 4e 61 6d 65         %fileName
3e50: 25 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61  % [file nativena
3e60: 6d 65 20 24 6d 61 6e 69 66 65 73 74 46 69 6c 65  me $manifestFile
3e70: 4e 61 6d 65 5d 20 5c 0d 0a 20 20 20 20 20 20 20  Name] \..       
3e80: 20 20 20 20 20 20 20 20 20 20 20 25 64 69 72 65             %dire
3e90: 63 74 6f 72 79 25 20 5b 66 69 6c 65 20 6e 61 74  ctory% [file nat
3ea0: 69 76 65 6e 61 6d 65 20 24 65 78 74 72 61 63 74  ivename $extract
3eb0: 44 69 72 65 63 74 6f 72 79 5d 5d 0d 0a 0d 0a 20  Directory]].... 
3ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74               set
3ed0: 20 64 61 74 61 20 5b 65 76 61 6c 20 5c 0d 0a 20   data [eval \.. 
3ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ef0: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 24 65 78   [string map $ex
3f00: 74 72 61 63 74 43 6f 6d 6d 61 6e 64 4d 61 70 20  tractCommandMap 
3f10: 24 65 78 74 72 61 63 74 43 6f 6d 6d 61 6e 64 28  $extractCommand(
3f20: 31 29 5d 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  1)]]..          
3f30: 20 20 7d 20 65 72 72 6f 72 31 5d 20 3d 3d 20 30    } error1] == 0
3f40: 20 7c 7c 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20   || [catch {..  
3f50: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b              if {
3f60: 24 69 73 53 65 74 75 70 7d 20 74 68 65 6e 20 7b  $isSetup} then {
3f70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
3f80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..           
3f90: 20 20 20 20 20 23 20 48 41 43 4b 3a 20 54 68 65       # HACK: The
3fa0: 20 22 69 6e 6e 6f 65 78 74 72 61 63 74 22 20 74   "innoextract" t
3fb0: 6f 6f 6c 20 64 6f 65 73 20 6e 6f 74 20 75 73 65  ool does not use
3fc0: 20 74 68 65 20 63 75 72 6c 79 0d 0a 20 20 20 20   the curly..    
3fd0: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20              #   
3fe0: 20 20 20 20 62 72 61 63 65 73 20 61 72 6f 75 6e      braces aroun
3ff0: 64 20 74 68 65 20 22 7b 61 70 70 7d 22 2d 73 74  d the "{app}"-st
4000: 79 6c 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61  yle directory na
4010: 6d 65 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  mes...          
4020: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
4030: 20 20 20 20 20 20 20 20 20 73 65 74 20 61 6c 74           set alt
4040: 4d 61 6e 69 66 65 73 74 46 69 6c 65 4e 61 6d 65  ManifestFileName
4050: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 67 65   [string map [ge
4060: 74 49 6e 6e 6f 53 65 74 75 70 52 6f 6f 74 4d 61  tInnoSetupRootMa
4070: 70 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  p] \..          
4080: 20 20 20 20 20 20 20 20 20 20 24 6d 61 6e 69 66            $manif
4090: 65 73 74 46 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  estFileName]....
40a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
40b0: 73 65 74 20 65 78 74 72 61 63 74 43 6f 6d 6d 61  set extractComma
40c0: 6e 64 4d 61 70 20 5b 6c 69 73 74 20 5c 0d 0a 20  ndMap [list \.. 
40d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
40e0: 20 20 20 25 66 69 6c 65 4e 61 6d 65 25 20 5b 66     %fileName% [f
40f0: 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 24  ile nativename $
4100: 61 6c 74 4d 61 6e 69 66 65 73 74 46 69 6c 65 4e  altManifestFileN
4110: 61 6d 65 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  ame] \..        
4120: 20 20 20 20 20 20 20 20 20 20 20 20 25 64 69 72              %dir
4130: 65 63 74 6f 72 79 25 20 5b 66 69 6c 65 20 6e 61  ectory% [file na
4140: 74 69 76 65 6e 61 6d 65 20 24 65 78 74 72 61 63  tivename $extrac
4150: 74 44 69 72 65 63 74 6f 72 79 5d 5d 0d 0a 0d 0a  tDirectory]]....
4160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4170: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  #..             
4180: 20 20 20 23 20 48 41 43 4b 3a 20 54 68 65 20 22     # HACK: The "
4190: 69 6e 6e 6f 65 78 74 72 61 63 74 22 20 74 6f 6f  innoextract" too
41a0: 6c 20 75 73 65 73 20 74 68 65 20 66 75 6c 6c 20  l uses the full 
41b0: 6d 61 6e 69 66 65 73 74 0d 0a 20 20 20 20 20 20  manifest..      
41c0: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
41d0: 20 20 66 69 6c 65 20 6e 61 6d 65 20 77 68 65 6e    file name when
41e0: 20 77 72 69 74 69 6e 67 20 74 68 65 20 65 78 74   writing the ext
41f0: 72 61 63 74 65 64 20 66 69 6c 65 2c 20 73 6f 0d  racted file, so.
4200: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4210: 20 23 20 20 20 20 20 20 20 61 64 6a 75 73 74 20   #       adjust 
4220: 74 68 65 20 65 78 74 72 61 63 74 65 64 20 66 69  the extracted fi
4230: 6c 65 20 6e 61 6d 65 20 74 6f 20 6d 61 74 63 68  le name to match
4240: 20 69 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20   it;..          
4250: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 68 6f        #       ho
4260: 77 65 76 65 72 2c 20 66 69 72 73 74 20 76 65 72  wever, first ver
4270: 69 66 79 20 74 68 61 74 20 74 68 65 20 70 61 74  ify that the pat
4280: 68 20 74 79 70 65 20 6f 66 0d 0a 20 20 20 20 20  h type of..     
4290: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20             #    
42a0: 20 20 20 74 68 65 20 6d 61 6e 69 66 65 73 74 20     the manifest 
42b0: 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 72 65 6c  file name is rel
42c0: 61 74 69 76 65 2e 0d 0a 20 20 20 20 20 20 20 20  ative...        
42d0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
42e0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b             if {[
42f0: 66 69 6c 65 20 70 61 74 68 74 79 70 65 20 24 61  file pathtype $a
4300: 6c 74 4d 61 6e 69 66 65 73 74 46 69 6c 65 4e 61  ltManifestFileNa
4310: 6d 65 5d 20 65 71 20 22 72 65 6c 61 74 69 76 65  me] eq "relative
4320: 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  "} then {..     
4330: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74               set
4340: 20 65 78 74 72 61 63 74 46 69 6c 65 4e 61 6d 65   extractFileName
4350: 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65   [file normalize
4360: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5c 0d 0a 20   [file join \.. 
4370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4380: 20 20 20 20 20 24 65 78 74 72 61 63 74 44 69 72       $extractDir
4390: 65 63 74 6f 72 79 20 24 61 6c 74 4d 61 6e 69 66  ectory $altManif
43a0: 65 73 74 46 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d  estFileName]]...
43b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
43c0: 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20     catch {..    
43d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
43e0: 66 69 6c 65 20 61 74 74 72 69 62 75 74 65 73 20  file attributes 
43f0: 24 65 78 74 72 61 63 74 46 69 6c 65 4e 61 6d 65  $extractFileName
4400: 20 2d 72 65 61 64 6f 6e 6c 79 20 66 61 6c 73 65   -readonly false
4410: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4420: 20 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74        file delet
4430: 65 20 24 65 78 74 72 61 63 74 46 69 6c 65 4e 61  e $extractFileNa
4440: 6d 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  me..            
4450: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
4460: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
4470: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
4480: 20 20 20 20 20 65 72 72 6f 72 20 5b 61 70 70 65       error [appe
4490: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
44a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
44b0: 22 70 61 74 68 20 74 79 70 65 20 66 6f 72 20 6d  "path type for m
44c0: 61 6e 69 66 65 73 74 20 66 69 6c 65 20 6e 61 6d  anifest file nam
44d0: 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20  e \"" \..       
44e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24                 $
44f0: 61 6c 74 4d 61 6e 69 66 65 73 74 46 69 6c 65 4e  altManifestFileN
4500: 61 6d 65 20 22 5c 22 20 69 73 20 6e 6f 74 20 72  ame "\" is not r
4510: 65 6c 61 74 69 76 65 22 5d 0d 0a 20 20 20 20 20  elative"]..     
4520: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
4530: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c              } el
4540: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  se {..          
4550: 20 20 20 20 20 20 73 65 74 20 65 78 74 72 61 63        set extrac
4560: 74 43 6f 6d 6d 61 6e 64 4d 61 70 20 5b 6c 69 73  tCommandMap [lis
4570: 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  t \..           
4580: 20 20 20 20 20 20 20 20 20 25 66 69 6c 65 4e 61           %fileNa
4590: 6d 65 25 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  me% [file native
45a0: 6e 61 6d 65 20 24 6d 61 6e 69 66 65 73 74 46 69  name $manifestFi
45b0: 6c 65 4e 61 6d 65 5d 20 5c 0d 0a 20 20 20 20 20  leName] \..     
45c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 25                 %
45d0: 64 69 72 65 63 74 6f 72 79 25 20 5b 66 69 6c 65  directory% [file
45e0: 20 6e 61 74 69 76 65 6e 61 6d 65 20 24 65 78 74   nativename $ext
45f0: 72 61 63 74 44 69 72 65 63 74 6f 72 79 5d 5d 0d  ractDirectory]].
4600: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  .              }
4610: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
4620: 20 20 73 65 74 20 64 61 74 61 20 5b 65 76 61 6c    set data [eval
4630: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
4640: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6d 61        [string ma
4650: 70 20 24 65 78 74 72 61 63 74 43 6f 6d 6d 61 6e  p $extractComman
4660: 64 4d 61 70 20 24 65 78 74 72 61 63 74 43 6f 6d  dMap $extractCom
4670: 6d 61 6e 64 28 32 29 5d 5d 0d 0a 20 20 20 20 20  mand(2)]]..     
4680: 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 32 5d         } error2]
4690: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20   == 0} then {.. 
46a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20               if 
46b0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
46c0: 24 68 61 73 68 65 73 28 24 6d 61 6e 69 66 65 73  $hashes($manifes
46d0: 74 46 69 6c 65 4e 61 6d 65 29 5d 20 3d 3d 20 36  tFileName)] == 6
46e0: 34 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  4} then {..     
46f0: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 68             set h
4700: 61 73 68 20 5b 67 65 74 53 68 61 33 53 75 6d 20  ash [getSha3Sum 
4710: 24 65 78 74 72 61 63 74 46 69 6c 65 4e 61 6d 65  $extractFileName
4720: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ]..             
4730: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
4740: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 68             set h
4750: 61 73 68 20 5b 67 65 74 53 68 61 31 53 75 6d 20  ash [getSha1Sum 
4760: 24 65 78 74 72 61 63 74 46 69 6c 65 4e 61 6d 65  $extractFileName
4770: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ]..             
4780: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20   }....          
4790: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20      if {[string 
47a0: 6c 65 6e 67 74 68 20 24 68 61 73 68 5d 20 3e 20  length $hash] > 
47b0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
47c0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 24             if {$
47d0: 68 61 73 68 20 6e 65 20 24 68 61 73 68 65 73 28  hash ne $hashes(
47e0: 24 6d 61 6e 69 66 65 73 74 46 69 6c 65 4e 61 6d  $manifestFileNam
47f0: 65 29 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  e)} then {..    
4800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75                pu
4810: 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e  ts stdout [appen
4820: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
4830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24                 $
4840: 68 61 73 68 50 72 65 66 69 78 20 22 3a 20 41 72  hashPrefix ": Ar
4850: 63 68 69 76 65 20 5c 22 22 20 24 61 72 63 68 69  chive \"" $archi
4860: 76 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20  veFileName \..  
4870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4880: 20 20 20 20 22 5c 22 20 66 69 6c 65 20 5c 22 22      "\" file \""
4890: 20 24 6d 61 6e 69 66 65 73 74 46 69 6c 65 4e 61   $manifestFileNa
48a0: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  me \..          
48b0: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20              "\" 
48c0: 72 65 70 6f 73 69 74 6f 72 79 20 68 61 73 68 20  repository hash 
48d0: 6d 69 73 6d 61 74 63 68 2c 20 68 61 76 65 20 5c  mismatch, have \
48e0: 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  "" \..          
48f0: 20 20 20 20 20 20 20 20 20 20 20 20 24 68 61 73              $has
4900: 68 20 22 5c 22 2c 20 77 61 6e 74 20 5c 22 22 20  h "\", want \"" 
4910: 24 68 61 73 68 65 73 28 24 6d 61 6e 69 66 65 73  $hashes($manifes
4920: 74 46 69 6c 65 4e 61 6d 65 29 20 5c 0d 0a 20 20  tFileName) \..  
4930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4940: 20 20 20 20 22 5c 22 2e 22 5d 0d 0a 0d 0a 20 20      "\"."]....  
4950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4960: 69 66 20 7b 24 66 61 69 6c 48 61 73 68 65 73 7d  if {$failHashes}
4970: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
4980: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74               set
4990: 20 65 78 69 74 43 6f 64 65 20 31 0d 0a 20 20 20   exitCode 1..   
49a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
49b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
49c0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
49d0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
49e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74               put
49f0: 73 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e 64  s stdout [append
4a00: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
4a10: 20 20 20 20 20 20 20 20 20 20 20 20 24 68 61 73              $has
4a20: 68 50 72 65 66 69 78 20 22 3a 20 41 72 63 68 69  hPrefix ": Archi
4a30: 76 65 20 5c 22 22 20 24 61 72 63 68 69 76 65 46  ve \"" $archiveF
4a40: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20  ileName \..     
4a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
4a60: 5c 22 20 66 69 6c 65 20 5c 22 22 20 24 6d 61 6e  \" file \"" $man
4a70: 69 66 65 73 74 46 69 6c 65 4e 61 6d 65 20 5c 0d  ifestFileName \.
4a80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4a90: 20 20 20 20 20 22 5c 22 20 63 6f 75 6c 64 20 6e       "\" could n
4aa0: 6f 74 20 62 65 20 68 61 73 68 65 64 2e 22 5d 0d  ot be hashed."].
4ab0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
4ac0: 20 20 20 69 66 20 7b 24 66 61 69 6c 48 61 73 68     if {$failHash
4ad0: 65 73 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  es} then {..    
4ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65                se
4af0: 74 20 65 78 69 74 43 6f 64 65 20 31 0d 0a 20 20  t exitCode 1..  
4b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
4b10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  .              }
4b20: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20  ..            } 
4b30: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
4b40: 20 20 20 20 20 20 70 75 74 73 20 73 74 64 6f 75        puts stdou
4b50: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  t [appendArgs \.
4b60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4b70: 20 20 20 24 68 61 73 68 50 72 65 66 69 78 20 22     $hashPrefix "
4b80: 3a 20 46 61 69 6c 65 64 20 74 6f 20 65 78 74 72  : Failed to extr
4b90: 61 63 74 20 66 69 6c 65 20 5c 22 22 20 5c 0d 0a  act file \"" \..
4ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4bb0: 20 20 24 6d 61 6e 69 66 65 73 74 46 69 6c 65 4e    $manifestFileN
4bc0: 61 6d 65 20 22 5c 22 20 66 72 6f 6d 20 61 72 63  ame "\" from arc
4bd0: 68 69 76 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20  hive \"" \..    
4be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 61                $a
4bf0: 72 63 68 69 76 65 46 69 6c 65 4e 61 6d 65 20 22  rchiveFileName "
4c00: 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5b 63 6f  \", error: " [co
4c10: 6d 62 69 6e 65 45 72 72 6f 72 73 20 5c 0d 0a 20  mbineErrors \.. 
4c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c30: 20 24 65 72 72 6f 72 31 20 24 65 72 72 6f 72 32   $error1 $error2
4c40: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  ]]....          
4c50: 20 20 20 20 69 66 20 7b 24 66 61 69 6c 48 61 73      if {$failHas
4c60: 68 65 73 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  hes} then {..   
4c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74               set
4c80: 20 65 78 69 74 43 6f 64 65 20 31 0d 0a 20 20 20   exitCode 1..   
4c90: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
4ca0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
4cb0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
4cc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74  .            put
4cd0: 73 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e 64  s stdout [append
4ce0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
4cf0: 20 20 20 20 20 20 20 20 24 68 61 73 68 50 72 65          $hashPre
4d00: 66 69 78 20 22 3a 20 41 72 63 68 69 76 65 20 5c  fix ": Archive \
4d10: 22 22 20 24 61 72 63 68 69 76 65 46 69 6c 65 4e  "" $archiveFileN
4d20: 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  ame \..         
4d30: 20 20 20 20 20 20 20 22 5c 22 20 66 69 6c 65 20         "\" file 
4d40: 5c 22 22 20 24 6d 61 6e 69 66 65 73 74 46 69 6c  \"" $manifestFil
4d50: 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20  eName \..       
4d60: 20 20 20 20 20 20 20 20 20 22 5c 22 20 68 61 73           "\" has
4d70: 20 6e 6f 20 72 65 70 6f 73 69 74 6f 72 79 20 68   no repository h
4d80: 61 73 68 2e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20  ash."]....      
4d90: 20 20 20 20 20 20 69 66 20 7b 24 66 61 69 6c 48        if {$failH
4da0: 61 73 68 65 73 7d 20 74 68 65 6e 20 7b 0d 0a 20  ashes} then {.. 
4db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74               set
4dc0: 20 65 78 69 74 43 6f 64 65 20 31 0d 0a 20 20 20   exitCode 1..   
4dd0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
4de0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
4df0: 20 7d 20 66 69 6e 61 6c 6c 79 20 7b 0d 0a 20 20   } finally {..  
4e00: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d          catch {.
4e10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c  .            fil
4e20: 65 20 61 74 74 72 69 62 75 74 65 73 20 24 65 78  e attributes $ex
4e30: 74 72 61 63 74 46 69 6c 65 4e 61 6d 65 20 2d 72  tractFileName -r
4e40: 65 61 64 6f 6e 6c 79 20 66 61 6c 73 65 0d 0a 20  eadonly false.. 
4e50: 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20             file 
4e60: 64 65 6c 65 74 65 20 24 65 78 74 72 61 63 74 46  delete $extractF
4e70: 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20 20  ileName..       
4e80: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
4e90: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
4ea0: 20 20 66 6f 72 65 61 63 68 20 63 6f 6e 74 61 69    foreach contai
4eb0: 6e 65 64 46 69 6c 65 4e 61 6d 65 20 24 63 6f 6e  nedFileName $con
4ec0: 74 61 69 6e 65 64 46 69 6c 65 4e 61 6d 65 73 20  tainedFileNames 
4ed0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  {..        #..  
4ee0: 20 20 20 20 20 20 23 20 54 4f 44 4f 3a 20 53 68        # TODO: Sh
4ef0: 6f 75 6c 64 20 77 65 20 75 73 65 20 2d 6e 6f 63  ould we use -noc
4f00: 61 73 65 20 68 65 72 65 20 62 65 63 61 75 73 65  ase here because
4f10: 20 57 69 6e 64 6f 77 73 0d 0a 20 20 20 20 20 20   Windows..      
4f20: 20 20 23 20 20 20 20 20 20 20 69 73 20 74 68 65    #       is the
4f30: 20 70 72 69 6d 61 72 79 20 72 65 6c 65 61 73 65   primary release
4f40: 20 70 6c 61 74 66 6f 72 6d 3f 0d 0a 20 20 20 20   platform?..    
4f50: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69      #..        i
4f60: 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61  f {[lsearch -exa
4f70: 63 74 20 2d 2d 20 24 6d 61 6e 69 66 65 73 74 46  ct -- $manifestF
4f80: 69 6c 65 4e 61 6d 65 73 20 5c 0d 0a 20 20 20 20  ileNames \..    
4f90: 20 20 20 20 20 20 20 20 24 63 6f 6e 74 61 69 6e          $contain
4fa0: 65 64 46 69 6c 65 4e 61 6d 65 5d 20 3d 3d 20 2d  edFileName] == -
4fb0: 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  1} then {..     
4fc0: 20 20 20 20 20 70 75 74 73 20 73 74 64 6f 75 74       puts stdout
4fd0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
4fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 45                "E
4ff0: 52 52 4f 52 3a 20 41 72 63 68 69 76 65 20 5c 22  RROR: Archive \"
5000: 22 20 24 61 72 63 68 69 76 65 46 69 6c 65 4e 61  " $archiveFileNa
5010: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  me \..          
5020: 20 20 20 20 22 5c 22 20 63 6f 6e 74 61 69 6e 73      "\" contains
5030: 20 66 69 6c 65 20 5c 22 22 20 24 63 6f 6e 74 61   file \"" $conta
5040: 69 6e 65 64 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a  inedFileName \..
5050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c                "\
5060: 22 20 6e 6f 74 20 69 6e 20 6d 61 6e 69 66 65 73  " not in manifes
5070: 74 20 5c 22 22 20 24 6d 61 6e 69 66 65 73 74 20  t \"" $manifest 
5080: 22 5c 22 2e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20  "\"."]....      
5090: 20 20 20 20 73 65 74 20 65 78 69 74 43 6f 64 65      set exitCode
50a0: 20 31 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20   1..        }.. 
50b0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 20 65 6c       }..    } el
50c0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 70 75 74 73  se {..      puts
50d0: 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e 64 41   stdout [appendA
50e0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
50f0: 20 22 45 52 52 4f 52 3a 20 46 61 69 6c 65 64 20   "ERROR: Failed 
5100: 74 6f 20 67 65 74 20 6c 69 73 74 20 6f 66 20 66  to get list of f
5110: 69 6c 65 73 20 69 6e 20 61 72 63 68 69 76 65 20  iles in archive 
5120: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  \"" \..         
5130: 20 24 61 72 63 68 69 76 65 46 69 6c 65 4e 61 6d   $archiveFileNam
5140: 65 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20  e "\", error: " 
5150: 5b 63 6f 6d 62 69 6e 65 45 72 72 6f 72 73 20 5c  [combineErrors \
5160: 0d 0a 20 20 20 20 20 20 20 20 20 20 24 65 72 72  ..          $err
5170: 6f 72 31 20 24 65 72 72 6f 72 32 5d 5d 0d 0a 0d  or1 $error2]]...
5180: 0a 20 20 20 20 20 20 73 65 74 20 65 78 69 74 43  .      set exitC
5190: 6f 64 65 20 31 0d 0a 20 20 20 20 7d 0d 0a 20 20  ode 1..    }..  
51a0: 7d 0d 0a 0d 0a 20 20 65 78 69 74 20 24 65 78 69  }....  exit $exi
51b0: 74 43 6f 64 65 0d 0a 7d 20 65 6c 73 65 20 7b 0d  tCode..} else {.
51c0: 0a 20 20 75 73 61 67 65 20 22 22 0d 0a 7d 0d 0a  .  usage ""..}..