/ Hex Artifact Content
Login

Artifact 8995df40c4209808b31f24de0b58f90930239a234f7591e3675d45bfbb990c5d:


0000: 40 45 43 48 4f 20 4f 46 46 0d 0a 0d 0a 3a 3a 0d  @ECHO OFF....::.
0010: 0a 3a 3a 20 47 65 74 54 63 6c 4b 69 74 2e 62 61  .:: GetTclKit.ba
0020: 74 20 2d 2d 0d 0a 3a 3a 0d 0a 3a 3a 20 54 63 6c  t --..::..:: Tcl
0030: 4b 69 74 20 44 6f 77 6e 6c 6f 61 64 20 54 6f 6f  Kit Download Too
0040: 6c 0d 0a 3a 3a 0d 0a 0d 0a 53 45 54 4c 4f 43 41  l..::....SETLOCA
0050: 4c 0d 0a 0d 0a 52 45 4d 20 53 45 54 20 5f 5f 45  L....REM SET __E
0060: 43 48 4f 3d 45 43 48 4f 0d 0a 52 45 4d 20 53 45  CHO=ECHO..REM SE
0070: 54 20 5f 5f 45 43 48 4f 32 3d 45 43 48 4f 0d 0a  T __ECHO2=ECHO..
0080: 52 45 4d 20 53 45 54 20 5f 5f 45 43 48 4f 33 3d  REM SET __ECHO3=
0090: 45 43 48 4f 0d 0a 49 46 20 4e 4f 54 20 44 45 46  ECHO..IF NOT DEF
00a0: 49 4e 45 44 20 5f 41 45 43 48 4f 20 28 53 45 54  INED _AECHO (SET
00b0: 20 5f 41 45 43 48 4f 3d 52 45 4d 29 0d 0a 49 46   _AECHO=REM)..IF
00c0: 20 4e 4f 54 20 44 45 46 49 4e 45 44 20 5f 43 45   NOT DEFINED _CE
00d0: 43 48 4f 20 28 53 45 54 20 5f 43 45 43 48 4f 3d  CHO (SET _CECHO=
00e0: 52 45 4d 29 0d 0a 49 46 20 4e 4f 54 20 44 45 46  REM)..IF NOT DEF
00f0: 49 4e 45 44 20 5f 56 45 43 48 4f 20 28 53 45 54  INED _VECHO (SET
0100: 20 5f 56 45 43 48 4f 3d 52 45 4d 29 0d 0a 0d 0a   _VECHO=REM)....
0110: 53 45 54 20 4f 56 45 52 57 52 49 54 45 3d 5e 3e  SET OVERWRITE=^>
0120: 0d 0a 49 46 20 44 45 46 49 4e 45 44 20 5f 5f 45  ..IF DEFINED __E
0130: 43 48 4f 20 53 45 54 20 4f 56 45 52 57 52 49 54  CHO SET OVERWRIT
0140: 45 3d 5e 5e 5e 3e 0d 0a 0d 0a 53 45 54 20 41 50  E=^^^>....SET AP
0150: 50 45 4e 44 3d 5e 3e 5e 3e 0d 0a 49 46 20 44 45  PEND=^>^>..IF DE
0160: 46 49 4e 45 44 20 5f 5f 45 43 48 4f 20 53 45 54  FINED __ECHO SET
0170: 20 41 50 50 45 4e 44 3d 5e 5e 5e 3e 5e 5e 5e 3e   APPEND=^^^>^^^>
0180: 0d 0a 0d 0a 53 45 54 20 50 52 4f 43 45 53 53 4f  ....SET PROCESSO
0190: 52 3d 25 31 0d 0a 0d 0a 49 46 20 44 45 46 49 4e  R=%1....IF DEFIN
01a0: 45 44 20 50 52 4f 43 45 53 53 4f 52 20 28 0d 0a  ED PROCESSOR (..
01b0: 20 20 43 41 4c 4c 20 3a 66 6e 5f 55 6e 71 75 6f    CALL :fn_Unquo
01c0: 74 65 56 61 72 69 61 62 6c 65 20 50 52 4f 43 45  teVariable PROCE
01d0: 53 53 4f 52 0d 0a 29 20 45 4c 53 45 20 28 0d 0a  SSOR..) ELSE (..
01e0: 20 20 47 4f 54 4f 20 75 73 61 67 65 0d 0a 29 0d    GOTO usage..).
01f0: 0a 0d 0a 53 45 54 20 50 52 4f 43 45 53 53 4f 52  ...SET PROCESSOR
0200: 3d 25 50 52 4f 43 45 53 53 4f 52 3a 41 4d 44 36  =%PROCESSOR:AMD6
0210: 34 3d 78 36 34 25 0d 0a 0d 0a 25 5f 56 45 43 48  4=x64%....%_VECH
0220: 4f 25 20 50 72 6f 63 65 73 73 6f 72 20 3d 20 27  O% Processor = '
0230: 25 50 52 4f 43 45 53 53 4f 52 25 27 0d 0a 0d 0a  %PROCESSOR%'....
0240: 53 45 54 20 44 55 4d 4d 59 32 3d 25 32 0d 0a 0d  SET DUMMY2=%2...
0250: 0a 49 46 20 44 45 46 49 4e 45 44 20 44 55 4d 4d  .IF DEFINED DUMM
0260: 59 32 20 28 0d 0a 20 20 47 4f 54 4f 20 75 73 61  Y2 (..  GOTO usa
0270: 67 65 0d 0a 29 0d 0a 0d 0a 53 45 54 20 52 4f 4f  ge..)....SET ROO
0280: 54 3d 25 7e 64 70 30 5c 2e 2e 0d 0a 53 45 54 20  T=%~dp0\....SET 
0290: 52 4f 4f 54 3d 25 52 4f 4f 54 3a 5c 5c 3d 5c 25  ROOT=%ROOT:\\=\%
02a0: 0d 0a 0d 0a 25 5f 56 45 43 48 4f 25 20 52 6f 6f  ....%_VECHO% Roo
02b0: 74 20 3d 20 27 25 52 4f 4f 54 25 27 0d 0a 0d 0a  t = '%ROOT%'....
02c0: 53 45 54 20 54 4f 4f 4c 53 3d 25 7e 64 70 30 0d  SET TOOLS=%~dp0.
02d0: 0a 53 45 54 20 54 4f 4f 4c 53 3d 25 54 4f 4f 4c  .SET TOOLS=%TOOL
02e0: 53 3a 7e 30 2c 2d 31 25 0d 0a 0d 0a 25 5f 56 45  S:~0,-1%....%_VE
02f0: 43 48 4f 25 20 54 6f 6f 6c 73 20 3d 20 27 25 54  CHO% Tools = '%T
0300: 4f 4f 4c 53 25 27 0d 0a 0d 0a 49 46 20 4e 4f 54  OOLS%'....IF NOT
0310: 20 44 45 46 49 4e 45 44 20 77 69 6e 64 69 72 20   DEFINED windir 
0320: 28 0d 0a 20 20 45 43 48 4f 20 54 68 65 20 77 69  (..  ECHO The wi
0330: 6e 64 69 72 20 65 6e 76 69 72 6f 6e 6d 65 6e 74  ndir environment
0340: 20 76 61 72 69 61 62 6c 65 20 6d 75 73 74 20 62   variable must b
0350: 65 20 73 65 74 20 66 69 72 73 74 2e 0d 0a 20 20  e set first...  
0360: 47 4f 54 4f 20 65 72 72 6f 72 73 0d 0a 29 0d 0a  GOTO errors..)..
0370: 0d 0a 25 5f 56 45 43 48 4f 25 20 57 69 6e 44 69  ..%_VECHO% WinDi
0380: 72 20 3d 20 27 25 77 69 6e 64 69 72 25 27 0d 0a  r = '%windir%'..
0390: 0d 0a 49 46 20 4e 4f 54 20 44 45 46 49 4e 45 44  ..IF NOT DEFINED
03a0: 20 54 45 4d 50 20 28 0d 0a 20 20 45 43 48 4f 20   TEMP (..  ECHO 
03b0: 54 68 65 20 54 45 4d 50 20 65 6e 76 69 72 6f 6e  The TEMP environ
03c0: 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 20 6d 75  ment variable mu
03d0: 73 74 20 62 65 20 73 65 74 20 66 69 72 73 74 2e  st be set first.
03e0: 0d 0a 20 20 47 4f 54 4f 20 65 72 72 6f 72 73 0d  ..  GOTO errors.
03f0: 0a 29 0d 0a 0d 0a 25 5f 56 45 43 48 4f 25 20 54  .)....%_VECHO% T
0400: 65 6d 70 20 3d 20 27 25 54 45 4d 50 25 27 0d 0a  emp = '%TEMP%'..
0410: 0d 0a 49 46 20 4e 4f 54 20 44 45 46 49 4e 45 44  ..IF NOT DEFINED
0420: 20 54 43 4c 4b 49 54 5f 55 52 49 20 28 0d 0a 20   TCLKIT_URI (.. 
0430: 20 53 45 54 20 54 43 4c 4b 49 54 5f 55 52 49 3d   SET TCLKIT_URI=
0440: 68 74 74 70 73 3a 2f 2f 74 63 6c 73 68 2e 63 6f  https://tclsh.co
0450: 6d 2f 0d 0a 29 0d 0a 0d 0a 25 5f 56 45 43 48 4f  m/..)....%_VECHO
0460: 25 20 54 63 6c 4b 69 74 55 72 69 20 3d 20 27 25  % TclKitUri = '%
0470: 54 43 4c 4b 49 54 5f 55 52 49 25 27 0d 0a 0d 0a  TCLKIT_URI%'....
0480: 49 46 20 2f 49 20 22 25 50 52 4f 43 45 53 53 4f  IF /I "%PROCESSO
0490: 52 25 22 20 3d 3d 20 22 78 38 36 22 20 28 0d 0a  R%" == "x86" (..
04a0: 20 20 43 41 4c 4c 20 3a 66 6e 5f 54 63 6c 4b 69    CALL :fn_TclKi
04b0: 74 58 38 36 56 61 72 69 61 62 6c 65 73 0d 0a 29  tX86Variables..)
04c0: 20 45 4c 53 45 20 49 46 20 2f 49 20 22 25 50 52   ELSE IF /I "%PR
04d0: 4f 43 45 53 53 4f 52 25 22 20 3d 3d 20 22 78 36  OCESSOR%" == "x6
04e0: 34 22 20 28 0d 0a 20 20 43 41 4c 4c 20 3a 66 6e  4" (..  CALL :fn
04f0: 5f 54 63 6c 4b 69 74 58 36 34 56 61 72 69 61 62  _TclKitX64Variab
0500: 6c 65 73 0d 0a 29 20 45 4c 53 45 20 28 0d 0a 20  les..) ELSE (.. 
0510: 20 47 4f 54 4f 20 75 73 61 67 65 0d 0a 29 0d 0a   GOTO usage..)..
0520: 0d 0a 25 5f 56 45 43 48 4f 25 20 54 63 6c 4b 69  ..%_VECHO% TclKi
0530: 74 56 65 72 73 69 6f 6e 20 3d 20 27 25 54 43 4c  tVersion = '%TCL
0540: 4b 49 54 5f 56 45 52 53 49 4f 4e 25 27 0d 0a 25  KIT_VERSION%'..%
0550: 5f 56 45 43 48 4f 25 20 54 63 6c 4b 69 74 50 61  _VECHO% TclKitPa
0560: 74 63 68 4c 65 76 65 6c 20 3d 20 27 25 54 43 4c  tchLevel = '%TCL
0570: 4b 49 54 5f 50 41 54 43 48 4c 45 56 45 4c 25 27  KIT_PATCHLEVEL%'
0580: 0d 0a 25 5f 56 45 43 48 4f 25 20 54 63 6c 4b 69  ..%_VECHO% TclKi
0590: 74 4e 6f 45 6e 76 20 3d 20 27 25 54 43 4c 4b 49  tNoEnv = '%TCLKI
05a0: 54 5f 4e 4f 45 4e 56 25 27 0d 0a 25 5f 56 45 43  T_NOENV%'..%_VEC
05b0: 48 4f 25 20 54 63 6c 4b 69 74 4e 6f 53 64 6b 20  HO% TclKitNoSdk 
05c0: 3d 20 27 25 54 43 4c 4b 49 54 5f 4e 4f 53 44 4b  = '%TCLKIT_NOSDK
05d0: 25 27 0d 0a 25 5f 56 45 43 48 4f 25 20 54 63 6c  %'..%_VECHO% Tcl
05e0: 4b 69 74 45 78 65 20 3d 20 27 25 54 43 4c 4b 49  KitExe = '%TCLKI
05f0: 54 5f 45 58 45 25 27 0d 0a 25 5f 56 45 43 48 4f  T_EXE%'..%_VECHO
0600: 25 20 54 63 6c 4b 69 74 4c 69 62 20 3d 20 27 25  % TclKitLib = '%
0610: 54 43 4c 4b 49 54 5f 4c 49 42 25 27 0d 0a 25 5f  TCLKIT_LIB%'..%_
0620: 56 45 43 48 4f 25 20 54 63 6c 4b 69 74 4c 69 62  VECHO% TclKitLib
0630: 53 74 75 62 20 3d 20 27 25 54 43 4c 4b 49 54 5f  Stub = '%TCLKIT_
0640: 4c 49 42 5f 53 54 55 42 25 27 0d 0a 25 5f 56 45  LIB_STUB%'..%_VE
0650: 43 48 4f 25 20 54 63 6c 4b 69 74 53 64 6b 20 3d  CHO% TclKitSdk =
0660: 20 27 25 54 43 4c 4b 49 54 5f 53 44 4b 25 27 0d   '%TCLKIT_SDK%'.
0670: 0a 25 5f 56 45 43 48 4f 25 20 54 63 6c 4b 69 74  .%_VECHO% TclKit
0680: 53 64 6b 5a 69 70 20 3d 20 27 25 54 43 4c 4b 49  SdkZip = '%TCLKI
0690: 54 5f 53 44 4b 5f 5a 49 50 25 27 0d 0a 25 5f 56  T_SDK_ZIP%'..%_V
06a0: 45 43 48 4f 25 20 54 63 6c 4b 69 74 46 69 6c 65  ECHO% TclKitFile
06b0: 73 20 3d 20 27 25 54 43 4c 4b 49 54 5f 46 49 4c  s = '%TCLKIT_FIL
06c0: 45 53 25 27 0d 0a 0d 0a 43 41 4c 4c 20 3a 66 6e  ES%'....CALL :fn
06d0: 5f 52 65 73 65 74 45 72 72 6f 72 4c 65 76 65 6c  _ResetErrorLevel
06e0: 0d 0a 0d 0a 46 4f 52 20 25 25 54 20 49 4e 20 28  ....FOR %%T IN (
06f0: 63 73 63 2e 65 78 65 29 20 44 4f 20 28 0d 0a 20  csc.exe) DO (.. 
0700: 20 53 45 54 20 25 25 54 5f 50 41 54 48 3d 25 25   SET %%T_PATH=%%
0710: 7e 64 70 24 50 41 54 48 3a 54 0d 0a 29 0d 0a 0d  ~dp$PATH:T..)...
0720: 0a 25 5f 56 45 43 48 4f 25 20 43 73 63 2e 65 78  .%_VECHO% Csc.ex
0730: 65 5f 50 41 54 48 20 3d 20 27 25 63 73 63 2e 65  e_PATH = '%csc.e
0740: 78 65 5f 50 41 54 48 25 27 0d 0a 0d 0a 49 46 20  xe_PATH%'....IF 
0750: 44 45 46 49 4e 45 44 20 63 73 63 2e 65 78 65 5f  DEFINED csc.exe_
0760: 50 41 54 48 20 28 0d 0a 20 20 47 4f 54 4f 20 73  PATH (..  GOTO s
0770: 6b 69 70 5f 61 64 64 54 6f 50 61 74 68 0d 0a 29  kip_addToPath..)
0780: 0d 0a 0d 0a 49 46 20 44 45 46 49 4e 45 44 20 46  ....IF DEFINED F
0790: 52 41 4d 45 57 4f 52 4b 44 49 52 20 28 0d 0a 20  RAMEWORKDIR (.. 
07a0: 20 52 45 4d 20 55 73 65 20 74 68 65 20 65 78 69   REM Use the exi
07b0: 73 74 69 6e 67 20 2e 4e 45 54 20 46 72 61 6d 65  sting .NET Frame
07c0: 77 6f 72 6b 20 64 69 72 65 63 74 6f 72 79 2e 2e  work directory..
07d0: 2e 0d 0a 29 20 45 4c 53 45 20 49 46 20 45 58 49  ...) ELSE IF EXI
07e0: 53 54 20 22 25 77 69 6e 64 69 72 25 5c 4d 69 63  ST "%windir%\Mic
07f0: 72 6f 73 6f 66 74 2e 4e 45 54 5c 46 72 61 6d 65  rosoft.NET\Frame
0800: 77 6f 72 6b 36 34 5c 76 32 2e 30 2e 35 30 37 32  work64\v2.0.5072
0810: 37 22 20 28 0d 0a 20 20 53 45 54 20 46 52 41 4d  7" (..  SET FRAM
0820: 45 57 4f 52 4b 44 49 52 3d 25 77 69 6e 64 69 72  EWORKDIR=%windir
0830: 25 5c 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54 5c  %\Microsoft.NET\
0840: 46 72 61 6d 65 77 6f 72 6b 36 34 5c 76 32 2e 30  Framework64\v2.0
0850: 2e 35 30 37 32 37 0d 0a 29 20 45 4c 53 45 20 49  .50727..) ELSE I
0860: 46 20 45 58 49 53 54 20 22 25 77 69 6e 64 69 72  F EXIST "%windir
0870: 25 5c 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54 5c  %\Microsoft.NET\
0880: 46 72 61 6d 65 77 6f 72 6b 36 34 5c 76 33 2e 35  Framework64\v3.5
0890: 22 20 28 0d 0a 20 20 53 45 54 20 46 52 41 4d 45  " (..  SET FRAME
08a0: 57 4f 52 4b 44 49 52 3d 25 77 69 6e 64 69 72 25  WORKDIR=%windir%
08b0: 5c 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54 5c 46  \Microsoft.NET\F
08c0: 72 61 6d 65 77 6f 72 6b 36 34 5c 76 33 2e 35 0d  ramework64\v3.5.
08d0: 0a 29 20 45 4c 53 45 20 49 46 20 45 58 49 53 54  .) ELSE IF EXIST
08e0: 20 22 25 77 69 6e 64 69 72 25 5c 4d 69 63 72 6f   "%windir%\Micro
08f0: 73 6f 66 74 2e 4e 45 54 5c 46 72 61 6d 65 77 6f  soft.NET\Framewo
0900: 72 6b 36 34 5c 76 34 2e 30 2e 33 30 33 31 39 22  rk64\v4.0.30319"
0910: 20 28 0d 0a 20 20 53 45 54 20 46 52 41 4d 45 57   (..  SET FRAMEW
0920: 4f 52 4b 44 49 52 3d 25 77 69 6e 64 69 72 25 5c  ORKDIR=%windir%\
0930: 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54 5c 46 72  Microsoft.NET\Fr
0940: 61 6d 65 77 6f 72 6b 36 34 5c 76 34 2e 30 2e 33  amework64\v4.0.3
0950: 30 33 31 39 0d 0a 29 20 45 4c 53 45 20 49 46 20  0319..) ELSE IF 
0960: 45 58 49 53 54 20 22 25 77 69 6e 64 69 72 25 5c  EXIST "%windir%\
0970: 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54 5c 46 72  Microsoft.NET\Fr
0980: 61 6d 65 77 6f 72 6b 5c 76 32 2e 30 2e 35 30 37  amework\v2.0.507
0990: 32 37 22 20 28 0d 0a 20 20 53 45 54 20 46 52 41  27" (..  SET FRA
09a0: 4d 45 57 4f 52 4b 44 49 52 3d 25 77 69 6e 64 69  MEWORKDIR=%windi
09b0: 72 25 5c 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54  r%\Microsoft.NET
09c0: 5c 46 72 61 6d 65 77 6f 72 6b 5c 76 32 2e 30 2e  \Framework\v2.0.
09d0: 35 30 37 32 37 0d 0a 29 20 45 4c 53 45 20 49 46  50727..) ELSE IF
09e0: 20 45 58 49 53 54 20 22 25 77 69 6e 64 69 72 25   EXIST "%windir%
09f0: 5c 4d 69 63 72 6f 73 6f 66 74 2e 4e 45 54 5c 46  \Microsoft.NET\F
0a00: 72 61 6d 65 77 6f 72 6b 5c 76 33 2e 35 22 20 28  ramework\v3.5" (
0a10: 0d 0a 20 20 53 45 54 20 46 52 41 4d 45 57 4f 52  ..  SET FRAMEWOR
0a20: 4b 44 49 52 3d 25 77 69 6e 64 69 72 25 5c 4d 69  KDIR=%windir%\Mi
0a30: 63 72 6f 73 6f 66 74 2e 4e 45 54 5c 46 72 61 6d  crosoft.NET\Fram
0a40: 65 77 6f 72 6b 5c 76 33 2e 35 0d 0a 29 20 45 4c  ework\v3.5..) EL
0a50: 53 45 20 49 46 20 45 58 49 53 54 20 22 25 77 69  SE IF EXIST "%wi
0a60: 6e 64 69 72 25 5c 4d 69 63 72 6f 73 6f 66 74 2e  ndir%\Microsoft.
0a70: 4e 45 54 5c 46 72 61 6d 65 77 6f 72 6b 5c 76 34  NET\Framework\v4
0a80: 2e 30 2e 33 30 33 31 39 22 20 28 0d 0a 20 20 53  .0.30319" (..  S
0a90: 45 54 20 46 52 41 4d 45 57 4f 52 4b 44 49 52 3d  ET FRAMEWORKDIR=
0aa0: 25 77 69 6e 64 69 72 25 5c 4d 69 63 72 6f 73 6f  %windir%\Microso
0ab0: 66 74 2e 4e 45 54 5c 46 72 61 6d 65 77 6f 72 6b  ft.NET\Framework
0ac0: 5c 76 34 2e 30 2e 33 30 33 31 39 0d 0a 29 20 45  \v4.0.30319..) E
0ad0: 4c 53 45 20 28 0d 0a 20 20 45 43 48 4f 20 4e 6f  LSE (..  ECHO No
0ae0: 20 73 75 69 74 61 62 6c 65 20 76 65 72 73 69 6f   suitable versio
0af0: 6e 20 6f 66 20 74 68 65 20 2e 4e 45 54 20 46 72  n of the .NET Fr
0b00: 61 6d 65 77 6f 72 6b 20 61 70 70 65 61 72 73 20  amework appears 
0b10: 74 6f 20 62 65 20 69 6e 73 74 61 6c 6c 65 64 2e  to be installed.
0b20: 0d 0a 20 20 47 4f 54 4f 20 65 72 72 6f 72 73 0d  ..  GOTO errors.
0b30: 0a 29 0d 0a 0d 0a 25 5f 56 45 43 48 4f 25 20 46  .)....%_VECHO% F
0b40: 72 61 6d 65 77 6f 72 6b 44 69 72 20 3d 20 27 25  rameworkDir = '%
0b50: 46 52 41 4d 45 57 4f 52 4b 44 49 52 25 27 0d 0a  FRAMEWORKDIR%'..
0b60: 0d 0a 49 46 20 4e 4f 54 20 45 58 49 53 54 20 22  ..IF NOT EXIST "
0b70: 25 46 52 41 4d 45 57 4f 52 4b 44 49 52 25 5c 63  %FRAMEWORKDIR%\c
0b80: 73 63 2e 65 78 65 22 20 28 0d 0a 20 20 45 43 48  sc.exe" (..  ECH
0b90: 4f 20 54 68 65 20 66 69 6c 65 20 22 25 46 52 41  O The file "%FRA
0ba0: 4d 45 57 4f 52 4b 44 49 52 25 5c 63 73 63 2e 65  MEWORKDIR%\csc.e
0bb0: 78 65 22 20 69 73 20 6d 69 73 73 69 6e 67 2e 0d  xe" is missing..
0bc0: 0a 20 20 47 4f 54 4f 20 65 72 72 6f 72 73 0d 0a  .  GOTO errors..
0bd0: 29 0d 0a 0d 0a 43 41 4c 4c 20 3a 66 6e 5f 50 72  )....CALL :fn_Pr
0be0: 65 70 65 6e 64 54 6f 50 61 74 68 20 46 52 41 4d  ependToPath FRAM
0bf0: 45 57 4f 52 4b 44 49 52 0d 0a 0d 0a 3a 73 6b 69  EWORKDIR....:ski
0c00: 70 5f 61 64 64 54 6f 50 61 74 68 0d 0a 0d 0a 49  p_addToPath....I
0c10: 46 20 4e 4f 54 20 45 58 49 53 54 20 22 25 54 45  F NOT EXIST "%TE
0c20: 4d 50 25 5c 47 65 74 46 69 6c 65 2e 65 78 65 22  MP%\GetFile.exe"
0c30: 20 28 0d 0a 20 20 25 5f 5f 45 43 48 4f 25 20 63   (..  %__ECHO% c
0c40: 73 63 2e 65 78 65 20 22 2f 6f 75 74 3a 25 54 45  sc.exe "/out:%TE
0c50: 4d 50 25 5c 47 65 74 46 69 6c 65 2e 65 78 65 22  MP%\GetFile.exe"
0c60: 20 2f 74 61 72 67 65 74 3a 65 78 65 20 22 25 54   /target:exe "%T
0c70: 4f 4f 4c 53 25 5c 47 65 74 46 69 6c 65 2e 63 73  OOLS%\GetFile.cs
0c80: 22 0d 0a 0d 0a 20 20 49 46 20 45 52 52 4f 52 4c  "....  IF ERRORL
0c90: 45 56 45 4c 20 31 20 28 0d 0a 20 20 20 20 45 43  EVEL 1 (..    EC
0ca0: 48 4f 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 6f  HO Compilation o
0cb0: 66 20 22 25 54 4f 4f 4c 53 25 5c 47 65 74 46 69  f "%TOOLS%\GetFi
0cc0: 6c 65 2e 63 73 22 20 66 61 69 6c 65 64 2e 0d 0a  le.cs" failed...
0cd0: 20 20 20 20 47 4f 54 4f 20 65 72 72 6f 72 73 0d      GOTO errors.
0ce0: 0a 20 20 29 0d 0a 29 0d 0a 0d 0a 46 4f 52 20 25  .  )..)....FOR %
0cf0: 25 46 20 49 4e 20 28 25 54 43 4c 4b 49 54 5f 46  %F IN (%TCLKIT_F
0d00: 49 4c 45 53 25 29 20 44 4f 20 28 0d 0a 20 20 49  ILES%) DO (..  I
0d10: 46 20 4e 4f 54 20 45 58 49 53 54 20 22 25 54 45  F NOT EXIST "%TE
0d20: 4d 50 25 5c 25 25 46 22 20 28 0d 0a 20 20 20 20  MP%\%%F" (..    
0d30: 25 5f 5f 45 43 48 4f 25 20 22 25 54 45 4d 50 25  %__ECHO% "%TEMP%
0d40: 5c 47 65 74 46 69 6c 65 2e 65 78 65 22 20 22 25  \GetFile.exe" "%
0d50: 54 43 4c 4b 49 54 5f 55 52 49 25 25 25 46 22 0d  TCLKIT_URI%%%F".
0d60: 0a 0d 0a 20 20 20 20 49 46 20 45 52 52 4f 52 4c  ...    IF ERRORL
0d70: 45 56 45 4c 20 31 20 28 0d 0a 20 20 20 20 20 20  EVEL 1 (..      
0d80: 45 43 48 4f 20 44 6f 77 6e 6c 6f 61 64 20 6f 66  ECHO Download of
0d90: 20 22 25 25 46 22 20 66 72 6f 6d 20 22 25 54 43   "%%F" from "%TC
0da0: 4c 4b 49 54 5f 55 52 49 25 22 20 66 61 69 6c 65  LKIT_URI%" faile
0db0: 64 2e 0d 0a 20 20 20 20 20 20 47 4f 54 4f 20 65  d...      GOTO e
0dc0: 72 72 6f 72 73 0d 0a 20 20 20 20 29 0d 0a 20 20  rrors..    )..  
0dd0: 29 0d 0a 29 0d 0a 0d 0a 49 46 20 44 45 46 49 4e  )..)....IF DEFIN
0de0: 45 44 20 54 43 4c 4b 49 54 5f 4e 4f 45 4e 56 20  ED TCLKIT_NOENV 
0df0: 47 4f 54 4f 20 73 6b 69 70 5f 73 64 6b 55 6e 5a  GOTO skip_sdkUnZ
0e00: 69 70 0d 0a 49 46 20 44 45 46 49 4e 45 44 20 54  ip..IF DEFINED T
0e10: 43 4c 4b 49 54 5f 4e 4f 53 44 4b 20 47 4f 54 4f  CLKIT_NOSDK GOTO
0e20: 20 73 6b 69 70 5f 73 64 6b 55 6e 5a 69 70 0d 0a   skip_sdkUnZip..
0e30: 0d 0a 49 46 20 4e 4f 54 20 45 58 49 53 54 20 22  ..IF NOT EXIST "
0e40: 25 54 45 4d 50 25 5c 25 54 43 4c 4b 49 54 5f 53  %TEMP%\%TCLKIT_S
0e50: 44 4b 25 22 20 28 0d 0a 20 20 25 5f 5f 45 43 48  DK%" (..  %__ECH
0e60: 4f 25 20 4d 4b 44 49 52 20 22 25 54 45 4d 50 25  O% MKDIR "%TEMP%
0e70: 5c 25 54 43 4c 4b 49 54 5f 53 44 4b 25 22 0d 0a  \%TCLKIT_SDK%"..
0e80: 0d 0a 20 20 49 46 20 45 52 52 4f 52 4c 45 56 45  ..  IF ERRORLEVE
0e90: 4c 20 31 20 28 0d 0a 20 20 20 20 45 43 48 4f 20  L 1 (..    ECHO 
0ea0: 43 6f 75 6c 64 20 6e 6f 74 20 63 72 65 61 74 65  Could not create
0eb0: 20 64 69 72 65 63 74 6f 72 79 20 22 25 54 45 4d   directory "%TEM
0ec0: 50 25 5c 25 54 43 4c 4b 49 54 5f 53 44 4b 25 22  P%\%TCLKIT_SDK%"
0ed0: 2e 0d 0a 20 20 20 20 47 4f 54 4f 20 65 72 72 6f  ...    GOTO erro
0ee0: 72 73 0d 0a 20 20 29 0d 0a 29 0d 0a 0d 0a 25 5f  rs..  )..)....%_
0ef0: 5f 45 43 48 4f 25 20 22 25 54 45 4d 50 25 5c 75  _ECHO% "%TEMP%\u
0f00: 6e 7a 69 70 2e 65 78 65 22 20 2d 6e 20 22 25 54  nzip.exe" -n "%T
0f10: 45 4d 50 25 5c 25 54 43 4c 4b 49 54 5f 53 44 4b  EMP%\%TCLKIT_SDK
0f20: 5f 5a 49 50 25 22 20 2d 64 20 22 25 54 45 4d 50  _ZIP%" -d "%TEMP
0f30: 25 5c 25 54 43 4c 4b 49 54 5f 53 44 4b 25 22 0d  %\%TCLKIT_SDK%".
0f40: 0a 0d 0a 49 46 20 45 52 52 4f 52 4c 45 56 45 4c  ...IF ERRORLEVEL
0f50: 20 31 20 28 0d 0a 20 20 45 43 48 4f 20 43 6f 75   1 (..  ECHO Cou
0f60: 6c 64 20 6e 6f 74 20 75 6e 7a 69 70 20 22 25 54  ld not unzip "%T
0f70: 45 4d 50 25 5c 25 54 43 4c 4b 49 54 5f 53 44 4b  EMP%\%TCLKIT_SDK
0f80: 5f 5a 49 50 25 22 20 74 6f 20 22 25 54 45 4d 50  _ZIP%" to "%TEMP
0f90: 25 5c 25 54 43 4c 4b 49 54 5f 53 44 4b 25 22 2e  %\%TCLKIT_SDK%".
0fa0: 0d 0a 20 20 47 4f 54 4f 20 65 72 72 6f 72 73 0d  ..  GOTO errors.
0fb0: 0a 29 0d 0a 0d 0a 3a 73 6b 69 70 5f 73 64 6b 55  .)....:skip_sdkU
0fc0: 6e 5a 69 70 0d 0a 0d 0a 49 46 20 44 45 46 49 4e  nZip....IF DEFIN
0fd0: 45 44 20 54 43 4c 4b 49 54 5f 4e 4f 45 4e 56 20  ED TCLKIT_NOENV 
0fe0: 47 4f 54 4f 20 73 6b 69 70 5f 73 64 6b 45 6e 76  GOTO skip_sdkEnv
0ff0: 69 72 6f 6e 6d 65 6e 74 0d 0a 0d 0a 25 5f 5f 45  ironment....%__E
1000: 43 48 4f 25 20 45 43 48 4f 20 53 45 54 20 54 43  CHO% ECHO SET TC
1010: 4c 53 48 5f 43 4d 44 3d 25 54 45 4d 50 25 5c 25  LSH_CMD=%TEMP%\%
1020: 54 43 4c 4b 49 54 5f 45 58 45 25 25 4f 56 45 52  TCLKIT_EXE%%OVER
1030: 57 52 49 54 45 25 22 25 52 4f 4f 54 25 5c 53 65  WRITE%"%ROOT%\Se
1040: 74 54 63 6c 4b 69 74 45 6e 76 2e 62 61 74 22 0d  tTclKitEnv.bat".
1050: 0a 0d 0a 49 46 20 44 45 46 49 4e 45 44 20 54 43  ...IF DEFINED TC
1060: 4c 4b 49 54 5f 4e 4f 53 44 4b 20 47 4f 54 4f 20  LKIT_NOSDK GOTO 
1070: 73 6b 69 70 5f 73 64 6b 56 61 72 69 61 62 6c 65  skip_sdkVariable
1080: 73 0d 0a 0d 0a 25 5f 5f 45 43 48 4f 25 20 45 43  s....%__ECHO% EC
1090: 48 4f 20 53 45 54 20 54 43 4c 49 4e 43 44 49 52  HO SET TCLINCDIR
10a0: 3d 25 54 45 4d 50 25 5c 25 54 43 4c 4b 49 54 5f  =%TEMP%\%TCLKIT_
10b0: 53 44 4b 25 5c 69 6e 63 6c 75 64 65 25 41 50 50  SDK%\include%APP
10c0: 45 4e 44 25 22 25 52 4f 4f 54 25 5c 53 65 74 54  END%"%ROOT%\SetT
10d0: 63 6c 4b 69 74 45 6e 76 2e 62 61 74 22 0d 0a 25  clKitEnv.bat"..%
10e0: 5f 5f 45 43 48 4f 25 20 45 43 48 4f 20 53 45 54  __ECHO% ECHO SET
10f0: 20 54 43 4c 4c 49 42 44 49 52 3d 25 54 45 4d 50   TCLLIBDIR=%TEMP
1100: 25 5c 25 54 43 4c 4b 49 54 5f 53 44 4b 25 5c 6c  %\%TCLKIT_SDK%\l
1110: 69 62 25 41 50 50 45 4e 44 25 22 25 52 4f 4f 54  ib%APPEND%"%ROOT
1120: 25 5c 53 65 74 54 63 6c 4b 69 74 45 6e 76 2e 62  %\SetTclKitEnv.b
1130: 61 74 22 0d 0a 25 5f 5f 45 43 48 4f 25 20 45 43  at"..%__ECHO% EC
1140: 48 4f 20 53 45 54 20 4c 49 42 54 43 4c 50 41 54  HO SET LIBTCLPAT
1150: 48 3d 25 54 45 4d 50 25 5c 25 54 43 4c 4b 49 54  H=%TEMP%\%TCLKIT
1160: 5f 53 44 4b 25 5c 6c 69 62 25 41 50 50 45 4e 44  _SDK%\lib%APPEND
1170: 25 22 25 52 4f 4f 54 25 5c 53 65 74 54 63 6c 4b  %"%ROOT%\SetTclK
1180: 69 74 45 6e 76 2e 62 61 74 22 0d 0a 25 5f 5f 45  itEnv.bat"..%__E
1190: 43 48 4f 25 20 45 43 48 4f 20 53 45 54 20 4c 49  CHO% ECHO SET LI
11a0: 42 54 43 4c 3d 25 54 43 4c 4b 49 54 5f 4c 49 42  BTCL=%TCLKIT_LIB
11b0: 25 25 41 50 50 45 4e 44 25 22 25 52 4f 4f 54 25  %%APPEND%"%ROOT%
11c0: 5c 53 65 74 54 63 6c 4b 69 74 45 6e 76 2e 62 61  \SetTclKitEnv.ba
11d0: 74 22 0d 0a 25 5f 5f 45 43 48 4f 25 20 45 43 48  t"..%__ECHO% ECH
11e0: 4f 20 53 45 54 20 4c 49 42 54 43 4c 53 54 55 42  O SET LIBTCLSTUB
11f0: 3d 25 54 43 4c 4b 49 54 5f 4c 49 42 5f 53 54 55  =%TCLKIT_LIB_STU
1200: 42 25 25 41 50 50 45 4e 44 25 22 25 52 4f 4f 54  B%%APPEND%"%ROOT
1210: 25 5c 53 65 74 54 63 6c 4b 69 74 45 6e 76 2e 62  %\SetTclKitEnv.b
1220: 61 74 22 0d 0a 0d 0a 3a 73 6b 69 70 5f 73 64 6b  at"....:skip_sdk
1230: 56 61 72 69 61 62 6c 65 73 0d 0a 0d 0a 45 43 48  Variables....ECH
1240: 4f 2e 0d 0a 45 43 48 4f 20 57 72 6f 74 65 20 22  O...ECHO Wrote "
1250: 25 52 4f 4f 54 25 5c 53 65 74 54 63 6c 4b 69 74  %ROOT%\SetTclKit
1260: 45 6e 76 2e 62 61 74 22 2e 0d 0a 45 43 48 4f 20  Env.bat"...ECHO 
1270: 50 6c 65 61 73 65 20 72 75 6e 20 69 74 20 74 6f  Please run it to
1280: 20 73 65 74 20 74 68 65 20 6e 65 63 65 73 73 61   set the necessa
1290: 72 79 20 54 63 6c 20 65 6e 76 69 72 6f 6e 6d 65  ry Tcl environme
12a0: 6e 74 20 76 61 72 69 61 62 6c 65 73 2e 0d 0a 45  nt variables...E
12b0: 43 48 4f 2e 0d 0a 0d 0a 3a 73 6b 69 70 5f 73 64  CHO.....:skip_sd
12c0: 6b 45 6e 76 69 72 6f 6e 6d 65 6e 74 0d 0a 0d 0a  kEnvironment....
12d0: 47 4f 54 4f 20 6e 6f 5f 65 72 72 6f 72 73 0d 0a  GOTO no_errors..
12e0: 0d 0a 3a 66 6e 5f 54 63 6c 4b 69 74 58 38 36 56  ..:fn_TclKitX86V
12f0: 61 72 69 61 62 6c 65 73 0d 0a 20 20 52 45 4d 0d  ariables..  REM.
1300: 0a 20 20 52 45 4d 20 4e 4f 54 45 3a 20 42 79 20  .  REM NOTE: By 
1310: 64 65 66 61 75 6c 74 2c 20 75 73 65 20 6c 61 74  default, use lat
1320: 65 73 74 20 61 76 61 69 6c 61 62 6c 65 20 76 65  est available ve
1330: 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 54 63 6c  rsion of the Tcl
1340: 4b 69 74 20 53 44 4b 0d 0a 20 20 52 45 4d 20 20  Kit SDK..  REM  
1350: 20 20 20 20 20 66 6f 72 20 78 38 36 2e 20 20 48       for x86.  H
1360: 6f 77 65 76 65 72 2c 20 74 68 65 20 22 64 65 66  owever, the "def
1370: 61 75 6c 74 22 20 54 63 6c 4b 69 74 20 65 78 65  ault" TclKit exe
1380: 63 75 74 61 62 6c 65 20 66 6f 72 20 78 38 36 0d  cutable for x86.
1390: 0a 20 20 52 45 4d 20 20 20 20 20 20 20 69 73 20  .  REM       is 
13a0: 73 74 69 6c 6c 20 75 73 65 64 20 68 65 72 65 20  still used here 
13b0: 62 65 63 61 75 73 65 20 69 74 20 69 73 20 74 68  because it is th
13c0: 65 20 6f 6e 6c 79 20 6f 6e 65 20 22 77 65 6c 6c  e only one "well
13d0: 2d 6b 6e 6f 77 6e 22 0d 0a 20 20 52 45 4d 20 20  -known"..  REM  
13e0: 20 20 20 20 20 74 6f 20 62 65 20 61 76 61 69 6c       to be avail
13f0: 61 62 6c 65 20 66 6f 72 20 64 6f 77 6e 6c 6f 61  able for downloa
1400: 64 2e 0d 0a 20 20 52 45 4d 0d 0a 20 20 49 46 20  d...  REM..  IF 
1410: 4e 4f 54 20 44 45 46 49 4e 45 44 20 54 43 4c 4b  NOT DEFINED TCLK
1420: 49 54 5f 50 41 54 43 48 4c 45 56 45 4c 20 28 0d  IT_PATCHLEVEL (.
1430: 0a 20 20 20 20 53 45 54 20 54 43 4c 4b 49 54 5f  .    SET TCLKIT_
1440: 50 41 54 43 48 4c 45 56 45 4c 3d 38 2e 36 2e 36  PATCHLEVEL=8.6.6
1450: 0d 0a 20 20 29 0d 0a 20 20 53 45 54 20 54 43 4c  ..  )..  SET TCL
1460: 4b 49 54 5f 56 45 52 53 49 4f 4e 3d 25 54 43 4c  KIT_VERSION=%TCL
1470: 4b 49 54 5f 50 41 54 43 48 4c 45 56 45 4c 3a 2e  KIT_PATCHLEVEL:.
1480: 3d 25 0d 0a 20 20 53 45 54 20 54 43 4c 4b 49 54  =%..  SET TCLKIT
1490: 5f 56 45 52 53 49 4f 4e 3d 25 54 43 4c 4b 49 54  _VERSION=%TCLKIT
14a0: 5f 56 45 52 53 49 4f 4e 3a 7e 30 2c 32 25 0d 0a  _VERSION:~0,2%..
14b0: 20 20 52 45 4d 20 53 45 54 20 54 43 4c 4b 49 54    REM SET TCLKIT
14c0: 5f 45 58 45 3d 74 63 6c 6b 69 74 2d 25 54 43 4c  _EXE=tclkit-%TCL
14d0: 4b 49 54 5f 50 41 54 43 48 4c 45 56 45 4c 25 2e  KIT_PATCHLEVEL%.
14e0: 65 78 65 0d 0a 20 20 53 45 54 20 54 43 4c 4b 49  exe..  SET TCLKI
14f0: 54 5f 45 58 45 3d 74 63 6c 6b 69 74 2d 38 2e 36  T_EXE=tclkit-8.6
1500: 2e 34 2e 65 78 65 0d 0a 20 20 53 45 54 20 54 43  .4.exe..  SET TC
1510: 4c 4b 49 54 5f 4c 49 42 3d 6c 69 62 74 63 6c 6b  LKIT_LIB=libtclk
1520: 69 74 25 54 43 4c 4b 49 54 5f 50 41 54 43 48 4c  it%TCLKIT_PATCHL
1530: 45 56 45 4c 3a 2e 3d 25 2e 6c 69 62 0d 0a 20 20  EVEL:.=%.lib..  
1540: 53 45 54 20 54 43 4c 4b 49 54 5f 4c 49 42 5f 53  SET TCLKIT_LIB_S
1550: 54 55 42 3d 6c 69 62 74 63 6c 73 74 75 62 25 54  TUB=libtclstub%T
1560: 43 4c 4b 49 54 5f 56 45 52 53 49 4f 4e 3a 2e 3d  CLKIT_VERSION:.=
1570: 25 2e 61 0d 0a 20 20 53 45 54 20 54 43 4c 4b 49  %.a..  SET TCLKI
1580: 54 5f 53 44 4b 3d 6c 69 62 74 63 6c 6b 69 74 2d  T_SDK=libtclkit-
1590: 73 64 6b 2d 78 38 36 2d 25 54 43 4c 4b 49 54 5f  sdk-x86-%TCLKIT_
15a0: 50 41 54 43 48 4c 45 56 45 4c 25 0d 0a 20 20 53  PATCHLEVEL%..  S
15b0: 45 54 20 54 43 4c 4b 49 54 5f 53 44 4b 5f 5a 49  ET TCLKIT_SDK_ZI
15c0: 50 3d 25 54 43 4c 4b 49 54 5f 53 44 4b 25 2e 7a  P=%TCLKIT_SDK%.z
15d0: 69 70 0d 0a 20 20 53 45 54 20 54 43 4c 4b 49 54  ip..  SET TCLKIT
15e0: 5f 46 49 4c 45 53 3d 25 54 43 4c 4b 49 54 5f 45  _FILES=%TCLKIT_E
15f0: 58 45 25 0d 0a 20 20 49 46 20 4e 4f 54 20 44 45  XE%..  IF NOT DE
1600: 46 49 4e 45 44 20 54 43 4c 4b 49 54 5f 4e 4f 45  FINED TCLKIT_NOE
1610: 4e 56 20 49 46 20 4e 4f 54 20 44 45 46 49 4e 45  NV IF NOT DEFINE
1620: 44 20 54 43 4c 4b 49 54 5f 4e 4f 53 44 4b 20 28  D TCLKIT_NOSDK (
1630: 0d 0a 20 20 20 20 53 45 54 20 54 43 4c 4b 49 54  ..    SET TCLKIT
1640: 5f 46 49 4c 45 53 3d 25 54 43 4c 4b 49 54 5f 46  _FILES=%TCLKIT_F
1650: 49 4c 45 53 25 20 75 6e 7a 69 70 2e 65 78 65 20  ILES% unzip.exe 
1660: 25 54 43 4c 4b 49 54 5f 53 44 4b 5f 5a 49 50 25  %TCLKIT_SDK_ZIP%
1670: 0d 0a 20 20 29 0d 0a 20 20 47 4f 54 4f 20 3a 45  ..  )..  GOTO :E
1680: 4f 46 0d 0a 0d 0a 3a 66 6e 5f 54 63 6c 4b 69 74  OF....:fn_TclKit
1690: 58 36 34 56 61 72 69 61 62 6c 65 73 0d 0a 20 20  X64Variables..  
16a0: 52 45 4d 0d 0a 20 20 52 45 4d 20 4e 4f 54 45 3a  REM..  REM NOTE:
16b0: 20 42 79 20 64 65 66 61 75 6c 74 2c 20 75 73 65   By default, use
16c0: 20 6c 61 74 65 73 74 20 61 76 61 69 6c 61 62 6c   latest availabl
16d0: 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65  e version of the
16e0: 20 54 63 6c 4b 69 74 20 53 44 4b 0d 0a 20 20 52   TclKit SDK..  R
16f0: 45 4d 20 20 20 20 20 20 20 66 6f 72 20 78 36 34  EM       for x64
1700: 2e 20 20 48 6f 77 65 76 65 72 2c 20 74 68 65 20  .  However, the 
1710: 22 64 65 66 61 75 6c 74 22 20 54 63 6c 4b 69 74  "default" TclKit
1720: 20 65 78 65 63 75 74 61 62 6c 65 20 66 6f 72 20   executable for 
1730: 78 38 36 0d 0a 20 20 52 45 4d 20 20 20 20 20 20  x86..  REM      
1740: 20 69 73 20 73 74 69 6c 6c 20 75 73 65 64 20 68   is still used h
1750: 65 72 65 20 62 65 63 61 75 73 65 20 69 74 20 69  ere because it i
1760: 73 20 74 68 65 20 6f 6e 6c 79 20 6f 6e 65 20 22  s the only one "
1770: 77 65 6c 6c 2d 6b 6e 6f 77 6e 22 0d 0a 20 20 52  well-known"..  R
1780: 45 4d 20 20 20 20 20 20 20 74 6f 20 62 65 20 61  EM       to be a
1790: 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 64 6f 77  vailable for dow
17a0: 6e 6c 6f 61 64 2e 0d 0a 20 20 52 45 4d 0d 0a 20  nload...  REM.. 
17b0: 20 49 46 20 4e 4f 54 20 44 45 46 49 4e 45 44 20   IF NOT DEFINED 
17c0: 54 43 4c 4b 49 54 5f 50 41 54 43 48 4c 45 56 45  TCLKIT_PATCHLEVE
17d0: 4c 20 28 0d 0a 20 20 20 20 53 45 54 20 54 43 4c  L (..    SET TCL
17e0: 4b 49 54 5f 50 41 54 43 48 4c 45 56 45 4c 3d 38  KIT_PATCHLEVEL=8
17f0: 2e 36 2e 36 0d 0a 20 20 29 0d 0a 20 20 53 45 54  .6.6..  )..  SET
1800: 20 54 43 4c 4b 49 54 5f 56 45 52 53 49 4f 4e 3d   TCLKIT_VERSION=
1810: 25 54 43 4c 4b 49 54 5f 50 41 54 43 48 4c 45 56  %TCLKIT_PATCHLEV
1820: 45 4c 3a 2e 3d 25 0d 0a 20 20 53 45 54 20 54 43  EL:.=%..  SET TC
1830: 4c 4b 49 54 5f 56 45 52 53 49 4f 4e 3d 25 54 43  LKIT_VERSION=%TC
1840: 4c 4b 49 54 5f 56 45 52 53 49 4f 4e 3a 7e 30 2c  LKIT_VERSION:~0,
1850: 32 25 0d 0a 20 20 52 45 4d 20 53 45 54 20 54 43  2%..  REM SET TC
1860: 4c 4b 49 54 5f 45 58 45 3d 74 63 6c 6b 69 74 2d  LKIT_EXE=tclkit-
1870: 25 54 43 4c 4b 49 54 5f 50 41 54 43 48 4c 45 56  %TCLKIT_PATCHLEV
1880: 45 4c 25 2e 65 78 65 0d 0a 20 20 53 45 54 20 54  EL%.exe..  SET T
1890: 43 4c 4b 49 54 5f 45 58 45 3d 74 63 6c 6b 69 74  CLKIT_EXE=tclkit
18a0: 2d 38 2e 36 2e 34 2e 65 78 65 0d 0a 20 20 53 45  -8.6.4.exe..  SE
18b0: 54 20 54 43 4c 4b 49 54 5f 4c 49 42 3d 6c 69 62  T TCLKIT_LIB=lib
18c0: 74 63 6c 6b 69 74 25 54 43 4c 4b 49 54 5f 50 41  tclkit%TCLKIT_PA
18d0: 54 43 48 4c 45 56 45 4c 3a 2e 3d 25 2e 6c 69 62  TCHLEVEL:.=%.lib
18e0: 0d 0a 20 20 53 45 54 20 54 43 4c 4b 49 54 5f 4c  ..  SET TCLKIT_L
18f0: 49 42 5f 53 54 55 42 3d 6c 69 62 74 63 6c 73 74  IB_STUB=libtclst
1900: 75 62 25 54 43 4c 4b 49 54 5f 56 45 52 53 49 4f  ub%TCLKIT_VERSIO
1910: 4e 3a 2e 3d 25 2e 61 0d 0a 20 20 53 45 54 20 54  N:.=%.a..  SET T
1920: 43 4c 4b 49 54 5f 53 44 4b 3d 6c 69 62 74 63 6c  CLKIT_SDK=libtcl
1930: 6b 69 74 2d 73 64 6b 2d 78 36 34 2d 25 54 43 4c  kit-sdk-x64-%TCL
1940: 4b 49 54 5f 50 41 54 43 48 4c 45 56 45 4c 25 0d  KIT_PATCHLEVEL%.
1950: 0a 20 20 53 45 54 20 54 43 4c 4b 49 54 5f 53 44  .  SET TCLKIT_SD
1960: 4b 5f 5a 49 50 3d 25 54 43 4c 4b 49 54 5f 53 44  K_ZIP=%TCLKIT_SD
1970: 4b 25 2e 7a 69 70 0d 0a 20 20 53 45 54 20 54 43  K%.zip..  SET TC
1980: 4c 4b 49 54 5f 46 49 4c 45 53 3d 25 54 43 4c 4b  LKIT_FILES=%TCLK
1990: 49 54 5f 45 58 45 25 0d 0a 20 20 49 46 20 4e 4f  IT_EXE%..  IF NO
19a0: 54 20 44 45 46 49 4e 45 44 20 54 43 4c 4b 49 54  T DEFINED TCLKIT
19b0: 5f 4e 4f 45 4e 56 20 49 46 20 4e 4f 54 20 44 45  _NOENV IF NOT DE
19c0: 46 49 4e 45 44 20 54 43 4c 4b 49 54 5f 4e 4f 53  FINED TCLKIT_NOS
19d0: 44 4b 20 28 0d 0a 20 20 20 20 53 45 54 20 54 43  DK (..    SET TC
19e0: 4c 4b 49 54 5f 46 49 4c 45 53 3d 25 54 43 4c 4b  LKIT_FILES=%TCLK
19f0: 49 54 5f 46 49 4c 45 53 25 20 75 6e 7a 69 70 2e  IT_FILES% unzip.
1a00: 65 78 65 20 25 54 43 4c 4b 49 54 5f 53 44 4b 5f  exe %TCLKIT_SDK_
1a10: 5a 49 50 25 0d 0a 20 20 29 0d 0a 20 20 47 4f 54  ZIP%..  )..  GOT
1a20: 4f 20 3a 45 4f 46 0d 0a 0d 0a 3a 66 6e 5f 55 6e  O :EOF....:fn_Un
1a30: 71 75 6f 74 65 56 61 72 69 61 62 6c 65 0d 0a 20  quoteVariable.. 
1a40: 20 49 46 20 4e 4f 54 20 44 45 46 49 4e 45 44 20   IF NOT DEFINED 
1a50: 25 31 20 47 4f 54 4f 20 3a 45 4f 46 0d 0a 20 20  %1 GOTO :EOF..  
1a60: 53 45 54 4c 4f 43 41 4c 0d 0a 20 20 53 45 54 20  SETLOCAL..  SET 
1a70: 5f 5f 45 43 48 4f 5f 43 4d 44 3d 45 43 48 4f 20  __ECHO_CMD=ECHO 
1a80: 25 25 25 31 25 25 0d 0a 20 20 46 4f 52 20 2f 46  %%%1%%..  FOR /F
1a90: 20 22 64 65 6c 69 6d 73 3d 22 20 25 25 56 20 49   "delims=" %%V I
1aa0: 4e 20 28 27 25 5f 5f 45 43 48 4f 5f 43 4d 44 25  N ('%__ECHO_CMD%
1ab0: 27 29 20 44 4f 20 28 0d 0a 20 20 20 20 53 45 54  ') DO (..    SET
1ac0: 20 56 41 4c 55 45 3d 25 25 56 0d 0a 20 20 29 0d   VALUE=%%V..  ).
1ad0: 0a 20 20 53 45 54 20 56 41 4c 55 45 3d 25 56 41  .  SET VALUE=%VA
1ae0: 4c 55 45 3a 22 3d 25 0d 0a 20 20 52 45 4d 20 22  LUE:"=%..  REM "
1af0: 0d 0a 20 20 45 4e 44 4c 4f 43 41 4c 20 26 26 20  ..  ENDLOCAL && 
1b00: 53 45 54 20 25 31 3d 25 56 41 4c 55 45 25 0d 0a  SET %1=%VALUE%..
1b10: 20 20 47 4f 54 4f 20 3a 45 4f 46 0d 0a 0d 0a 3a    GOTO :EOF....:
1b20: 66 6e 5f 50 72 65 70 65 6e 64 54 6f 50 61 74 68  fn_PrependToPath
1b30: 0d 0a 20 20 49 46 20 4e 4f 54 20 44 45 46 49 4e  ..  IF NOT DEFIN
1b40: 45 44 20 25 31 20 47 4f 54 4f 20 3a 45 4f 46 0d  ED %1 GOTO :EOF.
1b50: 0a 20 20 53 45 54 4c 4f 43 41 4c 0d 0a 20 20 53  .  SETLOCAL..  S
1b60: 45 54 20 5f 5f 45 43 48 4f 5f 43 4d 44 3d 45 43  ET __ECHO_CMD=EC
1b70: 48 4f 20 25 25 25 31 25 25 0d 0a 20 20 46 4f 52  HO %%%1%%..  FOR
1b80: 20 2f 46 20 22 64 65 6c 69 6d 73 3d 22 20 25 25   /F "delims=" %%
1b90: 56 20 49 4e 20 28 27 25 5f 5f 45 43 48 4f 5f 43  V IN ('%__ECHO_C
1ba0: 4d 44 25 27 29 20 44 4f 20 28 0d 0a 20 20 20 20  MD%') DO (..    
1bb0: 53 45 54 20 56 41 4c 55 45 3d 25 25 56 0d 0a 20  SET VALUE=%%V.. 
1bc0: 20 29 0d 0a 20 20 53 45 54 20 56 41 4c 55 45 3d   )..  SET VALUE=
1bd0: 25 56 41 4c 55 45 3a 22 3d 25 0d 0a 20 20 52 45  %VALUE:"=%..  RE
1be0: 4d 20 22 0d 0a 20 20 45 4e 44 4c 4f 43 41 4c 20  M "..  ENDLOCAL 
1bf0: 26 26 20 53 45 54 20 50 41 54 48 3d 25 56 41 4c  && SET PATH=%VAL
1c00: 55 45 25 3b 25 50 41 54 48 25 0d 0a 20 20 47 4f  UE%;%PATH%..  GO
1c10: 54 4f 20 3a 45 4f 46 0d 0a 0d 0a 3a 66 6e 5f 52  TO :EOF....:fn_R
1c20: 65 73 65 74 45 72 72 6f 72 4c 65 76 65 6c 0d 0a  esetErrorLevel..
1c30: 20 20 56 45 52 49 46 59 20 3e 20 4e 55 4c 0d 0a    VERIFY > NUL..
1c40: 20 20 47 4f 54 4f 20 3a 45 4f 46 0d 0a 0d 0a 3a    GOTO :EOF....:
1c50: 66 6e 5f 53 65 74 45 72 72 6f 72 4c 65 76 65 6c  fn_SetErrorLevel
1c60: 0d 0a 20 20 56 45 52 49 46 59 20 4d 41 59 42 45  ..  VERIFY MAYBE
1c70: 20 32 3e 20 4e 55 4c 0d 0a 20 20 47 4f 54 4f 20   2> NUL..  GOTO 
1c80: 3a 45 4f 46 0d 0a 0d 0a 3a 75 73 61 67 65 0d 0a  :EOF....:usage..
1c90: 20 20 45 43 48 4f 2e 0d 0a 20 20 45 43 48 4f 20    ECHO...  ECHO 
1ca0: 55 73 61 67 65 3a 20 25 7e 6e 78 30 20 5e 3c 70  Usage: %~nx0 ^<p
1cb0: 72 6f 63 65 73 73 6f 72 5e 3e 0d 0a 20 20 45 43  rocessor^>..  EC
1cc0: 48 4f 2e 0d 0a 20 20 45 43 48 4f 20 54 68 65 20  HO...  ECHO The 
1cd0: 6f 6e 6c 79 20 73 75 70 70 6f 72 74 65 64 20 76  only supported v
1ce0: 61 6c 75 65 73 20 66 6f 72 20 70 72 6f 63 65 73  alues for proces
1cf0: 73 6f 72 20 61 72 65 20 22 78 38 36 22 20 61 6e  sor are "x86" an
1d00: 64 20 22 78 36 34 22 2e 0d 0a 20 20 47 4f 54 4f  d "x64"...  GOTO
1d10: 20 65 72 72 6f 72 73 0d 0a 0d 0a 3a 65 72 72 6f   errors....:erro
1d20: 72 73 0d 0a 20 20 43 41 4c 4c 20 3a 66 6e 5f 53  rs..  CALL :fn_S
1d30: 65 74 45 72 72 6f 72 4c 65 76 65 6c 0d 0a 20 20  etErrorLevel..  
1d40: 45 4e 44 4c 4f 43 41 4c 0d 0a 20 20 45 43 48 4f  ENDLOCAL..  ECHO
1d50: 2e 0d 0a 20 20 45 43 48 4f 20 46 61 69 6c 75 72  ...  ECHO Failur
1d60: 65 2c 20 65 72 72 6f 72 73 20 77 65 72 65 20 65  e, errors were e
1d70: 6e 63 6f 75 6e 74 65 72 65 64 2e 0d 0a 20 20 47  ncountered...  G
1d80: 4f 54 4f 20 65 6e 64 5f 6f 66 5f 66 69 6c 65 0d  OTO end_of_file.
1d90: 0a 0d 0a 3a 6e 6f 5f 65 72 72 6f 72 73 0d 0a 20  ...:no_errors.. 
1da0: 20 43 41 4c 4c 20 3a 66 6e 5f 52 65 73 65 74 45   CALL :fn_ResetE
1db0: 72 72 6f 72 4c 65 76 65 6c 0d 0a 20 20 45 4e 44  rrorLevel..  END
1dc0: 4c 4f 43 41 4c 0d 0a 20 20 45 43 48 4f 2e 0d 0a  LOCAL..  ECHO...
1dd0: 20 20 45 43 48 4f 20 53 75 63 63 65 73 73 2c 20    ECHO Success, 
1de0: 6e 6f 20 65 72 72 6f 72 73 20 77 65 72 65 20 65  no errors were e
1df0: 6e 63 6f 75 6e 74 65 72 65 64 2e 0d 0a 20 20 47  ncountered...  G
1e00: 4f 54 4f 20 65 6e 64 5f 6f 66 5f 66 69 6c 65 0d  OTO end_of_file.
1e10: 0a 0d 0a 3a 65 6e 64 5f 6f 66 5f 66 69 6c 65 0d  ...:end_of_file.
1e20: 0a 25 5f 5f 45 43 48 4f 25 20 45 58 49 54 20 2f  .%__ECHO% EXIT /
1e30: 42 20 25 45 52 52 4f 52 4c 45 56 45 4c 25 0d 0a  B %ERRORLEVEL%..