28 lines
501 B
C
28 lines
501 B
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Id$ */
|
|
|
|
#include "system.h"
|
|
|
|
extern File *_get_entry();
|
|
|
|
int
|
|
sys_create(filep, path, mode)
|
|
File **filep;
|
|
char *path;
|
|
int mode;
|
|
{
|
|
register fd;
|
|
register File *fp;
|
|
|
|
if ((fp = _get_entry()) == (File *)0)
|
|
return 0;
|
|
if ((fd = creat(path, mode)) < 0)
|
|
return 0;
|
|
fp->o_fd = fd;
|
|
fp->o_flags = OP_WRITE;
|
|
*filep = fp;
|
|
return 1;
|
|
}
|