libsysio/src/access.c

   1 /*
   2  *    This Cplant(TM) source code is the property of Sandia National
   3  *    Laboratories.
   4  *
   5  *    This Cplant(TM) source code is copyrighted by Sandia National
   6  *    Laboratories.
   7  *
   8  *    The redistribution of this Cplant(TM) source code is subject to the
   9  *    terms of the GNU Lesser General Public License
  10  *    (see cit/LGPL or http://www.gnu.org/licenses/lgpl.html)
  11  *
  12  *    Cplant(TM) Copyright 1998-2003 Sandia Corporation.
  13  *    Under the terms of Contract DE-AC04-94AL85000, there is a non-exclusive
  14  *    license for use of this work by or on behalf of the US Government.
  15  *    Export of this program may require a license from the United States
  16  *    Government.
  17  */
  18
  19 /*
  20  * This library is free software; you can redistribute it and/or
  21  * modify it under the terms of the GNU Lesser General Public
  22  * License as published by the Free Software Foundation; either
  23  * version 2.1 of the License, or (at your option) any later version.
  24  *
  25  * This library is distributed in the hope that it will be useful,
  26  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  27  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  28  * Lesser General Public License for more details.
  29  *
  30  * You should have received a copy of the GNU Lesser General Public
  31  * License along with this library; if not, write to the Free Software
  32  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  33  *
  34  * Questions or comments about this library should be sent to:
  35  *
  36  * Lee Ward
  37  * Sandia National Laboratories, New Mexico
  38  * P.O. Box 5800
  39  * Albuquerque, NM 87185-1110
  40  *
  41  * lee@sandia.gov
  42  */
  43
  44 #include <stdlib.h>
  45 #include <errno.h>
  46 #include <sys/types.h>
  47 #include <sys/stat.h>
  48 #include <unistd.h>
  49
  50 #include "sysio-symbols.h"
  51 #include "sysio.h"
  52
  53 int
  54 SYSIO_INTERFACE_NAME(access)(const char *path, int amode)
  55 {
  56         gid_t   *list, *entry;
  57         size_t  n;
  58         int     err = 0;
  59         unsigned mask, mode;
  60         struct stat stbuf;
  61         SYSIO_INTERFACE_DISPLAY_BLOCK;
  62
  63         SYSIO_INTERFACE_ENTER;
  64         err = 0;
  65
  66         n = getgroups(0, NULL);
  67         list = NULL;
  68         if (n) {
  69                 list = malloc(n * sizeof(gid_t));
  70                 if (!list) {
  71                         err = -ENOMEM;
  72                         goto out;
  73                 }
  74         }
  75         err = getgroups(n, list);
  76         if (err != (int ) n)
  77                 goto out;
  78
  79         err = SYSIO_INTERFACE_NAME(stat)(path, &stbuf);
  80         if (err) {
  81                 err = -errno;
  82                 goto out;
  83         }
  84
  85         mask = 0;
  86         if (amode & R_OK)
  87                 mask |= S_IRUSR;
  88         if (amode & W_OK)
  89                 mask |= S_IWUSR;
  90         if (amode & X_OK)
  91                 mask |= S_IXUSR;
  92
  93         mode = stbuf.st_mode;
  94         if (stbuf.st_uid == getuid() && (mode & mask) == mask)
  95                 goto out;
  96
  97         mask >>= 3;
  98         if (stbuf.st_gid == getgid() && (mode & mask) == mask)
  99                 goto out;
 100
 101         entry = list;
 102         while (n--)
 103                 if (stbuf.st_gid == *entry++ && (mode & mask) == mask)
 104                         goto out;
 105
 106         mask >>= 3;
 107         if ((mode & mask) == mask)
 108                 goto out;
 109
 110         err = -EACCES;
 111
 112 out:
 113         if (list)
 114                 free(list);
 115
 116         SYSIO_INTERFACE_RETURN(err ? -1 : 0, err);
 117 }
 118
 119 #ifdef REDSTORM
 120 #undef __access
 121 sysio_sym_weak_alias(SYSIO_INTERFACE_NAME(access),
 122                      PREPEND(__, SYSIO_INTERFACE_NAME(access)))
 123 #endif