dmake/mac/eold.c

   1 /* RCS  $Id: eold.c,v 1.1.1.1 2000-09-22 15:33:27 hr Exp $
   2 --
   3 -- SYNOPSIS
   4 --      Set up and free for environ
   5 --
   6 -- DESCRIPTION
   7 --  This file contains routines that will fill in and dispose of the
   8 --  list of environmental variables in the environ global variable.
   9 --
  10 -- AUTHOR
  11 --      Dennis Vadura, dvadura@dmake.wticorp.com
  12 --
  13 --
  14 -- WWW
  15 --      http://dmake.wticorp.com/
  16 --
  17 -- COPYRIGHT
  18 --      Copyright (c) 1996,1997 by WTI Corp.  All rights reserved.
  19 --
  20 --      This program is NOT free software; you can redistribute it and/or
  21 --      modify it under the terms of the Software License Agreement Provided
  22 --      in the file <distribution-root>/readme/license.txt.
  23 --
  24 -- LOG
  25 --      Use cvs log to obtain detailed change logs.
  26 */
  27
  28 #include "extern.h"
  29
  30
  31 /*
  32  * Keep track of any environmental variables that have '='s in their
  33  * name.
  34  */
  35 struct EqualPos {
  36     char *fpPos;
  37     struct equalsign *fpNext;
  38 } /* struct EqualPos */
  39
  40 struct EqualPos *gpEqualList;
  41
  42 /*
  43  * The character used to replae the equal signs.
  44  */
  45 const char gEqualReplace = '_';
  46
  47
  48
  49 /*
  50  * Set up the environmental variables in a format used by
  51  * the environ global variable.
  52  *
  53  * environ has already been set to main's envp argument when
  54  * this suboroutine is called.
  55  */
  56 void main_env () {
  57     char **ppCurEnv;
  58     char *pCurPos;
  59     struct equalpos *pNewEqual;
  60
  61     gpEqualList = NULL;
  62
  63     for (ppCurEnv = environ; *ppCurEnv != NULL; ++ppCurEnv) {
  64         for (pCurPos = *ppCurEnv; *pCurPos != '\0'; ++pCurPos) {
  65             if (*pCurPos == '=') {
  66                 if ((pNewEqual =
  67                      (struct EqualPos *) malloc (sizeof (struct EqualPos))) ==
  68                     NULL) {
  69                     fputs ("Out of Memory", stderr);
  70                     exit (EXIT_FAILURE);
  71                 } /* if */
  72                 pNewEqual->fpPos = pCurPos;
  73                 pNewEqual->fpNext = gpEqualList;
  74                 gpEqualList = pNewEqual;
  75
  76                 *pCurPos = gEqualReplace;
  77             } /* if */
  78         } /* for */
  79
  80         *pCurPos = '=';
  81     } /* for */
  82 } /* void main_env () */
  83
  84
  85
  86 /*
  87  * Reset the environmental variables so they look like they did
  88  * before the main_env() call.
  89  *
  90  * environ has already been set to main's envp argument when
  91  * this suboroutine is called.
  92  */
  93 void main_env () {
  94     char **ppCurEnv;
  95     char *pCurPos;
  96     struct equalpos *pNewEqual;
  97
  98     gpEqualList = NULL;
  99
 100     for (ppCurEnv = environ; *ppCurEnv != NULL; ++ppCurEnv) {
 101         for (pCurPos = *ppCurEnv; *pCurPos != '\0'; ++pCurPos) {
 102             if (*pCurPos == '=') {
 103                 if ((pNewEqual =
 104                      (struct EqualPos *) malloc (sizeof (struct EqualPos))) ==
 105                     NULL) {
 106                     fputs ("Out of Memory", stderr);
 107                     exit (EXIT_FAILURE);
 108                 } /* if */
 109                 pNewEqual->fpPos = pCurPos;
 110                 pNewEqual->fpNext = gpEqualList;
 111                 gpEqualList = pNewEqual;
 112
 113                 *pCurPos = gEqualReplace;
 114             } /* if */
 115         } /* for */
 116
 117         *pCurPos = '=';
 118     } /* for */
 119 } /* void main_env () */