Return to mktemp.c CVS log

Up to [Research Unix] / researchv9 / libc / gen

Annotation of researchv9/libc/gen/mktemp.c, revision 1.1.1.1

1.1       root        1: char *
                      2: mktemp(as)
                      3: char *as;
                      4: {
                      5:        register char *s;
                      6:        register unsigned pid;
                      7:        register i;
                      8:        extern int errno;
                      9:        register int oerrno = errno;
                     10: 
                     11:        pid = getpid();
                     12:        s = as;
                     13:        while (*s++)
                     14:                ;
                     15:        s--;
                     16:        while (*--s == 'X') {
                     17:                *s = (pid%10) + '0';
                     18:                pid /= 10;
                     19:        }
                     20:        s++;
                     21:        i = 'a';
                     22:        while (access(as, 0) != -1) {
                     23:                if (i=='z')
                     24:                        return("/");
                     25:                *s = i++;
                     26:        }
                     27:        errno = oerrno;
                     28:        return(as);
                     29: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.