#include <ctype.h>
#include <string>

.
.
.

bool Program::SetEnv(const char * entry,const char * new_string) {
   PhysPt env_read=PhysMake(psp->GetEnvironment(),0);
   PhysPt env_write=env_read;
   char env_string[1024];
   do    {
      MEM_StrCopy(env_read,env_string,1024);
      if (!env_string[0]) break;
      env_read+=strlen(env_string)+1;
      if (!strchr(env_string,'=')) continue;      /* Remove corrupt entry? */
      if ((strncasecmp(entry,env_string,strlen(entry))==0) &&
         env_string[strlen(entry)]=='=') continue;
      MEM_BlockWrite(env_write,env_string,strlen(env_string)+1);
      env_write+=strlen(env_string)+1;
   } while (1);
/* TODO Maybe save the program name sometime. not really needed though */
   /* Save the new entry */
   if (new_string[0]) {
      /* env vars are case insensitive */
      std::string bigentry(entry);
      for (std::string::iterator it = bigentry.begin(); it != bigentry.end(); ++it) *it = toupper(*it);
      sprintf(env_string,"%s=%s",bigentry.c_str(),new_string);
      MEM_BlockWrite(env_write,env_string,strlen(env_string)+1);
      env_write+=strlen(env_string)+1;
   }
   /* Clear out the final piece of the environment */
   mem_writed(env_write,0);
   return true;
}