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

char *getenv();

getuenv(area)
   struct umipscf *area;
{
   char *home, name[99];
   int fd,n;

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

   if ((fd = open(name, O_RDONLY)) > 0) {
      n = read(fd, area, sizeof(struct umipscf));
      if (n == sizeof(struct umipscf)) {
         close(fd);
         return(0);
      }
   }

   area->fx = 0;
   area->fy = 0;
   area->nx = 9999;
   area->ny = 9999;
   area->dev = -1;
   close(fd);
   return(0);
}