home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume26 / tcl / patch01 next >
Encoding:
Text File  |  1991-11-25  |  3.6 KB  |  137 lines
  1. Newsgroups: comp.sources.misc
  2. From: karl@NeoSoft.com (Karl Lehenbauer)
  3. Subject:  v26i069:  tcl - tool command language, version 6.1, Patch01
  4. Message-ID: <1991Nov26.033625.461@sparky.imd.sterling.com>
  5. X-Md4-Signature: a2e2743805791f8a98c1e568ff643df4
  6. Date: Tue, 26 Nov 1991 03:36:25 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: karl@NeoSoft.com (Karl Lehenbauer)
  10. Posting-number: Volume 26, Issue 69
  11. Archive-name: tcl/patch01
  12. Environment: UNIX
  13. Patch-To: tcl: Volume 25, Issue 69-101
  14.  
  15. Here is patch 1 to tcl.  
  16.  
  17. Tcl was accidentally released in a partially configured state.  This patch 
  18. places Tcl in a completely unconfigured state.
  19.  
  20. This patch also creates a patchlevel.h file.
  21.  
  22. To patch, cd to the tcl6.1 subdirectory, and run this posting through "patch".
  23.  
  24. After patching, do a "csh ./config" to run the config program,
  25. then do a "make".
  26.  
  27.  
  28. *** ../../tcl6.1-release/tcl6.1/patchlevel.h    Sat Nov 23 10:08:24 1991
  29. --- patchlevel.h    Sat Nov 23 10:08:14 1991
  30. ***************
  31. *** 0 ****
  32. --- 1,1 ----
  33. + #define PATCHLEVEL 1
  34. *** ../../tcl6.1-release/tcl6.1/Makefile    Sat Nov 23 09:52:01 1991
  35. --- Makefile    Sat Nov 23 10:02:09 1991
  36. ***************
  37. *** 34,40 ****
  38.   UNIX_OBJS = panic.o tclEnv.o tclGlob.o tclUnixAZ.o tclUnixStr.o \
  39.       tclUnixUtil.o 
  40.   
  41. ! COMPAT_OBJS = strerror.o opendir.o strstr.o strtoul.o
  42.   
  43.   OBJS = ${GENERIC_OBJS} ${UNIX_OBJS} ${COMPAT_OBJS}
  44.   
  45. --- 34,40 ----
  46.   UNIX_OBJS = panic.o tclEnv.o tclGlob.o tclUnixAZ.o tclUnixStr.o \
  47.       tclUnixUtil.o 
  48.   
  49. ! COMPAT_OBJS =
  50.   
  51.   OBJS = ${GENERIC_OBJS} ${UNIX_OBJS} ${COMPAT_OBJS}
  52.   
  53. ***************
  54. *** 41,46 ****
  55. --- 41,47 ----
  56.   libtcl.a: ${OBJS}
  57.       rm -f libtcl.a
  58.       ar cr libtcl.a ${OBJS}
  59. +     ranlib libtcl.a
  60.   
  61.   tclTest: tclTest.o libtcl.a
  62.       ${CC} ${CFLAGS} tclTest.o libtcl.a -o tclTest
  63. *** ../../tcl6.1-release/tcl6.1/config    Sat Nov 23 09:52:34 1991
  64. --- config    Sat Nov 23 10:02:41 1991
  65. ***************
  66. *** 29,35 ****
  67.   
  68.   # Archive file containing object code for standard C library:
  69.   
  70. ! set libc="/lib/Llibc.a"
  71.   
  72.   # Makefile to modify:
  73.   
  74. --- 29,35 ----
  75.   
  76.   # Archive file containing object code for standard C library:
  77.   
  78. ! set libc="/lib/libc.a"
  79.   
  80.   # Makefile to modify:
  81.   
  82. ***************
  83. *** 272,278 ****
  84.   cp compat/testpid.c test.c
  85.   make test >& /dev/null
  86.   set chk1=$status
  87. ! if ( $chk1 != 0 ) then
  88.       set pid_t=0
  89.       echo "- The types pid_t and uid_t aren't defined in <sys/types.h>"
  90.       echo '  so Tcl will use "int" instead.'
  91. --- 272,278 ----
  92.   cp compat/testpid.c test.c
  93.   make test >& /dev/null
  94.   set chk1=$status
  95. ! if ( $status != 0 ) then
  96.       set pid_t=0
  97.       echo "- The types pid_t and uid_t aren't defined in <sys/types.h>"
  98.       echo '  so Tcl will use "int" instead.'
  99. *** ../../tcl6.1-release/tcl6.1/tclUnix.h    Sat Nov 23 09:52:30 1991
  100. --- tclUnix.h    Sat Nov 23 10:02:36 1991
  101. ***************
  102. *** 54,65 ****
  103.    *                pid_t and uid_t.  0 means that it doesn't.
  104.    */
  105.   
  106. ! #define TCL_GETTOD 0
  107. ! #define TCL_GETWD 0
  108.   #define TCL_SYS_ERRLIST 1
  109.   #define TCL_SYS_TIME_H 1
  110.   #define TCL_SYS_WAIT_H 1
  111. ! #define TCL_UNION_WAIT 0
  112.   #define TCL_PID_T 1
  113.   
  114.   #include <errno.h>
  115. --- 54,65 ----
  116.    *                pid_t and uid_t.  0 means that it doesn't.
  117.    */
  118.   
  119. ! #define TCL_GETTOD 1
  120. ! #define TCL_GETWD 1
  121.   #define TCL_SYS_ERRLIST 1
  122.   #define TCL_SYS_TIME_H 1
  123.   #define TCL_SYS_WAIT_H 1
  124. ! #define TCL_UNION_WAIT 1
  125.   #define TCL_PID_T 1
  126.   
  127.   #include <errno.h>
  128. -- 
  129. -- sysop of Sugar Land Unix  "Have Unix, will travel."
  130.  
  131. exit 0 # Just in case...
  132. -- 
  133. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  134. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  135. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  136. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  137.