dmake/unix/bsdarm32/tempnam.c

   1 /* RCS  $Id: tempnam.c,v 1.1.1.1 2000-09-22 15:33:34 hr Exp $
   2 --
   3 -- SYNOPSIS
   4 --      tempnam
   5 --
   6 -- DESCRIPTION
   7 --      temp file name generation routines.
   8 --
   9 -- AUTHOR
  10 --      Dennis Vadura, dvadura@dmake.wticorp.com
  11 --
  12 -- WWW
  13 --      http://dmake.wticorp.com/
  14 --
  15 -- COPYRIGHT
  16 --      Copyright (c) 1996,1997 by WTI Corp.  All rights reserved.
  17 --
  18 --      This program is NOT free software; you can redistribute it and/or
  19 --      modify it under the terms of the Software License Agreement Provided
  20 --      in the file <distribution-root>/readme/license.txt.
  21 --
  22 -- LOG
  23 --      Use cvs log to obtain detailed change logs.
  24 */
  25
  26 /*LINTLIBRARY*/
  27 #include <stdio.h>
  28 #include <string.h>
  29 #include <stdlib.h>
  30
  31 #define max(A,B) (((A)<(B))?(B):(A))
  32
  33 extern char *mktemp();
  34 extern int access();
  35
  36 static char *cpdir();
  37 static char  seed[4]="AAA";
  38
  39 /* BSD stdio.h doesn't define P_tmpdir, so let's do it here */
  40 #ifndef P_tmpdir
  41 static char *P_tmpdir = "/tmp";
  42 #endif
  43
  44
  45 char *
  46 tempnam(dir, prefix)
  47 const char *dir;                /* use this directory please (if non-NULL) */
  48 const char *prefix;             /* use this (if non-NULL) as filename prefix */
  49 {
  50    register char *p, *q, *tmpdir;
  51    int            tl=0, dl=0, pl;
  52
  53    pl = strlen(P_tmpdir);
  54
  55    if( (tmpdir = getenv("TMPDIR")) != NULL ) tl = strlen(tmpdir);
  56    if( dir != NULL ) dl = strlen(dir);
  57
  58    if( (p = malloc((unsigned)(max(max(dl,tl),pl)+16))) == NULL )
  59      return(NULL);
  60
  61    *p = '\0';
  62
  63    if( (tl == 0) || (access( cpdir(p, tmpdir), 3) != 0) )
  64      if( (dl == 0) || (access( cpdir(p, dir), 3) != 0) )
  65     if( access( cpdir(p, P_tmpdir),   3) != 0 )
  66        if( access( cpdir(p, "/tmp"),  3) != 0 )
  67           return(NULL);
  68
  69    (void) strcat(p, "/");
  70    if(prefix)
  71    {
  72       *(p+strlen(p)+5) = '\0';
  73       (void)strncat(p, prefix, 5);
  74    }
  75
  76    (void)strcat(p, seed);
  77    (void)strcat(p, "XXXXXX");
  78
  79    q = seed;
  80    while(*q == 'Z') *q++ = 'A';
  81    ++*q;
  82
  83    if(*mktemp(p) == '\0') return(NULL);
  84    return(p);
  85 }
  86
  87
  88
  89
  90 static char *
  91 cpdir(buf, str)
  92 char *buf;
  93 char *str;
  94 {
  95    char *p;
  96
  97    if(str != NULL)
  98    {
  99       (void) strcpy(buf, str);
 100       p = buf - 1 + strlen(buf);
 101       if(*p == '/') *p = '\0';
 102    }
 103
 104    return(buf);
 105 }