Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v103/clib/fcreat.c
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

30 lines
494 B
C

/*
Copyright 1983
Alcyon Corporation
8716 Production Ave.
San Diego, CA 92121
@(#) fcreat.c - Sep 12, 1983 REGULUS 4.1
*/
/* v6 fcreat library call */
#define BSIZE 512
struct iob {
int fd; /* file descriptor */
int cc; /* char count */
char *cp; /* ptr to next char */
char cbuf[BSIZE]; /* char buffer */
};
fcreat(fname,ibuf)
char *fname;
register struct iob *ibuf;
{
ibuf->cc = BSIZE; /* no chars */
ibuf->cp = &(ibuf->cbuf[0]);
return(ibuf->fd = creat(fname,0666));
}