pd.if.org Git - pdclib.old/blob - 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
  13 #include <inttypes.h>
  14 #include <stdlib.h>
  15 #include <string.h>
  16
  17 #include <_PDCLIB_glue.h>
  18
  19 #include <sys/types.h>
  20 #include <sys/stat.h>
  21 #include <fcntl.h>
  22 #include <unistd.h>
  23
  24 extern struct _PDCLIB_file_t * _PDCLIB_filelist;
  25
  26 /* This is an example implementation of tmpfile() fit for use with POSIX
  27    POSIX kernels.
  28 */
  29 struct _PDCLIB_file_t * tmpfile( void )
  30 {
  31     FILE * rc;
  32     /* This is the chosen way to get high-quality randomness. Replace as
  33        appropriate.
  34     */
  35     FILE * randomsource = fopen( "/dev/urandom", "rb" );
  36     char filename[ L_tmpnam ];
  37     _PDCLIB_fd_t fd;
  38     if ( randomsource == NULL )
  39     {
  40         return NULL;
  41     }
  42     for ( ;; )
  43     {
  44         /* Get a filename candidate. What constitutes a valid filename and
  45            where temporary files are usually located is platform-dependent,
  46            which is one reason why this function is located in the platform
  47            overlay. The other reason is that a *good* implementation should
  48            use high-quality randomness instead of a pseudo-random sequence to
  49            generate the filename candidate, which is *also* platform-dependent.
  50         */
  51         uint32_t random;
  52         fscanf( randomsource, "%" SCNu32, &random );
  53         sprintf( filename, "/tmp/%010" PRNu32 ".tmp", random );
  54         /* Check if file of this name exists. Note that fopen() is a very weak
  55            check, which does not take e.g. access permissions into account
  56            (file might exist but not readable). Replace with something more
  57            appropriate.
  58         */
  59         fd = open( filename, O_CREAT | O_EXCL | O_RDWR, S_IRUSR | S_IWUSR );
  60         if ( fd != -1 )
  61         {
  62             break;
  63         }
  64         close( fd );
  65     }
  66     fclose( randomsource );
  67     /* See fopen(). */
  68     if ( ( rc = calloc( 1, sizeof( struct _PDCLIB_file_t ) + _PDCLIB_UNGETCBUFSIZE + L_tmpnam + BUFSIZ ) ) == NULL )
  69     {
  70         /* No memory to set up FILE structure */
  71         close( fd );
  72         return NULL;
  73     }
  74     rc->status = _PDCLIB_filemode( "wb+" ) | _PDCLIB_LIBBUFFER | _IOLBF | _PDCLIB_DELONCLOSE;
  75     rc->handle = fd;
  76     rc->ungetbuf = (unsigned char *)rc + sizeof( struct _PDCLIB_file_t );
  77     rc->filename = (char *)rc->ungetbuf + _PDCLIB_UNGETCBUFSIZE;
  78     rc->buffer   = rc->filename + L_tmpnam;
  79     strcpy( rc->filename, filename );
  80     rc->bufsize = BUFSIZ;
  81     rc->bufidx = 0;
  82     rc->ungetidx = 0;
  83     rc->next = _PDCLIB_filelist;
  84     _PDCLIB_filelist = rc;
  85     return rc;
  86 }
  87
  88 #endif
  89
  90 #ifdef TEST
  91 #include <_PDCLIB_test.h>
  92
  93 int main()
  94 {
  95     TESTCASE( NO_TESTDRIVER );
  96     return TEST_RESULTS;
  97 }
  98
  99 #endif
 100