Added mktemp.c

lang/cem/libcc.ansi/misc/.distr

@@ -20,3 +20,4 @@ seekdir.c
 sleep.c
 telldir.c
 termcap.c
+mktemp.c

lang/cem/libcc.ansi/misc/LIST

@@ -18,3 +18,4 @@ rewinddir.c
 seekdir.c
 telldir.c
 isatty.c
+mktemp.c

lang/cem/libcc.ansi/misc/mktemp.c

@@ -0,0 +1,30 @@
+/* $Header$ */
+/* mktemp - make a name for a temporary file; only here for backwards compat */
+/* no _-protected system-calls? */
+
+unsigned int getpid(void);
+int access(char *, int);
+
+char *mktemp(char *template)
+{
+  register int pid, k;
+  register char *p;
+
+  pid = getpid();		/* get process id as semi-unique number */
+  p = template;
+  while (*p) p++;		/* find end of string */
+
+  /* Replace XXXXXX at end of template with pid. */
+  while (*--p == 'X') {
+	*p = '0' + (pid % 10);
+	pid /= 10;
+  }
+  p++;
+  for (k = 'a'; k <= 'z'; k++) {
+	*p = k;
+	if (access(template, 0) < 0) {
+		return template;
+	}
+  }
+  return("/");
+}