view sbr/m_scratch.c @ 12:441a2190cfae

Lion fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 21 Apr 2012 13:10:49 +0900
parents bce86c4163a3
children
line wrap: on
line source

/* m_scratch.c - construct a scratch file */

#include "../h/mh.h"
#include <stdio.h>


char   *m_scratch (file, template)
register char  *file,
               *template;
{
    register char  *cp;
    static char buffer[BUFSIZ],
		tmpfil[BUFSIZ];

    (void) sprintf (tmpfil, "%sXXXXXX", template);
    (void) mktemp (tmpfil);
    if ((cp = r1bindex (file, '/')) == file)
	(void) strcpy (buffer, tmpfil);
    else
	(void) sprintf (buffer, "%.*s%s", (int)(cp - file), file, tmpfil);
    (void) unlink (buffer);

    return buffer;
}