annotate sbr/m_scratch.c @ 0:bce86c4163a3

Initial revision
author kono
date Mon, 18 Apr 2005 23:46:02 +0900
parents
children 441a2190cfae
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bce86c4163a3 Initial revision
kono
parents:
diff changeset
1 /* m_scratch.c - construct a scratch file */
bce86c4163a3 Initial revision
kono
parents:
diff changeset
2
bce86c4163a3 Initial revision
kono
parents:
diff changeset
3 #include "../h/mh.h"
bce86c4163a3 Initial revision
kono
parents:
diff changeset
4 #include <stdio.h>
bce86c4163a3 Initial revision
kono
parents:
diff changeset
5
bce86c4163a3 Initial revision
kono
parents:
diff changeset
6
bce86c4163a3 Initial revision
kono
parents:
diff changeset
7 char *m_scratch (file, template)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
8 register char *file,
bce86c4163a3 Initial revision
kono
parents:
diff changeset
9 *template;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
10 {
bce86c4163a3 Initial revision
kono
parents:
diff changeset
11 register char *cp;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
12 static char buffer[BUFSIZ],
bce86c4163a3 Initial revision
kono
parents:
diff changeset
13 tmpfil[BUFSIZ];
bce86c4163a3 Initial revision
kono
parents:
diff changeset
14
bce86c4163a3 Initial revision
kono
parents:
diff changeset
15 (void) sprintf (tmpfil, "%sXXXXXX", template);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
16 (void) mktemp (tmpfil);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
17 if ((cp = r1bindex (file, '/')) == file)
bce86c4163a3 Initial revision
kono
parents:
diff changeset
18 (void) strcpy (buffer, tmpfil);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
19 else
bce86c4163a3 Initial revision
kono
parents:
diff changeset
20 (void) sprintf (buffer, "%.*s%s", cp - file, file, tmpfil);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
21 (void) unlink (buffer);
bce86c4163a3 Initial revision
kono
parents:
diff changeset
22
bce86c4163a3 Initial revision
kono
parents:
diff changeset
23 return buffer;
bce86c4163a3 Initial revision
kono
parents:
diff changeset
24 }