/ Hex Artifact Content
Login

Artifact 6a9a6ab600c25a91a7acc6293828957a386a8a93:


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 71 75 69 63   is used to quic
0030: 6b 6c 79 20 74 65 73 74 20 61 20 56 53 49 58 20  kly test a VSIX 
0040: 28 56 69 73 75 61 6c 20 53 74 75 64 69 6f 20 45  (Visual Studio E
0050: 78 74 65 6e 73 69 6f 6e 29 20 66 69 6c 65 0a 23  xtension) file.#
0060: 20 77 69 74 68 20 56 69 73 75 61 6c 20 53 74 75   with Visual Stu
0070: 64 69 6f 20 32 30 31 35 20 6f 6e 20 57 69 6e 64  dio 2015 on Wind
0080: 6f 77 73 2e 0a 23 0a 23 20 50 52 45 52 45 51 55  ows..#.# PREREQU
0090: 49 53 49 54 45 53 0a 23 0a 23 20 31 2e 20 54 68  ISITES.#.# 1. Th
00a0: 69 73 20 74 6f 6f 6c 20 69 73 20 57 69 6e 64 6f  is tool is Windo
00b0: 77 73 20 6f 6e 6c 79 2e 0a 23 0a 23 20 32 2e 20  ws only..#.# 2. 
00c0: 54 68 69 73 20 74 6f 6f 6c 20 6d 75 73 74 20 62  This tool must b
00d0: 65 20 65 78 65 63 75 74 65 64 20 77 69 74 68 20  e executed with 
00e0: 22 65 6c 65 76 61 74 65 64 20 61 64 6d 69 6e 69  "elevated admini
00f0: 73 74 72 61 74 6f 72 22 20 70 72 69 76 69 6c 65  strator" privile
0100: 67 65 73 2e 0a 23 0a 23 20 33 2e 20 54 63 6c 20  ges..#.# 3. Tcl 
0110: 38 2e 34 20 61 6e 64 20 6c 61 74 65 72 20 61 72  8.4 and later ar
0120: 65 20 73 75 70 70 6f 72 74 65 64 2c 20 65 61 72  e supported, ear
0130: 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 68 61  lier versions ha
0140: 76 65 20 6e 6f 74 20 62 65 65 6e 20 74 65 73 74  ve not been test
0150: 65 64 2e 0a 23 0a 23 20 34 2e 20 54 68 65 20 22  ed..#.# 4. The "
0160: 73 71 6c 69 74 65 2d 55 57 50 2d 6f 75 74 70 75  sqlite-UWP-outpu
0170: 74 2e 76 73 69 78 22 20 66 69 6c 65 20 69 73 20  t.vsix" file is 
0180: 61 73 73 75 6d 65 64 20 74 6f 20 65 78 69 73 74  assumed to exist
0190: 20 69 6e 20 74 68 65 20 70 61 72 65 6e 74 0a 23   in the parent.#
01a0: 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 6f 66      directory of
01b0: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63   the directory c
01c0: 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 20 73  ontaining this s
01d0: 63 72 69 70 74 2e 20 20 54 68 65 20 5b 6f 70 74  cript.  The [opt
01e0: 69 6f 6e 61 6c 5d 20 66 69 72 73 74 0a 23 20 20  ional] first.#  
01f0: 20 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 61    command line a
0200: 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 69 73 20  rgument to this 
0210: 73 63 72 69 70 74 20 6d 61 79 20 62 65 20 75 73  script may be us
0220: 65 64 20 74 6f 20 73 70 65 63 69 66 79 20 61 6e  ed to specify an
0230: 20 61 6c 74 65 72 6e 61 74 65 0a 23 20 20 20 20   alternate.#    
0240: 66 69 6c 65 2e 20 20 48 6f 77 65 76 65 72 2c 20  file.  However, 
0250: 63 75 72 72 65 6e 74 6c 79 2c 20 74 68 65 20 66  currently, the f
0260: 69 6c 65 20 6d 75 73 74 20 62 65 20 63 6f 6d 70  ile must be comp
0270: 61 74 69 62 6c 65 20 77 69 74 68 20 62 6f 74 68  atible with both
0280: 20 56 69 73 75 61 6c 0a 23 20 20 20 20 53 74 75   Visual.#    Stu
0290: 64 69 6f 20 32 30 31 35 20 61 6e 64 20 74 68 65  dio 2015 and the
02a0: 20 55 6e 69 76 65 72 73 61 6c 20 57 69 6e 64 6f   Universal Windo
02b0: 77 73 20 50 6c 61 74 66 6f 72 6d 2e 0a 23 0a 23  ws Platform..#.#
02c0: 20 35 2e 20 54 68 65 20 22 56 45 52 53 49 4f 4e   5. The "VERSION
02d0: 22 20 66 69 6c 65 20 69 73 20 61 73 73 75 6d 65  " file is assume
02e0: 64 20 74 6f 20 65 78 69 73 74 20 69 6e 20 74 68  d to exist in th
02f0: 65 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f  e parent directo
0300: 72 79 20 6f 66 20 74 68 65 0a 23 20 20 20 20 64  ry of the.#    d
0310: 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e  irectory contain
0320: 69 6e 67 20 74 68 69 73 20 73 63 72 69 70 74 2e  ing this script.
0330: 20 20 49 74 20 6d 75 73 74 20 63 6f 6e 74 61 69    It must contai
0340: 6e 20 61 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62  n a version numb
0350: 65 72 20 74 68 61 74 0a 23 20 20 20 20 6d 61 74  er that.#    mat
0360: 63 68 65 73 20 74 68 65 20 56 53 49 58 20 66 69  ches the VSIX fi
0370: 6c 65 20 62 65 69 6e 67 20 74 65 73 74 65 64 2e  le being tested.
0380: 0a 23 0a 23 20 36 2e 20 54 68 65 20 74 65 6d 70  .#.# 6. The temp
0390: 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 20  orary directory 
03a0: 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65  specified in the
03b0: 20 54 45 4d 50 20 6f 72 20 54 4d 50 20 65 6e 76   TEMP or TMP env
03c0: 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c  ironment variabl
03d0: 65 73 0a 23 20 20 20 20 6d 75 73 74 20 72 65 66  es.#    must ref
03e0: 65 72 20 74 6f 20 61 6e 20 65 78 69 73 74 69 6e  er to an existin
03f0: 67 20 64 69 72 65 63 74 6f 72 79 20 77 72 69 74  g directory writ
0400: 61 62 6c 65 20 62 79 20 74 68 65 20 63 75 72 72  able by the curr
0410: 65 6e 74 20 75 73 65 72 2e 0a 23 0a 23 20 37 2e  ent user..#.# 7.
0420: 20 54 68 65 20 56 53 31 34 30 43 4f 4d 4e 54 4f   The VS140COMNTO
0430: 4f 4c 53 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20  OLS environment 
0440: 76 61 72 69 61 62 6c 65 20 6d 75 73 74 20 72 65  variable must re
0450: 66 65 72 20 74 6f 20 74 68 65 20 56 69 73 75 61  fer to the Visua
0460: 6c 20 53 74 75 64 69 6f 0a 23 20 20 20 20 32 30  l Studio.#    20
0470: 31 35 20 63 6f 6d 6d 6f 6e 20 74 6f 6f 6c 73 20  15 common tools 
0480: 64 69 72 65 63 74 6f 72 79 2e 0a 23 0a 23 20 55  directory..#.# U
0490: 53 41 47 45 0a 23 0a 23 20 54 68 65 20 66 69 72  SAGE.#.# The fir
04a0: 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74  st argument to t
04b0: 68 69 73 20 73 63 72 69 70 74 20 69 73 20 6f 70  his script is op
04c0: 74 69 6f 6e 61 6c 2e 20 20 49 66 20 73 70 65 63  tional.  If spec
04d0: 69 66 69 65 64 2c 20 69 74 20 6d 75 73 74 20 62  ified, it must b
04e0: 65 20 74 68 65 0a 23 20 6e 61 6d 65 20 6f 66 20  e the.# name of 
04f0: 74 68 65 20 56 53 49 58 20 66 69 6c 65 20 74 6f  the VSIX file to
0500: 20 74 65 73 74 2e 0a 23 0a 70 61 63 6b 61 67 65   test..#.package
0510: 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 2e 34   require Tcl 8.4
0520: 0a 0c 0a 70 72 6f 63 20 66 61 69 6c 20 7b 20 7b  ...proc fail { {
0530: 65 72 72 6f 72 20 22 22 7d 20 7b 75 73 61 67 65  error ""} {usage
0540: 20 66 61 6c 73 65 7d 20 7d 20 7b 0a 20 20 69 66   false} } {.  if
0550: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
0560: 20 24 65 72 72 6f 72 5d 20 3e 20 30 7d 20 74 68   $error] > 0} th
0570: 65 6e 20 7b 0a 20 20 20 20 70 75 74 73 20 73 74  en {.    puts st
0580: 64 6f 75 74 20 24 65 72 72 6f 72 0a 20 20 20 20  dout $error.    
0590: 69 66 20 7b 21 24 75 73 61 67 65 7d 20 74 68 65  if {!$usage} the
05a0: 6e 20 7b 65 78 69 74 20 31 7d 0a 20 20 7d 0a 0a  n {exit 1}.  }..
05b0: 20 20 70 75 74 73 20 73 74 64 6f 75 74 20 22 75    puts stdout "u
05c0: 73 61 67 65 3a 5c 0a 5b 66 69 6c 65 20 74 61 69  sage:\.[file tai
05d0: 6c 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78  l [info nameofex
05e0: 65 63 75 74 61 62 6c 65 5d 5d 5c 0a 5b 66 69 6c  ecutable]]\.[fil
05f0: 65 20 74 61 69 6c 20 5b 69 6e 66 6f 20 73 63 72  e tail [info scr
0600: 69 70 74 5d 5d 20 5c 5b 76 73 69 78 46 69 6c 65  ipt]] \[vsixFile
0610: 5c 5d 22 0a 0a 20 20 65 78 69 74 20 31 0a 7d 0a  \]"..  exit 1.}.
0620: 0c 0a 70 72 6f 63 20 69 73 57 69 6e 64 6f 77 73  ..proc isWindows
0630: 20 7b 7d 20 7b 0a 20 20 23 0a 20 20 23 20 4e 4f   {} {.  #.  # NO
0640: 54 45 3a 20 52 65 74 75 72 6e 73 20 6e 6f 6e 2d  TE: Returns non-
0650: 7a 65 72 6f 20 6f 6e 6c 79 20 77 68 65 6e 20 72  zero only when r
0660: 75 6e 6e 69 6e 67 20 6f 6e 20 57 69 6e 64 6f 77  unning on Window
0670: 73 2e 0a 20 20 23 0a 20 20 72 65 74 75 72 6e 20  s..  #.  return 
0680: 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69  [expr {[info exi
0690: 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  sts ::tcl_platfo
06a0: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 5d 20 26 26  rm(platform)] &&
06b0: 20 5c 0a 20 20 20 20 20 20 24 3a 3a 74 63 6c 5f   \.      $::tcl_
06c0: 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72  platform(platfor
06d0: 6d 29 20 65 71 20 22 77 69 6e 64 6f 77 73 22 7d  m) eq "windows"}
06e0: 5d 0a 7d 0a 0c 0a 70 72 6f 63 20 69 73 41 64 6d  ].}...proc isAdm
06f0: 69 6e 69 73 74 72 61 74 6f 72 20 7b 7d 20 7b 0a  inistrator {} {.
0700: 20 20 23 0a 20 20 23 20 4e 4f 54 45 3a 20 52 65    #.  # NOTE: Re
0710: 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 6f  turns non-zero o
0720: 6e 6c 79 20 77 68 65 6e 20 72 75 6e 6e 69 6e 67  nly when running
0730: 20 61 73 20 22 65 6c 65 76 61 74 65 64 20 61 64   as "elevated ad
0740: 6d 69 6e 69 73 74 72 61 74 6f 72 22 2e 0a 20 20  ministrator"..  
0750: 23 0a 20 20 69 66 20 7b 5b 69 73 57 69 6e 64 6f  #.  if {[isWindo
0760: 77 73 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 20 20  ws]} then {.    
0770: 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 65 63  if {[catch {exec
0780: 20 2d 2d 20 77 68 6f 61 6d 69 20 2f 67 72 6f 75   -- whoami /grou
0790: 70 73 7d 20 67 72 6f 75 70 73 5d 20 3d 3d 20 30  ps} groups] == 0
07a0: 7d 20 74 68 65 6e 20 7b 0a 20 20 20 20 20 20 73  } then {.      s
07b0: 65 74 20 67 72 6f 75 70 73 20 5b 73 74 72 69 6e  et groups [strin
07c0: 67 20 6d 61 70 20 5b 6c 69 73 74 20 5c 72 5c 6e  g map [list \r\n
07d0: 20 5c 6e 5d 20 24 67 72 6f 75 70 73 5d 0a 0a 20   \n] $groups].. 
07e0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 67 72 6f       foreach gro
07f0: 75 70 20 5b 73 70 6c 69 74 20 24 67 72 6f 75 70  up [split $group
0800: 73 20 5c 6e 5d 20 7b 0a 20 20 20 20 20 20 20 20  s \n] {.        
0810: 23 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  #.        # NOTE
0820: 3a 20 4d 61 74 63 68 20 74 68 69 73 20 67 72 6f  : Match this gro
0830: 75 70 20 6c 69 6e 65 20 61 67 61 69 6e 73 74 20  up line against 
0840: 74 68 65 20 22 77 65 6c 6c 2d 6b 6e 6f 77 6e 22  the "well-known"
0850: 20 53 49 44 20 66 6f 72 0a 20 20 20 20 20 20 20   SID for.       
0860: 20 23 20 20 20 20 20 20 20 74 68 65 20 22 41 64   #       the "Ad
0870: 6d 69 6e 69 73 74 72 61 74 6f 72 73 22 20 67 72  ministrators" gr
0880: 6f 75 70 20 6f 6e 20 57 69 6e 64 6f 77 73 2e 0a  oup on Windows..
0890: 20 20 20 20 20 20 20 20 23 0a 20 20 20 20 20 20          #.      
08a0: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 2d 2d    if {[regexp --
08b0: 20 7b 5c 73 53 2d 31 2d 35 2d 33 32 2d 35 34 34   {\sS-1-5-32-544
08c0: 5c 73 7d 20 24 67 72 6f 75 70 5d 7d 20 74 68 65  \s} $group]} the
08d0: 6e 20 7b 0a 20 20 20 20 20 20 20 20 20 20 23 0a  n {.          #.
08e0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
08f0: 3a 20 4d 61 74 63 68 20 74 68 69 73 20 67 72 6f  : Match this gro
0900: 75 70 20 6c 69 6e 65 20 61 67 61 69 6e 73 74 20  up line against 
0910: 74 68 65 20 61 74 74 72 69 62 75 74 65 73 20 63  the attributes c
0920: 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 20  olumn.          
0930: 23 20 20 20 20 20 20 20 73 75 62 2d 76 61 6c 75  #       sub-valu
0940: 65 20 74 68 61 74 20 73 68 6f 75 6c 64 20 62 65  e that should be
0950: 20 70 72 65 73 65 6e 74 20 77 68 65 6e 20 72 75   present when ru
0960: 6e 6e 69 6e 67 20 77 69 74 68 0a 20 20 20 20 20  nning with.     
0970: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 6c 65       #       ele
0980: 76 61 74 65 64 20 61 64 6d 69 6e 69 73 74 72 61  vated administra
0990: 74 6f 72 20 63 72 65 64 65 6e 74 69 61 6c 73 2e  tor credentials.
09a0: 0a 20 20 20 20 20 20 20 20 20 20 23 0a 20 20 20  .          #.   
09b0: 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65         if {[rege
09c0: 78 70 20 2d 2d 20 7b 5c 73 45 6e 61 62 6c 65 64  xp -- {\sEnabled
09d0: 20 67 72 6f 75 70 28 3f 3a 2c 7c 5c 73 29 7d 20   group(?:,|\s)} 
09e0: 24 67 72 6f 75 70 5d 7d 20 74 68 65 6e 20 7b 0a  $group]} then {.
09f0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
0a00: 72 6e 20 74 72 75 65 0a 20 20 20 20 20 20 20 20  rn true.        
0a10: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20    }.        }.  
0a20: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
0a30: 0a 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 0a  .  return false.
0a40: 7d 0a 0c 0a 70 72 6f 63 20 67 65 74 45 6e 76 69  }...proc getEnvi
0a50: 72 6f 6e 6d 65 6e 74 56 61 72 69 61 62 6c 65 20  ronmentVariable 
0a60: 7b 20 6e 61 6d 65 20 7d 20 7b 0a 20 20 23 0a 20  { name } {.  #. 
0a70: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73   # NOTE: Returns
0a80: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68   the value of th
0a90: 65 20 73 70 65 63 69 66 69 65 64 20 65 6e 76 69  e specified envi
0aa0: 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65  ronment variable
0ab0: 20 6f 72 20 61 6e 20 65 6d 70 74 79 0a 20 20 23   or an empty.  #
0ac0: 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 66 6f         string fo
0ad0: 72 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61  r environment va
0ae0: 72 69 61 62 6c 65 73 20 74 68 61 74 20 64 6f 20  riables that do 
0af0: 6e 6f 74 20 65 78 69 73 74 20 69 6e 20 74 68 65  not exist in the
0b00: 20 63 75 72 72 65 6e 74 0a 20 20 23 20 20 20 20   current.  #    
0b10: 20 20 20 70 72 6f 63 65 73 73 20 65 6e 76 69 72     process envir
0b20: 6f 6e 6d 65 6e 74 2e 0a 20 20 23 0a 20 20 72 65  onment..  #.  re
0b30: 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b 69 6e 66  turn [expr {[inf
0b40: 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 28 24  o exists ::env($
0b50: 6e 61 6d 65 29 5d 20 3f 20 24 3a 3a 65 6e 76 28  name)] ? $::env(
0b60: 24 6e 61 6d 65 29 20 3a 20 22 22 7d 5d 0a 7d 0a  $name) : ""}].}.
0b70: 0c 0a 70 72 6f 63 20 67 65 74 54 65 6d 70 6f 72  ..proc getTempor
0b80: 61 72 79 50 61 74 68 20 7b 7d 20 7b 0a 20 20 23  aryPath {} {.  #
0b90: 0a 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72  .  # NOTE: Retur
0ba0: 6e 73 20 74 68 65 20 6e 6f 72 6d 61 6c 69 7a 65  ns the normalize
0bb0: 64 20 70 61 74 68 20 74 6f 20 74 68 65 20 66 69  d path to the fi
0bc0: 72 73 74 20 74 65 6d 70 6f 72 61 72 79 20 64 69  rst temporary di
0bd0: 72 65 63 74 6f 72 79 20 66 6f 75 6e 64 0a 20 20  rectory found.  
0be0: 23 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 74  #       in the t
0bf0: 79 70 69 63 61 6c 20 73 65 74 20 6f 66 20 65 6e  ypical set of en
0c00: 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62  vironment variab
0c10: 6c 65 73 20 75 73 65 64 20 66 6f 72 20 74 68 61  les used for tha
0c20: 74 20 70 75 72 70 6f 73 65 0a 20 20 23 20 20 20  t purpose.  #   
0c30: 20 20 20 20 6f 72 20 61 6e 20 65 6d 70 74 79 20      or an empty 
0c40: 73 74 72 69 6e 67 20 74 6f 20 73 69 67 6e 61 6c  string to signal
0c50: 20 61 20 66 61 69 6c 75 72 65 20 74 6f 20 6c 6f   a failure to lo
0c60: 63 61 74 65 20 73 75 63 68 20 61 20 64 69 72 65  cate such a dire
0c70: 63 74 6f 72 79 2e 0a 20 20 23 0a 20 20 73 65 74  ctory..  #.  set
0c80: 20 6e 61 6d 65 73 20 5b 6c 69 73 74 5d 0a 0a 20   names [list].. 
0c90: 20 66 6f 72 65 61 63 68 20 6e 61 6d 65 20 5b 6c   foreach name [l
0ca0: 69 73 74 20 54 45 4d 50 20 54 4d 50 5d 20 7b 0a  ist TEMP TMP] {.
0cb0: 20 20 20 20 6c 61 70 70 65 6e 64 20 6e 61 6d 65      lappend name
0cc0: 73 20 5b 73 74 72 69 6e 67 20 74 6f 75 70 70 65  s [string touppe
0cd0: 72 20 24 6e 61 6d 65 5d 20 5b 73 74 72 69 6e 67  r $name] [string
0ce0: 20 74 6f 6c 6f 77 65 72 20 24 6e 61 6d 65 5d 20   tolower $name] 
0cf0: 5c 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e  \.        [strin
0d00: 67 20 74 6f 74 69 74 6c 65 20 24 6e 61 6d 65 5d  g totitle $name]
0d10: 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 61 63 68 20  .  }..  foreach 
0d20: 6e 61 6d 65 20 24 6e 61 6d 65 73 20 7b 0a 20 20  name $names {.  
0d30: 20 20 73 65 74 20 76 61 6c 75 65 20 5b 67 65 74    set value [get
0d40: 45 6e 76 69 72 6f 6e 6d 65 6e 74 56 61 72 69 61  EnvironmentVaria
0d50: 62 6c 65 20 24 6e 61 6d 65 5d 0a 0a 20 20 20 20  ble $name]..    
0d60: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
0d70: 74 68 20 24 76 61 6c 75 65 5d 20 3e 20 30 7d 20  th $value] > 0} 
0d80: 74 68 65 6e 20 7b 0a 20 20 20 20 20 20 72 65 74  then {.      ret
0d90: 75 72 6e 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c  urn [file normal
0da0: 69 7a 65 20 24 76 61 6c 75 65 5d 0a 20 20 20 20  ize $value].    
0db0: 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  }.  }..  return 
0dc0: 22 22 0a 7d 0a 0c 0a 70 72 6f 63 20 61 70 70 65  "".}...proc appe
0dd0: 6e 64 41 72 67 73 20 7b 20 61 72 67 73 20 7d 20  ndArgs { args } 
0de0: 7b 0a 20 20 23 0a 20 20 23 20 4e 4f 54 45 3a 20  {.  #.  # NOTE: 
0df0: 52 65 74 75 72 6e 73 20 61 6c 6c 20 70 61 73 73  Returns all pass
0e00: 65 64 20 61 72 67 75 6d 65 6e 74 73 20 6a 6f 69  ed arguments joi
0e10: 6e 65 64 20 74 6f 67 65 74 68 65 72 20 61 73 20  ned together as 
0e20: 61 20 73 69 6e 67 6c 65 20 73 74 72 69 6e 67 0a  a single string.
0e30: 20 20 23 20 20 20 20 20 20 20 77 69 74 68 20 6e    #       with n
0e40: 6f 20 69 6e 74 65 72 76 65 6e 69 6e 67 20 73 70  o intervening sp
0e50: 61 63 65 73 20 62 65 74 77 65 65 6e 20 61 72 67  aces between arg
0e60: 75 6d 65 6e 74 73 2e 0a 20 20 23 0a 20 20 65 76  uments..  #.  ev
0e70: 61 6c 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74  al append result
0e80: 20 24 61 72 67 73 0a 7d 0a 0c 0a 70 72 6f 63 20   $args.}...proc 
0e90: 72 65 61 64 46 69 6c 65 20 7b 20 66 69 6c 65 4e  readFile { fileN
0ea0: 61 6d 65 20 7d 20 7b 0a 20 20 23 0a 20 20 23 20  ame } {.  #.  # 
0eb0: 4e 4f 54 45 3a 20 52 65 61 64 73 20 61 6e 64 20  NOTE: Reads and 
0ec0: 72 65 74 75 72 6e 73 20 74 68 65 20 65 6e 74 69  returns the enti
0ed0: 72 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74  re contents of t
0ee0: 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 6c  he specified fil
0ef0: 65 2c 20 77 68 69 63 68 0a 20 20 23 20 20 20 20  e, which.  #    
0f00: 20 20 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 62     may contain b
0f10: 69 6e 61 72 79 20 64 61 74 61 2e 0a 20 20 23 0a  inary data..  #.
0f20: 20 20 73 65 74 20 66 69 6c 65 5f 69 64 20 5b 6f    set file_id [o
0f30: 70 65 6e 20 24 66 69 6c 65 4e 61 6d 65 20 52 44  pen $fileName RD
0f40: 4f 4e 4c 59 5d 0a 20 20 66 63 6f 6e 66 69 67 75  ONLY].  fconfigu
0f50: 72 65 20 24 66 69 6c 65 5f 69 64 20 2d 65 6e 63  re $file_id -enc
0f60: 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 2d 74 72  oding binary -tr
0f70: 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79  anslation binary
0f80: 0a 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 72  .  set result [r
0f90: 65 61 64 20 24 66 69 6c 65 5f 69 64 5d 0a 20 20  ead $file_id].  
0fa0: 63 6c 6f 73 65 20 24 66 69 6c 65 5f 69 64 0a 20  close $file_id. 
0fb0: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0a   return $result.
0fc0: 7d 0a 0c 0a 70 72 6f 63 20 77 72 69 74 65 46 69  }...proc writeFi
0fd0: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 64 61  le { fileName da
0fe0: 74 61 20 7d 20 7b 0a 20 20 23 0a 20 20 23 20 4e  ta } {.  #.  # N
0ff0: 4f 54 45 3a 20 57 72 69 74 65 73 20 74 68 65 20  OTE: Writes the 
1000: 65 6e 74 69 72 65 20 63 6f 6e 74 65 6e 74 73 20  entire contents 
1010: 6f 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64  of the specified
1020: 20 66 69 6c 65 2c 20 77 68 69 63 68 20 6d 61 79   file, which may
1030: 20 63 6f 6e 74 61 69 6e 0a 20 20 23 20 20 20 20   contain.  #    
1040: 20 20 20 62 69 6e 61 72 79 20 64 61 74 61 2e 0a     binary data..
1050: 20 20 23 0a 20 20 73 65 74 20 66 69 6c 65 5f 69    #.  set file_i
1060: 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 4e 61 6d  d [open $fileNam
1070: 65 20 7b 57 52 4f 4e 4c 59 20 43 52 45 41 54 20  e {WRONLY CREAT 
1080: 54 52 55 4e 43 7d 5d 0a 20 20 66 63 6f 6e 66 69  TRUNC}].  fconfi
1090: 67 75 72 65 20 24 66 69 6c 65 5f 69 64 20 2d 65  gure $file_id -e
10a0: 6e 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 2d  ncoding binary -
10b0: 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61  translation bina
10c0: 72 79 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77  ry.  puts -nonew
10d0: 6c 69 6e 65 20 24 66 69 6c 65 5f 69 64 20 24 64  line $file_id $d
10e0: 61 74 61 0a 20 20 63 6c 6f 73 65 20 24 66 69 6c  ata.  close $fil
10f0: 65 5f 69 64 0a 20 20 72 65 74 75 72 6e 20 22 22  e_id.  return ""
1100: 0a 7d 0a 0c 0a 70 72 6f 63 20 70 75 74 73 41 6e  .}...proc putsAn
1110: 64 45 76 61 6c 20 7b 20 63 6f 6d 6d 61 6e 64 20  dEval { command 
1120: 7d 20 7b 0a 20 20 23 0a 20 20 23 20 4e 4f 54 45  } {.  #.  # NOTE
1130: 3a 20 4f 75 74 70 75 74 73 20 61 20 63 6f 6d 6d  : Outputs a comm
1140: 61 6e 64 20 74 6f 20 74 68 65 20 73 74 61 6e 64  and to the stand
1150: 61 72 64 20 6f 75 74 70 75 74 20 63 68 61 6e 6e  ard output chann
1160: 65 6c 20 61 6e 64 20 74 68 65 6e 20 65 76 61 6c  el and then eval
1170: 75 61 74 65 73 0a 20 20 23 20 20 20 20 20 20 20  uates.  #       
1180: 69 74 20 69 6e 20 74 68 65 20 63 61 6c 6c 65 72  it in the caller
1190: 73 20 63 6f 6e 74 65 78 74 2e 0a 20 20 23 0a 20  s context..  #. 
11a0: 20 63 61 74 63 68 20 7b 0a 20 20 20 20 70 75 74   catch {.    put
11b0: 73 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e 64  s stdout [append
11c0: 41 72 67 73 20 22 52 75 6e 6e 69 6e 67 3a 20 22  Args "Running: "
11d0: 20 5b 6c 72 61 6e 67 65 20 24 63 6f 6d 6d 61 6e   [lrange $comman
11e0: 64 20 31 20 65 6e 64 5d 20 2e 2e 2e 5c 6e 5d 0a  d 1 end] ...\n].
11f0: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 5b 75    }..  return [u
1200: 70 6c 65 76 65 6c 20 31 20 24 63 6f 6d 6d 61 6e  plevel 1 $comman
1210: 64 5d 0a 7d 0a 0c 0a 70 72 6f 63 20 69 73 42 61  d].}...proc isBa
1220: 64 44 69 72 65 63 74 6f 72 79 20 7b 20 64 69 72  dDirectory { dir
1230: 65 63 74 6f 72 79 20 7d 20 7b 0a 20 20 23 0a 20  ectory } {.  #. 
1240: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73   # NOTE: Returns
1250: 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65   non-zero if the
1260: 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 65 6d   directory is em
1270: 70 74 79 2c 20 64 6f 65 73 20 6e 6f 74 20 65 78  pty, does not ex
1280: 69 73 74 2c 20 2d 4f 52 2d 20 69 73 0a 20 20 23  ist, -OR- is.  #
1290: 20 20 20 20 20 20 20 6e 6f 74 20 61 20 64 69 72         not a dir
12a0: 65 63 74 6f 72 79 2e 0a 20 20 23 0a 20 20 63 61  ectory..  #.  ca
12b0: 74 63 68 20 7b 0a 20 20 20 20 70 75 74 73 20 73  tch {.    puts s
12c0: 74 64 6f 75 74 20 5b 61 70 70 65 6e 64 41 72 67  tdout [appendArg
12d0: 73 20 22 43 68 65 63 6b 69 6e 67 20 64 69 72 65  s "Checking dire
12e0: 63 74 6f 72 79 20 5c 22 22 20 24 64 69 72 65 63  ctory \"" $direc
12f0: 74 6f 72 79 20 5c 22 2e 2e 2e 5c 6e 5d 0a 20 20  tory \"...\n].  
1300: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 5b 65 78 70  }..  return [exp
1310: 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  r {[string lengt
1320: 68 20 24 64 69 72 65 63 74 6f 72 79 5d 20 3d 3d  h $directory] ==
1330: 20 30 20 7c 7c 20 5c 0a 20 20 20 20 20 20 21 5b   0 || \.      ![
1340: 66 69 6c 65 20 65 78 69 73 74 73 20 24 64 69 72  file exists $dir
1350: 65 63 74 6f 72 79 5d 20 7c 7c 20 21 5b 66 69 6c  ectory] || ![fil
1360: 65 20 69 73 64 69 72 65 63 74 6f 72 79 20 24 64  e isdirectory $d
1370: 69 72 65 63 74 6f 72 79 5d 7d 5d 0a 7d 0a 0c 0a  irectory]}].}...
1380: 70 72 6f 63 20 69 73 42 61 64 46 69 6c 65 20 7b  proc isBadFile {
1390: 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0a 20 20   fileName } {.  
13a0: 23 0a 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75  #.  # NOTE: Retu
13b0: 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20  rns non-zero if 
13c0: 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 69 73  the file name is
13d0: 20 65 6d 70 74 79 2c 20 64 6f 65 73 20 6e 6f 74   empty, does not
13e0: 20 65 78 69 73 74 2c 20 2d 4f 52 2d 20 69 73 0a   exist, -OR- is.
13f0: 20 20 23 20 20 20 20 20 20 20 6e 6f 74 20 61 20    #       not a 
1400: 72 65 67 75 6c 61 72 20 66 69 6c 65 2e 0a 20 20  regular file..  
1410: 23 0a 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20  #.  catch {.    
1420: 70 75 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70  puts stdout [app
1430: 65 6e 64 41 72 67 73 20 22 43 68 65 63 6b 69 6e  endArgs "Checkin
1440: 67 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65  g file \"" $file
1450: 4e 61 6d 65 20 5c 22 2e 2e 2e 5c 6e 5d 0a 20 20  Name \"...\n].  
1460: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 5b 65 78 70  }..  return [exp
1470: 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  r {[string lengt
1480: 68 20 24 66 69 6c 65 4e 61 6d 65 5d 20 3d 3d 20  h $fileName] == 
1490: 30 20 7c 7c 20 5c 0a 20 20 20 20 20 20 21 5b 66  0 || \.      ![f
14a0: 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c 65  ile exists $file
14b0: 4e 61 6d 65 5d 20 7c 7c 20 21 5b 66 69 6c 65 20  Name] || ![file 
14c0: 69 73 66 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65  isfile $fileName
14d0: 5d 7d 5d 0a 7d 0a 0c 0a 23 0a 23 20 4e 4f 54 45  ]}].}...#.# NOTE
14e0: 3a 20 54 68 69 73 20 69 73 20 74 68 65 20 65 6e  : This is the en
14f0: 74 72 79 20 70 6f 69 6e 74 20 66 6f 72 20 74 68  try point for th
1500: 69 73 20 73 63 72 69 70 74 2e 0a 23 0a 73 65 74  is script..#.set
1510: 20 73 63 72 69 70 74 20 5b 66 69 6c 65 20 6e 6f   script [file no
1520: 72 6d 61 6c 69 7a 65 20 5b 69 6e 66 6f 20 73 63  rmalize [info sc
1530: 72 69 70 74 5d 5d 0a 0a 69 66 20 7b 5b 73 74 72  ript]]..if {[str
1540: 69 6e 67 20 6c 65 6e 67 74 68 20 24 73 63 72 69  ing length $scri
1550: 70 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b  pt] == 0} then {
1560: 0a 20 20 66 61 69 6c 20 22 73 63 72 69 70 74 20  .  fail "script 
1570: 66 69 6c 65 20 63 75 72 72 65 6e 74 6c 79 20 62  file currently b
1580: 65 69 6e 67 20 65 76 61 6c 75 61 74 65 64 20 69  eing evaluated i
1590: 73 20 75 6e 6b 6e 6f 77 6e 22 20 74 72 75 65 0a  s unknown" true.
15a0: 7d 0a 0a 69 66 20 7b 21 5b 69 73 57 69 6e 64 6f  }..if {![isWindo
15b0: 77 73 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66 61  ws]} then {.  fa
15c0: 69 6c 20 22 74 68 69 73 20 74 6f 6f 6c 20 6f 6e  il "this tool on
15d0: 6c 79 20 77 6f 72 6b 73 20 70 72 6f 70 65 72 6c  ly works properl
15e0: 79 20 6f 6e 20 57 69 6e 64 6f 77 73 22 0a 7d 0a  y on Windows".}.
15f0: 0a 69 66 20 7b 21 5b 69 73 41 64 6d 69 6e 69 73  .if {![isAdminis
1600: 74 72 61 74 6f 72 5d 7d 20 74 68 65 6e 20 7b 0a  trator]} then {.
1610: 20 20 66 61 69 6c 20 22 74 68 69 73 20 74 6f 6f    fail "this too
1620: 6c 20 6d 75 73 74 20 72 75 6e 20 77 69 74 68 20  l must run with 
1630: 5c 22 65 6c 65 76 61 74 65 64 20 61 64 6d 69 6e  \"elevated admin
1640: 69 73 74 72 61 74 6f 72 5c 22 20 70 72 69 76 69  istrator\" privi
1650: 6c 65 67 65 73 22 0a 7d 0a 0a 73 65 74 20 70 61  leges".}..set pa
1660: 74 68 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c 69  th [file normali
1670: 7a 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  ze [file dirname
1680: 20 24 73 63 72 69 70 74 5d 5d 0a 73 65 74 20 61   $script]].set a
1690: 72 67 63 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72  rgc [llength $ar
16a0: 67 76 5d 3b 20 69 66 20 7b 24 61 72 67 63 20 3e  gv]; if {$argc >
16b0: 20 31 7d 20 74 68 65 6e 20 7b 66 61 69 6c 20 22   1} then {fail "
16c0: 22 20 74 72 75 65 7d 0a 0a 69 66 20 7b 24 61 72  " true}..if {$ar
16d0: 67 63 20 3d 3d 20 31 7d 20 74 68 65 6e 20 7b 0a  gc == 1} then {.
16e0: 20 20 73 65 74 20 76 73 69 78 46 69 6c 65 4e 61    set vsixFileNa
16f0: 6d 65 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76  me [lindex $argv
1700: 20 30 5d 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 73   0].} else {.  s
1710: 65 74 20 76 73 69 78 46 69 6c 65 4e 61 6d 65 20  et vsixFileName 
1720: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5c 0a 20 20 20  [file join \.   
1730: 20 20 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65     [file dirname
1740: 20 24 70 61 74 68 5d 20 73 71 6c 69 74 65 2d 55   $path] sqlite-U
1750: 57 50 2d 6f 75 74 70 75 74 2e 76 73 69 78 5d 0a  WP-output.vsix].
1760: 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  }..#############
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 0a 0a 69 66 20 7b 5b 69 73 42 61 64 46 69  ##..if {[isBadFi
17c0: 6c 65 20 24 76 73 69 78 46 69 6c 65 4e 61 6d 65  le $vsixFileName
17d0: 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66 61 69 6c  ]} then {.  fail
17e0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0a 20   [appendArgs \. 
17f0: 20 20 20 20 20 22 56 53 49 58 20 66 69 6c 65 20       "VSIX file 
1800: 5c 22 22 20 24 76 73 69 78 46 69 6c 65 4e 61 6d  \"" $vsixFileNam
1810: 65 20 22 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65  e "\" does not e
1820: 78 69 73 74 22 5d 0a 7d 0a 0a 73 65 74 20 76 65  xist"].}..set ve
1830: 72 73 69 6f 6e 46 69 6c 65 4e 61 6d 65 20 5b 66  rsionFileName [f
1840: 69 6c 65 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 64  ile join [file d
1850: 69 72 6e 61 6d 65 20 24 70 61 74 68 5d 20 56 45  irname $path] VE
1860: 52 53 49 4f 4e 5d 0a 0a 69 66 20 7b 5b 69 73 42  RSION]..if {[isB
1870: 61 64 46 69 6c 65 20 24 76 65 72 73 69 6f 6e 46  adFile $versionF
1880: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b  ileName]} then {
1890: 0a 20 20 66 61 69 6c 20 5b 61 70 70 65 6e 64 41  .  fail [appendA
18a0: 72 67 73 20 5c 0a 20 20 20 20 20 20 22 56 65 72  rgs \.      "Ver
18b0: 73 69 6f 6e 20 66 69 6c 65 20 5c 22 22 20 24 76  sion file \"" $v
18c0: 65 72 73 69 6f 6e 46 69 6c 65 4e 61 6d 65 20 22  ersionFileName "
18d0: 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73  \" does not exis
18e0: 74 22 5d 0a 7d 0a 0a 73 65 74 20 70 72 6f 6a 65  t"].}..set proje
18f0: 63 74 54 65 6d 70 6c 61 74 65 46 69 6c 65 4e 61  ctTemplateFileNa
1900: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70  me [file join $p
1910: 61 74 68 20 76 73 69 78 74 65 73 74 2e 76 63 78  ath vsixtest.vcx
1920: 70 72 6f 6a 2e 64 61 74 61 5d 0a 0a 69 66 20 7b  proj.data]..if {
1930: 5b 69 73 42 61 64 46 69 6c 65 20 24 70 72 6f 6a  [isBadFile $proj
1940: 65 63 74 54 65 6d 70 6c 61 74 65 46 69 6c 65 4e  ectTemplateFileN
1950: 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66  ame]} then {.  f
1960: 61 69 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  ail [appendArgs 
1970: 5c 0a 20 20 20 20 20 20 22 50 72 6f 6a 65 63 74  \.      "Project
1980: 20 74 65 6d 70 6c 61 74 65 20 66 69 6c 65 20 5c   template file \
1990: 22 22 20 24 70 72 6f 6a 65 63 74 54 65 6d 70 6c  "" $projectTempl
19a0: 61 74 65 46 69 6c 65 4e 61 6d 65 20 5c 0a 20 20  ateFileName \.  
19b0: 20 20 20 20 22 5c 22 20 64 6f 65 73 20 6e 6f 74      "\" does not
19c0: 20 65 78 69 73 74 22 5d 0a 7d 0a 0a 73 65 74 20   exist"].}..set 
19d0: 65 6e 76 56 61 72 4e 61 6d 65 20 56 53 31 34 30  envVarName VS140
19e0: 43 4f 4d 4e 54 4f 4f 4c 53 0a 73 65 74 20 76 73  COMNTOOLS.set vs
19f0: 44 69 72 65 63 74 6f 72 79 20 5b 67 65 74 45 6e  Directory [getEn
1a00: 76 69 72 6f 6e 6d 65 6e 74 56 61 72 69 61 62 6c  vironmentVariabl
1a10: 65 20 24 65 6e 76 56 61 72 4e 61 6d 65 5d 0a 0a  e $envVarName]..
1a20: 69 66 20 7b 5b 69 73 42 61 64 44 69 72 65 63 74  if {[isBadDirect
1a30: 6f 72 79 20 24 76 73 44 69 72 65 63 74 6f 72 79  ory $vsDirectory
1a40: 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66 61 69 6c  ]} then {.  fail
1a50: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0a 20   [appendArgs \. 
1a60: 20 20 20 20 20 22 56 69 73 75 61 6c 20 53 74 75       "Visual Stu
1a70: 64 69 6f 20 32 30 31 35 20 64 69 72 65 63 74 6f  dio 2015 directo
1a80: 72 79 20 5c 22 22 20 24 76 73 44 69 72 65 63 74  ry \"" $vsDirect
1a90: 6f 72 79 20 5c 0a 20 20 20 20 20 20 22 5c 22 20  ory \.      "\" 
1aa0: 66 72 6f 6d 20 65 6e 76 69 72 6f 6e 6d 65 6e 74  from environment
1ab0: 20 76 61 72 69 61 62 6c 65 20 5c 22 22 20 24 65   variable \"" $e
1ac0: 6e 76 56 61 72 4e 61 6d 65 20 5c 0a 20 20 20 20  nvVarName \.    
1ad0: 20 20 22 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65    "\" does not e
1ae0: 78 69 73 74 22 5d 0a 7d 0a 0a 73 65 74 20 76 73  xist"].}..set vs
1af0: 69 78 49 6e 73 74 61 6c 6c 65 72 20 5b 66 69 6c  ixInstaller [fil
1b00: 65 20 6a 6f 69 6e 20 5c 0a 20 20 20 20 5b 66 69  e join \.    [fi
1b10: 6c 65 20 64 69 72 6e 61 6d 65 20 24 76 73 44 69  le dirname $vsDi
1b20: 72 65 63 74 6f 72 79 5d 20 49 44 45 20 56 53 49  rectory] IDE VSI
1b30: 58 49 6e 73 74 61 6c 6c 65 72 2e 65 78 65 5d 0a  XInstaller.exe].
1b40: 0a 69 66 20 7b 5b 69 73 42 61 64 46 69 6c 65 20  .if {[isBadFile 
1b50: 24 76 73 69 78 49 6e 73 74 61 6c 6c 65 72 5d 7d  $vsixInstaller]}
1b60: 20 74 68 65 6e 20 7b 0a 20 20 66 61 69 6c 20 5b   then {.  fail [
1b70: 61 70 70 65 6e 64 41 72 67 73 20 5c 0a 20 20 20  appendArgs \.   
1b80: 20 20 20 22 56 69 73 75 61 6c 20 53 74 75 64 69     "Visual Studi
1b90: 6f 20 32 30 31 35 20 56 53 49 58 20 69 6e 73 74  o 2015 VSIX inst
1ba0: 61 6c 6c 65 72 20 5c 22 22 20 24 76 73 69 78 49  aller \"" $vsixI
1bb0: 6e 73 74 61 6c 6c 65 72 20 5c 0a 20 20 20 20 20  nstaller \.     
1bc0: 20 22 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65 78   "\" does not ex
1bd0: 69 73 74 22 5d 0a 7d 0a 0a 73 65 74 20 65 6e 76  ist"].}..set env
1be0: 56 61 72 4e 61 6d 65 20 50 72 6f 67 72 61 6d 46  VarName ProgramF
1bf0: 69 6c 65 73 0a 73 65 74 20 70 72 6f 67 72 61 6d  iles.set program
1c00: 46 69 6c 65 73 20 5b 67 65 74 45 6e 76 69 72 6f  Files [getEnviro
1c10: 6e 6d 65 6e 74 56 61 72 69 61 62 6c 65 20 24 65  nmentVariable $e
1c20: 6e 76 56 61 72 4e 61 6d 65 5d 0a 0a 69 66 20 7b  nvVarName]..if {
1c30: 5b 69 73 42 61 64 44 69 72 65 63 74 6f 72 79 20  [isBadDirectory 
1c40: 24 70 72 6f 67 72 61 6d 46 69 6c 65 73 5d 7d 20  $programFiles]} 
1c50: 74 68 65 6e 20 7b 0a 20 20 66 61 69 6c 20 5b 61  then {.  fail [a
1c60: 70 70 65 6e 64 41 72 67 73 20 5c 0a 20 20 20 20  ppendArgs \.    
1c70: 20 20 22 50 72 6f 67 72 61 6d 20 46 69 6c 65 73    "Program Files
1c80: 20 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 24   directory \"" $
1c90: 70 72 6f 67 72 61 6d 46 69 6c 65 73 20 5c 0a 20  programFiles \. 
1ca0: 20 20 20 20 20 22 5c 22 20 66 72 6f 6d 20 65 6e       "\" from en
1cb0: 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62  vironment variab
1cc0: 6c 65 20 5c 22 22 20 24 65 6e 76 56 61 72 4e 61  le \"" $envVarNa
1cd0: 6d 65 20 5c 0a 20 20 20 20 20 20 22 5c 22 20 64  me \.      "\" d
1ce0: 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 5d 0a  oes not exist"].
1cf0: 7d 0a 0a 73 65 74 20 6d 73 42 75 69 6c 64 20 5b  }..set msBuild [
1d00: 66 69 6c 65 20 6a 6f 69 6e 20 24 70 72 6f 67 72  file join $progr
1d10: 61 6d 46 69 6c 65 73 20 4d 53 42 75 69 6c 64 20  amFiles MSBuild 
1d20: 31 34 2e 30 20 42 69 6e 20 4d 53 42 75 69 6c 64  14.0 Bin MSBuild
1d30: 2e 65 78 65 5d 0a 0a 69 66 20 7b 5b 69 73 42 61  .exe]..if {[isBa
1d40: 64 46 69 6c 65 20 24 6d 73 42 75 69 6c 64 5d 7d  dFile $msBuild]}
1d50: 20 74 68 65 6e 20 7b 0a 20 20 66 61 69 6c 20 5b   then {.  fail [
1d60: 61 70 70 65 6e 64 41 72 67 73 20 5c 0a 20 20 20  appendArgs \.   
1d70: 20 20 20 22 4d 53 42 75 69 6c 64 20 76 31 34 2e     "MSBuild v14.
1d80: 30 20 65 78 65 63 75 74 61 62 6c 65 20 66 69 6c  0 executable fil
1d90: 65 20 5c 22 22 20 24 6d 73 42 75 69 6c 64 20 5c  e \"" $msBuild \
1da0: 0a 20 20 20 20 20 20 22 5c 22 20 64 6f 65 73 20  .      "\" does 
1db0: 6e 6f 74 20 65 78 69 73 74 22 5d 0a 7d 0a 0a 73  not exist"].}..s
1dc0: 65 74 20 74 65 6d 70 6f 72 61 72 79 44 69 72 65  et temporaryDire
1dd0: 63 74 6f 72 79 20 5b 67 65 74 54 65 6d 70 6f 72  ctory [getTempor
1de0: 61 72 79 50 61 74 68 5d 0a 0a 69 66 20 7b 5b 69  aryPath]..if {[i
1df0: 73 42 61 64 44 69 72 65 63 74 6f 72 79 20 24 74  sBadDirectory $t
1e00: 65 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72  emporaryDirector
1e10: 79 5d 7d 20 74 68 65 6e 20 7b 0a 20 20 66 61 69  y]} then {.  fai
1e20: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0a  l [appendArgs \.
1e30: 20 20 20 20 20 20 22 54 65 6d 70 6f 72 61 72 79        "Temporary
1e40: 20 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 24   directory \"" $
1e50: 74 65 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f  temporaryDirecto
1e60: 72 79 20 5c 0a 20 20 20 20 20 20 22 5c 22 20 64  ry \.      "\" d
1e70: 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 5d 0a  oes not exist"].
1e80: 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  }..#############
1e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1ed0: 23 23 0a 0a 73 65 74 20 69 6e 73 74 61 6c 6c 4c  ##..set installL
1ee0: 6f 67 46 69 6c 65 4e 61 6d 65 20 5b 61 70 70 65  ogFileName [appe
1ef0: 6e 64 41 72 67 73 20 5c 0a 20 20 20 20 5b 66 69  ndArgs \.    [fi
1f00: 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 69 6c  le rootname [fil
1f10: 65 20 74 61 69 6c 20 24 76 73 69 78 46 69 6c 65  e tail $vsixFile
1f20: 4e 61 6d 65 5d 5d 20 5c 0a 20 20 20 20 2d 69 6e  Name]] \.    -in
1f30: 73 74 61 6c 6c 2d 20 5b 70 69 64 5d 20 2e 6c 6f  stall- [pid] .lo
1f40: 67 5d 0a 0a 73 65 74 20 63 6f 6d 6d 61 6e 64 73  g]..set commands
1f50: 28 31 29 20 5b 6c 69 73 74 20 65 78 65 63 20 5b  (1) [list exec [
1f60: 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20  file nativename 
1f70: 24 76 73 69 78 49 6e 73 74 61 6c 6c 65 72 5d 5d  $vsixInstaller]]
1f80: 0a 0a 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e  ..lappend comman
1f90: 64 73 28 31 29 20 2f 71 75 69 65 74 20 2f 6e 6f  ds(1) /quiet /no
1fa0: 72 65 70 61 69 72 0a 6c 61 70 70 65 6e 64 20 63  repair.lappend c
1fb0: 6f 6d 6d 61 6e 64 73 28 31 29 20 5b 61 70 70 65  ommands(1) [appe
1fc0: 6e 64 41 72 67 73 20 2f 6c 6f 67 46 69 6c 65 3a  ndArgs /logFile:
1fd0: 20 24 69 6e 73 74 61 6c 6c 4c 6f 67 46 69 6c 65   $installLogFile
1fe0: 4e 61 6d 65 5d 0a 6c 61 70 70 65 6e 64 20 63 6f  Name].lappend co
1ff0: 6d 6d 61 6e 64 73 28 31 29 20 5b 66 69 6c 65 20  mmands(1) [file 
2000: 6e 61 74 69 76 65 6e 61 6d 65 20 24 76 73 69 78  nativename $vsix
2010: 46 69 6c 65 4e 61 6d 65 5d 0a 0a 23 23 23 23 23  FileName]..#####
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 23 23 23 23 23 0a 0a 73 65 74 20  ##########..set 
2070: 62 75 69 6c 64 4c 6f 67 46 69 6c 65 4e 61 6d 65  buildLogFileName
2080: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0a 20   [appendArgs \. 
2090: 20 20 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d     [file rootnam
20a0: 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 76 73  e [file tail $vs
20b0: 69 78 46 69 6c 65 4e 61 6d 65 5d 5d 20 5c 0a 20  ixFileName]] \. 
20c0: 20 20 20 2d 62 75 69 6c 64 2d 25 63 6f 6e 66 69     -build-%confi
20d0: 67 75 72 61 74 69 6f 6e 25 2d 25 70 6c 61 74 66  guration%-%platf
20e0: 6f 72 6d 25 2d 20 5b 70 69 64 5d 20 2e 6c 6f 67  orm%- [pid] .log
20f0: 5d 0a 0a 73 65 74 20 63 6f 6d 6d 61 6e 64 73 28  ]..set commands(
2100: 32 29 20 5b 6c 69 73 74 20 65 78 65 63 20 5b 66  2) [list exec [f
2110: 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 24  ile nativename $
2120: 6d 73 42 75 69 6c 64 5d 5d 0a 0a 6c 61 70 70 65  msBuild]]..lappe
2130: 6e 64 20 63 6f 6d 6d 61 6e 64 73 28 32 29 20 5b  nd commands(2) [
2140: 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20  file nativename 
2150: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68  [file join $path
2160: 20 76 73 69 78 74 65 73 74 2e 73 6c 6e 5d 5d 0a   vsixtest.sln]].
2170: 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 73  lappend commands
2180: 28 32 29 20 2f 74 61 72 67 65 74 3a 52 65 62 75  (2) /target:Rebu
2190: 69 6c 64 0a 6c 61 70 70 65 6e 64 20 63 6f 6d 6d  ild.lappend comm
21a0: 61 6e 64 73 28 32 29 20 2f 70 72 6f 70 65 72 74  ands(2) /propert
21b0: 79 3a 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3d  y:Configuration=
21c0: 25 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 25 0a  %configuration%.
21d0: 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 73  lappend commands
21e0: 28 32 29 20 2f 70 72 6f 70 65 72 74 79 3a 50 6c  (2) /property:Pl
21f0: 61 74 66 6f 72 6d 3d 25 70 6c 61 74 66 6f 72 6d  atform=%platform
2200: 25 0a 0a 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61  %..lappend comma
2210: 6e 64 73 28 32 29 20 5b 61 70 70 65 6e 64 41 72  nds(2) [appendAr
2220: 67 73 20 5c 0a 20 20 20 20 2f 6c 6f 67 67 65 72  gs \.    /logger
2230: 3a 46 69 6c 65 4c 6f 67 67 65 72 2c 4d 69 63 72  :FileLogger,Micr
2240: 6f 73 6f 66 74 2e 42 75 69 6c 64 2e 45 6e 67 69  osoft.Build.Engi
2250: 6e 65 5c 3b 4c 6f 67 66 69 6c 65 3d 20 5c 0a 20  ne\;Logfile= \. 
2260: 20 20 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e     [file nativen
2270: 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  ame [file join $
2280: 74 65 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f  temporaryDirecto
2290: 72 79 20 5c 0a 20 20 20 20 24 62 75 69 6c 64 4c  ry \.    $buildL
22a0: 6f 67 46 69 6c 65 4e 61 6d 65 5d 5d 20 5c 3b 56  ogFileName]] \;V
22b0: 65 72 62 6f 73 69 74 79 3d 64 69 61 67 6e 6f 73  erbosity=diagnos
22c0: 74 69 63 5d 0a 0a 23 23 23 23 23 23 23 23 23 23  tic]..##########
22d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
22e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
22f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2310: 23 23 23 23 23 0a 0a 73 65 74 20 75 6e 69 6e 73  #####..set unins
2320: 74 61 6c 6c 4c 6f 67 46 69 6c 65 4e 61 6d 65 20  tallLogFileName 
2330: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0a 20 20  [appendArgs \.  
2340: 20 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65    [file rootname
2350: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 76 73 69   [file tail $vsi
2360: 78 46 69 6c 65 4e 61 6d 65 5d 5d 20 5c 0a 20 20  xFileName]] \.  
2370: 20 20 2d 75 6e 69 6e 73 74 61 6c 6c 2d 20 5b 70    -uninstall- [p
2380: 69 64 5d 20 2e 6c 6f 67 5d 0a 0a 73 65 74 20 63  id] .log]..set c
2390: 6f 6d 6d 61 6e 64 73 28 33 29 20 5b 6c 69 73 74  ommands(3) [list
23a0: 20 65 78 65 63 20 5b 66 69 6c 65 20 6e 61 74 69   exec [file nati
23b0: 76 65 6e 61 6d 65 20 24 76 73 69 78 49 6e 73 74  vename $vsixInst
23c0: 61 6c 6c 65 72 5d 5d 0a 0a 6c 61 70 70 65 6e 64  aller]]..lappend
23d0: 20 63 6f 6d 6d 61 6e 64 73 28 33 29 20 2f 71 75   commands(3) /qu
23e0: 69 65 74 20 2f 6e 6f 72 65 70 61 69 72 0a 6c 61  iet /norepair.la
23f0: 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 73 28 33  ppend commands(3
2400: 29 20 5b 61 70 70 65 6e 64 41 72 67 73 20 2f 6c  ) [appendArgs /l
2410: 6f 67 46 69 6c 65 3a 20 24 75 6e 69 6e 73 74 61  ogFile: $uninsta
2420: 6c 6c 4c 6f 67 46 69 6c 65 4e 61 6d 65 5d 0a 6c  llLogFileName].l
2430: 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 73 28  append commands(
2440: 33 29 20 5b 61 70 70 65 6e 64 41 72 67 73 20 2f  3) [appendArgs /
2450: 75 6e 69 6e 73 74 61 6c 6c 3a 53 51 4c 69 74 65  uninstall:SQLite
2460: 2e 55 57 50 2e 32 30 31 35 5d 0a 0a 23 23 23 23  .UWP.2015]..####
2470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
24a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
24b0: 23 23 23 23 23 23 23 23 23 23 23 0a 0a 69 66 20  ###########..if 
24c0: 7b 31 7d 20 74 68 65 6e 20 7b 0a 20 20 63 61 74  {1} then {.  cat
24d0: 63 68 20 7b 0a 20 20 20 20 70 75 74 73 20 73 74  ch {.    puts st
24e0: 64 6f 75 74 20 5b 61 70 70 65 6e 64 41 72 67 73  dout [appendArgs
24f0: 20 5c 0a 20 20 20 20 20 20 20 20 22 49 6e 73 74   \.        "Inst
2500: 61 6c 6c 20 6c 6f 67 3a 20 5c 22 22 20 5b 66 69  all log: \"" [fi
2510: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66  le nativename [f
2520: 69 6c 65 20 6a 6f 69 6e 20 5c 0a 20 20 20 20 20  ile join \.     
2530: 20 20 20 24 74 65 6d 70 6f 72 61 72 79 44 69 72     $temporaryDir
2540: 65 63 74 6f 72 79 20 24 69 6e 73 74 61 6c 6c 4c  ectory $installL
2550: 6f 67 46 69 6c 65 4e 61 6d 65 5d 5d 20 5c 22 5c  ogFileName]] \"\
2560: 6e 5d 0a 20 20 7d 0a 0a 20 20 63 61 74 63 68 20  n].  }..  catch 
2570: 7b 0a 20 20 20 20 70 75 74 73 20 73 74 64 6f 75  {.    puts stdou
2580: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0a  t [appendArgs \.
2590: 20 20 20 20 20 20 20 20 22 42 75 69 6c 64 20 6c          "Build l
25a0: 6f 67 73 3a 20 5c 22 22 20 5b 66 69 6c 65 20 6e  ogs: \"" [file n
25b0: 61 74 69 76 65 6e 61 6d 65 20 5b 66 69 6c 65 20  ativename [file 
25c0: 6a 6f 69 6e 20 5c 0a 20 20 20 20 20 20 20 20 24  join \.        $
25d0: 74 65 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f  temporaryDirecto
25e0: 72 79 20 24 62 75 69 6c 64 4c 6f 67 46 69 6c 65  ry $buildLogFile
25f0: 4e 61 6d 65 5d 5d 20 5c 22 5c 6e 5d 0a 20 20 7d  Name]] \"\n].  }
2600: 0a 0a 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20  ..  catch {.    
2610: 70 75 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70  puts stdout [app
2620: 65 6e 64 41 72 67 73 20 5c 0a 20 20 20 20 20 20  endArgs \.      
2630: 20 20 22 55 6e 69 6e 73 74 61 6c 6c 20 6c 6f 67    "Uninstall log
2640: 3a 20 5c 22 22 20 5b 66 69 6c 65 20 6e 61 74 69  : \"" [file nati
2650: 76 65 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69  vename [file joi
2660: 6e 20 5c 0a 20 20 20 20 20 20 20 20 24 74 65 6d  n \.        $tem
2670: 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20  poraryDirectory 
2680: 24 75 6e 69 6e 73 74 61 6c 6c 4c 6f 67 46 69 6c  $uninstallLogFil
2690: 65 4e 61 6d 65 5d 5d 20 5c 22 5c 6e 5d 0a 20 20  eName]] \"\n].  
26a0: 7d 0a 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 23  }.}..###########
26b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
26c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
26d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
26e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
26f0: 23 23 23 23 0a 0a 69 66 20 7b 31 7d 20 74 68 65  ####..if {1} the
2700: 6e 20 7b 0a 20 20 70 75 74 73 41 6e 64 45 76 61  n {.  putsAndEva
2710: 6c 20 24 63 6f 6d 6d 61 6e 64 73 28 31 29 0a 0a  l $commands(1)..
2720: 20 20 73 65 74 20 76 65 72 73 69 6f 6e 4e 75 6d    set versionNum
2730: 62 65 72 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  ber [string trim
2740: 20 5b 72 65 61 64 46 69 6c 65 20 24 76 65 72 73   [readFile $vers
2750: 69 6f 6e 46 69 6c 65 4e 61 6d 65 5d 5d 0a 20 20  ionFileName]].  
2760: 73 65 74 20 64 61 74 61 20 5b 72 65 61 64 46 69  set data [readFi
2770: 6c 65 20 24 70 72 6f 6a 65 63 74 54 65 6d 70 6c  le $projectTempl
2780: 61 74 65 46 69 6c 65 4e 61 6d 65 5d 0a 20 20 73  ateFileName].  s
2790: 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20  et data [string 
27a0: 6d 61 70 20 5b 6c 69 73 74 20 25 76 65 72 73 69  map [list %versi
27b0: 6f 6e 4e 75 6d 62 65 72 25 20 24 76 65 72 73 69  onNumber% $versi
27c0: 6f 6e 4e 75 6d 62 65 72 5d 20 24 64 61 74 61 5d  onNumber] $data]
27d0: 0a 0a 20 20 73 65 74 20 70 72 6f 6a 65 63 74 46  ..  set projectF
27e0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f  ileName [file jo
27f0: 69 6e 20 24 70 61 74 68 20 76 73 69 78 74 65 73  in $path vsixtes
2800: 74 2e 76 63 78 70 72 6f 6a 5d 0a 20 20 77 72 69  t.vcxproj].  wri
2810: 74 65 46 69 6c 65 20 24 70 72 6f 6a 65 63 74 46  teFile $projectF
2820: 69 6c 65 4e 61 6d 65 20 24 64 61 74 61 0a 0a 20  ileName $data.. 
2830: 20 73 65 74 20 70 6c 61 74 66 6f 72 6d 73 20 5b   set platforms [
2840: 6c 69 73 74 20 78 38 36 20 78 36 34 20 41 52 4d  list x86 x64 ARM
2850: 5d 0a 20 20 73 65 74 20 63 6f 6e 66 69 67 75 72  ].  set configur
2860: 61 74 69 6f 6e 73 20 5b 6c 69 73 74 20 44 65 62  ations [list Deb
2870: 75 67 20 52 65 6c 65 61 73 65 5d 0a 0a 20 20 66  ug Release]..  f
2880: 6f 72 65 61 63 68 20 70 6c 61 74 66 6f 72 6d 20  oreach platform 
2890: 24 70 6c 61 74 66 6f 72 6d 73 20 7b 0a 20 20 20  $platforms {.   
28a0: 20 66 6f 72 65 61 63 68 20 63 6f 6e 66 69 67 75   foreach configu
28b0: 72 61 74 69 6f 6e 20 24 63 6f 6e 66 69 67 75 72  ration $configur
28c0: 61 74 69 6f 6e 73 20 7b 0a 20 20 20 20 20 20 70  ations {.      p
28d0: 75 74 73 41 6e 64 45 76 61 6c 20 5b 73 74 72 69  utsAndEval [stri
28e0: 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 5c 0a 20  ng map [list \. 
28f0: 20 20 20 20 20 20 20 20 20 25 70 6c 61 74 66 6f           %platfo
2900: 72 6d 25 20 24 70 6c 61 74 66 6f 72 6d 20 25 63  rm% $platform %c
2910: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 25 20 24 63  onfiguration% $c
2920: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 5c 0a  onfiguration] \.
2930: 20 20 20 20 20 20 20 20 20 20 24 63 6f 6d 6d 61            $comma
2940: 6e 64 73 28 32 29 5d 0a 20 20 20 20 7d 0a 20 20  nds(2)].    }.  
2950: 7d 0a 0a 20 20 70 75 74 73 41 6e 64 45 76 61 6c  }..  putsAndEval
2960: 20 24 63 6f 6d 6d 61 6e 64 73 28 33 29 0a 7d 0a   $commands(3).}.