Hex Artifact Content

Artifact ddaee7b41be0c63f05a3d82fa6d9a42fed72ab9c:


0000: 2f 2f 0a 2f 2f 20 56 65 72 73 69 6f 6e 20 52 65  //.// Version Re
0010: 73 6f 75 72 63 65 20 53 63 72 69 70 74 0a 2f 2f  source Script.//
0020: 0a 0a 23 69 6e 63 6c 75 64 65 20 3c 77 69 6e 76  ..#include <winv
0030: 65 72 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  er.h>.#include <
0040: 74 63 6c 2e 68 3e 0a 0a 2f 2f 0a 2f 2f 20 62 75  tcl.h>..//.// bu
0050: 69 6c 64 2d 75 70 20 74 68 65 20 6e 61 6d 65 20  ild-up the name 
0060: 73 75 66 66 69 78 20 74 68 61 74 20 64 65 66 69  suffix that defi
0070: 6e 65 73 20 74 68 65 20 74 79 70 65 20 6f 66 20  nes the type of 
0080: 62 75 69 6c 64 20 74 68 69 73 20 69 73 2e 0a 2f  build this is../
0090: 2f 0a 23 69 66 20 54 43 4c 5f 54 48 52 45 41 44  /.#if TCL_THREAD
00a0: 53 0a 23 64 65 66 69 6e 65 20 53 55 46 46 49 58  S.#define SUFFIX
00b0: 5f 54 48 52 45 41 44 53 09 20 20 20 20 22 74 22  _THREADS.    "t"
00c0: 0a 23 65 6c 73 65 0a 23 64 65 66 69 6e 65 20 53  .#else.#define S
00d0: 55 46 46 49 58 5f 54 48 52 45 41 44 53 09 20 20  UFFIX_THREADS.  
00e0: 20 20 22 22 0a 23 65 6e 64 69 66 0a 0a 23 69 66    "".#endif..#if
00f0: 20 53 54 41 54 49 43 5f 42 55 49 4c 44 0a 23 64   STATIC_BUILD.#d
0100: 65 66 69 6e 65 20 53 55 46 46 49 58 5f 53 54 41  efine SUFFIX_STA
0110: 54 49 43 09 20 20 20 20 22 73 22 0a 23 65 6c 73  TIC.    "s".#els
0120: 65 0a 23 64 65 66 69 6e 65 20 53 55 46 46 49 58  e.#define SUFFIX
0130: 5f 53 54 41 54 49 43 09 20 20 20 20 22 22 0a 23  _STATIC.    "".#
0140: 65 6e 64 69 66 0a 0a 23 69 66 20 44 45 42 55 47  endif..#if DEBUG
0150: 20 26 26 20 21 55 4e 43 48 45 43 4b 45 44 0a 23   && !UNCHECKED.#
0160: 64 65 66 69 6e 65 20 53 55 46 46 49 58 5f 44 45  define SUFFIX_DE
0170: 42 55 47 09 20 20 20 20 22 67 22 0a 23 65 6c 73  BUG.    "g".#els
0180: 65 0a 23 64 65 66 69 6e 65 20 53 55 46 46 49 58  e.#define SUFFIX
0190: 5f 44 45 42 55 47 09 20 20 20 20 22 22 0a 23 65  _DEBUG.    "".#e
01a0: 6e 64 69 66 0a 0a 23 64 65 66 69 6e 65 20 53 55  ndif..#define SU
01b0: 46 46 49 58 09 09 20 20 20 20 53 55 46 46 49 58  FFIX..    SUFFIX
01c0: 5f 54 48 52 45 41 44 53 20 53 55 46 46 49 58 5f  _THREADS SUFFIX_
01d0: 53 54 41 54 49 43 20 53 55 46 46 49 58 5f 44 45  STATIC SUFFIX_DE
01e0: 42 55 47 0a 0a 0a 4c 41 4e 47 55 41 47 45 20 30  BUG...LANGUAGE 0
01f0: 78 39 2c 20 30 78 31 09 2f 2a 20 4c 41 4e 47 5f  x9, 0x1./* LANG_
0200: 45 4e 47 4c 49 53 48 2c 20 53 55 42 4c 41 4e 47  ENGLISH, SUBLANG
0210: 5f 44 45 46 41 55 4c 54 20 2a 2f 0a 0a 56 53 5f  _DEFAULT */..VS_
0220: 56 45 52 53 49 4f 4e 5f 49 4e 46 4f 20 56 45 52  VERSION_INFO VER
0230: 53 49 4f 4e 49 4e 46 4f 0a 20 46 49 4c 45 56 45  SIONINFO. FILEVE
0240: 52 53 49 4f 4e 20 09 54 43 4c 5f 4d 41 4a 4f 52  RSION .TCL_MAJOR
0250: 5f 56 45 52 53 49 4f 4e 2c 54 43 4c 5f 4d 49 4e  _VERSION,TCL_MIN
0260: 4f 52 5f 56 45 52 53 49 4f 4e 2c 54 43 4c 5f 52  OR_VERSION,TCL_R
0270: 45 4c 45 41 53 45 5f 4c 45 56 45 4c 2c 54 43 4c  ELEASE_LEVEL,TCL
0280: 5f 52 45 4c 45 41 53 45 5f 53 45 52 49 41 4c 0a  _RELEASE_SERIAL.
0290: 20 50 52 4f 44 55 43 54 56 45 52 53 49 4f 4e 20   PRODUCTVERSION 
02a0: 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f  TCL_MAJOR_VERSIO
02b0: 4e 2c 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53  N,TCL_MINOR_VERS
02c0: 49 4f 4e 2c 54 43 4c 5f 52 45 4c 45 41 53 45 5f  ION,TCL_RELEASE_
02d0: 4c 45 56 45 4c 2c 54 43 4c 5f 52 45 4c 45 41 53  LEVEL,TCL_RELEAS
02e0: 45 5f 53 45 52 49 41 4c 0a 20 46 49 4c 45 46 4c  E_SERIAL. FILEFL
02f0: 41 47 53 4d 41 53 4b 20 09 30 78 33 66 4c 0a 20  AGSMASK .0x3fL. 
0300: 46 49 4c 45 46 4c 41 47 53 20 09 30 78 30 4c 0a  FILEFLAGS .0x0L.
0310: 20 46 49 4c 45 4f 53 20 09 56 4f 53 5f 5f 57 49   FILEOS .VOS__WI
0320: 4e 44 4f 57 53 33 32 0a 20 46 49 4c 45 54 59 50  NDOWS32. FILETYP
0330: 45 20 09 56 46 54 5f 41 50 50 0a 20 46 49 4c 45  E .VFT_APP. FILE
0340: 53 55 42 54 59 50 45 20 09 30 78 30 4c 0a 42 45  SUBTYPE .0x0L.BE
0350: 47 49 4e 0a 20 20 20 20 42 4c 4f 43 4b 20 22 53  GIN.    BLOCK "S
0360: 74 72 69 6e 67 46 69 6c 65 49 6e 66 6f 22 0a 20  tringFileInfo". 
0370: 20 20 20 42 45 47 49 4e 0a 20 20 20 20 20 20 20     BEGIN.       
0380: 20 42 4c 4f 43 4b 20 22 30 34 30 39 30 34 62 30   BLOCK "040904b0
0390: 22 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0a  ".        BEGIN.
03a0: 20 20 20 20 20 20 20 20 20 20 20 20 56 41 4c 55              VALU
03b0: 45 20 22 46 69 6c 65 44 65 73 63 72 69 70 74 69  E "FileDescripti
03c0: 6f 6e 22 2c 20 22 54 63 6c 6b 69 74 20 41 70 70  on", "Tclkit App
03d0: 6c 69 63 61 74 69 6f 6e 5c 30 22 0a 20 20 20 20  lication\0".    
03e0: 20 20 20 20 20 20 20 20 56 41 4c 55 45 20 22 4f          VALUE "O
03f0: 72 69 67 69 6e 61 6c 46 69 6c 65 6e 61 6d 65 22  riginalFilename"
0400: 2c 20 22 74 63 6c 6b 69 74 2d 22 20 53 54 52 49  , "tclkit-" STRI
0410: 4e 47 49 46 59 28 54 43 4c 5f 4d 41 4a 4f 52 5f  NGIFY(TCL_MAJOR_
0420: 56 45 52 53 49 4f 4e 29 20 53 54 52 49 4e 47 49  VERSION) STRINGI
0430: 46 59 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52  FY(TCL_MINOR_VER
0440: 53 49 4f 4e 29 20 53 55 46 46 49 58 20 22 2e 65  SION) SUFFIX ".e
0450: 78 65 5c 30 22 0a 20 20 20 20 20 20 20 20 20 20  xe\0".          
0460: 20 20 56 41 4c 55 45 20 22 43 6f 6d 70 61 6e 79    VALUE "Company
0470: 4e 61 6d 65 22 2c 20 22 41 63 74 69 76 65 53 74  Name", "ActiveSt
0480: 61 74 65 20 43 6f 72 70 6f 72 61 74 69 6f 6e 5c  ate Corporation\
0490: 30 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 56  0".            V
04a0: 41 4c 55 45 20 22 46 69 6c 65 56 65 72 73 69 6f  ALUE "FileVersio
04b0: 6e 22 2c 20 54 43 4c 5f 50 41 54 43 48 5f 4c 45  n", TCL_PATCH_LE
04c0: 56 45 4c 0a 20 20 20 20 20 20 20 20 20 20 20 20  VEL.            
04d0: 56 41 4c 55 45 20 22 4c 65 67 61 6c 43 6f 70 79  VALUE "LegalCopy
04e0: 72 69 67 68 74 22 2c 20 22 43 6f 70 79 72 69 67  right", "Copyrig
04f0: 68 74 20 5c 32 35 31 20 32 30 30 30 20 62 79 20  ht \251 2000 by 
0500: 41 63 74 69 76 65 53 74 61 74 65 20 43 6f 72 70  ActiveState Corp
0510: 6f 72 61 74 69 6f 6e 2c 20 65 74 20 61 6c 5c 30  oration, et al\0
0520: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 56 41  ".            VA
0530: 4c 55 45 20 22 50 72 6f 64 75 63 74 4e 61 6d 65  LUE "ProductName
0540: 22 2c 20 22 54 63 6c 20 22 20 54 43 4c 5f 56 45  ", "Tcl " TCL_VE
0550: 52 53 49 4f 4e 20 22 20 66 6f 72 20 57 69 6e 64  RSION " for Wind
0560: 6f 77 73 5c 30 22 0a 20 20 20 20 20 20 20 20 20  ows\0".         
0570: 20 20 20 56 41 4c 55 45 20 22 50 72 6f 64 75 63     VALUE "Produc
0580: 74 56 65 72 73 69 6f 6e 22 2c 20 54 43 4c 5f 50  tVersion", TCL_P
0590: 41 54 43 48 5f 4c 45 56 45 4c 0a 20 20 20 20 20  ATCH_LEVEL.     
05a0: 20 20 20 45 4e 44 0a 20 20 20 20 45 4e 44 0a 20     END.    END. 
05b0: 20 20 20 42 4c 4f 43 4b 20 22 56 61 72 46 69 6c     BLOCK "VarFil
05c0: 65 49 6e 66 6f 22 0a 20 20 20 20 42 45 47 49 4e  eInfo".    BEGIN
05d0: 0a 20 20 20 20 20 20 20 20 56 41 4c 55 45 20 22  .        VALUE "
05e0: 54 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 30 78  Translation", 0x
05f0: 34 30 39 2c 20 31 32 30 30 0a 20 20 20 20 45 4e  409, 1200.    EN
0600: 44 0a 45 4e 44 0a 0a 2f 2f 0a 2f 2f 20 49 63 6f  D.END..//.// Ico
0610: 6e 0a 2f 2f 0a 0a 74 63 6c 73 68 20 20 20 20 20  n.//..tclsh     
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0630: 20 49 43 4f 4e 20 20 20 20 44 49 53 43 41 52 44   ICON    DISCARD
0640: 41 42 4c 45 20 20 20 20 20 22 74 63 6c 6b 69 74  ABLE     "tclkit
0650: 2e 69 63 6f 22 0a                                .ico".