perl 3.0 patch #32 patch #29, continued
[p5sagit/p5-mst-13.2.git] / os2 / mktemp.c
1 /* MKTEMP.C using TMP environment variable */
2
3 #include <stdio.h>
4 #include <stdlib.h>
5 #include <string.h>
6 #include <io.h>
7
8 void Mktemp(char *file)
9 {
10   char fname[32], *tmp;
11
12   tmp = getenv("TMP");
13
14   if ( tmp != NULL )
15   {
16     strcpy(fname, file);
17     strcpy(file, tmp);
18
19     if ( file[strlen(file) - 1] != '\\' )
20       strcat(file, "\\");
21
22     strcat(file, fname);
23   }
24
25   mktemp(file);
26 }
27
28 /* End of MKTEMP.C */