usr/src/lib/libbc/libc/gen/common/mktemp.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright 1989 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"  /* from S5R3 1.11 */
  28
  29 /*      Copyright (c) 1984 AT&T */
  30 /*        All Rights Reserved   */
  31
  32
  33 /*LINTLIBRARY*/
  34 /****************************************************************
  35  *      Routine expects a string of length at least 6, with
  36  *      six trailing 'X's.  These will be overlaid with a
  37  *      letter and the last (5) digigts of the proccess ID.
  38  *      If every letter (a thru z) thus inserted leads to
  39  *      an existing file name, your string is shortened to
  40  *      length zero upon return (first character set to '\0').
  41  ***************************************************************/
  42 #include <sys/types.h>
  43 #include <sys/stat.h>
  44
  45 #define XCNT  6
  46
  47 extern int strlen(), access(), getpid();
  48
  49 char *
  50 mktemp(as)
  51 char *as;
  52 {
  53         register char *s=as;
  54         register unsigned pid;
  55         register unsigned xcnt=0; /* keeps track of number of X's seen */
  56         struct stat buf;
  57
  58         pid = getpid();
  59         s += strlen(as);        /* point at the terminal null */
  60         while(*--s == 'X' && ++xcnt <= XCNT) {
  61                 *s = (pid%10) + '0';
  62                 pid /= 10;
  63         }
  64         if(*++s) {              /* maybe there were no 'X's */
  65                 *s = 'a';
  66                 while (stat(as, &buf) == 0) {
  67                         if(++*s > 'z') {
  68                                 *as = '\0';
  69                                 break;
  70                         }
  71                 }
  72         } else
  73                 if (stat(as, &buf) == 0)
  74                         *as = '\0';
  75         return(as);
  76 }