home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / driver / util / access.c next >
C/C++ Source or Header  |  1990-04-10  |  541b  |  35 lines
  1. /*
  2.  *        Cross Development System for Atari ST 
  3.  *     Copyright (c) 1988, Memorial University of Newfoundland
  4.  *
  5.  * $Header: access.c,v 1.1 88/01/29 17:30:49 m68k Exp $
  6.  *
  7.  * $Log:    access.c,v $
  8.  * Revision 1.1  88/01/29  17:30:49  m68k
  9.  * Initial revision
  10.  * 
  11.  */
  12. #include    <ext.h>
  13. #include    <errno.h>
  14. #include    <stdio.h>
  15.  
  16. int
  17. access(path, mode)
  18.     char    *path;
  19.     int    mode;
  20. {
  21.  struct stat    statb;
  22.  int i;
  23.  
  24.  if (stat(path, &statb) < 0)
  25.   {
  26.    return -1;
  27.   }
  28.  if ((statb.st_mode & mode) == mode)
  29.   {
  30.    return 0;
  31.   }
  32.  errno = EACCES;
  33.  return -1;
  34. }
  35.