#include <cvl/dap.h>
#include <cvl/cvl.h>
#include <sys/file.h>

char *getenv();

setuenv(area)
   struct umipscf *area;
{
   char *home, name[99];
   int fd, return_val = 1;

   home = getenv("HOME");
   strcpy(name,home);
   strcat(name,"/.umipscf");

   if ((fd = open(name, O_WRONLY | O_CREAT, 0666)) > 0)
      if (write(fd, area, sizeof(struct umipscf)) == sizeof(struct umipscf))
         return_val = 0;

   close(fd);
   return(return_val);
}