This is amiga.c in view mode; [Download] [Up]
/* tmpfile() function for AmigaDOS.
* Not needed with SAS/C 6.0 and higher, but included for
* the benefit of people with pther compilers who might
* want it.
* All rights to this code are relinquished to the public domain.
* --D. Champion, 13 Jan 1993
*/
#include <exec/types.h>
#include <exec/tasks.h>
#include <stdio.h>
#ifndef P_tmpdir
#define P_tmpdir "t:"
#define B_tmpnam 5
#undef L_tmpnam
#define L_tmpnam sizeof(P_tmpdir)+B_tmpnam+21
/* sizeof(P_tmpdir) includes terminating null; B_tmpnam is how much *
* of myname to include; 8x2 for hex longs + 3 dots + 2 sequence nums */
#endif
char tmpnam_count=0;
char *tmpnam(char *s)
{
extern char *myname; /* myname MUST exist! */
extern char tmpnam_count;
char *uniqsuff=".00000000.00000000.00";
int i;
strcpy (s,P_tmpdir);
strncat(s,myname,B_tmpnam); /* start tmpfilename with 1st B_tmpnam chars of myname */
sprintf(uniqsuff,".%8x.%8x.%2x\0",(ULONG)FindTask(NULL),(ULONG)time(),(char)tmpnam_count);
for(i=0;i<L_tmpnam+B_tmpnam;i++) {
if (uniqsuff[i]==' ') uniqsuff[i]='0';
}
strcat (s,uniqsuff);
tmpnam_count++;
return(s);
}
/* Note that tmpfile() does not yet know how to delete files! Sorry, *
* but I haven't yet found a way to make it track the files it opens *
* (then close them, if necessary) and delete them. Maybe soon.... */
FILE *tmpfile(void)
{
FILE *file;
char fnam[L_tmpnam];
return(file=fopen(tmpnam(fnam),"wb+"));
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.