mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
36 lines
1.3 KiB
C
36 lines
1.3 KiB
C
/****************************************************************************
|
||
*
|
||
* C F I L E C R E A T E R O U T I N E
|
||
* -----------------------------------------
|
||
*
|
||
* The "creat" routine opens a new "C" file and returns a file id.
|
||
*
|
||
* Calling Sequence:
|
||
*
|
||
* fid = creat(fname,prot,type);
|
||
*
|
||
* Where:
|
||
*
|
||
* fname is the address of a null terminated file name.
|
||
* prot is the UNIX file protection
|
||
* type is 0 for ASCII, 1 for BINARY
|
||
*
|
||
*****************************************************************************/
|
||
#include <portab.h>
|
||
WORD xcreat(fname,prot,type) /****************************/
|
||
BYTE *fname; /* -> File name */
|
||
WORD prot; /* Open mode */
|
||
WORD type; /* ASCII/BINARY flag */
|
||
{ /****************************/
|
||
return(_creat(fname,prot,type)); /* Call clib routine */
|
||
} /****************************/
|
||
*****************/
|
||
return(_creat(fname,prot,type)); /* Call clib routine */
|
||
} /****************************/
|
||
*****************/
|
||
return(_creat(fname,prot,type)); /* Call clib routine */
|
||
} /****************************/
|
||
*****************/
|
||
return(_creat(fname,prot,type)); /* Call clib routine */
|
||
} /****************************/
|
||
|