home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / unix / bsd / 9064 < prev    next >
Encoding:
Text File  |  1992-11-18  |  11.3 KB  |  382 lines
  1. Xref: sparky comp.unix.bsd:9064 comp.lang.tcl:1882 alt.sources:2573
  2. Newsgroups: comp.unix.bsd,comp.lang.tcl,alt.sources
  3. Path: sparky!uunet!zaphod.mps.ohio-state.edu!menudo.uh.edu!sugar!karl
  4. From: karl@NeoSoft.com (Karl Lehenbauer)
  5. Subject: Patches to get Tcl 6.4 & Tk 2.3 up under 386BSD 0.1
  6. Organization: NeoSoft Communications Services -- (713) 684-5900
  7. Date: Thu, 19 Nov 1992 04:55:22 GMT
  8. Message-ID: <Bxy5oG.AnI@NeoSoft.com>
  9. Lines: 371
  10.  
  11. Here are the patches to get Tcl 6.4, Extended Tcl 6.4c and the
  12. Tk X-windows scripting environment working on 386BSD.
  13. Go to sprite.berkeley.edu and get tcl6.4.tar.Z and
  14. tclX6.4c.tar.Z.  Also get tk2.3.tar.Z if you have X-windows.
  15. Create a tcl6.4 directory, cd to it, and unpack the two (or three)
  16. tar archives.   You should get tcl6.4 and tclX6.4c (and tk2.3) directories.
  17.  
  18. Save off this patch, then do a "patch -p0 <patchfile".  Then cd to
  19. the tcl6.4 subdirectory and do a "csh config" and a "make", then 
  20. cd to tclX6.4c and do a make.
  21.  
  22. The Tk X-windows toolkit extensions for Tcl compile up without
  23. a peep.  No patches necessary.
  24.  
  25. Unpack tk2.3 in the top-level tcl6.4 directory if you have X, then
  26. cd to tclX6.4c, edit Config.mk to comment in the line that
  27. reads TCL_TK_SHELL, and do a "make".  It should produce "wish", the 
  28. windowing shell, linked in with Tcl and Extended Tcl.
  29.  
  30. "make install" in tclX6.4c will install Extended Tcl.  Copy 
  31. tcl6.4/library and subdirectories into /usr/local/lib/tcl,
  32. and tk2.3/library and subdirectories into /usr/local/lib/tk.
  33. Check out the voluminous docs included the the release.
  34.  
  35. Tcl fails a couple of the standard tests, and quite a few of the
  36. extended tests, so there are definitely problems.  But this is enough
  37. to get you up and running with a great scripting environment for X.
  38.  
  39. *** tcl6.4/tclEnv.c.orig    Wed Nov 18 20:08:13 1992
  40. --- tcl6.4/tclEnv.c    Wed Nov 18 20:16:18 1992
  41. ***************
  42. *** 56,63 ****
  43.                   Tcl_Interp *interp, char *name1, char *name2,
  44.                   int flags));
  45.   static int        FindVariable _ANSI_ARGS_((char *name, int *lengthPtr));
  46. ! void            setenv _ANSI_ARGS_((char *name, char *value));
  47. ! void            unsetenv _ANSI_ARGS_((char *name));
  48.   
  49.   /*
  50.    *----------------------------------------------------------------------
  51. --- 56,62 ----
  52.                   Tcl_Interp *interp, char *name1, char *name2,
  53.                   int flags));
  54.   static int        FindVariable _ANSI_ARGS_((char *name, int *lengthPtr));
  55. ! void            unsetenv _ANSI_ARGS_((const char *name));
  56.   
  57.   /*
  58.    *----------------------------------------------------------------------
  59. ***************
  60. *** 197,207 ****
  61.    *----------------------------------------------------------------------
  62.    */
  63.   
  64. ! void
  65. ! setenv(name, value)
  66. !     char *name;            /* Name of variable whose value is to be
  67. !                  * set. */
  68. !     char *value;        /* New value for variable. */
  69.   {
  70.       int index, length, nameLength;
  71.       char *p;
  72. --- 196,203 ----
  73.    *----------------------------------------------------------------------
  74.    */
  75.   
  76. ! int
  77. ! setenv(const char *name, const char *value, int overwrite)
  78.   {
  79.       int index, length, nameLength;
  80.       char *p;
  81. ***************
  82. *** 217,223 ****
  83.        * the name exists, free its old entry.
  84.        */
  85.   
  86. !     index = FindVariable(name, &length);
  87.       if (index == -1) {
  88.       if ((length+2) > environSize) {
  89.           char **newEnviron;
  90. --- 213,219 ----
  91.        * the name exists, free its old entry.
  92.        */
  93.   
  94. !     index = FindVariable((char *)name, &length);
  95.       if (index == -1) {
  96.       if ((length+2) > environSize) {
  97.           char **newEnviron;
  98. ***************
  99. *** 254,260 ****
  100.        */
  101.   
  102.       for (eiPtr= firstInterpPtr; eiPtr != NULL; eiPtr = eiPtr->nextPtr) {
  103. !     (void) Tcl_SetVar2(eiPtr->interp, "env", name, p+1, TCL_GLOBAL_ONLY);
  104.       }
  105.   }
  106.   
  107. --- 250,256 ----
  108.        */
  109.   
  110.       for (eiPtr= firstInterpPtr; eiPtr != NULL; eiPtr = eiPtr->nextPtr) {
  111. !     (void) Tcl_SetVar2(eiPtr->interp, "env", (char *)name, p+1, TCL_GLOBAL_ONLY);
  112.       }
  113.   }
  114.   
  115. ***************
  116. *** 277,283 ****
  117.   
  118.   void
  119.   unsetenv(name)
  120. !     char *name;            /* Name of variable to remove. */
  121.   {
  122.       int index, dummy;
  123.       char **envPtr;
  124. --- 273,279 ----
  125.   
  126.   void
  127.   unsetenv(name)
  128. !     const char *name;            /* Name of variable to remove. */
  129.   {
  130.       int index, dummy;
  131.       char **envPtr;
  132. ***************
  133. *** 381,387 ****
  134.        */
  135.   
  136.       if (flags & TCL_TRACE_WRITES) {
  137. !     setenv(name2, Tcl_GetVar2(interp, "env", name2, TCL_GLOBAL_ONLY));
  138.       }
  139.   
  140.       if (flags & TCL_TRACE_UNSETS) {
  141. --- 377,383 ----
  142.        */
  143.   
  144.       if (flags & TCL_TRACE_WRITES) {
  145. !     setenv(name2, Tcl_GetVar2(interp, "env", name2, TCL_GLOBAL_ONLY), 1);
  146.       }
  147.   
  148.       if (flags & TCL_TRACE_UNSETS) {
  149. *** tclX6.4c/Config.mk.orig    Wed Nov 18 22:25:39 1992
  150. --- tclX6.4c/Config.mk    Wed Nov 18 20:23:16 1992
  151. ***************
  152. *** 25,31 ****
  153.   # them to us (tcl-project@neosoft.com).  At the end of this file is a
  154.   # description of all the flags that can be set in the config file.
  155.   #
  156. ! TCL_CONFIG_FILE=scoodt2.0
  157.   
  158.   #==============================================================================
  159.   #
  160. --- 25,31 ----
  161.   # them to us (tcl-project@neosoft.com).  At the end of this file is a
  162.   # description of all the flags that can be set in the config file.
  163.   #
  164. ! TCL_CONFIG_FILE=386bsd
  165.   
  166.   #==============================================================================
  167.   #
  168. *** /dev/null    Wed Nov 18 21:20:01 1992
  169. --- tclX6.4c/config/386bsd    Wed Nov 18 22:23:25 1992
  170. ***************
  171. *** 0 ****
  172. --- 1,14 ----
  173. + #------------------------------------------------------------------------------
  174. + # 386BSD
  175. + #------------------------------------------------------------------------------
  176. + #------------------------------------------------------------------------------
  177. + #
  178. + SYS_DEP_FLAGS=-DTCL_HAVE_SETLINEBUF -DTCL_32_BIT_RANDOM -DTCL_POSIX_SIG -DTCL_TM_GMTOFF -DTCL_IEEE_FP_MATH
  179. + LIBS=-lm
  180. + RANLIB_CMD=ranlib
  181. + MCS_CMD=true
  182. + SUPPORT_FLAGS=-DTCL_HAS_TM_ZONE
  183. + TCL_TK_LIBS= -lX11 -lm
  184. + 
  185. + TCL_MAN_SEPARATOR=
  186. + 
  187. *** tclX6.4c/Makefile.orig    Wed Nov 18 20:26:06 1992
  188. --- tclX6.4c/Makefile    Wed Nov 18 20:30:52 1992
  189. ***************
  190. *** 19,26 ****
  191.   #------------------------------------------------------------------------------
  192.   #
  193.   
  194. ! include Config.mk
  195. ! include config/$(TCL_CONFIG_FILE)
  196.   SHELL=/bin/sh
  197.   
  198.   #------------------------------------------------------------------------------
  199. --- 19,26 ----
  200.   #------------------------------------------------------------------------------
  201.   #
  202.   
  203. ! .include "Config.mk"
  204. ! .include "config/$(TCL_CONFIG_FILE)"
  205.   SHELL=/bin/sh
  206.   
  207.   #------------------------------------------------------------------------------
  208. ***************
  209. *** 45,54 ****
  210.   tcl: TCLX_MAKES
  211.   
  212.   TCLX_MAKES: libtcl.a
  213. !     cd ucbsrc;    $(MAKE) -$(MAKEFLAGS) all
  214. !     cd osSupport; $(MAKE) -$(MAKEFLAGS) all
  215. !     cd tclsrc;    $(MAKE) -$(MAKEFLAGS) all
  216. !     cd src;       $(MAKE) -$(MAKEFLAGS) all
  217.   
  218.   
  219.   # Copy the UCB libtcl.a file from where it was built.  Force the other
  220. --- 45,54 ----
  221.   tcl: TCLX_MAKES
  222.   
  223.   TCLX_MAKES: libtcl.a
  224. !     cd ucbsrc;    $(MAKE) $(MAKEFLAGS) all
  225. !     cd osSupport; $(MAKE) $(MAKEFLAGS) all
  226. !     cd tclsrc;    $(MAKE) $(MAKEFLAGS) all
  227. !     cd src;       $(MAKE) $(MAKEFLAGS) all
  228.   
  229.   
  230.   # Copy the UCB libtcl.a file from where it was built.  Force the other
  231. *** tclX6.4c/osSupport/Makefile.orig    Wed Nov 18 20:32:11 1992
  232. --- tclX6.4c/osSupport/Makefile    Wed Nov 18 20:33:24 1992
  233. ***************
  234. *** 16,23 ****
  235.   #------------------------------------------------------------------------------
  236.   #
  237.   
  238. ! include ../Config.mk
  239. ! include ../config/$(TCL_CONFIG_FILE)
  240.   SHELL=/bin/sh
  241.   
  242.   #------------------------------------------------------------------------------
  243. --- 16,23 ----
  244.   #------------------------------------------------------------------------------
  245.   #
  246.   
  247. ! .include "../Config.mk"
  248. ! .include "../config/$(TCL_CONFIG_FILE)"
  249.   SHELL=/bin/sh
  250.   
  251.   #------------------------------------------------------------------------------
  252. ***************
  253. *** 30,36 ****
  254.   all: made.tmp
  255.   
  256.   made.tmp: $(SUPPORT_OBJS)
  257. !     $(AR) cr ../libtcl.a $(SUPPORT_OBJS)
  258.       touch made.tmp
  259.   
  260.   #------------------------------------------------------------------------------
  261. --- 30,36 ----
  262.   all: made.tmp
  263.   
  264.   made.tmp: $(SUPPORT_OBJS)
  265. !     -$(AR) cr ../libtcl.a $(SUPPORT_OBJS)
  266.       touch made.tmp
  267.   
  268.   #------------------------------------------------------------------------------
  269. *** tclX6.4c/src/Makefile.orig    Wed Nov 18 20:34:07 1992
  270. --- tclX6.4c/src/Makefile    Wed Nov 18 20:34:13 1992
  271. ***************
  272. *** 19,26 ****
  273.   #------------------------------------------------------------------------------
  274.   #
  275.   
  276. ! include ../Config.mk
  277. ! include ../config/$(TCL_CONFIG_FILE)
  278.   SHELL=/bin/sh
  279.   
  280.   #------------------------------------------------------------------------------
  281. --- 19,26 ----
  282.   #------------------------------------------------------------------------------
  283.   #
  284.   
  285. ! .include "../Config.mk"
  286. ! .include "../config/$(TCL_CONFIG_FILE)"
  287.   SHELL=/bin/sh
  288.   
  289.   #------------------------------------------------------------------------------
  290. *** tclX6.4c/src/tclXfcntl.c.orig    Wed Nov 18 20:41:39 1992
  291. --- tclX6.4c/src/tclXfcntl.c    Wed Nov 18 20:48:51 1992
  292. ***************
  293. *** 201,207 ****
  294. --- 201,218 ----
  295.        */
  296.   
  297.   #ifdef _IONBF
  298. + 
  299. + #  ifdef __SNBF
  300.       if (otherAttr & ATTR_NOBUF) {
  301. +         interp->result = (filePtr->f->_flags & __SNBF) ? "1" : "0";
  302. +         return TCL_OK;
  303. +     }
  304. +     if (otherAttr & ATTR_LINEBUF) {
  305. +         interp->result = (filePtr->f->_flags & __SLBF) ? "1" : "0";
  306. +         return TCL_OK;
  307. +     }
  308. + #  else
  309. +     if (otherAttr & ATTR_NOBUF) {
  310.           interp->result = (filePtr->f->_flag & _IONBF) ? "1" : "0";
  311.           return TCL_OK;
  312.       }
  313. ***************
  314. *** 209,214 ****
  315. --- 220,226 ----
  316.           interp->result = (filePtr->f->_flag & _IOLBF) ? "1" : "0";
  317.           return TCL_OK;
  318.       }
  319. + #  endif
  320.   #else
  321.       if (otherAttr & ATTR_NOBUF) {
  322.           interp->result = (filePtr->f->_flags & _SNBF) ? "1" : "0";
  323. *** tclX6.4c/src/tclXsignal.c.orig    Wed Nov 18 21:14:25 1992
  324. --- tclX6.4c/src/tclXsignal.c    Wed Nov 18 21:14:34 1992
  325. ***************
  326. *** 298,303 ****
  327. --- 298,306 ----
  328.   {
  329.   #ifdef TCL_POSIX_SIG
  330.       struct sigaction currentState;
  331. + #  ifndef SIG_ERR
  332. + #    define SIG_ERR (void(*)())-1
  333. + #  endif
  334.   
  335.       if (sigaction (signalNum, NULL, ¤tState) < 0)
  336.           return SIG_ERR;
  337. *** tclX6.4c/tclsrc/Makefile.orig    Wed Nov 18 20:34:26 1992
  338. --- tclX6.4c/tclsrc/Makefile    Wed Nov 18 20:34:48 1992
  339. ***************
  340. *** 17,24 ****
  341.   #------------------------------------------------------------------------------
  342.   #
  343.   
  344. ! include ../Config.mk
  345. ! include ../config/$(TCL_CONFIG_FILE)
  346.   SHELL=/bin/sh
  347.   
  348.   #------------------------------------------------------------------------------
  349. --- 17,24 ----
  350.   #------------------------------------------------------------------------------
  351.   #
  352.   
  353. ! .include "../Config.mk"
  354. ! .include "../config/$(TCL_CONFIG_FILE)"
  355.   SHELL=/bin/sh
  356.   
  357.   #------------------------------------------------------------------------------
  358. *** tclX6.4c/ucbsrc/Makefile.orig    Wed Nov 18 20:29:51 1992
  359. --- tclX6.4c/ucbsrc/Makefile    Wed Nov 18 20:30:14 1992
  360. ***************
  361. *** 18,25 ****
  362.   #
  363.   
  364.   
  365. ! include ../Config.mk
  366. ! include ../config/$(TCL_CONFIG_FILE)
  367.   SHELL=/bin/sh
  368.   
  369.   #------------------------------------------------------------------------------
  370. --- 18,25 ----
  371.   #
  372.   
  373.   
  374. ! .include "../Config.mk"
  375. ! .include "../config/$(TCL_CONFIG_FILE)"
  376.   SHELL=/bin/sh
  377.   
  378.   #------------------------------------------------------------------------------
  379. -- 
  380. -- Email info@NeoSoft.com for info on getting interactive Internet access.
  381. "Turn on your hot tub by email now.  Ask me how."
  382.