home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / tcl / 1870 < prev    next >
Encoding:
Text File  |  1992-11-18  |  2.7 KB  |  86 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!sgiblab!sdd.hp.com!saimiri.primate.wisc.edu!ames!sun-barr!decwrl!pa.dec.com!rdg.dec.com!news.crl.dec.com!payne
  3. From: payne@crl.dec.com (Andrew Payne)
  4. Subject: Patches for setting library paths from environment variables
  5. Message-ID: <1992Nov18.010456.7126@crl.dec.com>
  6. Keywords: tk, tcl, patch, environment, library
  7. Sender: news@crl.dec.com (USENET News System)
  8. Organization: DEC Cambridge Research Lab
  9. Date: Wed, 18 Nov 1992 01:04:56 GMT
  10. Lines: 74
  11.  
  12. From the Tk ToDo file:
  13.  
  14. 102. Allow $tk_library to be set from an environment variable.
  15.  
  16. This has probably been done, but here it is anyway.  The environment 
  17. variables TCL_LIBRARY and TK_LIBRARY set the library directories for 
  18. Tcl and Tk.
  19.  
  20. *** tkWindow.c  Tue Nov 17 16:28:03 1992
  21. --- tkWindow.c~ Tue Nov 17 16:41:56 1992
  22. ***************
  23. *** 613,623 ****
  24.        * Set variables for the intepreter.
  25.        */
  26.  
  27. !     if(getenv("TK_LIBRARY"))
  28. !         Tcl_SetVar(interp, "tk_library", getenv("TK_LIBRARY"), TCL_GLOBAL_ONLY);
  29. !     else
  30. !         Tcl_SetVar(interp, "tk_library", TK_LIBRARY, TCL_GLOBAL_ONLY);
  31. !
  32.       Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY);
  33.       Tcl_SetVar(interp, "tkVersion", TK_VERSION, TCL_GLOBAL_ONLY);
  34.  
  35. --- 613,619 ----
  36.        * Set variables for the intepreter.
  37.        */
  38.  
  39. !     Tcl_SetVar(interp, "tk_library", TK_LIBRARY, TCL_GLOBAL_ONLY);
  40.       Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY);
  41.       Tcl_SetVar(interp, "tkVersion", TK_VERSION, TCL_GLOBAL_ONLY);
  42.  
  43.  
  44. *** tcl/tclCmdIL.c  Tue Nov 17 19:46:40 1992
  45. --- tcl/tclCmdIL.c~ Tue Nov 17 19:42:44 1992
  46. ***************
  47. *** 430,446 ****
  48.                     " library\"", (char *) NULL);
  49.             return TCL_ERROR;
  50.         }
  51. -       interp->result = getenv("TCL_LIBRARY");
  52.   #ifdef TCL_LIBRARY
  53. !       if (interp->result == NULL)
  54. !               interp->result = TCL_LIBRARY;
  55.   #else
  56. !       if (interp->result == NULL) {
  57. !               interp->result = "there is no Tcl library at this installation";
  58. !               return TCL_ERROR;
  59. !       }
  60.   #endif
  61. -       return TCL_OK;
  62.       } else if ((c == 'l') && (strncmp(argv[1], "locals", length) == 0)
  63.             && (length >= 2)) {
  64.         char *name;
  65. --- 430,442 ----
  66.                     " library\"", (char *) NULL);
  67.             return TCL_ERROR;
  68.         }
  69.   #ifdef TCL_LIBRARY
  70. !       interp->result = TCL_LIBRARY;
  71. !       return TCL_OK;
  72.   #else
  73. !       interp->result = "there is no Tcl library at this installation";
  74. !       return TCL_ERROR;
  75.   #endif
  76.       } else if ((c == 'l') && (strncmp(argv[1], "locals", length) == 0)
  77.             && (length >= 2)) {
  78.         char *name;
  79.  
  80.  
  81.  
  82. -- 
  83. --
  84. Andrew C. Payne
  85. DEC Cambridge Research Lab
  86.