mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-02 03:50:17 +00:00
43 lines
1.3 KiB
C
43 lines
1.3 KiB
C
/* access for MMIXware.
|
|
|
|
Copyright (C) 2001, 2007 Hans-Peter Nilsson
|
|
|
|
Permission to use, copy, modify, and distribute this software is
|
|
freely granted, provided that the above copyright notice, this notice
|
|
and the following disclaimer are preserved with no changes.
|
|
|
|
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
|
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
|
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
|
PURPOSE. */
|
|
|
|
#include <fcntl.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include "sys/syscall.h"
|
|
#include <errno.h>
|
|
|
|
int
|
|
access (const char *fn, int flags)
|
|
{
|
|
/* Ugh. We don't have stat (), so we can't copy the other
|
|
implementations. Opening a directory as a file usually works, so
|
|
let's try and open it and use the openability, regardless of what
|
|
kind of test or file it is. */
|
|
int fd;
|
|
|
|
/* We'll just assume that if we can open the file for reading, then it's
|
|
Z-able, no matter what Z was. */
|
|
fd = _open (fn, O_RDONLY);
|
|
if (fd >= 0)
|
|
{
|
|
/* Yes, this was readable. As in other simulator access functions,
|
|
we always return success in this case (though the others check
|
|
for directory access). */
|
|
return _close (fd);
|
|
}
|
|
|
|
errno = EACCES;
|
|
return -1;
|
|
}
|