Hex Artifact Content

Artifact 8402b3d3d21f89aeb9057d863a048d6ffcd3a782:


0000: 23 21 20 2f 62 69 6e 2f 62 61 73 68 0a 0a 23 20  #! /bin/bash..# 
0010: 44 65 66 69 6e 65 20 70 61 72 61 6d 65 74 65 72  Define parameter
0020: 73 0a 56 45 52 53 3d 38 2e 34 0a 53 52 43 3d 22  s.VERS=8.4.SRC="
0030: 73 72 63 2f 74 63 6c 78 24 7b 56 45 52 53 7d 2e  src/tclx${VERS}.
0040: 74 61 72 2e 62 7a 32 22 0a 53 52 43 55 52 4c 3d  tar.bz2".SRCURL=
0050: 22 68 74 74 70 3a 2f 2f 73 6f 75 72 63 65 66 6f  "http://sourcefo
0060: 72 67 65 2e 6e 65 74 2f 70 72 6f 6a 65 63 74 73  rge.net/projects
0070: 2f 74 63 6c 78 2f 66 69 6c 65 73 2f 54 63 6c 58  /tclx/files/TclX
0080: 2f 24 7b 56 45 52 53 7d 2e 30 2f 74 63 6c 78 24  /${VERS}.0/tclx$
0090: 7b 56 45 52 53 7d 2e 74 61 72 2e 62 7a 32 2f 64  {VERS}.tar.bz2/d
00a0: 6f 77 6e 6c 6f 61 64 22 0a 42 55 49 4c 44 44 49  ownload".BUILDDI
00b0: 52 3d 22 74 63 6c 78 24 7b 56 45 52 53 7d 22 0a  R="tclx${VERS}".
00c0: 65 78 70 6f 72 74 20 56 45 52 53 20 53 52 43 20  export VERS SRC 
00d0: 53 52 43 55 52 4c 20 42 55 49 4c 44 44 49 52 0a  SRCURL BUILDDIR.
00e0: 0a 23 20 4c 6f 61 64 20 63 6f 6d 6d 6f 6e 20 66  .# Load common f
00f0: 75 6e 63 74 69 6f 6e 73 0a 73 6f 75 72 63 65 20  unctions.source 
0100: 2e 2e 2f 63 6f 6d 6d 6f 6e 2e 73 68 0a 0a 23 20  ../common.sh..# 
0110: 44 6f 20 6e 6f 74 20 62 75 69 6c 64 20 69 66 20  Do not build if 
0120: 74 68 65 20 22 74 63 6c 22 20 70 6c 61 74 66 6f  the "tcl" platfo
0130: 72 6d 20 68 61 73 20 62 65 65 6e 20 72 65 71 75  rm has been requ
0140: 65 73 74 65 64 0a 6e 6f 74 5f 70 6c 61 74 66 6f  ested.not_platfo
0150: 72 6d 73 20 27 74 63 6c 27 0a 0a 23 20 44 6f 77  rms 'tcl'..# Dow
0160: 6e 6c 6f 61 64 20 73 6f 75 72 63 65 0a 64 6f 77  nload source.dow
0170: 6e 6c 6f 61 64 5f 73 72 63 0a 0a 28 0a 09 72 6d  nload_src..(..rm
0180: 20 2d 72 66 20 62 75 69 6c 64 0a 09 6d 6b 64 69   -rf build..mkdi
0190: 72 20 62 75 69 6c 64 0a 0a 09 63 64 20 62 75 69  r build...cd bui
01a0: 6c 64 2f 20 7c 7c 20 65 78 69 74 20 31 0a 0a 09  ld/ || exit 1...
01b0: 62 7a 69 70 32 20 2d 64 63 20 22 2e 2e 2f 24 7b  bzip2 -dc "../${
01c0: 53 52 43 7d 22 20 7c 20 74 61 72 20 2d 78 66 20  SRC}" | tar -xf 
01d0: 2d 0a 09 63 64 20 22 24 7b 42 55 49 4c 44 44 49  -..cd "${BUILDDI
01e0: 52 7d 22 20 7c 7c 20 65 78 69 74 20 31 0a 0a 09  R}" || exit 1...
01f0: 63 61 74 20 3c 3c 20 5c 5f 5f 45 4f 46 5f 5f 20  cat << \__EOF__ 
0200: 7c 20 70 61 74 63 68 20 2d 70 31 0a 2d 2d 2d 20  | patch -p1.--- 
0210: 74 63 6c 78 38 2e 34 2f 63 6f 6e 66 69 67 75 72  tclx8.4/configur
0220: 65 2e 72 65 6c 69 64 09 32 30 30 36 2d 30 32 2d  e.relid.2006-02-
0230: 30 33 20 31 36 3a 31 33 3a 32 35 2e 30 30 30 30  03 16:13:25.0000
0240: 30 30 30 30 30 20 2d 30 35 30 30 0a 2b 2b 2b 20  00000 -0500.+++ 
0250: 74 63 6c 78 38 2e 34 2f 63 6f 6e 66 69 67 75 72  tclx8.4/configur
0260: 65 09 32 30 30 36 2d 30 32 2d 30 33 20 31 36 3a  e.2006-02-03 16:
0270: 31 33 3a 33 33 2e 30 30 30 30 30 30 30 30 30 20  13:33.000000000 
0280: 2d 30 35 30 30 0a 40 40 20 2d 36 39 39 39 2c 37  -0500.@@ -6999,7
0290: 20 2b 36 39 39 39 2c 37 20 40 40 0a 20 09 20 20   +6999,7 @@. .  
02a0: 20 20 23 20 72 65 73 75 6c 74 73 2c 20 61 6e 64    # results, and
02b0: 20 74 68 65 20 76 65 72 73 69 6f 6e 20 69 73 20   the version is 
02c0: 6b 65 70 74 20 69 6e 20 73 70 65 63 69 61 6c 20  kept in special 
02d0: 66 69 6c 65 29 2e 0a 20 0a 20 09 20 20 20 20 69  file).. . .    i
02e0: 66 20 74 65 73 74 20 2d 72 20 2f 65 74 63 2f 2e  f test -r /etc/.
02f0: 72 65 6c 69 64 20 2d 61 20 22 58 60 75 6e 61 6d  relid -a "X`unam
0300: 65 20 2d 6e 60 22 20 3d 20 22 58 60 75 6e 61 6d  e -n`" = "X`unam
0310: 65 20 2d 73 60 22 20 3b 20 74 68 65 6e 0a 2d 09  e -s`" ; then.-.
0320: 09 73 79 73 74 65 6d 3d 4d 50 2d 52 41 53 2d 60  .system=MP-RAS-`
0330: 61 77 6b 20 27 7b 70 72 69 6e 74 20 7d 27 20 2f  awk '{print }' /
0340: 65 74 63 2f 2e 72 65 6c 69 64 27 60 0a 2b 09 09  etc/.relid'`.+..
0350: 73 79 73 74 65 6d 3d 4d 50 2d 52 41 53 2d 60 61  system=MP-RAS-`a
0360: 77 6b 20 27 7b 70 72 69 6e 74 20 7d 27 20 2f 65  wk '{print }' /e
0370: 74 63 2f 2e 72 65 6c 69 64 60 0a 20 09 20 20 20  tc/.relid`. .   
0380: 20 66 69 0a 20 09 20 20 20 20 69 66 20 74 65 73   fi. .    if tes
0390: 74 20 22 60 75 6e 61 6d 65 20 2d 73 60 22 20 3d  t "`uname -s`" =
03a0: 20 22 41 49 58 22 20 3b 20 74 68 65 6e 0a 20 09   "AIX" ; then. .
03b0: 09 73 79 73 74 65 6d 3d 41 49 58 2d 60 75 6e 61  .system=AIX-`una
03c0: 6d 65 20 2d 76 60 2e 60 75 6e 61 6d 65 20 2d 72  me -v`.`uname -r
03d0: 60 0a 2d 2d 2d 20 74 63 6c 78 38 2e 34 2f 74 63  `.--- tclx8.4/tc
03e0: 6c 63 6f 6e 66 69 67 2f 74 63 6c 2e 6d 34 2e 72  lconfig/tcl.m4.r
03f0: 65 6c 69 64 09 32 30 30 36 2d 30 32 2d 30 33 20  elid.2006-02-03 
0400: 31 36 3a 31 33 3a 34 33 2e 30 30 30 30 30 30 30  16:13:43.0000000
0410: 30 30 20 2d 30 35 30 30 0a 2b 2b 2b 20 74 63 6c  00 -0500.+++ tcl
0420: 78 38 2e 34 2f 74 63 6c 63 6f 6e 66 69 67 2f 74  x8.4/tclconfig/t
0430: 63 6c 2e 6d 34 09 32 30 30 36 2d 30 32 2d 30 33  cl.m4.2006-02-03
0440: 20 31 36 3a 31 33 3a 35 37 2e 30 30 30 30 30 30   16:13:57.000000
0450: 30 30 30 20 2d 30 35 30 30 0a 40 40 20 2d 38 35  000 -0500.@@ -85
0460: 39 2c 37 20 2b 38 35 39 2c 37 20 40 40 0a 20 09  9,7 +859,7 @@. .
0470: 20 20 20 20 23 20 72 65 73 75 6c 74 73 2c 20 61      # results, a
0480: 6e 64 20 74 68 65 20 76 65 72 73 69 6f 6e 20 69  nd the version i
0490: 73 20 6b 65 70 74 20 69 6e 20 73 70 65 63 69 61  s kept in specia
04a0: 6c 20 66 69 6c 65 29 2e 0a 20 09 0a 20 09 20 20  l file).. .. .  
04b0: 20 20 69 66 20 74 65 73 74 20 2d 72 20 2f 65 74    if test -r /et
04c0: 63 2f 2e 72 65 6c 69 64 20 2d 61 20 22 58 60 75  c/.relid -a "X`u
04d0: 6e 61 6d 65 20 2d 6e 60 22 20 3d 20 22 58 60 75  name -n`" = "X`u
04e0: 6e 61 6d 65 20 2d 73 60 22 20 3b 20 74 68 65 6e  name -s`" ; then
04f0: 0a 2d 09 09 73 79 73 74 65 6d 3d 4d 50 2d 52 41  .-..system=MP-RA
0500: 53 2d 60 61 77 6b 20 27 7b 70 72 69 6e 74 20 24  S-`awk '{print $
0510: 33 7d 27 20 2f 65 74 63 2f 2e 72 65 6c 69 64 27  3}' /etc/.relid'
0520: 60 0a 2b 09 09 73 79 73 74 65 6d 3d 4d 50 2d 52  `.+..system=MP-R
0530: 41 53 2d 60 61 77 6b 20 27 7b 70 72 69 6e 74 20  AS-`awk '{print 
0540: 24 33 7d 27 20 2f 65 74 63 2f 2e 72 65 6c 69 64  $3}' /etc/.relid
0550: 60 0a 20 09 20 20 20 20 66 69 0a 20 09 20 20 20  `. .    fi. .   
0560: 20 69 66 20 74 65 73 74 20 22 60 75 6e 61 6d 65   if test "`uname
0570: 20 2d 73 60 22 20 3d 20 22 41 49 58 22 20 3b 20   -s`" = "AIX" ; 
0580: 74 68 65 6e 0a 20 09 09 73 79 73 74 65 6d 3d 41  then. ..system=A
0590: 49 58 2d 60 75 6e 61 6d 65 20 2d 76 60 2e 60 75  IX-`uname -v`.`u
05a0: 6e 61 6d 65 20 2d 72 60 0a 40 40 20 2d 32 33 30  name -r`.@@ -230
05b0: 32 2c 37 20 2b 32 33 30 32 2c 37 20 40 40 0a 20  2,7 +2302,7 @@. 
05c0: 09 20 20 20 20 23 20 72 65 73 75 6c 74 73 2c 20  .    # results, 
05d0: 61 6e 64 20 74 68 65 20 76 65 72 73 69 6f 6e 20  and the version 
05e0: 69 73 20 6b 65 70 74 20 69 6e 20 73 70 65 63 69  is kept in speci
05f0: 61 6c 20 66 69 6c 65 29 2e 0a 20 09 0a 20 09 20  al file).. .. . 
0600: 20 20 20 69 66 20 74 65 73 74 20 2d 72 20 2f 65     if test -r /e
0610: 74 63 2f 2e 72 65 6c 69 64 20 2d 61 20 22 58 60  tc/.relid -a "X`
0620: 75 6e 61 6d 65 20 2d 6e 60 22 20 3d 20 22 58 60  uname -n`" = "X`
0630: 75 6e 61 6d 65 20 2d 73 60 22 20 3b 20 74 68 65  uname -s`" ; the
0640: 6e 0a 2d 09 09 73 79 73 74 65 6d 3d 4d 50 2d 52  n.-..system=MP-R
0650: 41 53 2d 60 61 77 6b 20 27 7b 70 72 69 6e 74 20  AS-`awk '{print 
0660: 24 33 7d 27 20 2f 65 74 63 2f 2e 72 65 6c 69 64  $3}' /etc/.relid
0670: 27 60 0a 2b 09 09 73 79 73 74 65 6d 3d 4d 50 2d  '`.+..system=MP-
0680: 52 41 53 2d 60 61 77 6b 20 27 7b 70 72 69 6e 74  RAS-`awk '{print
0690: 20 24 33 7d 27 20 2f 65 74 63 2f 2e 72 65 6c 69   $3}' /etc/.reli
06a0: 64 60 0a 20 09 20 20 20 20 66 69 0a 20 09 20 20  d`. .    fi. .  
06b0: 20 20 69 66 20 74 65 73 74 20 22 60 75 6e 61 6d    if test "`unam
06c0: 65 20 2d 73 60 22 20 3d 20 22 41 49 58 22 20 3b  e -s`" = "AIX" ;
06d0: 20 74 68 65 6e 0a 20 09 09 73 79 73 74 65 6d 3d   then. ..system=
06e0: 41 49 58 2d 60 75 6e 61 6d 65 20 2d 76 60 2e 60  AIX-`uname -v`.`
06f0: 75 6e 61 6d 65 20 2d 72 60 0a 5f 5f 45 4f 46 5f  uname -r`.__EOF_
0700: 5f 0a 09 63 61 74 20 3c 3c 20 5c 5f 5f 45 4f 46  _..cat << \__EOF
0710: 5f 5f 20 7c 20 70 61 74 63 68 20 2d 70 31 0a 2d  __ | patch -p1.-
0720: 2d 2d 20 74 63 6c 78 38 2e 34 2f 67 65 6e 65 72  -- tclx8.4/gener
0730: 69 63 2f 74 63 6c 58 64 75 70 2e 63 2e 76 61 72  ic/tclXdup.c.var
0740: 69 6e 69 74 09 32 30 30 36 2d 30 32 2d 30 33 20  init.2006-02-03 
0750: 31 35 3a 35 34 3a 33 38 2e 30 30 30 30 30 30 30  15:54:38.0000000
0760: 30 30 20 2d 30 35 30 30 0a 2b 2b 2b 20 74 63 6c  00 -0500.+++ tcl
0770: 78 38 2e 34 2f 67 65 6e 65 72 69 63 2f 74 63 6c  x8.4/generic/tcl
0780: 58 64 75 70 2e 63 09 32 30 30 36 2d 30 32 2d 30  Xdup.c.2006-02-0
0790: 33 20 31 35 3a 35 34 3a 35 33 2e 30 30 30 30 30  3 15:54:53.00000
07a0: 30 30 30 30 20 2d 30 35 30 30 0a 40 40 20 2d 32  0000 -0500.@@ -2
07b0: 30 32 2c 37 20 2b 32 30 32 2c 37 20 40 40 0a 20  02,7 +202,7 @@. 
07c0: 7b 0a 20 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e  {.     Tcl_Chann
07d0: 65 6c 20 6e 65 77 43 68 61 6e 6e 65 6c 3b 0a 20  el newChannel;. 
07e0: 20 20 20 20 69 6e 74 20 62 69 6e 64 46 6e 75 6d      int bindFnum
07f0: 2c 20 66 6e 75 6d 3b 0a 2d 20 20 20 20 63 68 61  , fnum;.-    cha
0800: 72 20 2a 73 72 63 43 68 61 6e 6e 65 6c 49 64 2c  r *srcChannelId,
0810: 20 2a 74 61 72 67 65 74 43 68 61 6e 6e 65 6c 49   *targetChannelI
0820: 64 3b 0a 2b 20 20 20 20 63 68 61 72 20 2a 73 72  d;.+    char *sr
0830: 63 43 68 61 6e 6e 65 6c 49 64 20 3d 20 4e 55 4c  cChannelId = NUL
0840: 4c 2c 20 2a 74 61 72 67 65 74 43 68 61 6e 6e 65  L, *targetChanne
0850: 6c 49 64 3b 0a 20 0a 20 20 20 20 20 69 66 20 28  lId;. .     if (
0860: 28 6f 62 6a 63 20 3c 20 32 29 20 7c 7c 20 28 6f  (objc < 2) || (o
0870: 62 6a 63 20 3e 20 33 29 29 20 7b 0a 20 20 20 20  bjc > 3)) {.    
0880: 20 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 58       return TclX
0890: 5f 57 72 6f 6e 67 41 72 67 73 20 28 69 6e 74 65  _WrongArgs (inte
08a0: 72 70 2c 20 6f 62 6a 76 20 5b 30 5d 2c 0a 5f 5f  rp, objv [0],.__
08b0: 45 4f 46 5f 5f 0a 0a 0a 09 62 61 73 68 20 2e 2f  EOF__....bash ./
08c0: 63 6f 6e 66 69 67 75 72 65 20 2d 2d 65 6e 61 62  configure --enab
08d0: 6c 65 2d 73 68 61 72 65 64 20 2d 2d 77 69 74 68  le-shared --with
08e0: 2d 74 63 6c 3d 22 24 7b 54 43 4c 43 4f 4e 46 49  -tcl="${TCLCONFI
08f0: 47 44 49 52 7d 22 20 2d 2d 6c 69 62 64 69 72 3d  GDIR}" --libdir=
0900: 22 24 7b 50 4c 41 54 44 49 52 7d 22 20 24 7b 43  "${PLATDIR}" ${C
0910: 4f 4e 46 49 47 55 52 45 45 58 54 52 41 7d 0a 09  ONFIGUREEXTRA}..
0920: 24 7b 4d 41 4b 45 3a 2d 6d 61 6b 65 7d 20 7c 7c  ${MAKE:-make} ||
0930: 20 65 78 69 74 20 31 0a 0a 09 6d 6b 64 69 72 20   exit 1...mkdir 
0940: 2d 70 20 22 24 7b 50 4c 41 54 44 49 52 7d 22 20  -p "${PLATDIR}" 
0950: 3e 2f 64 65 76 2f 6e 75 6c 6c 20 32 3e 2f 64 65  >/dev/null 2>/de
0960: 76 2f 6e 75 6c 6c 0a 0a 09 24 7b 4d 41 4b 45 3a  v/null...${MAKE:
0970: 2d 6d 61 6b 65 7d 20 69 6e 73 74 61 6c 6c 2d 6c  -make} install-l
0980: 69 62 2d 62 69 6e 61 72 69 65 73 20 50 4b 47 5f  ib-binaries PKG_
0990: 44 49 52 3d 27 27 20 7c 7c 20 65 78 69 74 20 31  DIR='' || exit 1
09a0: 0a 0a 29 20 7c 7c 20 65 78 69 74 20 31 0a 0a 2e  ..) || exit 1...
09b0: 2e 2f 63 72 65 61 74 65 5f 74 65 61 70 6f 74 20  ./create_teapot 
09c0: 22 24 7b 50 4c 41 54 44 49 52 7d 2f 74 65 61 70  "${PLATDIR}/teap
09d0: 6f 74 2e 74 78 74 22 20 22 54 63 6c 78 22 20 22  ot.txt" "Tclx" "
09e0: 24 7b 56 45 52 53 7d 22 20 22 24 7b 53 52 43 55  ${VERS}" "${SRCU
09f0: 52 4c 7d 22 20 22 24 7b 50 4c 41 54 46 4f 52 4d  RL}" "${PLATFORM
0a00: 7d 22 20 22 54 63 6c 20 38 2e 34 22 20 22 45 78  }" "Tcl 8.4" "Ex
0a10: 74 65 6e 64 65 64 20 54 63 6c 22 0a 0a 65 78 69  tended Tcl"..exi
0a20: 74 20 30 0a                                      t 0.