]> pd.if.org Git - pdclib.old/blob - platform/win32/functions/stdio/tmpfile.c
Fix warnings
[pdclib.old] / platform / win32 / functions / stdio / tmpfile.c
1 /* $Id$ */
2
3 /* tmpfile( void )
4
5    This file is part of the Public Domain C Library (PDCLib).
6    Permission is granted to use, modify, and / or redistribute at will.
7 */
8
9 #include <stdio.h>
10
11 #ifndef REGTEST
12 #include <errno.h>
13 #include <_PDCLIB_glue.h>
14 #include <windows.h>
15 #include <string.h>
16
17 static char tmpname_prefix[4] = {0, 0, 0, 0};
18
19 extern const _PDCLIB_fileops_t _PDCLIB_fileops;
20 extern void _PDCLIB_w32errno( void );
21
22 struct _PDCLIB_file_t * tmpfile( void )
23 {
24     if(!tmpname_prefix[0]) {
25         char namebuf[MAX_PATH+1];
26         DWORD res = GetModuleFileNameA(NULL, namebuf, MAX_PATH+1);
27         if(res) {
28             char * basename = strrchr(namebuf, '\\');
29             if(basename) {
30                 basename += 1;
31             } else basename = namebuf;
32
33             char* dot = strchr(basename, '.');
34             if(dot) *dot = 0;
35
36             strncpy(tmpname_prefix, basename, 3);
37         } else {
38             // Error getting file name
39             strcpy(tmpname_prefix, "PDU");
40         }
41     }
42
43     char tmpdir[MAX_PATH + 1];
44     DWORD rv = GetTempPathA(MAX_PATH + 1, tmpdir);
45     if(rv == 0) {
46         _PDCLIB_w32errno();
47         return NULL;
48     }
49
50     char name[MAX_PATH + 1];
51     rv = GetTempFileNameA(tmpdir, tmpname_prefix, 0, name);
52     if(rv == 0) {
53         _PDCLIB_w32errno();
54         return NULL;
55     }
56
57     /* OPEN_EXISTING as CreateTempFileName creates the file then closes the
58        handle to it (to avoid race conditions as associated with e.g. tmpnam)
59      */
60     HANDLE fd = CreateFileA(name, GENERIC_READ | GENERIC_WRITE, 
61         FILE_SHARE_DELETE, NULL, OPEN_EXISTING, 
62         FILE_ATTRIBUTE_HIDDEN | FILE_ATTRIBUTE_TEMPORARY, NULL);
63
64     if(fd == INVALID_HANDLE_VALUE) {
65         _PDCLIB_w32errno();
66         return NULL;
67     }
68
69     /* Set the file to delete on close */
70     DeleteFile(name);
71
72     FILE* fs = _PDCLIB_fvopen(((_PDCLIB_fd_t){fd}), &_PDCLIB_fileops, _PDCLIB_FWRITE | _PDCLIB_FRW, name);
73     if(!fs) {
74         CloseHandle(fd);
75     }
76     return fs;
77 }
78
79 #endif
80
81 #ifdef TEST
82 #include <_PDCLIB_test.h>
83 #include <string.h>
84
85 int main( void )
86 {
87     return TEST_RESULTS;
88 }
89
90 #endif
91