home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / env.el < prev    next >
Encoding:
Text File  |  1992-08-06  |  3.1 KB  |  82 lines
  1. ;    I hadn't been expecting this post to be archived, so I didn't package it
  2. ; very well (for example, I didn't put a copyright notice on the message so
  3. ; that it could be distributed under the terms of the GPL).  I would
  4. ; appreciate it if you would replace the archive you made with the following
  5. ; instead.  Thanks.
  6. ; 
  7. ;;; env.el - getenv and putenv functions that work with process-environment
  8. ;;; Copyright (C) 1992 Noah S. Friedman
  9. ;;;
  10. ;;; This program is free software; you can redistribute it and/or modify
  11. ;;; it under the terms of the GNU General Public License as published by
  12. ;;; the Free Software Foundation; either version 2, or (at your option)
  13. ;;; any later version.
  14. ;;;
  15. ;;; This program is distributed in the hope that it will be useful,
  16. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ;;; GNU General Public License for more details.
  19. ;;;
  20. ;;; You should have received a copy of the GNU General Public License
  21. ;;; along with this program; if not, you can either send email to this
  22. ;;; program's author (see below) or write to:
  23. ;;;
  24. ;;;              The Free Software Foundation, Inc.
  25. ;;;              675 Massachusetts Avenue.
  26. ;;;              Cambridge, MA 02139, USA. 
  27. ;;;
  28. ;;; Please send bug reports, etc. to friedman@prep.ai.mit.edu
  29.  
  30. ;;; LCD Archive Entry:
  31. ;;; env|Noah S. Friedman|friedman@prep.ai.mit.edu|
  32. ;;; getenv and putenv functions that work with process-environment.|
  33. ;;; 92-07-15|1.0|~/functions/env.el.Z|
  34.  
  35. ;;; Don't compile emacs with -DMAINTAIN_ENVIRONMENT.  It isn't very
  36. ;;; flexible---you can't create buffer-local environments with it.  
  37. ;;; Versions of GNU Emacs prior to 18.58 had bugs and process-environment
  38. ;;; didn't work very well, so I would suggest updating your emacs if it's
  39. ;;; older than 18.58. 
  40.  
  41.  
  42. ;; save old definition
  43. (and (subrp (symbol-function 'getenv))
  44.      (fset 'getenv-subr (symbol-function 'getenv)))
  45.  
  46. (defun getenv (var)
  47.   "Return the value of the environment variable VAR, or nil if none
  48. exists.  First look in process-environment, then in the actual environment."
  49.   (let ((env process-environment)
  50.     (pattern (concat "^" (regexp-quote var) "="))
  51.     found)
  52.     (while env
  53.       (and (string-match pattern (car env))
  54.        (setq found (car env)))
  55.       (setq env (cdr env)))
  56.     (if found
  57.     (substring found (match-end 0))
  58.       (getenv-subr var))))
  59.  
  60.  
  61. (defun putenv (var &optional value)
  62.   "Set the environment variable VAR to VALUE in process-environment.
  63. VALUE is optional.  If unspecified or nil, the variable VAR is removed
  64. >from process-environment (it cannot be removed from the real
  65. environment, however)."
  66.   ;; Remove previous definition of var from process-environment, if it exists.
  67.   (let ((env process-environment)
  68.     (pattern (concat "^" (regexp-quote var) "=")))
  69.     (while (and env
  70.         (not (if (string-match pattern (car env))
  71.              (setq process-environment
  72.                    (delq (car env) process-environment)))))
  73.       (setq env (cdr env))))
  74.   ;; Add new value, if any. 
  75.   (if value
  76.       (setq process-environment 
  77.         (cons (concat var "=" value) process-environment)))
  78.   value)
  79.  
  80. ;; eof
  81.  
  82.