/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 75fb1b601d69ead76340fa15bf9813874fed240b:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68  #!/usr/bin/tclsh
0010: 0a 23 0a 23 20 54 68 69 73 20 73 63 72 69 70 74  .#.# This script
0020: 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 6e 65   is used to gene
0030: 72 61 74 65 20 61 20 56 53 49 58 20 28 56 69 73  rate a VSIX (Vis
0040: 75 61 6c 20 53 74 75 64 69 6f 20 45 78 74 65 6e  ual Studio Exten
0050: 73 69 6f 6e 29 20 66 69 6c 65 20 66 6f 72 0a 23  sion) file for.#
0060: 20 53 51 4c 69 74 65 20 75 73 61 62 6c 65 20 62   SQLite usable b
0070: 79 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f 2e  y Visual Studio.
0080: 0a 0a 70 72 6f 63 20 66 61 69 6c 20 7b 20 7b 65  ..proc fail { {e
0090: 72 72 6f 72 20 22 22 7d 20 7b 75 73 61 67 65 20  rror ""} {usage 
00a0: 66 61 6c 73 65 7d 20 7d 20 7b 0a 20 20 69 66 20  false} } {.  if 
00b0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
00c0: 24 65 72 72 6f 72 5d 20 3e 20 30 7d 20 74 68 65  $error] > 0} the
00d0: 6e 20 7b 0a 20 20 20 20 70 75 74 73 20 73 74 64  n {.    puts std
00e0: 6f 75 74 20 24 65 72 72 6f 72 0a 20 20 20 20 69  out $error.    i
00f0: 66 20 7b 21 24 75 73 61 67 65 7d 20 74 68 65 6e  f {!$usage} then
0100: 20 7b 65 78 69 74 20 31 7d 0a 20 20 7d 0a 0a 20   {exit 1}.  }.. 
0110: 20 70 75 74 73 20 73 74 64 6f 75 74 20 22 75 73   puts stdout "us
0120: 61 67 65 3a 5c 0a 5b 66 69 6c 65 20 74 61 69 6c  age:\.[file tail
0130: 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65   [info nameofexe
0140: 63 75 74 61 62 6c 65 5d 5d 5c 0a 5b 66 69 6c 65  cutable]]\.[file
0150: 20 74 61 69 6c 20 5b 69 6e 66 6f 20 73 63 72 69   tail [info scri
0160: 70 74 5d 5d 20 3c 62 69 6e 61 72 79 44 69 72 65  pt]] <binaryDire
0170: 63 74 6f 72 79 3e 20 5c 5b 73 6f 75 72 63 65 44  ctory> \[sourceD
0180: 69 72 65 63 74 6f 72 79 5c 5d 22 0a 0a 20 20 65  irectory\]"..  e
0190: 78 69 74 20 31 0a 7d 0a 0c 0a 70 72 6f 63 20 67  xit 1.}...proc g
01a0: 65 74 45 6e 76 69 72 6f 6e 6d 65 6e 74 56 61 72  etEnvironmentVar
01b0: 69 61 62 6c 65 20 7b 20 6e 61 6d 65 20 7d 20 7b  iable { name } {
01c0: 0a 20 20 23 0a 20 20 23 20 4e 4f 54 45 3a 20 52  .  #.  # NOTE: R
01d0: 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65  eturns the value
01e0: 20 6f 66 20 74 68 65 20 73 70 65 63 69 66 69 65   of the specifie
01f0: 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61  d environment va
0200: 72 69 61 62 6c 65 20 6f 72 20 61 6e 20 65 6d 70  riable or an emp
0210: 74 79 0a 20 20 23 20 20 20 20 20 20 20 73 74 72  ty.  #       str
0220: 69 6e 67 20 66 6f 72 20 65 6e 76 69 72 6f 6e 6d  ing for environm
0230: 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 74 68  ent variables th
0240: 61 74 20 64 6f 20 6e 6f 74 20 65 78 69 73 74 20  at do not exist 
0250: 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a 20  in the current. 
0260: 20 23 20 20 20 20 20 20 20 70 72 6f 63 65 73 73   #       process
0270: 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 0a 20 20   environment..  
0280: 23 0a 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72  #.  return [expr
0290: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
02a0: 3a 65 6e 76 28 24 6e 61 6d 65 29 5d 20 3f 20 24  :env($name)] ? $
02b0: 3a 3a 65 6e 76 28 24 6e 61 6d 65 29 20 3a 20 22  ::env($name) : "
02c0: 22 7d 5d 0a 7d 0a 0c 0a 70 72 6f 63 20 67 65 74  "}].}...proc get
02d0: 54 65 6d 70 6f 72 61 72 79 50 61 74 68 20 7b 7d  TemporaryPath {}
02e0: 20 7b 0a 20 20 23 0a 20 20 23 20 4e 4f 54 45 3a   {.  #.  # NOTE:
02f0: 20 52 65 74 75 72 6e 73 20 74 68 65 20 6e 6f 72   Returns the nor
0300: 6d 61 6c 69 7a 65 64 20 70 61 74 68 20 74 6f 20  malized path to 
0310: 74 68 65 20 66 69 72 73 74 20 74 65 6d 70 6f 72  the first tempor
0320: 61 72 79 20 64 69 72 65 63 74 6f 72 79 20 66 6f  ary directory fo
0330: 75 6e 64 0a 20 20 23 20 20 20 20 20 20 20 69 6e  und.  #       in
0340: 20 74 68 65 20 74 79 70 69 63 61 6c 20 73 65 74   the typical set
0350: 20 6f 66 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20   of environment 
0360: 76 61 72 69 61 62 6c 65 73 20 75 73 65 64 20 66  variables used f
0370: 6f 72 20 74 68 61 74 20 70 75 72 70 6f 73 65 0a  or that purpose.
0380: 20 20 23 20 20 20 20 20 20 20 6f 72 20 61 6e 20    #       or an 
0390: 65 6d 70 74 79 20 73 74 72 69 6e 67 20 74 6f 20  empty string to 
03a0: 73 69 67 6e 61 6c 20 61 20 66 61 69 6c 75 72 65  signal a failure
03b0: 20 74 6f 20 6c 6f 63 61 74 65 20 73 75 63 68 20   to locate such 
03c0: 61 20 64 69 72 65 63 74 6f 72 79 2e 0a 20 20 23  a directory..  #
03d0: 0a 20 20 73 65 74 20 6e 61 6d 65 73 20 5b 6c 69  .  set names [li
03e0: 73 74 5d 0a 0a 20 20 66 6f 72 65 61 63 68 20 6e  st]..  foreach n
03f0: 61 6d 65 20 5b 6c 69 73 74 20 54 45 4d 50 20 54  ame [list TEMP T
0400: 4d 50 5d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e  MP] {.    lappen
0410: 64 20 6e 61 6d 65 73 20 5b 73 74 72 69 6e 67 20  d names [string 
0420: 74 6f 75 70 70 65 72 20 24 6e 61 6d 65 5d 20 5b  toupper $name] [
0430: 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24  string tolower $
0440: 6e 61 6d 65 5d 20 5c 0a 20 20 20 20 20 20 20 20  name] \.        
0450: 5b 73 74 72 69 6e 67 20 74 6f 74 69 74 6c 65 20  [string totitle 
0460: 24 6e 61 6d 65 5d 0a 20 20 7d 0a 0a 20 20 66 6f  $name].  }..  fo
0470: 72 65 61 63 68 20 6e 61 6d 65 20 24 6e 61 6d 65  reach name $name
0480: 73 20 7b 0a 20 20 20 20 73 65 74 20 76 61 6c 75  s {.    set valu
0490: 65 20 5b 67 65 74 45 6e 76 69 72 6f 6e 6d 65 6e  e [getEnvironmen
04a0: 74 56 61 72 69 61 62 6c 65 20 24 6e 61 6d 65 5d  tVariable $name]
04b0: 0a 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e  ..    if {[strin
04c0: 67 20 6c 65 6e 67 74 68 20 24 76 61 6c 75 65 5d  g length $value]
04d0: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0a 20 20 20   > 0} then {.   
04e0: 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20     return [file 
04f0: 6e 6f 72 6d 61 6c 69 7a 65 20 24 76 61 6c 75 65  normalize $value
0500: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72  ].    }.  }..  r
0510: 65 74 75 72 6e 20 22 22 0a 7d 0a 0c 0a 70 72 6f  eturn "".}...pro
0520: 63 20 61 70 70 65 6e 64 41 72 67 73 20 7b 20 61  c appendArgs { a
0530: 72 67 73 20 7d 20 7b 0a 20 20 23 0a 20 20 23 20  rgs } {.  #.  # 
0540: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 61 6c  NOTE: Returns al
0550: 6c 20 70 61 73 73 65 64 20 61 72 67 75 6d 65 6e  l passed argumen
0560: 74 73 20 6a 6f 69 6e 65 64 20 74 6f 67 65 74 68  ts joined togeth
0570: 65 72 20 61 73 20 61 20 73 69 6e 67 6c 65 20 73  er as a single s
0580: 74 72 69 6e 67 20 77 69 74 68 0a 20 20 23 20 20  tring with.  #  
0590: 20 20 20 20 20 6e 6f 20 69 6e 74 65 72 76 65 6e       no interven
05a0: 69 6e 67 20 73 70 61 63 65 73 20 62 65 74 77 65  ing spaces betwe
05b0: 65 6e 20 61 72 67 75 6d 65 6e 74 73 2e 0a 20 20  en arguments..  
05c0: 23 0a 20 20 65 76 61 6c 20 61 70 70 65 6e 64 20  #.  eval append 
05d0: 72 65 73 75 6c 74 20 24 61 72 67 73 0a 7d 0a 0c  result $args.}..
05e0: 0a 70 72 6f 63 20 72 65 61 64 46 69 6c 65 20 7b  .proc readFile {
05f0: 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0a 20 20   fileName } {.  
0600: 23 0a 20 20 23 20 4e 4f 54 45 3a 20 52 65 61 64  #.  # NOTE: Read
0610: 73 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68  s and returns th
0620: 65 20 65 6e 74 69 72 65 20 63 6f 6e 74 65 6e 74  e entire content
0630: 73 20 6f 66 20 74 68 65 20 73 70 65 63 69 66 69  s of the specifi
0640: 65 64 20 66 69 6c 65 2c 20 77 68 69 63 68 0a 20  ed file, which. 
0650: 20 23 20 20 20 20 20 20 20 6d 61 79 20 63 6f 6e   #       may con
0660: 74 61 69 6e 20 62 69 6e 61 72 79 20 64 61 74 61  tain binary data
0670: 2e 0a 20 20 23 0a 20 20 73 65 74 20 66 69 6c 65  ..  #.  set file
0680: 5f 69 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 4e  _id [open $fileN
0690: 61 6d 65 20 52 44 4f 4e 4c 59 5d 0a 20 20 66 63  ame RDONLY].  fc
06a0: 6f 6e 66 69 67 75 72 65 20 24 66 69 6c 65 5f 69  onfigure $file_i
06b0: 64 20 2d 65 6e 63 6f 64 69 6e 67 20 62 69 6e 61  d -encoding bina
06c0: 72 79 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20  ry -translation 
06d0: 62 69 6e 61 72 79 0a 20 20 73 65 74 20 72 65 73  binary.  set res
06e0: 75 6c 74 20 5b 72 65 61 64 20 24 66 69 6c 65 5f  ult [read $file_
06f0: 69 64 5d 0a 20 20 63 6c 6f 73 65 20 24 66 69 6c  id].  close $fil
0700: 65 5f 69 64 0a 20 20 72 65 74 75 72 6e 20 24 72  e_id.  return $r
0710: 65 73 75 6c 74 0a 7d 0a 0c 0a 70 72 6f 63 20 77  esult.}...proc w
0720: 72 69 74 65 46 69 6c 65 20 7b 20 66 69 6c 65 4e  riteFile { fileN
0730: 61 6d 65 20 64 61 74 61 20 7d 20 7b 0a 20 20 23  ame data } {.  #
0740: 0a 20 20 23 20 4e 4f 54 45 3a 20 57 72 69 74 65  .  # NOTE: Write
0750: 73 20 74 68 65 20 65 6e 74 69 72 65 20 63 6f 6e  s the entire con
0760: 74 65 6e 74 73 20 6f 66 20 74 68 65 20 73 70 65  tents of the spe
0770: 63 69 66 69 65 64 20 66 69 6c 65 2c 20 77 68 69  cified file, whi
0780: 63 68 20 6d 61 79 20 63 6f 6e 74 61 69 6e 0a 20  ch may contain. 
0790: 20 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20   #       binary 
07a0: 64 61 74 61 2e 0a 20 20 23 0a 20 20 73 65 74 20  data..  #.  set 
07b0: 66 69 6c 65 5f 69 64 20 5b 6f 70 65 6e 20 24 66  file_id [open $f
07c0: 69 6c 65 4e 61 6d 65 20 7b 57 52 4f 4e 4c 59 20  ileName {WRONLY 
07d0: 43 52 45 41 54 20 54 52 55 4e 43 7d 5d 0a 20 20  CREAT TRUNC}].  
07e0: 66 63 6f 6e 66 69 67 75 72 65 20 24 66 69 6c 65  fconfigure $file
07f0: 5f 69 64 20 2d 65 6e 63 6f 64 69 6e 67 20 62 69  _id -encoding bi
0800: 6e 61 72 79 20 2d 74 72 61 6e 73 6c 61 74 69 6f  nary -translatio
0810: 6e 20 62 69 6e 61 72 79 0a 20 20 70 75 74 73 20  n binary.  puts 
0820: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 66 69 6c 65  -nonewline $file
0830: 5f 69 64 20 24 64 61 74 61 0a 20 20 63 6c 6f 73  _id $data.  clos
0840: 65 20 24 66 69 6c 65 5f 69 64 0a 20 20 72 65 74  e $file_id.  ret
0850: 75 72 6e 20 22 22 0a 7d 0a 0c 0a 70 72 6f 63 20  urn "".}...proc 
0860: 73 75 62 73 74 46 69 6c 65 20 7b 20 66 69 6c 65  substFile { file
0870: 4e 61 6d 65 20 7d 20 7b 0a 20 20 23 0a 20 20 23  Name } {.  #.  #
0880: 20 4e 4f 54 45 3a 20 50 65 72 66 6f 72 6d 73 20   NOTE: Performs 
0890: 61 6c 6c 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 2c  all Tcl command,
08a0: 20 76 61 72 69 61 62 6c 65 2c 20 61 6e 64 20 62   variable, and b
08b0: 61 63 6b 73 6c 61 73 68 20 73 75 62 73 74 69 74  ackslash substit
08c0: 75 74 69 6f 6e 73 20 69 6e 0a 20 20 23 20 20 20  utions in.  #   
08d0: 20 20 20 20 74 68 65 20 73 70 65 63 69 66 69 65      the specifie
08e0: 64 20 66 69 6c 65 20 61 6e 64 20 74 68 65 6e 20  d file and then 
08f0: 72 65 2d 77 72 69 74 65 73 20 74 68 65 20 63 6f  re-writes the co
0900: 6e 74 65 6e 74 73 20 6f 66 20 74 68 61 74 20 73  ntents of that s
0910: 61 6d 65 20 66 69 6c 65 0a 20 20 23 20 20 20 20  ame file.  #    
0920: 20 20 20 77 69 74 68 20 74 68 65 20 73 75 62 73     with the subs
0930: 74 69 74 75 74 65 64 20 64 61 74 61 2e 0a 20 20  tituted data..  
0940: 23 0a 20 20 72 65 74 75 72 6e 20 5b 77 72 69 74  #.  return [writ
0950: 65 46 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 20  eFile $fileName 
0960: 5b 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74  [uplevel 1 [list
0970: 20 73 75 62 73 74 20 5b 72 65 61 64 46 69 6c 65   subst [readFile
0980: 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 5d 0a 7d   $fileName]]]].}
0990: 0a 0c 0a 70 72 6f 63 20 72 65 70 6c 61 63 65 50  ...proc replaceP
09a0: 6c 61 74 66 6f 72 6d 20 7b 20 66 69 6c 65 4e 61  latform { fileNa
09b0: 6d 65 20 70 6c 61 74 66 6f 72 6d 4e 61 6d 65 20  me platformName 
09c0: 7d 20 7b 0a 20 20 23 0a 20 20 23 20 4e 4f 54 45  } {.  #.  # NOTE
09d0: 3a 20 52 65 74 75 72 6e 73 20 74 68 65 20 73 70  : Returns the sp
09e0: 65 63 69 66 69 65 64 20 66 69 6c 65 20 6e 61 6d  ecified file nam
09f0: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65  e containing the
0a00: 20 70 6c 61 74 66 6f 72 6d 20 6e 61 6d 65 20 69   platform name i
0a10: 6e 73 74 65 61 64 0a 20 20 23 20 20 20 20 20 20  nstead.  #      
0a20: 20 6f 66 20 70 6c 61 74 66 6f 72 6d 20 70 6c 61   of platform pla
0a30: 63 65 68 6f 6c 64 65 72 20 74 6f 6b 65 6e 73 2e  ceholder tokens.
0a40: 0a 20 20 23 0a 20 20 72 65 74 75 72 6e 20 5b 73  .  #.  return [s
0a50: 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20  tring map [list 
0a60: 3c 70 6c 61 74 66 6f 72 6d 3e 20 24 70 6c 61 74  <platform> $plat
0a70: 66 6f 72 6d 4e 61 6d 65 5d 20 24 66 69 6c 65 4e  formName] $fileN
0a80: 61 6d 65 5d 0a 7d 0a 0c 0a 73 65 74 20 73 63 72  ame].}...set scr
0a90: 69 70 74 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c  ipt [file normal
0aa0: 69 7a 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74  ize [info script
0ab0: 5d 5d 0a 0a 69 66 20 7b 5b 73 74 72 69 6e 67 20  ]]..if {[string 
0ac0: 6c 65 6e 67 74 68 20 24 73 63 72 69 70 74 5d 20  length $script] 
0ad0: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0a 20 20 66  == 0} then {.  f
0ae0: 61 69 6c 20 22 73 63 72 69 70 74 20 66 69 6c 65  ail "script file
0af0: 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67   currently being
0b00: 20 65 76 61 6c 75 61 74 65 64 20 69 73 20 75 6e   evaluated is un
0b10: 6b 6e 6f 77 6e 22 20 74 72 75 65 0a 7d 0a 0a 73  known" true.}..s
0b20: 65 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69  et path [file di
0b30: 72 6e 61 6d 65 20 24 73 63 72 69 70 74 5d 0a 73  rname $script].s
0b40: 65 74 20 72 6f 6f 74 4e 61 6d 65 20 5b 66 69 6c  et rootName [fil
0b50: 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 69 6c 65  e rootname [file
0b60: 20 74 61 69 6c 20 24 73 63 72 69 70 74 5d 5d 0a   tail $script]].
0b70: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
0b80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0b90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0bb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0bc0: 0a 0a 23 0a 23 20 4e 4f 54 45 3a 20 50 72 6f 63  ..#.# NOTE: Proc
0bd0: 65 73 73 20 61 6e 64 20 76 65 72 69 66 79 20 61  ess and verify a
0be0: 6c 6c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c  ll the command l
0bf0: 69 6e 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 23  ine arguments..#
0c00: 0a 73 65 74 20 61 72 67 63 20 5b 6c 6c 65 6e 67  .set argc [lleng
0c10: 74 68 20 24 61 72 67 76 5d 0a 69 66 20 7b 24 61  th $argv].if {$a
0c20: 72 67 63 20 21 3d 20 31 20 26 26 20 24 61 72 67  rgc != 1 && $arg
0c30: 63 20 21 3d 20 32 7d 20 74 68 65 6e 20 7b 66 61  c != 2} then {fa
0c40: 69 6c 7d 0a 0a 73 65 74 20 62 69 6e 61 72 79 44  il}..set binaryD
0c50: 69 72 65 63 74 6f 72 79 20 5b 6c 69 6e 64 65 78  irectory [lindex
0c60: 20 24 61 72 67 76 20 30 5d 0a 0a 69 66 20 7b 5b   $argv 0]..if {[
0c70: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 62  string length $b
0c80: 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d 20  inaryDirectory] 
0c90: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0a 20 20 66  == 0} then {.  f
0ca0: 61 69 6c 20 22 69 6e 76 61 6c 69 64 20 62 69 6e  ail "invalid bin
0cb0: 61 72 79 20 64 69 72 65 63 74 6f 72 79 22 0a 7d  ary directory".}
0cc0: 0a 0a 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69  ..if {![file exi
0cd0: 73 74 73 20 24 62 69 6e 61 72 79 44 69 72 65 63  sts $binaryDirec
0ce0: 74 6f 72 79 5d 20 7c 7c 20 5c 0a 20 20 20 20 21  tory] || \.    !
0cf0: 5b 66 69 6c 65 20 69 73 64 69 72 65 63 74 6f 72  [file isdirector
0d00: 79 20 24 62 69 6e 61 72 79 44 69 72 65 63 74 6f  y $binaryDirecto
0d10: 72 79 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66 61  ry]} then {.  fa
0d20: 69 6c 20 22 62 69 6e 61 72 79 20 64 69 72 65 63  il "binary direc
0d30: 74 6f 72 79 20 64 6f 65 73 20 6e 6f 74 20 65 78  tory does not ex
0d40: 69 73 74 22 0a 7d 0a 0a 69 66 20 7b 24 61 72 67  ist".}..if {$arg
0d50: 63 20 3d 3d 20 32 7d 20 74 68 65 6e 20 7b 0a 20  c == 2} then {. 
0d60: 20 73 65 74 20 73 6f 75 72 63 65 44 69 72 65 63   set sourceDirec
0d70: 74 6f 72 79 20 5b 6c 69 6e 64 65 78 20 24 61 72  tory [lindex $ar
0d80: 67 76 20 31 5d 0a 7d 20 65 6c 73 65 20 7b 0a 20  gv 1].} else {. 
0d90: 20 23 0a 20 20 23 20 4e 4f 54 45 3a 20 41 73 73   #.  # NOTE: Ass
0da0: 75 6d 65 20 74 68 61 74 20 74 68 65 20 73 6f 75  ume that the sou
0db0: 72 63 65 20 64 69 72 65 63 74 6f 72 79 20 69 73  rce directory is
0dc0: 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65   the parent dire
0dd0: 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e 65  ctory of the one
0de0: 0a 20 20 23 20 20 20 20 20 20 20 74 68 61 74 20  .  #       that 
0df0: 63 6f 6e 74 61 69 6e 73 20 74 68 69 73 20 73 63  contains this sc
0e00: 72 69 70 74 20 66 69 6c 65 2e 0a 20 20 23 0a 20  ript file..  #. 
0e10: 20 73 65 74 20 73 6f 75 72 63 65 44 69 72 65 63   set sourceDirec
0e20: 74 6f 72 79 20 5b 66 69 6c 65 20 64 69 72 6e 61  tory [file dirna
0e30: 6d 65 20 24 70 61 74 68 5d 0a 7d 0a 0a 69 66 20  me $path].}..if 
0e40: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
0e50: 24 73 6f 75 72 63 65 44 69 72 65 63 74 6f 72 79  $sourceDirectory
0e60: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0a 20  ] == 0} then {. 
0e70: 20 66 61 69 6c 20 22 69 6e 76 61 6c 69 64 20 73   fail "invalid s
0e80: 6f 75 72 63 65 20 64 69 72 65 63 74 6f 72 79 22  ource directory"
0e90: 0a 7d 0a 0a 69 66 20 7b 21 5b 66 69 6c 65 20 65  .}..if {![file e
0ea0: 78 69 73 74 73 20 24 73 6f 75 72 63 65 44 69 72  xists $sourceDir
0eb0: 65 63 74 6f 72 79 5d 20 7c 7c 20 5c 0a 20 20 20  ectory] || \.   
0ec0: 20 21 5b 66 69 6c 65 20 69 73 64 69 72 65 63 74   ![file isdirect
0ed0: 6f 72 79 20 24 73 6f 75 72 63 65 44 69 72 65 63  ory $sourceDirec
0ee0: 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b 0a 20 20  tory]} then {.  
0ef0: 66 61 69 6c 20 22 73 6f 75 72 63 65 20 64 69 72  fail "source dir
0f00: 65 63 74 6f 72 79 20 64 6f 65 73 20 6e 6f 74 20  ectory does not 
0f10: 65 78 69 73 74 22 0a 7d 0a 0a 23 23 23 23 23 23  exist".}..######
0f20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f60: 23 23 23 23 23 23 23 23 23 0a 0a 73 65 74 20 74  #########..set t
0f70: 65 6d 70 6c 61 74 65 46 69 6c 65 20 5b 66 69 6c  emplateFile [fil
0f80: 65 20 6a 6f 69 6e 20 24 70 61 74 68 20 77 69 6e  e join $path win
0f90: 20 73 71 6c 69 74 65 2e 76 73 69 78 5d 0a 0a 69   sqlite.vsix]..i
0fa0: 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73  f {![file exists
0fb0: 20 24 74 65 6d 70 6c 61 74 65 46 69 6c 65 5d 20   $templateFile] 
0fc0: 7c 7c 20 5c 0a 20 20 20 20 21 5b 66 69 6c 65 20  || \.    ![file 
0fd0: 69 73 66 69 6c 65 20 24 74 65 6d 70 6c 61 74 65  isfile $template
0fe0: 46 69 6c 65 5d 7d 20 74 68 65 6e 20 7b 0a 20 20  File]} then {.  
0ff0: 66 61 69 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  fail [appendArgs
1000: 20 22 74 65 6d 70 6c 61 74 65 20 66 69 6c 65 20   "template file 
1010: 5c 22 22 20 24 74 65 6d 70 6c 61 74 65 46 69 6c  \"" $templateFil
1020: 65 20 22 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65  e "\" does not e
1030: 78 69 73 74 22 5d 0a 7d 0a 0a 73 65 74 20 63 75  xist"].}..set cu
1040: 72 72 65 6e 74 44 69 72 65 63 74 6f 72 79 20 5b  rrentDirectory [
1050: 70 77 64 5d 0a 73 65 74 20 6f 75 74 70 75 74 46  pwd].set outputF
1060: 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  ile [file join $
1070: 63 75 72 72 65 6e 74 44 69 72 65 63 74 6f 72 79  currentDirectory
1080: 20 73 71 6c 69 74 65 2d 6f 75 74 70 75 74 2e 76   sqlite-output.v
1090: 73 69 78 5d 0a 0a 69 66 20 7b 5b 66 69 6c 65 20  six]..if {[file 
10a0: 65 78 69 73 74 73 20 24 6f 75 74 70 75 74 46 69  exists $outputFi
10b0: 6c 65 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66 61  le]} then {.  fa
10c0: 69 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22  il [appendArgs "
10d0: 6f 75 74 70 75 74 20 66 69 6c 65 20 5c 22 22 20  output file \"" 
10e0: 24 6f 75 74 70 75 74 46 69 6c 65 20 22 5c 22 20  $outputFile "\" 
10f0: 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 22 5d  already exists"]
1100: 0a 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 23 23  .}..############
1110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1130: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1150: 23 23 23 0a 0a 23 0a 23 20 4e 4f 54 45 3a 20 4d  ###..#.# NOTE: M
1160: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 61 20  ake sure that a 
1170: 76 61 6c 69 64 20 74 65 6d 70 6f 72 61 72 79 20  valid temporary 
1180: 64 69 72 65 63 74 6f 72 79 20 65 78 69 73 74 73  directory exists
1190: 2e 0a 23 0a 73 65 74 20 74 65 6d 70 6f 72 61 72  ..#.set temporar
11a0: 79 44 69 72 65 63 74 6f 72 79 20 5b 67 65 74 54  yDirectory [getT
11b0: 65 6d 70 6f 72 61 72 79 50 61 74 68 5d 0a 0a 69  emporaryPath]..i
11c0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
11d0: 68 20 24 74 65 6d 70 6f 72 61 72 79 44 69 72 65  h $temporaryDire
11e0: 63 74 6f 72 79 5d 20 3d 3d 20 30 20 7c 7c 20 5c  ctory] == 0 || \
11f0: 0a 20 20 20 20 21 5b 66 69 6c 65 20 65 78 69 73  .    ![file exis
1200: 74 73 20 24 74 65 6d 70 6f 72 61 72 79 44 69 72  ts $temporaryDir
1210: 65 63 74 6f 72 79 5d 20 7c 7c 20 5c 0a 20 20 20  ectory] || \.   
1220: 20 21 5b 66 69 6c 65 20 69 73 64 69 72 65 63 74   ![file isdirect
1230: 6f 72 79 20 24 74 65 6d 70 6f 72 61 72 79 44 69  ory $temporaryDi
1240: 72 65 63 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b  rectory]} then {
1250: 0a 20 20 66 61 69 6c 20 22 63 61 6e 6e 6f 74 20  .  fail "cannot 
1260: 6c 6f 63 61 74 65 20 61 20 75 73 61 62 6c 65 20  locate a usable 
1270: 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74  temporary direct
1280: 6f 72 79 22 0a 7d 0a 0a 23 0a 23 20 4e 4f 54 45  ory".}..#.# NOTE
1290: 3a 20 53 65 74 75 70 20 74 68 65 20 73 74 61 67  : Setup the stag
12a0: 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20 74 6f  ing directory to
12b0: 20 68 61 76 65 20 61 20 75 6e 69 71 75 65 20 6e   have a unique n
12c0: 61 6d 65 20 69 6e 73 69 64 65 20 6f 66 20 74 68  ame inside of th
12d0: 65 0a 23 20 20 20 20 20 20 20 63 6f 6e 66 69 67  e.#       config
12e0: 75 72 65 64 20 74 65 6d 70 6f 72 61 72 79 20 64  ured temporary d
12f0: 69 72 65 63 74 6f 72 79 2e 0a 23 0a 73 65 74 20  irectory..#.set 
1300: 73 74 61 67 69 6e 67 44 69 72 65 63 74 6f 72 79  stagingDirectory
1310: 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65   [file normalize
1320: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 74 65 6d   [file join $tem
1330: 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20  poraryDirectory 
1340: 5c 0a 20 20 20 20 5b 61 70 70 65 6e 64 41 72 67  \.    [appendArg
1350: 73 20 24 72 6f 6f 74 4e 61 6d 65 20 2e 20 5b 70  s $rootName . [p
1360: 69 64 5d 5d 5d 5d 0a 0a 23 23 23 23 23 23 23 23  id]]]]..########
1370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13b0: 23 23 23 23 23 23 23 0a 0a 23 0a 23 20 4e 4f 54  #######..#.# NOT
13c0: 45 3a 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65  E: Configure the
13d0: 20 65 78 74 65 72 6e 61 6c 20 7a 69 70 70 69 6e   external zippin
13e0: 67 20 74 6f 6f 6c 2e 20 20 46 69 72 73 74 2c 20  g tool.  First, 
13f0: 73 65 65 20 69 66 20 69 74 20 68 61 73 20 61 6c  see if it has al
1400: 72 65 61 64 79 0a 23 20 20 20 20 20 20 20 62 65  ready.#       be
1410: 65 6e 20 70 72 65 2d 63 6f 6e 66 69 67 75 72 65  en pre-configure
1420: 64 2e 20 20 49 66 20 6e 6f 74 2c 20 74 72 79 20  d.  If not, try 
1430: 74 6f 20 71 75 65 72 79 20 69 74 20 66 72 6f 6d  to query it from
1440: 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74   the environment
1450: 2e 0a 23 20 20 20 20 20 20 20 46 69 6e 61 6c 6c  ..#       Finall
1460: 79 2c 20 66 61 6c 6c 62 61 63 6b 20 6f 6e 20 74  y, fallback on t
1470: 68 65 20 64 65 66 61 75 6c 74 20 6f 66 20 73 69  he default of si
1480: 6d 70 6c 79 20 22 7a 69 70 22 2c 20 77 68 69 63  mply "zip", whic
1490: 68 20 77 69 6c 6c 20 74 68 65 6e 0a 23 20 20 20  h will then.#   
14a0: 20 20 20 20 62 65 20 61 73 73 75 6d 65 64 20 74      be assumed t
14b0: 6f 20 65 78 69 73 74 20 73 6f 6d 65 77 68 65 72  o exist somewher
14c0: 65 20 61 6c 6f 6e 67 20 74 68 65 20 50 41 54 48  e along the PATH
14d0: 2e 0a 23 0a 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ..#.if {![info e
14e0: 78 69 73 74 73 20 7a 69 70 5d 7d 20 74 68 65 6e  xists zip]} then
14f0: 20 7b 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65   {.  if {[info e
1500: 78 69 73 74 73 20 65 6e 76 28 5a 69 70 54 6f 6f  xists env(ZipToo
1510: 6c 29 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 20 20  l)]} then {.    
1520: 73 65 74 20 7a 69 70 20 24 65 6e 76 28 5a 69 70  set zip $env(Zip
1530: 54 6f 6f 6c 29 0a 20 20 7d 0a 20 20 69 66 20 7b  Tool).  }.  if {
1540: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 7a 69  ![info exists zi
1550: 70 5d 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69  p] || ![file exi
1560: 73 74 73 20 24 7a 69 70 5d 7d 20 74 68 65 6e 20  sts $zip]} then 
1570: 7b 0a 20 20 20 20 73 65 74 20 7a 69 70 20 7a 69  {.    set zip zi
1580: 70 0a 20 20 7d 0a 7d 0a 0a 23 0a 23 20 4e 4f 54  p.  }.}..#.# NOT
1590: 45 3a 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65  E: Configure the
15a0: 20 65 78 74 65 72 6e 61 6c 20 75 6e 7a 69 70 70   external unzipp
15b0: 69 6e 67 20 74 6f 6f 6c 2e 20 20 46 69 72 73 74  ing tool.  First
15c0: 2c 20 73 65 65 20 69 66 20 69 74 20 68 61 73 20  , see if it has 
15d0: 61 6c 72 65 61 64 79 0a 23 20 20 20 20 20 20 20  already.#       
15e0: 62 65 65 6e 20 70 72 65 2d 63 6f 6e 66 69 67 75  been pre-configu
15f0: 72 65 64 2e 20 20 49 66 20 6e 6f 74 2c 20 74 72  red.  If not, tr
1600: 79 20 74 6f 20 71 75 65 72 79 20 69 74 20 66 72  y to query it fr
1610: 6f 6d 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65  om the environme
1620: 6e 74 2e 0a 23 20 20 20 20 20 20 20 46 69 6e 61  nt..#       Fina
1630: 6c 6c 79 2c 20 66 61 6c 6c 62 61 63 6b 20 6f 6e  lly, fallback on
1640: 20 74 68 65 20 64 65 66 61 75 6c 74 20 6f 66 20   the default of 
1650: 73 69 6d 70 6c 79 20 22 75 6e 7a 69 70 22 2c 20  simply "unzip", 
1660: 77 68 69 63 68 20 77 69 6c 6c 20 74 68 65 6e 0a  which will then.
1670: 23 20 20 20 20 20 20 20 62 65 20 61 73 73 75 6d  #       be assum
1680: 65 64 20 74 6f 20 65 78 69 73 74 20 73 6f 6d 65  ed to exist some
1690: 77 68 65 72 65 20 61 6c 6f 6e 67 20 74 68 65 20  where along the 
16a0: 50 41 54 48 2e 0a 23 0a 69 66 20 7b 21 5b 69 6e  PATH..#.if {![in
16b0: 66 6f 20 65 78 69 73 74 73 20 75 6e 7a 69 70 5d  fo exists unzip]
16c0: 7d 20 74 68 65 6e 20 7b 0a 20 20 69 66 20 7b 5b  } then {.  if {[
16d0: 69 6e 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28  info exists env(
16e0: 55 6e 5a 69 70 54 6f 6f 6c 29 5d 7d 20 74 68 65  UnZipTool)]} the
16f0: 6e 20 7b 0a 20 20 20 20 73 65 74 20 75 6e 7a 69  n {.    set unzi
1700: 70 20 24 65 6e 76 28 55 6e 5a 69 70 54 6f 6f 6c  p $env(UnZipTool
1710: 29 0a 20 20 7d 0a 20 20 69 66 20 7b 21 5b 69 6e  ).  }.  if {![in
1720: 66 6f 20 65 78 69 73 74 73 20 75 6e 7a 69 70 5d  fo exists unzip]
1730: 20 7c 7c 20 21 5b 66 69 6c 65 20 65 78 69 73 74   || ![file exist
1740: 73 20 24 75 6e 7a 69 70 5d 7d 20 74 68 65 6e 20  s $unzip]} then 
1750: 7b 0a 20 20 20 20 73 65 74 20 75 6e 7a 69 70 20  {.    set unzip 
1760: 75 6e 7a 69 70 0a 20 20 7d 0a 7d 0a 0a 23 23 23  unzip.  }.}..###
1770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
17a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
17b0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 23 0a  ############..#.
17c0: 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20  # NOTE: Attempt 
17d0: 74 6f 20 65 78 74 72 61 63 74 20 74 68 65 20 53  to extract the S
17e0: 51 4c 69 74 65 20 76 65 72 73 69 6f 6e 20 66 72  QLite version fr
17f0: 6f 6d 20 74 68 65 20 22 73 71 6c 69 74 65 33 2e  om the "sqlite3.
1800: 68 22 20 68 65 61 64 65 72 20 66 69 6c 65 0a 23  h" header file.#
1810: 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 73 6f         in the so
1820: 75 72 63 65 20 64 69 72 65 63 74 6f 72 79 2e 20  urce directory. 
1830: 20 54 68 69 73 20 73 63 72 69 70 74 20 61 73 73   This script ass
1840: 75 6d 65 73 20 74 68 61 74 20 74 68 65 20 68 65  umes that the he
1850: 61 64 65 72 20 66 69 6c 65 20 68 61 73 0a 23 20  ader file has.# 
1860: 20 20 20 20 20 20 61 6c 72 65 61 64 79 20 62 65        already be
1870: 65 6e 20 67 65 6e 65 72 61 74 65 64 20 62 79 20  en generated by 
1880: 74 68 65 20 62 75 69 6c 64 20 70 72 6f 63 65 73  the build proces
1890: 73 2e 0a 23 0a 73 65 74 20 70 61 74 74 65 72 6e  s..#.set pattern
18a0: 20 7b 5e 23 64 65 66 69 6e 65 5c 73 2b 3f 53 51   {^#define\s+?SQ
18b0: 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5c 73 2b 3f  LITE_VERSION\s+?
18c0: 22 28 2e 2a 3f 29 22 24 7d 0a 73 65 74 20 64 61  "(.*?)"$}.set da
18d0: 74 61 20 5b 72 65 61 64 46 69 6c 65 20 5b 66 69  ta [readFile [fi
18e0: 6c 65 20 6a 6f 69 6e 20 24 73 6f 75 72 63 65 44  le join $sourceD
18f0: 69 72 65 63 74 6f 72 79 20 73 71 6c 69 74 65 33  irectory sqlite3
1900: 2e 68 5d 5d 0a 0a 69 66 20 7b 21 5b 72 65 67 65  .h]]..if {![rege
1910: 78 70 20 2d 6c 69 6e 65 20 2d 2d 20 24 70 61 74  xp -line -- $pat
1920: 74 65 72 6e 20 24 64 61 74 61 20 64 75 6d 6d 79  tern $data dummy
1930: 20 76 65 72 73 69 6f 6e 5d 7d 20 74 68 65 6e 20   version]} then 
1940: 7b 0a 20 20 66 61 69 6c 20 5b 61 70 70 65 6e 64  {.  fail [append
1950: 41 72 67 73 20 22 63 61 6e 6e 6f 74 20 6c 6f 63  Args "cannot loc
1960: 61 74 65 20 53 51 4c 49 54 45 5f 56 45 52 53 49  ate SQLITE_VERSI
1970: 4f 4e 20 76 61 6c 75 65 20 69 6e 20 5c 22 22 20  ON value in \"" 
1980: 5c 0a 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f  \.      [file jo
1990: 69 6e 20 24 73 6f 75 72 63 65 44 69 72 65 63 74  in $sourceDirect
19a0: 6f 72 79 20 73 71 6c 69 74 65 33 2e 68 5d 20 5c  ory sqlite3.h] \
19b0: 22 5d 0a 7d 0a 0a 23 23 23 23 23 23 23 23 23 23  "].}..##########
19c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
19d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
19e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
19f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a00: 23 23 23 23 23 0a 0a 23 0a 23 20 4e 4f 54 45 3a  #####..#.# NOTE:
1a10: 20 53 65 74 75 70 20 74 68 65 20 6d 61 73 74 65   Setup the maste
1a20: 72 20 66 69 6c 65 20 6c 69 73 74 20 64 61 74 61  r file list data
1a30: 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20  , including the 
1a40: 6e 65 63 65 73 73 61 72 79 20 66 6c 61 67 73 2e  necessary flags.
1a50: 0a 23 0a 73 65 74 20 66 69 6c 65 4e 61 6d 65 73  .#.set fileNames
1a60: 28 73 6f 75 72 63 65 29 20 5b 6c 69 73 74 20 22  (source) [list "
1a70: 22 20 22 22 20 22 22 20 5c 0a 20 20 20 20 5b 66  " "" "" \.    [f
1a80: 69 6c 65 20 6a 6f 69 6e 20 24 73 6f 75 72 63 65  ile join $source
1a90: 44 69 72 65 63 74 6f 72 79 20 73 71 6c 69 74 65  Directory sqlite
1aa0: 33 2e 68 5d 20 5c 0a 20 20 20 20 5b 66 69 6c 65  3.h] \.    [file
1ab0: 20 6a 6f 69 6e 20 24 62 69 6e 61 72 79 44 69 72   join $binaryDir
1ac0: 65 63 74 6f 72 79 20 3c 70 6c 61 74 66 6f 72 6d  ectory <platform
1ad0: 3e 20 73 71 6c 69 74 65 33 2e 6c 69 62 5d 20 5c  > sqlite3.lib] \
1ae0: 0a 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  .    [file join 
1af0: 24 62 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79  $binaryDirectory
1b00: 20 3c 70 6c 61 74 66 6f 72 6d 3e 20 73 71 6c 69   <platform> sqli
1b10: 74 65 33 2e 64 6c 6c 5d 5d 0a 0a 73 65 74 20 66  te3.dll]]..set f
1b20: 69 6c 65 4e 61 6d 65 73 28 64 65 73 74 69 6e 61  ileNames(destina
1b30: 74 69 6f 6e 29 20 5b 6c 69 73 74 20 5c 0a 20 20  tion) [list \.  
1b40: 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 73 74    [file join $st
1b50: 61 67 69 6e 67 44 69 72 65 63 74 6f 72 79 20 65  agingDirectory e
1b60: 78 74 65 6e 73 69 6f 6e 2e 76 73 69 78 6d 61 6e  xtension.vsixman
1b70: 69 66 65 73 74 5d 20 5c 0a 20 20 20 20 5b 66 69  ifest] \.    [fi
1b80: 6c 65 20 6a 6f 69 6e 20 24 73 74 61 67 69 6e 67  le join $staging
1b90: 44 69 72 65 63 74 6f 72 79 20 53 44 4b 4d 61 6e  Directory SDKMan
1ba0: 69 66 65 73 74 2e 78 6d 6c 5d 20 5c 0a 20 20 20  ifest.xml] \.   
1bb0: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 73 74 61   [file join $sta
1bc0: 67 69 6e 67 44 69 72 65 63 74 6f 72 79 20 44 65  gingDirectory De
1bd0: 73 69 67 6e 54 69 6d 65 20 43 6f 6d 6d 6f 6e 43  signTime CommonC
1be0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 5c 0a 20  onfiguration \. 
1bf0: 20 20 20 20 20 20 20 3c 70 6c 61 74 66 6f 72 6d         <platform
1c00: 3e 20 53 51 4c 69 74 65 2e 57 69 6e 52 54 2e 70  > SQLite.WinRT.p
1c10: 72 6f 70 73 5d 20 5c 0a 20 20 20 20 5b 66 69 6c  rops] \.    [fil
1c20: 65 20 6a 6f 69 6e 20 24 73 74 61 67 69 6e 67 44  e join $stagingD
1c30: 69 72 65 63 74 6f 72 79 20 44 65 73 69 67 6e 54  irectory DesignT
1c40: 69 6d 65 20 43 6f 6d 6d 6f 6e 43 6f 6e 66 69 67  ime CommonConfig
1c50: 75 72 61 74 69 6f 6e 20 5c 0a 20 20 20 20 20 20  uration \.      
1c60: 20 20 3c 70 6c 61 74 66 6f 72 6d 3e 20 73 71 6c    <platform> sql
1c70: 69 74 65 33 2e 68 5d 20 5c 0a 20 20 20 20 5b 66  ite3.h] \.    [f
1c80: 69 6c 65 20 6a 6f 69 6e 20 24 73 74 61 67 69 6e  ile join $stagin
1c90: 67 44 69 72 65 63 74 6f 72 79 20 44 65 73 69 67  gDirectory Desig
1ca0: 6e 54 69 6d 65 20 43 6f 6d 6d 6f 6e 43 6f 6e 66  nTime CommonConf
1cb0: 69 67 75 72 61 74 69 6f 6e 20 5c 0a 20 20 20 20  iguration \.    
1cc0: 20 20 20 20 3c 70 6c 61 74 66 6f 72 6d 3e 20 73      <platform> s
1cd0: 71 6c 69 74 65 33 2e 6c 69 62 5d 20 5c 0a 20 20  qlite3.lib] \.  
1ce0: 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 73 74    [file join $st
1cf0: 61 67 69 6e 67 44 69 72 65 63 74 6f 72 79 20 52  agingDirectory R
1d00: 65 64 69 73 74 20 43 6f 6d 6d 6f 6e 43 6f 6e 66  edist CommonConf
1d10: 69 67 75 72 61 74 69 6f 6e 20 5c 0a 20 20 20 20  iguration \.    
1d20: 20 20 20 20 3c 70 6c 61 74 66 6f 72 6d 3e 20 73      <platform> s
1d30: 71 6c 69 74 65 33 2e 64 6c 6c 5d 5d 0a 0a 73 65  qlite3.dll]]..se
1d40: 74 20 66 69 6c 65 4e 61 6d 65 73 28 6e 65 75 74  t fileNames(neut
1d50: 72 61 6c 29 20 5b 6c 69 73 74 20 31 20 31 20 31  ral) [list 1 1 1
1d60: 20 31 20 30 20 30 5d 0a 73 65 74 20 66 69 6c 65   1 0 0].set file
1d70: 4e 61 6d 65 73 28 73 75 62 73 74 29 20 5b 6c 69  Names(subst) [li
1d80: 73 74 20 31 20 31 20 31 20 30 20 30 20 30 5d 0a  st 1 1 1 0 0 0].
1d90: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
1da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1dc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1dd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1de0: 0a 0a 23 0a 23 20 4e 4f 54 45 3a 20 53 65 74 75  ..#.# NOTE: Setu
1df0: 70 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 6c  p the list of pl
1e00: 61 74 66 6f 72 6d 73 20 73 75 70 70 6f 72 74 65  atforms supporte
1e10: 64 20 62 79 20 74 68 69 73 20 73 63 72 69 70 74  d by this script
1e20: 2e 0a 23 0a 73 65 74 20 70 6c 61 74 66 6f 72 6d  ..#.set platform
1e30: 4e 61 6d 65 73 20 5b 6c 69 73 74 20 41 52 4d 20  Names [list ARM 
1e40: 78 36 34 20 78 38 36 5d 0a 0a 23 23 23 23 23 23  x64 x86]..######
1e50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e90: 23 23 23 23 23 23 23 23 23 0a 0a 23 0a 23 20 4e  #########..#.# N
1ea0: 4f 54 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 74  OTE: Make sure t
1eb0: 68 65 20 73 74 61 67 69 6e 67 20 64 69 72 65 63  he staging direc
1ec0: 74 6f 72 79 20 65 78 69 73 74 73 2c 20 63 72 65  tory exists, cre
1ed0: 61 74 69 6e 67 20 69 74 20 69 66 20 6e 65 63 65  ating it if nece
1ee0: 73 73 61 72 79 2e 0a 23 0a 66 69 6c 65 20 6d 6b  ssary..#.file mk
1ef0: 64 69 72 20 24 73 74 61 67 69 6e 67 44 69 72 65  dir $stagingDire
1f00: 63 74 6f 72 79 0a 0a 23 0a 23 20 4e 4f 54 45 3a  ctory..#.# NOTE:
1f10: 20 42 75 69 6c 64 20 74 68 65 20 54 63 6c 20 63   Build the Tcl c
1f20: 6f 6d 6d 61 6e 64 20 75 73 65 64 20 74 6f 20 65  ommand used to e
1f30: 78 74 72 61 63 74 20 74 68 65 20 74 65 6d 70 6c  xtract the templ
1f40: 61 74 65 20 70 61 63 6b 61 67 65 20 74 6f 20 74  ate package to t
1f50: 68 65 0a 23 20 20 20 20 20 20 20 73 74 61 67 69  he.#       stagi
1f60: 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 23 0a  ng directory..#.
1f70: 73 65 74 20 65 78 74 72 61 63 74 43 6f 6d 6d 61  set extractComma
1f80: 6e 64 20 5b 6c 69 73 74 20 65 78 65 63 20 2d 2d  nd [list exec --
1f90: 20 24 75 6e 7a 69 70 20 24 74 65 6d 70 6c 61 74   $unzip $templat
1fa0: 65 46 69 6c 65 20 2d 64 20 24 73 74 61 67 69 6e  eFile -d $stagin
1fb0: 67 44 69 72 65 63 74 6f 72 79 5d 0a 0a 23 0a 23  gDirectory]..#.#
1fc0: 20 4e 4f 54 45 3a 20 45 78 74 72 61 63 74 20 74   NOTE: Extract t
1fd0: 68 65 20 74 65 6d 70 6c 61 74 65 20 70 61 63 6b  he template pack
1fe0: 61 67 65 20 74 6f 20 74 68 65 20 73 74 61 67 69  age to the stagi
1ff0: 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 23 0a  ng directory..#.
2000: 65 76 61 6c 20 24 65 78 74 72 61 63 74 43 6f 6d  eval $extractCom
2010: 6d 61 6e 64 0a 0a 23 23 23 23 23 23 23 23 23 23  mand..##########
2020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2060: 23 23 23 23 23 0a 0a 23 0a 23 20 4e 4f 54 45 3a  #####..#.# NOTE:
2070: 20 50 72 6f 63 65 73 73 20 65 61 63 68 20 66 69   Process each fi
2080: 6c 65 20 69 6e 20 74 68 65 20 6d 61 73 74 65 72  le in the master
2090: 20 66 69 6c 65 20 6c 69 73 74 2e 20 20 54 68 65   file list.  The
20a0: 72 65 20 61 72 65 20 61 63 74 75 61 6c 6c 79 20  re are actually 
20b0: 66 6f 75 72 0a 23 20 20 20 20 20 20 20 70 61 72  four.#       par
20c0: 61 6c 6c 65 6c 20 6c 69 73 74 73 20 74 68 61 74  allel lists that
20d0: 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 73 6f 75   contain the sou
20e0: 72 63 65 20 66 69 6c 65 20 6e 61 6d 65 73 2c 20  rce file names, 
20f0: 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 69 6c 65  destination file
2100: 0a 23 20 20 20 20 20 20 20 6e 61 6d 65 73 2c 20  .#       names, 
2110: 74 68 65 20 70 6c 61 74 66 6f 72 6d 2d 6e 65 75  the platform-neu
2120: 74 72 61 6c 20 66 6c 61 67 73 2c 20 61 6e 64 20  tral flags, and 
2130: 74 68 65 20 75 73 65 2d 73 75 62 73 74 20 66 6c  the use-subst fl
2140: 61 67 73 2e 20 20 57 68 65 6e 20 74 68 65 0a 23  ags.  When the.#
2150: 20 20 20 20 20 20 20 70 6c 61 74 66 6f 72 6d 2d         platform-
2160: 6e 65 75 74 72 61 6c 20 66 6c 61 67 20 69 73 20  neutral flag is 
2170: 6e 6f 6e 2d 7a 65 72 6f 2c 20 74 68 65 20 66 69  non-zero, the fi
2180: 6c 65 20 69 73 20 6e 6f 74 20 70 6c 61 74 66 6f  le is not platfo
2190: 72 6d 2d 73 70 65 63 69 66 69 63 2e 0a 23 20 20  rm-specific..#  
21a0: 20 20 20 20 20 57 68 65 6e 20 74 68 65 20 75 73       When the us
21b0: 65 2d 73 75 62 73 74 20 66 6c 61 67 20 69 73 20  e-subst flag is 
21c0: 6e 6f 6e 2d 7a 65 72 6f 2c 20 74 68 65 20 66 69  non-zero, the fi
21d0: 6c 65 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64  le is considered
21e0: 20 74 6f 20 62 65 20 61 0a 23 20 20 20 20 20 20   to be a.#      
21f0: 20 74 65 78 74 20 66 69 6c 65 20 74 68 61 74 20   text file that 
2200: 6d 61 79 20 63 6f 6e 74 61 69 6e 20 54 63 6c 20  may contain Tcl 
2210: 76 61 72 69 61 62 6c 65 20 61 6e 64 2f 6f 72 20  variable and/or 
2220: 63 6f 6d 6d 61 6e 64 20 72 65 70 6c 61 63 65 6d  command replacem
2230: 65 6e 74 73 2c 0a 23 20 20 20 20 20 20 20 74 6f  ents,.#       to
2240: 20 62 65 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20   be dynamically 
2250: 72 65 70 6c 61 63 65 64 20 64 75 72 69 6e 67 20  replaced during 
2260: 70 72 6f 63 65 73 73 69 6e 67 2e 20 20 49 66 20  processing.  If 
2270: 74 68 65 20 73 6f 75 72 63 65 20 66 69 6c 65 20  the source file 
2280: 6e 61 6d 65 0a 23 20 20 20 20 20 20 20 69 73 20  name.#       is 
2290: 61 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2c  an empty string,
22a0: 20 74 68 65 6e 20 74 68 65 20 64 65 73 74 69 6e   then the destin
22b0: 61 74 69 6f 6e 20 66 69 6c 65 20 6e 61 6d 65 20  ation file name 
22c0: 77 69 6c 6c 20 62 65 20 61 73 73 75 6d 65 64 20  will be assumed 
22d0: 74 6f 0a 23 20 20 20 20 20 20 20 61 6c 72 65 61  to.#       alrea
22e0: 64 79 20 65 78 69 73 74 20 69 6e 20 74 68 65 20  dy exist in the 
22f0: 73 74 61 67 69 6e 67 20 64 69 72 65 63 74 6f 72  staging director
2300: 79 20 61 6e 64 20 77 69 6c 6c 20 6e 6f 74 20 62  y and will not b
2310: 65 20 63 6f 70 69 65 64 3b 20 68 6f 77 65 76 65  e copied; howeve
2320: 72 2c 0a 23 20 20 20 20 20 20 20 64 79 6e 61 6d  r,.#       dynam
2330: 69 63 20 72 65 70 6c 61 63 65 6d 65 6e 74 73 20  ic replacements 
2340: 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 70 65 72  may still be per
2350: 66 6f 72 6d 65 64 20 6f 6e 20 74 68 65 20 64 65  formed on the de
2360: 73 74 69 6e 61 74 69 6f 6e 20 66 69 6c 65 0a 23  stination file.#
2370: 20 20 20 20 20 20 20 70 72 69 6f 72 20 74 6f 20         prior to 
2380: 74 68 65 20 70 61 63 6b 61 67 65 20 62 65 69 6e  the package bein
2390: 67 20 72 65 2d 7a 69 70 70 65 64 2e 0a 23 0a 66  g re-zipped..#.f
23a0: 6f 72 65 61 63 68 20 73 6f 75 72 63 65 46 69 6c  oreach sourceFil
23b0: 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 73  eName $fileNames
23c0: 28 73 6f 75 72 63 65 29 20 5c 0a 20 20 20 20 64  (source) \.    d
23d0: 65 73 74 69 6e 61 74 69 6f 6e 46 69 6c 65 4e 61  estinationFileNa
23e0: 6d 65 20 24 66 69 6c 65 4e 61 6d 65 73 28 64 65  me $fileNames(de
23f0: 73 74 69 6e 61 74 69 6f 6e 29 20 5c 0a 20 20 20  stination) \.   
2400: 20 69 73 4e 65 75 74 72 61 6c 20 24 66 69 6c 65   isNeutral $file
2410: 4e 61 6d 65 73 28 6e 65 75 74 72 61 6c 29 20 75  Names(neutral) u
2420: 73 65 53 75 62 73 74 20 24 66 69 6c 65 4e 61 6d  seSubst $fileNam
2430: 65 73 28 73 75 62 73 74 29 20 7b 0a 20 20 23 0a  es(subst) {.  #.
2440: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65    # NOTE: If the
2450: 20 63 75 72 72 65 6e 74 20 66 69 6c 65 20 69 73   current file is
2460: 20 70 6c 61 74 66 6f 72 6d 2d 6e 65 75 74 72 61   platform-neutra
2470: 6c 2c 20 74 68 65 6e 20 6f 6e 6c 79 20 6f 6e 65  l, then only one
2480: 20 70 6c 61 74 66 6f 72 6d 20 77 69 6c 6c 0a 20   platform will. 
2490: 20 23 20 20 20 20 20 20 20 62 65 20 70 72 6f 63   #       be proc
24a0: 65 73 73 65 64 20 66 6f 72 20 69 74 2c 20 6e 61  essed for it, na
24b0: 6d 65 6c 79 20 22 6e 65 75 74 72 61 6c 22 3b 20  mely "neutral"; 
24c0: 6f 74 68 65 72 77 69 73 65 2c 20 65 61 63 68 20  otherwise, each 
24d0: 73 75 70 70 6f 72 74 65 64 0a 20 20 23 20 20 20  supported.  #   
24e0: 20 20 20 20 70 6c 61 74 66 6f 72 6d 20 77 69 6c      platform wil
24f0: 6c 20 62 65 20 70 72 6f 63 65 73 73 65 64 20 66  l be processed f
2500: 6f 72 20 69 74 20 69 6e 64 69 76 69 64 75 61 6c  or it individual
2510: 6c 79 2e 0a 20 20 23 0a 20 20 66 6f 72 65 61 63  ly..  #.  foreac
2520: 68 20 70 6c 61 74 66 6f 72 6d 4e 61 6d 65 20 5b  h platformName [
2530: 65 78 70 72 20 7b 24 69 73 4e 65 75 74 72 61 6c  expr {$isNeutral
2540: 20 3f 20 5b 6c 69 73 74 20 6e 65 75 74 72 61 6c   ? [list neutral
2550: 5d 20 3a 20 24 70 6c 61 74 66 6f 72 6d 4e 61 6d  ] : $platformNam
2560: 65 73 7d 5d 20 7b 0a 20 20 20 20 23 0a 20 20 20  es}] {.    #.   
2570: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 68   # NOTE: Does th
2580: 65 20 73 6f 75 72 63 65 20 66 69 6c 65 20 6e 65  e source file ne
2590: 65 64 20 74 6f 20 62 65 20 63 6f 70 69 65 64 20  ed to be copied 
25a0: 74 6f 20 74 68 65 20 64 65 73 74 69 6e 61 74 69  to the destinati
25b0: 6f 6e 20 66 69 6c 65 3f 0a 20 20 20 20 23 0a 20  on file?.    #. 
25c0: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c     if {[string l
25d0: 65 6e 67 74 68 20 24 73 6f 75 72 63 65 46 69 6c  ength $sourceFil
25e0: 65 4e 61 6d 65 5d 20 3e 20 30 7d 20 74 68 65 6e  eName] > 0} then
25f0: 20 7b 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20   {.      #.     
2600: 20 23 20 4e 4f 54 45 3a 20 43 6f 70 79 20 74 68   # NOTE: Copy th
2610: 65 20 73 6f 75 72 63 65 20 66 69 6c 65 20 74 6f  e source file to
2620: 20 74 68 65 20 64 65 73 74 69 6e 61 74 69 6f 6e   the destination
2630: 20 66 69 6c 65 20 76 65 72 62 61 74 69 6d 2e 0a   file verbatim..
2640: 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 66 69        #.      fi
2650: 6c 65 20 63 6f 70 79 20 5b 72 65 70 6c 61 63 65  le copy [replace
2660: 50 6c 61 74 66 6f 72 6d 20 24 73 6f 75 72 63 65  Platform $source
2670: 46 69 6c 65 4e 61 6d 65 20 24 70 6c 61 74 66 6f  FileName $platfo
2680: 72 6d 4e 61 6d 65 5d 20 5c 0a 20 20 20 20 20 20  rmName] \.      
2690: 20 20 20 20 5b 72 65 70 6c 61 63 65 50 6c 61 74      [replacePlat
26a0: 66 6f 72 6d 20 24 64 65 73 74 69 6e 61 74 69 6f  form $destinatio
26b0: 6e 46 69 6c 65 4e 61 6d 65 20 24 70 6c 61 74 66  nFileName $platf
26c0: 6f 72 6d 4e 61 6d 65 5d 0a 20 20 20 20 7d 0a 0a  ormName].    }..
26d0: 20 20 20 20 23 0a 20 20 20 20 23 20 4e 4f 54 45      #.    # NOTE
26e0: 3a 20 44 6f 65 73 20 74 68 65 20 64 65 73 74 69  : Does the desti
26f0: 6e 61 74 69 6f 6e 20 66 69 6c 65 20 63 6f 6e 74  nation file cont
2700: 61 69 6e 20 64 79 6e 61 6d 69 63 20 72 65 70 6c  ain dynamic repl
2710: 61 63 65 6d 65 6e 74 73 20 74 68 61 74 20 6d 75  acements that mu
2720: 73 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 62  st.    #       b
2730: 65 20 70 72 6f 63 65 73 73 65 64 20 6e 6f 77 3f  e processed now?
2740: 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20 7b 24  .    #.    if {$
2750: 75 73 65 53 75 62 73 74 7d 20 74 68 65 6e 20 7b  useSubst} then {
2760: 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 23  .      #.      #
2770: 20 4e 4f 54 45 3a 20 50 65 72 66 6f 72 6d 20 61   NOTE: Perform a
2780: 6e 79 20 64 79 6e 61 6d 69 63 20 72 65 70 6c 61  ny dynamic repla
2790: 63 65 6d 65 6e 74 73 20 63 6f 6e 74 61 69 6e 65  cements containe
27a0: 64 20 69 6e 20 74 68 65 20 64 65 73 74 69 6e 61  d in the destina
27b0: 74 69 6f 6e 0a 20 20 20 20 20 20 23 20 20 20 20  tion.      #    
27c0: 20 20 20 66 69 6c 65 20 61 6e 64 20 74 68 65 6e     file and then
27d0: 20 72 65 2d 77 72 69 74 65 20 69 74 20 69 6e 2d   re-write it in-
27e0: 70 6c 61 63 65 2e 0a 20 20 20 20 20 20 23 0a 20  place..      #. 
27f0: 20 20 20 20 20 73 75 62 73 74 46 69 6c 65 20 5b       substFile [
2800: 72 65 70 6c 61 63 65 50 6c 61 74 66 6f 72 6d 20  replacePlatform 
2810: 24 64 65 73 74 69 6e 61 74 69 6f 6e 46 69 6c 65  $destinationFile
2820: 4e 61 6d 65 20 24 70 6c 61 74 66 6f 72 6d 4e 61  Name $platformNa
2830: 6d 65 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  me].    }.  }.}.
2840: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
2850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2860: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2870: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2890: 0a 0a 23 0a 23 20 4e 4f 54 45 3a 20 43 68 61 6e  ..#.# NOTE: Chan
28a0: 67 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 64  ge the current d
28b0: 69 72 65 63 74 6f 72 79 20 74 6f 20 74 68 65 20  irectory to the 
28c0: 73 74 61 67 69 6e 67 20 64 69 72 65 63 74 6f 72  staging director
28d0: 79 20 73 6f 20 74 68 61 74 20 74 68 65 0a 23 20  y so that the.# 
28e0: 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 20 61        external a
28f0: 72 63 68 69 76 65 20 62 75 69 6c 64 69 6e 67 20  rchive building 
2900: 74 6f 6f 6c 20 63 61 6e 20 70 69 63 6b 75 70 20  tool can pickup 
2910: 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 66 69  the necessary fi
2920: 6c 65 73 20 75 73 69 6e 67 0a 23 20 20 20 20 20  les using.#     
2930: 20 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 73    relative paths
2940: 2e 0a 23 0a 63 64 20 24 73 74 61 67 69 6e 67 44  ..#.cd $stagingD
2950: 69 72 65 63 74 6f 72 79 0a 0a 23 0a 23 20 4e 4f  irectory..#.# NO
2960: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 54 63  TE: Build the Tc
2970: 6c 20 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 74  l command used t
2980: 6f 20 61 72 63 68 69 76 65 20 74 68 65 20 66 69  o archive the fi
2990: 6e 61 6c 20 70 61 63 6b 61 67 65 20 69 6e 20 74  nal package in t
29a0: 68 65 0a 23 20 20 20 20 20 20 20 6f 75 74 70 75  he.#       outpu
29b0: 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 23 0a 73  t directory..#.s
29c0: 65 74 20 61 72 63 68 69 76 65 43 6f 6d 6d 61 6e  et archiveComman
29d0: 64 20 5b 6c 69 73 74 20 65 78 65 63 20 2d 2d 20  d [list exec -- 
29e0: 24 7a 69 70 20 2d 72 20 24 6f 75 74 70 75 74 46  $zip -r $outputF
29f0: 69 6c 65 20 2a 5d 0a 0a 23 0a 23 20 4e 4f 54 45  ile *]..#.# NOTE
2a00: 3a 20 42 75 69 6c 64 20 74 68 65 20 66 69 6e 61  : Build the fina
2a10: 6c 20 70 61 63 6b 61 67 65 20 61 72 63 68 69 76  l package archiv
2a20: 65 20 69 6e 20 74 68 65 20 6f 75 74 70 75 74 20  e in the output 
2a30: 64 69 72 65 63 74 6f 72 79 2e 0a 23 0a 65 76 61  directory..#.eva
2a40: 6c 20 24 61 72 63 68 69 76 65 43 6f 6d 6d 61 6e  l $archiveComman
2a50: 64 0a 0a 23 0a 23 20 4e 4f 54 45 3a 20 43 68 61  d..#.# NOTE: Cha
2a60: 6e 67 65 20 62 61 63 6b 20 74 6f 20 74 68 65 20  nge back to the 
2a70: 70 72 65 76 69 6f 75 73 6c 79 20 73 61 76 65 64  previously saved
2a80: 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f   current directo
2a90: 72 79 2e 0a 23 0a 63 64 20 24 63 75 72 72 65 6e  ry..#.cd $curren
2aa0: 74 44 69 72 65 63 74 6f 72 79 0a 0a 23 0a 23 20  tDirectory..#.# 
2ab0: 4e 4f 54 45 3a 20 43 6c 65 61 6e 75 70 20 74 68  NOTE: Cleanup th
2ac0: 65 20 74 65 6d 70 6f 72 61 72 79 20 73 74 61 67  e temporary stag
2ad0: 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 23  ing directory..#
2ae0: 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  .file delete -fo
2af0: 72 63 65 20 24 73 74 61 67 69 6e 67 44 69 72 65  rce $stagingDire
2b00: 63 74 6f 72 79 0a 0a 23 23 23 23 23 23 23 23 23  ctory..#########
2b10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2b20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2b50: 23 23 23 23 23 23 0a 0a 23 0a 23 20 4e 4f 54 45  ######..#.# NOTE
2b60: 3a 20 53 75 63 63 65 73 73 2c 20 65 6d 69 74 20  : Success, emit 
2b70: 74 68 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66  the fully qualif
2b80: 69 65 64 20 70 61 74 68 20 6f 66 20 74 68 65 20  ied path of the 
2b90: 67 65 6e 65 72 61 74 65 64 20 56 53 49 58 20 66  generated VSIX f
2ba0: 69 6c 65 2e 0a 23 0a 70 75 74 73 20 73 74 64 6f  ile..#.puts stdo
2bb0: 75 74 20 24 6f 75 74 70 75 74 46 69 6c 65 0a     ut $outputFile.