/* 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;
}