Hex Artifact Content

Artifact 030405272d92b8d33168718d15ac7b43674828c1:


0000: 23 21 20 2f 62 69 6e 2f 62 61 73 68 0a 0a 69 66  #! /bin/bash..if
0010: 20 5b 20 21 20 2d 66 20 27 62 75 69 6c 64 2e 73   [ ! -f 'build.s
0020: 68 27 20 5d 3b 20 74 68 65 6e 0a 09 65 63 68 6f  h' ]; then..echo
0030: 20 27 45 52 52 4f 52 3a 20 54 68 69 73 20 73 63   'ERROR: This sc
0040: 72 69 70 74 20 6d 75 73 74 20 62 65 20 72 75 6e  ript must be run
0050: 20 66 72 6f 6d 20 74 68 65 20 64 69 72 65 63 74   from the direct
0060: 6f 72 79 20 69 74 20 69 73 20 69 6e 27 20 3e 26  ory it is in' >&
0070: 32 0a 0a 09 65 78 69 74 20 31 0a 66 69 0a 69 66  2...exit 1.fi.if
0080: 20 5b 20 2d 7a 20 22 24 7b 54 43 4c 56 45 52 53   [ -z "${TCLVERS
0090: 7d 22 20 5d 3b 20 74 68 65 6e 0a 09 65 63 68 6f  }" ]; then..echo
00a0: 20 27 45 52 52 4f 52 3a 20 54 68 65 20 54 43 4c   'ERROR: The TCL
00b0: 56 45 52 53 20 65 6e 76 69 72 6f 6e 6d 65 6e 74  VERS environment
00c0: 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74   variable is not
00d0: 20 73 65 74 27 20 3e 26 32 0a 0a 09 65 78 69 74   set' >&2...exit
00e0: 20 31 0a 66 69 0a 0a 4b 49 54 53 48 56 45 52 53   1.fi..KITSHVERS
00f0: 3d 22 30 2e 30 22 0a 42 55 49 4c 44 44 49 52 3d  ="0.0".BUILDDIR=
0100: 22 24 28 70 77 64 29 2f 62 75 69 6c 64 2f 6b 69  "$(pwd)/build/ki
0110: 74 73 68 2d 24 7b 4b 49 54 53 48 56 45 52 53 7d  tsh-${KITSHVERS}
0120: 22 0a 4f 55 54 44 49 52 3d 22 24 28 70 77 64 29  ".OUTDIR="$(pwd)
0130: 2f 6f 75 74 22 0a 49 4e 53 54 44 49 52 3d 22 24  /out".INSTDIR="$
0140: 28 70 77 64 29 2f 69 6e 73 74 22 0a 4f 54 48 45  (pwd)/inst".OTHE
0150: 52 50 4b 47 53 44 49 52 3d 22 24 28 70 77 64 29  RPKGSDIR="$(pwd)
0160: 2f 2e 2e 2f 22 0a 65 78 70 6f 72 74 20 4b 49 54  /../".export KIT
0170: 53 48 56 45 52 53 20 42 55 49 4c 44 44 49 52 20  SHVERS BUILDDIR 
0180: 4f 55 54 44 49 52 20 49 4e 53 54 44 49 52 20 4f  OUTDIR INSTDIR O
0190: 54 48 45 52 50 4b 47 53 44 49 52 0a 0a 69 66 20  THERPKGSDIR..if 
01a0: 5b 20 2d 7a 20 22 24 7b 45 4e 41 42 4c 45 43 4f  [ -z "${ENABLECO
01b0: 4d 50 52 45 53 53 49 4f 4e 7d 22 20 5d 3b 20 74  MPRESSION}" ]; t
01c0: 68 65 6e 0a 09 45 4e 41 42 4c 45 43 4f 4d 50 52  hen..ENABLECOMPR
01d0: 45 53 53 49 4f 4e 3d 22 31 22 0a 66 69 0a 65 78  ESSION="1".fi.ex
01e0: 70 6f 72 74 20 45 4e 41 42 4c 45 43 4f 4d 50 52  port ENABLECOMPR
01f0: 45 53 53 49 4f 4e 0a 0a 72 6d 20 2d 72 66 20 27  ESSION..rm -rf '
0200: 62 75 69 6c 64 27 20 27 6f 75 74 27 20 27 69 6e  build' 'out' 'in
0210: 73 74 27 0a 6d 6b 64 69 72 20 27 6f 75 74 27 20  st'.mkdir 'out' 
0220: 27 69 6e 73 74 27 20 7c 7c 20 65 78 69 74 20 31  'inst' || exit 1
0230: 0a 0a 0a 28 0a 09 63 70 20 2d 72 20 27 62 75 69  ...(..cp -r 'bui
0240: 6c 64 73 72 63 27 20 27 62 75 69 6c 64 27 0a 09  ldsrc' 'build'..
0250: 63 64 20 22 24 7b 42 55 49 4c 44 44 49 52 7d 22  cd "${BUILDDIR}"
0260: 20 7c 7c 20 65 78 69 74 20 31 0a 0a 09 23 20 46   || exit 1...# F
0270: 69 78 20 75 70 20 61 72 63 68 69 76 65 73 20 74  ix up archives t
0280: 68 61 74 20 54 63 6c 20 67 65 74 73 20 77 72 6f  hat Tcl gets wro
0290: 6e 67 0a 09 66 6f 72 20 61 72 63 68 69 76 65 20  ng..for archive 
02a0: 69 6e 20 2e 2e 2f 2e 2e 2f 2e 2e 2f 74 63 6c 2f  in ../../../tcl/
02b0: 69 6e 73 74 2f 6c 69 62 2f 64 64 65 2a 2f 74 63  inst/lib/dde*/tc
02c0: 6c 64 64 65 2a 2e 61 20 2e 2e 2f 2e 2e 2f 2e 2e  ldde*.a ../../..
02d0: 2f 74 63 6c 2f 69 6e 73 74 2f 6c 69 62 2f 72 65  /tcl/inst/lib/re
02e0: 67 2a 2f 74 63 6c 72 65 67 2a 2e 61 3b 20 64 6f  g*/tclreg*.a; do
02f0: 0a 09 09 69 66 20 5b 20 21 20 2d 66 20 22 24 7b  ...if [ ! -f "${
0300: 61 72 63 68 69 76 65 7d 22 20 5d 3b 20 74 68 65  archive}" ]; the
0310: 6e 0a 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09  n....continue...
0320: 66 69 0a 0a 09 09 72 6d 20 2d 72 66 20 5f 5f 54  fi....rm -rf __T
0330: 45 4d 50 5f 5f 0a 09 09 28 0a 09 09 09 6d 6b 64  EMP__...(....mkd
0340: 69 72 20 5f 5f 54 45 4d 50 5f 5f 20 7c 7c 20 65  ir __TEMP__ || e
0350: 78 69 74 20 31 0a 09 09 09 63 64 20 5f 5f 54 45  xit 1....cd __TE
0360: 4d 50 5f 5f 0a 0a 09 09 09 23 23 20 50 61 74 63  MP__.....## Patc
0370: 68 20 61 72 63 68 69 76 65 20 6e 61 6d 65 0a 09  h archive name..
0380: 09 09 61 72 63 68 69 76 65 3d 22 2e 2e 2f 24 7b  ..archive="../${
0390: 61 72 63 68 69 76 65 7d 22 0a 0a 09 09 09 22 24  archive}"....."$
03a0: 7b 41 52 3a 2d 61 72 7d 22 20 78 20 22 24 7b 61  {AR:-ar}" x "${a
03b0: 72 63 68 69 76 65 7d 22 20 7c 7c 20 65 78 69 74  rchive}" || exit
03c0: 20 31 0a 0a 09 09 09 72 6d 20 2d 66 20 22 24 7b   1.....rm -f "${
03d0: 61 72 63 68 69 76 65 7d 22 0a 0a 09 09 09 22 24  archive}"....."$
03e0: 7b 41 52 3a 2d 61 72 7d 22 20 63 72 20 22 24 7b  {AR:-ar}" cr "${
03f0: 61 72 63 68 69 76 65 7d 22 20 2a 2e 6f 20 7c 7c  archive}" *.o ||
0400: 20 65 78 69 74 20 31 0a 09 09 09 22 24 7b 52 41   exit 1...."${RA
0410: 4e 4c 49 42 3a 2d 72 61 6e 6c 69 62 7d 22 20 22  NLIB:-ranlib}" "
0420: 24 7b 61 72 63 68 69 76 65 7d 22 20 7c 7c 20 74  ${archive}" || t
0430: 72 75 65 0a 09 09 29 0a 09 64 6f 6e 65 0a 0a 09  rue...)..done...
0440: 23 20 43 6c 65 61 6e 75 70 2c 20 6a 75 73 74 20  # Cleanup, just 
0450: 69 6e 63 61 73 65 20 74 68 65 20 69 6e 63 6f 6d  incase the incom
0460: 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20 77 61  ing directory wa
0470: 73 20 6e 6f 74 20 70 72 65 2d 63 6c 65 61 6e 65  s not pre-cleane
0480: 64 0a 09 24 7b 4d 41 4b 45 3a 2d 6d 61 6b 65 7d  d..${MAKE:-make}
0490: 20 64 69 73 74 63 6c 65 61 6e 20 3e 2f 64 65 76   distclean >/dev
04a0: 2f 6e 75 6c 6c 20 32 3e 2f 64 65 76 2f 6e 75 6c  /null 2>/dev/nul
04b0: 6c 0a 09 72 6d 20 2d 72 66 20 27 73 74 61 72 70  l..rm -rf 'starp
04c0: 61 63 6b 2e 76 66 73 27 0a 0a 09 23 20 43 72 65  ack.vfs'...# Cre
04d0: 61 74 65 20 56 46 53 20 64 69 72 65 63 74 6f 72  ate VFS director
04e0: 79 0a 09 6d 6b 64 69 72 20 22 73 74 61 72 70 61  y..mkdir "starpa
04f0: 63 6b 2e 76 66 73 22 0a 09 6d 6b 64 69 72 20 22  ck.vfs"..mkdir "
0500: 73 74 61 72 70 61 63 6b 2e 76 66 73 2f 6c 69 62  starpack.vfs/lib
0510: 22 0a 0a 09 23 23 20 43 6f 70 79 20 69 6e 20 61  "...## Copy in a
0520: 6c 6c 20 62 75 69 6c 74 20 64 69 72 65 63 74 6f  ll built directo
0530: 72 69 65 73 0a 09 63 70 20 2d 72 20 22 24 7b 4f  ries..cp -r "${O
0540: 54 48 45 52 50 4b 47 53 44 49 52 7d 22 2f 2a 2f  THERPKGSDIR}"/*/
0550: 6f 75 74 2f 2a 20 27 73 74 61 72 70 61 63 6b 2e  out/* 'starpack.
0560: 76 66 73 2f 27 0a 0a 09 23 23 20 52 65 6e 61 6d  vfs/'...## Renam
0570: 65 20 74 68 65 20 22 76 66 73 22 20 70 61 63 6b  e the "vfs" pack
0580: 61 67 65 20 64 69 72 65 63 74 6f 72 79 20 74 6f  age directory to
0590: 20 77 68 61 74 20 22 62 6f 6f 74 2e 74 63 6c 22   what "boot.tcl"
05a0: 20 65 78 70 65 63 74 73 0a 09 6d 76 20 27 73 74   expects..mv 'st
05b0: 61 72 70 61 63 6b 2e 76 66 73 2f 6c 69 62 27 2f  arpack.vfs/lib'/
05c0: 76 66 73 2a 20 27 73 74 61 72 70 61 63 6b 2e 76  vfs* 'starpack.v
05d0: 66 73 2f 6c 69 62 2f 76 66 73 27 0a 0a 09 23 23  fs/lib/vfs'...##
05e0: 20 49 6e 73 74 61 6c 6c 20 22 62 6f 6f 74 2e 74   Install "boot.t
05f0: 63 6c 22 0a 09 63 70 20 27 62 6f 6f 74 2e 74 63  cl"..cp 'boot.tc
0600: 6c 27 20 27 73 74 61 72 70 61 63 6b 2e 76 66 73  l' 'starpack.vfs
0610: 2f 27 0a 0a 09 23 20 46 69 67 75 72 65 20 6f 75  /'...# Figure ou
0620: 74 20 69 66 20 7a 6c 69 62 20 63 6f 6d 70 69 6c  t if zlib compil
0630: 65 64 20 28 69 66 20 6e 6f 74 2c 20 74 68 65 20  ed (if not, the 
0640: 73 79 73 74 65 6d 20 7a 6c 69 62 20 77 69 6c 6c  system zlib will
0650: 20 62 65 20 75 73 65 64 20 61 6e 64 20 77 65 0a   be used and we.
0660: 09 23 20 77 69 6c 6c 20 6e 65 65 64 20 74 6f 20  .# will need to 
0670: 68 61 76 65 20 74 68 61 74 20 70 72 65 73 65 6e  have that presen
0680: 74 29 0a 09 5a 4c 49 42 44 49 52 3d 22 24 28 63  t)..ZLIBDIR="$(c
0690: 64 20 22 24 7b 4f 54 48 45 52 50 4b 47 53 44 49  d "${OTHERPKGSDI
06a0: 52 7d 2f 7a 6c 69 62 2f 69 6e 73 74 22 20 32 3e  R}/zlib/inst" 2>
06b0: 2f 64 65 76 2f 6e 75 6c 6c 20 26 26 20 70 77 64  /dev/null && pwd
06c0: 29 22 0a 09 65 78 70 6f 72 74 20 5a 4c 49 42 44  )"..export ZLIBD
06d0: 49 52 0a 09 69 66 20 5b 20 2d 7a 20 22 24 7b 5a  IR..if [ -z "${Z
06e0: 4c 49 42 44 49 52 7d 22 20 2d 6f 20 21 20 2d 66  LIBDIR}" -o ! -f
06f0: 20 22 24 7b 5a 4c 49 42 44 49 52 7d 2f 6c 69 62   "${ZLIBDIR}/lib
0700: 2f 6c 69 62 7a 2e 61 22 20 5d 3b 20 74 68 65 6e  /libz.a" ]; then
0710: 0a 09 09 75 6e 73 65 74 20 5a 4c 49 42 44 49 52  ...unset ZLIBDIR
0720: 0a 09 66 69 0a 0a 09 23 20 43 6f 70 79 20 75 73  ..fi...# Copy us
0730: 65 72 20 73 70 65 63 69 66 69 65 64 20 6b 69 74  er specified kit
0740: 2e 72 63 20 61 6e 64 20 6b 69 74 2e 69 63 6f 20  .rc and kit.ico 
0750: 69 6e 20 74 6f 20 62 75 69 6c 64 20 64 69 72 65  in to build dire
0760: 63 74 6f 72 79 2c 20 69 66 20 66 6f 75 6e 64 0a  ctory, if found.
0770: 09 63 70 20 22 24 7b 4b 49 54 43 52 45 41 54 4f  .cp "${KITCREATO
0780: 52 5f 49 43 4f 4e 7d 22 20 22 24 7b 42 55 49 4c  R_ICON}" "${BUIL
0790: 44 44 49 52 7d 2f 6b 69 74 2e 69 63 6f 22 0a 09  DDIR}/kit.ico"..
07a0: 63 70 20 22 24 7b 4b 49 54 43 52 45 41 54 4f 52  cp "${KITCREATOR
07b0: 5f 52 43 7d 22 20 22 24 7b 42 55 49 4c 44 44 49  _RC}" "${BUILDDI
07c0: 52 7d 2f 6b 69 74 2e 72 63 22 0a 0a 09 23 20 49  R}/kit.rc"...# I
07d0: 6e 63 6c 75 64 65 20 65 78 74 72 61 20 6f 62 6a  nclude extra obj
07e0: 65 63 74 73 20 61 73 20 72 65 71 75 69 72 65 64  ects as required
07f0: 0a 09 23 23 20 49 6e 69 74 69 61 6c 69 7a 65 20  ..## Initialize 
0800: 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 6f 62  list of extra ob
0810: 6a 65 63 74 73 0a 09 45 58 54 52 41 5f 4f 42 4a  jects..EXTRA_OBJ
0820: 53 3d 22 22 0a 09 65 78 70 6f 72 74 20 45 58 54  S=""..export EXT
0830: 52 41 5f 4f 42 4a 53 0a 0a 09 23 23 20 54 6b 20  RA_OBJS...## Tk 
0840: 52 65 73 6f 75 72 63 65 73 20 28 6e 65 65 64 65  Resources (neede
0850: 64 20 66 6f 72 20 57 69 6e 33 32 20 73 75 70 70  d for Win32 supp
0860: 6f 72 74 29 20 2d 2d 20 72 65 6d 6f 76 65 20 6b  ort) -- remove k
0870: 69 74 2d 66 6f 75 6e 64 20 72 65 73 6f 75 72 63  it-found resourc
0880: 65 73 20 74 6f 20 70 72 65 76 65 6e 74 20 74 68  es to prevent th
0890: 65 20 73 79 6d 62 6f 6c 73 20 66 72 6f 6d 20 62  e symbols from b
08a0: 65 69 6e 67 20 69 6e 20 63 6f 6e 66 6c 69 63 74  eing in conflict
08b0: 0a 09 54 4b 44 49 52 3d 22 24 28 63 64 20 22 24  ..TKDIR="$(cd "$
08c0: 7b 4f 54 48 45 52 50 4b 47 53 44 49 52 7d 2f 74  {OTHERPKGSDIR}/t
08d0: 6b 2f 69 6e 73 74 22 20 26 26 20 70 77 64 29 22  k/inst" && pwd)"
08e0: 0a 09 54 4b 52 53 52 43 3d 22 24 7b 54 4b 44 49  ..TKRSRC="${TKDI
08f0: 52 7d 2f 6c 69 62 2f 74 6b 62 61 73 65 2e 72 65  R}/lib/tkbase.re
0900: 73 2e 6f 22 0a 09 69 66 20 5b 20 2d 6e 20 22 24  s.o"..if [ -n "$
0910: 7b 54 4b 44 49 52 7d 22 20 2d 61 20 2d 66 20 22  {TKDIR}" -a -f "
0920: 24 7b 54 4b 52 53 52 43 7d 22 20 5d 3b 20 74 68  ${TKRSRC}" ]; th
0930: 65 6e 0a 09 09 45 58 54 52 41 5f 4f 42 4a 53 3d  en...EXTRA_OBJS=
0940: 22 24 7b 45 58 54 52 41 5f 4f 42 4a 53 7d 20 24  "${EXTRA_OBJS} $
0950: 7b 54 4b 52 53 52 43 7d 22 0a 0a 09 09 65 63 68  {TKRSRC}"....ech
0960: 6f 20 27 20 2a 2a 2a 20 52 65 6d 6f 76 69 6e 67  o ' *** Removing
0970: 20 22 6b 69 74 2e 72 63 22 20 73 69 6e 63 65 20   "kit.rc" since 
0980: 77 65 20 68 61 76 65 20 54 6b 20 77 69 74 68 20  we have Tk with 
0990: 69 74 73 20 6f 77 6e 20 72 65 73 6f 75 72 63 65  its own resource
09a0: 20 66 69 6c 65 27 0a 0a 09 09 72 6d 20 2d 66 20   file'....rm -f 
09b0: 22 24 7b 42 55 49 4c 44 44 49 52 7d 2f 6b 69 74  "${BUILDDIR}/kit
09c0: 2e 72 63 22 0a 09 66 69 0a 0a 09 23 20 44 65 74  .rc"..fi...# Det
09d0: 65 72 6d 69 6e 65 20 69 66 20 74 61 72 67 65 74  ermine if target
09e0: 20 69 73 20 4b 69 74 44 4c 4c 20 6f 72 20 4b 69   is KitDLL or Ki
09f0: 74 53 48 0a 09 69 66 20 5b 20 22 24 7b 4b 49 54  tSH..if [ "${KIT
0a00: 54 41 52 47 45 54 7d 22 20 3d 20 22 6b 69 74 64  TARGET}" = "kitd
0a10: 6c 6c 22 20 5d 3b 20 74 68 65 6e 0a 09 09 43 4f  ll" ]; then...CO
0a20: 4e 46 49 47 55 52 45 45 58 54 52 41 3d 22 24 7b  NFIGUREEXTRA="${
0a30: 43 4f 4e 46 49 47 55 52 45 45 58 54 52 41 7d 20  CONFIGUREEXTRA} 
0a40: 2d 2d 65 6e 61 62 6c 65 2d 6b 69 74 64 6c 6c 22  --enable-kitdll"
0a50: 0a 09 66 69 0a 0a 09 23 20 43 6f 6d 70 69 6c 65  ..fi...# Compile
0a60: 20 4b 69 74 0a 09 69 66 20 5b 20 2d 7a 20 22 24   Kit..if [ -z "$
0a70: 7b 5a 4c 49 42 44 49 52 7d 22 20 5d 3b 20 74 68  {ZLIBDIR}" ]; th
0a80: 65 6e 0a 09 09 65 63 68 6f 20 22 52 75 6e 6e 69  en...echo "Runni
0a90: 6e 67 3a 20 2e 2f 63 6f 6e 66 69 67 75 72 65 20  ng: ./configure 
0aa0: 2d 2d 77 69 74 68 2d 74 63 6c 3d 5c 22 24 7b 54  --with-tcl=\"${T
0ab0: 43 4c 43 4f 4e 46 49 47 44 49 52 7d 5c 22 20 24  CLCONFIGDIR}\" $
0ac0: 7b 43 4f 4e 46 49 47 55 52 45 45 58 54 52 41 7d  {CONFIGUREEXTRA}
0ad0: 22 0a 0a 09 09 2e 2f 63 6f 6e 66 69 67 75 72 65  "...../configure
0ae0: 20 2d 2d 77 69 74 68 2d 74 63 6c 3d 22 24 7b 54   --with-tcl="${T
0af0: 43 4c 43 4f 4e 46 49 47 44 49 52 7d 22 20 24 7b  CLCONFIGDIR}" ${
0b00: 43 4f 4e 46 49 47 55 52 45 45 58 54 52 41 7d 0a  CONFIGUREEXTRA}.
0b10: 09 65 6c 73 65 0a 09 09 65 63 68 6f 20 22 52 75  .else...echo "Ru
0b20: 6e 6e 69 6e 67 3a 20 2e 2f 63 6f 6e 66 69 67 75  nning: ./configu
0b30: 72 65 20 2d 2d 77 69 74 68 2d 74 63 6c 3d 5c 22  re --with-tcl=\"
0b40: 24 7b 54 43 4c 43 4f 4e 46 49 47 44 49 52 7d 5c  ${TCLCONFIGDIR}\
0b50: 22 20 2d 2d 77 69 74 68 2d 7a 6c 69 62 3d 5c 22  " --with-zlib=\"
0b60: 24 7b 5a 4c 49 42 44 49 52 7d 5c 22 20 24 7b 43  ${ZLIBDIR}\" ${C
0b70: 4f 4e 46 49 47 55 52 45 45 58 54 52 41 7d 22 0a  ONFIGUREEXTRA}".
0b80: 0a 09 09 2e 2f 63 6f 6e 66 69 67 75 72 65 20 2d  ..../configure -
0b90: 2d 77 69 74 68 2d 74 63 6c 3d 22 24 7b 54 43 4c  -with-tcl="${TCL
0ba0: 43 4f 4e 46 49 47 44 49 52 7d 22 20 2d 2d 77 69  CONFIGDIR}" --wi
0bb0: 74 68 2d 7a 6c 69 62 3d 22 24 7b 5a 4c 49 42 44  th-zlib="${ZLIBD
0bc0: 49 52 7d 22 20 24 7b 43 4f 4e 46 49 47 55 52 45  IR}" ${CONFIGURE
0bd0: 45 58 54 52 41 7d 0a 09 66 69 0a 0a 09 65 63 68  EXTRA}..fi...ech
0be0: 6f 20 22 52 75 6e 6e 69 6e 67 3a 20 24 7b 4d 41  o "Running: ${MA
0bf0: 4b 45 3a 2d 6d 61 6b 65 7d 20 54 43 4c 53 48 5f  KE:-make} TCLSH_
0c00: 4e 41 54 49 56 45 3d 5c 22 24 7b 54 43 4c 53 48  NATIVE=\"${TCLSH
0c10: 5f 4e 41 54 49 56 45 7d 5c 22 22 0a 09 24 7b 4d  _NATIVE}\""..${M
0c20: 41 4b 45 3a 2d 6d 61 6b 65 7d 20 54 43 4c 53 48  AKE:-make} TCLSH
0c30: 5f 4e 41 54 49 56 45 3d 22 24 7b 54 43 4c 53 48  _NATIVE="${TCLSH
0c40: 5f 4e 41 54 49 56 45 7d 22 20 7c 7c 20 65 78 69  _NATIVE}" || exi
0c50: 74 20 31 0a 0a 09 23 20 53 74 72 69 70 20 74 68  t 1...# Strip th
0c60: 65 20 6b 69 74 20 6f 66 20 61 6c 6c 20 73 79 6d  e kit of all sym
0c70: 62 6f 6c 73 2c 20 69 66 20 70 6f 73 73 69 62 6c  bols, if possibl
0c80: 65 0a 09 22 24 7b 53 54 52 49 50 3a 2d 73 74 72  e.."${STRIP:-str
0c90: 69 70 7d 22 20 6b 69 74 20 3e 2f 64 65 76 2f 6e  ip}" kit >/dev/n
0ca0: 75 6c 6c 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 0a  ull 2>/dev/null.
0cb0: 09 22 24 7b 53 54 52 49 50 3a 2d 73 74 72 69 70  ."${STRIP:-strip
0cc0: 7d 22 20 2d 67 20 6c 69 62 74 63 6c 6b 69 74 2a  }" -g libtclkit*
0cd0: 20 3e 2f 64 65 76 2f 6e 75 6c 6c 20 32 3e 2f 64   >/dev/null 2>/d
0ce0: 65 76 2f 6e 75 6c 6c 0a 0a 09 23 20 46 69 78 20  ev/null...# Fix 
0cf0: 75 70 20 57 69 6e 33 32 20 44 4c 4c 20 6e 61 6d  up Win32 DLL nam
0d00: 65 73 0a 09 23 23 20 2e 44 4c 4c 2e 41 20 2d 3e  es..## .DLL.A ->
0d10: 20 2e 4c 49 42 0a 09 66 6f 72 20 66 69 6c 65 20   .LIB..for file 
0d20: 69 6e 20 6c 69 62 74 63 6c 6b 69 74 2a 2e 64 6c  in libtclkit*.dl
0d30: 6c 2e 61 3b 20 64 6f 0a 09 09 69 66 20 5b 20 21  l.a; do...if [ !
0d40: 20 2d 66 20 22 24 7b 66 69 6c 65 7d 22 20 5d 3b   -f "${file}" ];
0d50: 20 74 68 65 6e 0a 09 09 09 63 6f 6e 74 69 6e 75   then....continu
0d60: 65 0a 09 09 66 69 0a 0a 09 09 6e 65 77 66 69 6c  e...fi....newfil
0d70: 65 3d 22 24 28 62 61 73 65 6e 61 6d 65 20 22 24  e="$(basename "$
0d80: 7b 66 69 6c 65 7d 22 20 2e 64 6c 6c 2e 61 29 2e  {file}" .dll.a).
0d90: 6c 69 62 22 0a 09 09 6d 76 20 22 24 7b 66 69 6c  lib"...mv "${fil
0da0: 65 7d 22 20 22 24 7b 6e 65 77 66 69 6c 65 7d 22  e}" "${newfile}"
0db0: 0a 09 64 6f 6e 65 0a 0a 09 23 23 20 2e 44 4c 4c  ..done...## .DLL
0dc0: 2e 44 45 46 20 2d 3e 20 2e 44 45 46 0a 09 66 6f  .DEF -> .DEF..fo
0dd0: 72 20 66 69 6c 65 20 69 6e 20 6c 69 62 74 63 6c  r file in libtcl
0de0: 6b 69 74 2a 2e 64 6c 6c 2e 64 65 66 3b 20 64 6f  kit*.dll.def; do
0df0: 0a 09 09 69 66 20 5b 20 21 20 2d 66 20 22 24 7b  ...if [ ! -f "${
0e00: 66 69 6c 65 7d 22 20 5d 3b 20 74 68 65 6e 0a 09  file}" ]; then..
0e10: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 09 66 69 0a  ..continue...fi.
0e20: 0a 09 09 6e 65 77 66 69 6c 65 3d 22 24 28 62 61  ...newfile="$(ba
0e30: 73 65 6e 61 6d 65 20 22 24 7b 66 69 6c 65 7d 22  sename "${file}"
0e40: 20 2e 64 6c 6c 2e 64 65 66 29 2e 64 65 66 22 0a   .dll.def).def".
0e50: 09 09 6d 76 20 22 24 7b 66 69 6c 65 7d 22 20 22  ..mv "${file}" "
0e60: 24 7b 6e 65 77 66 69 6c 65 7d 22 0a 09 64 6f 6e  ${newfile}"..don
0e70: 65 0a 0a 09 23 20 44 65 74 65 72 6d 69 6e 65 20  e...# Determine 
0e80: 6e 61 6d 65 20 6f 66 20 63 72 65 61 74 65 64 20  name of created 
0e90: 6b 69 74 0a 09 4b 49 54 54 41 52 47 45 54 5f 4e  kit..KITTARGET_N
0ea0: 41 4d 45 3d 27 5f 5f 65 72 72 6f 72 5f 5f 27 0a  AME='__error__'.
0eb0: 09 69 66 20 5b 20 22 24 7b 4b 49 54 54 41 52 47  .if [ "${KITTARG
0ec0: 45 54 7d 22 20 3d 20 22 6b 69 74 64 6c 6c 22 20  ET}" = "kitdll" 
0ed0: 5d 3b 20 74 68 65 6e 0a 09 09 23 23 20 46 69 6e  ]; then...## Fin
0ee0: 64 20 74 68 65 20 6c 69 62 72 61 72 79 20 63 72  d the library cr
0ef0: 65 61 74 65 64 0a 09 09 66 6f 72 20 63 68 6b 6b  eated...for chkk
0f00: 69 74 74 61 72 67 65 74 20 69 6e 20 6c 69 62 74  ittarget in libt
0f10: 63 6c 6b 69 74 2a 2e 2a 3b 20 64 6f 0a 09 09 09  clkit*.*; do....
0f20: 69 66 20 5b 20 21 20 2d 66 20 22 24 7b 63 68 6b  if [ ! -f "${chk
0f30: 6b 69 74 74 61 72 67 65 74 7d 22 20 5d 3b 20 74  kittarget}" ]; t
0f40: 68 65 6e 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65  hen.....continue
0f50: 0a 09 09 09 66 69 0a 0a 09 09 09 69 66 20 65 63  ....fi.....if ec
0f60: 68 6f 20 22 24 7b 63 68 6b 6b 69 74 74 61 72 67  ho "${chkkittarg
0f70: 65 74 7d 22 20 7c 20 65 67 72 65 70 20 27 5c 2e  et}" | egrep '\.
0f80: 28 6c 69 62 7c 64 65 66 7c 61 29 24 27 3b 20 74  (lib|def|a)$'; t
0f90: 68 65 6e 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65  hen.....continue
0fa0: 0a 09 09 09 66 69 0a 0a 09 09 09 4b 49 54 54 41  ....fi.....KITTA
0fb0: 52 47 45 54 5f 4e 41 4d 45 3d 22 24 7b 63 68 6b  RGET_NAME="${chk
0fc0: 6b 69 74 74 61 72 67 65 74 7d 22 0a 0a 09 09 09  kittarget}".....
0fd0: 62 72 65 61 6b 0a 09 09 64 6f 6e 65 0a 0a 09 09  break...done....
0fe0: 23 23 20 41 6c 73 6f 20 63 72 65 61 74 65 20 61  ## Also create a
0ff0: 6e 20 65 78 65 63 75 74 61 62 6c 65 20 6e 61 6d  n executable nam
1000: 65 64 20 22 6b 69 74 22 20 73 6f 20 74 68 61 74  ed "kit" so that
1010: 20 77 65 20 63 61 6e 20 72 75 6e 20 69 74 20 6c   we can run it l
1020: 61 74 65 72 0a 09 09 24 7b 4d 41 4b 45 3a 2d 6d  ater...${MAKE:-m
1030: 61 6b 65 7d 20 74 63 6c 73 68 0a 09 09 6d 76 20  ake} tclsh...mv 
1040: 74 63 6c 73 68 20 6b 69 74 0a 09 65 6c 73 65 0a  tclsh kit..else.
1050: 09 09 23 23 20 54 68 65 20 65 78 65 63 75 74 61  ..## The executa
1060: 62 6c 65 20 69 73 20 61 6c 77 61 79 73 20 6e 61  ble is always na
1070: 6d 65 64 20 22 6b 69 74 22 0a 09 09 4b 49 54 54  med "kit"...KITT
1080: 41 52 47 45 54 5f 4e 41 4d 45 3d 27 6b 69 74 27  ARGET_NAME='kit'
1090: 0a 09 66 69 0a 09 65 78 70 6f 72 74 20 4b 49 54  ..fi..export KIT
10a0: 54 41 52 47 45 54 5f 4e 41 4d 45 0a 0a 09 69 66  TARGET_NAME...if
10b0: 20 5b 20 22 78 24 7b 4b 49 54 54 41 52 47 45 54   [ "x${KITTARGET
10c0: 5f 4e 41 4d 45 7d 22 20 3d 20 27 78 5f 5f 65 72  _NAME}" = 'x__er
10d0: 72 6f 72 5f 5f 27 20 5d 3b 20 74 68 65 6e 0a 09  ror__' ]; then..
10e0: 09 65 63 68 6f 20 22 46 61 69 6c 65 64 20 74 6f  .echo "Failed to
10f0: 20 6c 6f 63 61 74 65 20 6b 69 74 20 74 61 72 67   locate kit targ
1100: 65 74 21 22 20 3e 26 32 0a 0a 09 09 65 78 69 74  et!" >&2....exit
1110: 20 31 0a 09 66 69 0a 0a 09 23 20 49 6e 74 61 6c   1..fi...# Intal
1120: 6c 20 56 46 53 20 6f 6e 74 6f 20 6b 69 74 0a 09  l VFS onto kit..
1130: 23 23 20 44 65 74 65 72 6d 69 6e 65 20 69 66 20  ## Determine if 
1140: 77 65 20 68 61 76 65 20 61 20 54 63 6c 6b 69 74  we have a Tclkit
1150: 20 74 6f 20 64 6f 20 74 68 69 73 20 77 6f 72 6b   to do this work
1160: 0a 09 54 43 4c 4b 49 54 3d 22 24 7b 54 43 4c 4b  ..TCLKIT="${TCLK
1170: 49 54 3a 2d 74 63 6c 6b 69 74 7d 22 0a 09 69 66  IT:-tclkit}"..if
1180: 20 65 63 68 6f 20 27 65 78 69 74 20 30 27 20 7c   echo 'exit 0' |
1190: 20 22 24 7b 54 43 4c 4b 49 54 7d 22 20 3e 2f 64   "${TCLKIT}" >/d
11a0: 65 76 2f 6e 75 6c 6c 20 32 3e 2f 64 65 76 2f 6e  ev/null 2>/dev/n
11b0: 75 6c 6c 3b 20 74 68 65 6e 0a 09 09 23 23 20 49  ull; then...## I
11c0: 6e 73 74 61 6c 6c 20 75 73 69 6e 67 20 65 78 69  nstall using exi
11d0: 73 74 69 6e 67 20 54 63 6c 6b 69 74 0a 09 09 23  sting Tclkit...#
11e0: 23 23 20 43 61 6c 6c 20 69 6e 73 74 61 6c 6c 65  ## Call installe
11f0: 72 0a 09 09 65 63 68 6f 20 22 52 75 6e 6e 69 6e  r...echo "Runnin
1200: 67 3a 20 5c 22 24 7b 54 43 4c 4b 49 54 7d 5c 22  g: \"${TCLKIT}\"
1210: 20 69 6e 73 74 61 6c 6c 76 66 73 2e 74 63 6c 20   installvfs.tcl 
1220: 5c 22 24 7b 4b 49 54 54 41 52 47 45 54 5f 4e 41  \"${KITTARGET_NA
1230: 4d 45 7d 5c 22 20 73 74 61 72 70 61 63 6b 2e 76  ME}\" starpack.v
1240: 66 73 20 5c 22 24 7b 45 4e 41 42 4c 45 43 4f 4d  fs \"${ENABLECOM
1250: 50 52 45 53 53 49 4f 4e 7d 5c 22 22 0a 09 09 22  PRESSION}\""..."
1260: 24 7b 54 43 4c 4b 49 54 7d 22 20 69 6e 73 74 61  ${TCLKIT}" insta
1270: 6c 6c 76 66 73 2e 74 63 6c 20 22 24 7b 4b 49 54  llvfs.tcl "${KIT
1280: 54 41 52 47 45 54 5f 4e 41 4d 45 7d 22 20 73 74  TARGET_NAME}" st
1290: 61 72 70 61 63 6b 2e 76 66 73 20 22 24 7b 45 4e  arpack.vfs "${EN
12a0: 41 42 4c 45 43 4f 4d 50 52 45 53 53 49 4f 4e 7d  ABLECOMPRESSION}
12b0: 22 20 7c 7c 20 65 78 69 74 20 31 0a 09 65 6c 73  " || exit 1..els
12c0: 65 0a 09 09 23 23 20 42 6f 6f 74 73 74 72 61 70  e...## Bootstrap
12d0: 20 28 63 61 6e 6e 6f 74 20 63 72 6f 73 73 2d 63   (cannot cross-c
12e0: 6f 6d 70 69 6c 65 29 0a 09 09 23 23 23 20 43 61  ompile)...### Ca
12f0: 6c 6c 20 69 6e 73 74 61 6c 6c 65 72 0a 09 09 63  ll installer...c
1300: 70 20 6b 69 74 20 72 75 6e 6b 69 74 0a 09 09 65  p kit runkit...e
1310: 63 68 6f 20 22 73 65 74 20 61 72 67 76 20 5b 6c  cho "set argv [l
1320: 69 73 74 20 7b 24 7b 4b 49 54 54 41 52 47 45 54  ist {${KITTARGET
1330: 5f 4e 41 4d 45 7d 7d 20 73 74 61 72 70 61 63 6b  _NAME}} starpack
1340: 2e 76 66 73 20 7b 24 7b 45 4e 41 42 4c 45 43 4f  .vfs {${ENABLECO
1350: 4d 50 52 45 53 53 49 4f 4e 7d 7d 5d 22 20 3e 20  MPRESSION}}]" > 
1360: 73 65 74 75 70 2e 74 63 6c 0a 09 09 65 63 68 6f  setup.tcl...echo
1370: 20 27 69 66 20 7b 5b 63 61 74 63 68 20 7b 20 63   'if {[catch { c
1380: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 20 7d 5d 7d  lock seconds }]}
1390: 20 7b 20 70 72 6f 63 20 63 6c 6f 63 6b 20 61 72   { proc clock ar
13a0: 67 73 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 20  gs { return 0 } 
13b0: 7d 27 20 3e 3e 20 73 65 74 75 70 2e 74 63 6c 0a  }' >> setup.tcl.
13c0: 09 09 65 63 68 6f 20 27 73 6f 75 72 63 65 20 69  ..echo 'source i
13d0: 6e 73 74 61 6c 6c 76 66 73 2e 74 63 6c 27 20 3e  nstallvfs.tcl' >
13e0: 3e 20 73 65 74 75 70 2e 74 63 6c 0a 0a 09 09 65  > setup.tcl....e
13f0: 63 68 6f 20 27 52 75 6e 6e 69 6e 67 3a 20 65 63  cho 'Running: ec
1400: 68 6f 20 7c 20 2e 2f 72 75 6e 6b 69 74 27 0a 09  ho | ./runkit'..
1410: 09 65 63 68 6f 20 7c 20 2e 2f 72 75 6e 6b 69 74  .echo | ./runkit
1420: 20 73 65 74 75 70 2e 74 63 6c 20 7c 7c 20 65 78   setup.tcl || ex
1430: 69 74 20 31 0a 09 66 69 0a 0a 09 23 20 43 6c 65  it 1..fi...# Cle
1440: 61 6e 75 70 0a 09 69 66 20 5b 20 22 24 7b 4b 49  anup..if [ "${KI
1450: 54 54 41 52 47 45 54 7d 22 20 3d 20 22 6b 69 74  TTARGET}" = "kit
1460: 64 6c 6c 22 20 5d 3b 20 74 68 65 6e 0a 09 09 23  dll" ]; then...#
1470: 23 20 52 65 6d 6f 76 65 20 62 75 69 6c 74 20 69  # Remove built i
1480: 6e 74 65 72 70 72 65 74 65 72 73 20 69 66 20 77  nterpreters if w
1490: 65 20 61 72 65 20 62 75 69 6c 64 69 6e 67 20 4b  e are building K
14a0: 69 74 44 4c 4c 20 2d 2d 0a 09 09 23 23 20 74 68  itDLL --...## th
14b0: 65 79 27 72 65 20 6a 75 73 74 20 74 69 6e 79 20  ey're just tiny 
14c0: 73 74 75 62 73 20 61 6e 79 77 61 79 0a 09 09 72  stubs anyway...r
14d0: 6d 20 2d 66 20 6b 69 74 20 72 75 6e 6b 69 74 0a  m -f kit runkit.
14e0: 09 66 69 0a 0a 09 65 78 69 74 20 30 0a 29 20 7c  .fi...exit 0.) |
14f0: 7c 20 65 78 69 74 20 31 0a 0a 65 78 69 74 20 30  | exit 1..exit 0
1500: 0a                                               .