mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
34 lines
487 B
C
34 lines
487 B
C
/* OPEN A FILE FOR VMS
|
|
* copyright (c) 1980 by Whitesmiths, Ltd.
|
|
*/
|
|
#include <std.h>
|
|
#include "vms.h"
|
|
FILE open(fname, mode)
|
|
TEXT *fname;
|
|
COUNT mode;
|
|
{
|
|
return(_open(fname,mode,0));
|
|
}
|
|
|
|
FILE opena(fname,mode)
|
|
TEXT *fname;
|
|
COUNT mode;
|
|
{
|
|
return(_open(fname,mode,0));
|
|
}
|
|
|
|
FILE openb(fname,mode)
|
|
TEXT *fname;
|
|
COUNT mode;
|
|
{
|
|
return(_open(fname,mode,1));
|
|
}
|
|
|
|
FILE _open(fname, mode, rsize)
|
|
TEXT *fname;
|
|
COUNT mode;
|
|
BYTES rsize;
|
|
{
|
|
return (_copen(fname, WOPEN | (mode + 1) & 03, rsize));
|
|
}
|