#include "tclPort.h"
#include <stdlib.h>
#include <string.h>

int
mkstemp(char *template)
{
   char *s;
   int i, fd;

   s = strdup(template);
   if(s == NULL)
       return -1;
   for(i=0; i<20; i++){
       strcpy(s, template);
       mktemp(s);
       if((fd = creat(s, 0666)) >= 0){
           strcpy(template, s);
           free(s);
           return fd;
       }
   }
   free(s);
   return -1;
}

void
_tclPlan9InitEnv(void)
{
   char buf[512];
   if(getenv("PATH") == 0)
       putenv("PATH=:.:/bin");
   if(getenv("HOME") == 0){
      snprintf(buf, sizeof(buf), "HOME=%s", getenv("home"));
      putenv(buf);
   }
}