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 <unistd.h>
  47 #include <sys/types.h>
  48 #include <sys/stat.h>
  49 #include <sys/queue.h>
  50
  51 #include "sysio.h"
  52 #include "sysio-symbols.h"
  53
  54 int
  55 SYSIO_INTERFACE_NAME(access)(const char *path, int amode)
  56 {
  57         gid_t   *list, *entry;
  58         size_t  n;
  59         int     err = 0;
  60         unsigned mask, mode;
  61         struct stat stbuf;
  62         SYSIO_INTERFACE_DISPLAY_BLOCK;
  63
  64         SYSIO_INTERFACE_ENTER;
  65         err = 0;
  66
  67         /*
  68          * Check amode.
  69          */
  70         if ((amode & (R_OK|W_OK|X_OK)) != amode)
  71                 SYSIO_INTERFACE_RETURN(-1, -EINVAL);
  72
  73         n = getgroups(0, NULL);
  74         list = NULL;
  75         if (n) {
  76                 list = malloc(n * sizeof(gid_t));
  77                 if (!list) {
  78                         err = -ENOMEM;
  79                         goto out;
  80                 }
  81         }
  82         err = getgroups(n, list);
  83         if (err != (int ) n)
  84                 goto out;
  85
  86         err = SYSIO_INTERFACE_NAME(stat)(path, &stbuf);
  87         if (err) {
  88                 err = -errno;
  89                 goto out;
  90         }
  91         if (!amode)
  92                 SYSIO_INTERFACE_RETURN(0, 0);
  93
  94
  95         mask = 0;
  96         if (amode & R_OK)
  97                 mask |= S_IRUSR;
  98         if (amode & W_OK)
  99                 mask |= S_IWUSR;
 100         if (amode & X_OK)
 101                 mask |= S_IXUSR;
 102
 103         mode = stbuf.st_mode;
 104         if (stbuf.st_uid == getuid() && (mode & mask) == mask)
 105                 goto out;
 106
 107         mask >>= 3;
 108         if (stbuf.st_gid == getgid() && (mode & mask) == mask)
 109                 goto out;
 110
 111         entry = list;
 112         while (n--)
 113                 if (stbuf.st_gid == *entry++ && (mode & mask) == mask)
 114                         goto out;
 115
 116         mask >>= 3;
 117         if ((mode & mask) == mask)
 118                 goto out;
 119
 120         err = -EACCES;
 121
 122 out:
 123         if (list)
 124                 free(list);
 125
 126         SYSIO_INTERFACE_RETURN(err ? -1 : 0, err);
 127 }
 128
 129 #ifdef REDSTORM
 130 #undef __access
 131 sysio_sym_weak_alias(SYSIO_INTERFACE_NAME(access),
 132                      PREPEND(__, SYSIO_INTERFACE_NAME(access)))
 133 #endif