home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / unixlib / src / mktemp.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  465b  |  27 lines
  1. #include "amiga.h"
  2. #include <string.h>
  3. #include <stdio.h>
  4.  
  5. char *mktemp(char *name)
  6. {
  7.   int l;
  8.   char *change = name + strlen(name) - 6;
  9.   char letter = 'a';
  10.   char id[9], *end_id;
  11.  
  12.   chkabort();
  13.   _sprintf(id, "%lx", _us);
  14.   l = strlen(id);
  15.   end_id = l > 5 ? id + l - 5 : id;
  16.   _sprintf(change, "a%s", end_id);
  17.  
  18.   while (letter <= 'z')
  19.     {
  20.       *change = letter;
  21.       if (access(name, 0)) return name;
  22.       letter++;
  23.     }
  24.   name[0] = '\0';
  25.   return name;
  26. }
  27.