ref: 8a788aea84aad3bfbd5b39d78c1925654f3b9e14
dir: /emu/port/file.c/
#include "dat.h"
#include "fns.h"
#include "error.h"
int
openmode(ulong o)
{
if(o >= (OTRUNC|OCEXEC|ORCLOSE|OEXEC))
error(Ebadarg);
o &= ~(OTRUNC|OCEXEC|ORCLOSE);
if(o > OEXEC)
error(Ebadarg);
if(o == OEXEC)
return OREAD;
return o;
}