Return to mktemp.c CVS log

Up to [MW Coherent from dump] / coherent / d / lib / libc / gen

Annotation of coherent/d/lib/libc/gen/mktemp.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Produce a unique filename by replacing
                      3:  * the trailing 6 X's on the user's input string
                      4:  * with process id and a unique letter.
                      5:  * (It is assumed, but not checked, that the X's are present.)
                      6:  * Revised by Michael Griffin, 7-5-84.  Avoids control characters in
                      7:  * generator.  Repeats after 91 invocations by the same process.
                      8:  */
                      9: 
                     10: static char    generator = 'a';
                     11: 
                     12: char *
                     13: mktemp(template)
                     14: char *template;
                     15: {
                     16:        register char *p;
                     17:        register i, pid;
                     18: 
                     19:        for (p = template; *p; p++)
                     20:                ;
                     21:        switch (generator)  {
                     22:                case '~':
                     23:                        *--p = generator;
                     24:                        generator = 'A';
                     25:                        break;
                     26:                case '_':
                     27:                        *--p = generator;
                     28:                        generator = '!';
                     29:                        break;
                     30:                case '*':
                     31:                        *--p = ++generator;
                     32:                        generator++;
                     33:                        break;
                     34:                case '?':
                     35:                        *--p = (generator = '@');
                     36:                        break;
                     37:                case '@':
                     38:                        generator = 'a';
                     39:                        *--p = generator++;
                     40:                        break;
                     41:                default:
                     42:                        *--p = generator++;
                     43:        }
                     44:        pid = getpid();
                     45:        i = 5; do {
                     46:                *--p = pid%10 + '0';
                     47:                pid /= 10;
                     48:        } while (--i);
                     49:        return (template);
                     50: }

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