home *** CD-ROM | disk | FTP | other *** search
- /* added by DJ - routines to get and set enviroment variables */
-
- #include "exec/types.h"
- #include "libraries/dos.h"
-
- set_env(ename,value_string) char *ename, *value_string;
- { char filename[32+4];
- APTR efile, Open();
-
- strcpy(filename,"ENV:");
- strcat(filename,ename);
- if (efile = Open(filename,MODE_NEWFILE))
- { Write(efile,value_string,strlen(value_string));
- Close(efile);
- }
- }
-
- get_env(ename,value_string,maxchars) char *ename, *value_string; long maxchars;
- { char filename[32+4];
- APTR efile, Open();
- long length;
-
- strcpy(filename,"ENV:");
- strcat(filename,ename);
- if (efile = Open(filename,MODE_OLDFILE))
- { length = Read(efile,value_string,maxchars-1);
- Close(efile);
- if (length < 0) return FALSE;
- }
- else return FALSE;
-
- value_string[length] = '\0';
- return TRUE;
- }
-