compiler/clib/mktemp.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7 #include <proto/exec.h>
   8 #include <proto/dos.h>
   9 #include <dos/dos.h>
  10
  11 #include <exec/types.h>
  12 #include <assert.h>
  13
  14 #include <stdio.h> /* FIXME: remove */
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <stdlib.h>
  20
  21         char *mktemp (
  22
  23 /*  SYNOPSIS */
  24         char *template)
  25
  26 /*  FUNCTION
  27         Make a unique temporary file name.
  28
  29     INPUTS
  30         template- Name of the environment variable.
  31
  32     RESULT
  33         Returns template.
  34
  35     NOTES
  36         Template must end in "XXXXXX" (i.e at least 6 X's).
  37
  38                 Prior to this paragraph being created, mktemp() sometimes produced filenames
  39                 with '/' in them. AROS doesn't like that at all. Fortunately, the bug in this
  40                 function which produced it has been fixed. -- blippy
  41
  42                 For clarity, define the HEAD of the template to be the part before the tail,
  43                 and the TAIL to be the succession of X's. So in, T:temp.XXXXXX , the head is
  44                 T:temp. and the tail is XXXXXX .
  45
  46     EXAMPLE
  47
  48     BUGS
  49         Cannot create more than 26 filenames for the same process id. This is because
  50         the "bumping" is only done to the first tail character - it should be
  51         generalised to bump more characters if necessary.
  52
  53     SEE ALSO
  54
  55     INTERNALS
  56         Based on libnix mktemp
  57
  58 ******************************************************************************/
  59 {
  60     AROS_GET_SYSBASE_OK
  61     ULONG  pid = (ULONG)FindTask(0L);
  62     char *c = template + strlen(template);
  63     BPTR  lock;
  64     int remainder;
  65
  66     while (*--c == 'X')
  67     {
  68         remainder = (int)(pid % 10L);
  69         assert(remainder>=0);
  70         assert(remainder<10);
  71                 *c = remainder + '0';
  72                 pid /= 10L;
  73     }
  74
  75     c++; /* ... c now points to the 1st char of the template tail */
  76
  77     if (*c) /* FIXME: why would you get *c == 0 legitimately? */
  78     {
  79         /* Loop over the first position of the tail, bumping it up as necessary */
  80                 for(*c = 'A'; *c <= 'Z'; (*c)++)
  81                 {
  82             if (!(lock = Lock(template, ACCESS_READ)))
  83             {
  84                 return template;
  85             }
  86             UnLock(lock);
  87                 }
  88                 *c = 0; /* FIXME: looks wrong. Why would you want to chop the tail? */
  89         }
  90
  91     return template;
  92
  93 } /* mktemp */
  94