amiga-ixemul/library/chmod.c

/*
 *  This file is part of ixemul.library for the Amiga.
 *  Copyright (C) 1991, 1992  Markus M. Wild
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Library General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  This library is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Library General Public License for more details.
 *
 *  You should have received a copy of the GNU Library General Public
 *  License along with this library; if not, write to the Free
 *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#define _KERNEL
#include "ixemul.h"
#include "kprintf.h"
#include "multiuser.h"

#if 0

/* not static because also used in nodspecial.c */
int
__chmod_func (struct lockinfo *info, int mask, int *error)
{
  struct StandardPacket *sp = &info->sp;

  sp->sp_Pkt.dp_Type = ACTION_SET_PROTECT;
  sp->sp_Pkt.dp_Arg1 = 0;
  sp->sp_Pkt.dp_Arg2 = info->parent_lock;
  sp->sp_Pkt.dp_Arg3 = info->bstr;
  sp->sp_Pkt.dp_Arg4 = mask;

  PutPacket(info->handler, sp);
  __wait_sync_packet(sp);

  info->result = sp->sp_Pkt.dp_Res1;
  *error = info->result != -1;
  return 1;
}


int
chmod(const char *name, mode_t mode)
{
  int result;
  usetup;
  long amiga_mode = 0;

  if (mode & S_IXUSR) amiga_mode |= FIBF_EXECUTE;
  if (mode & S_IWUSR) amiga_mode |= (FIBF_WRITE|FIBF_DELETE);
  if (mode & S_IRUSR) amiga_mode |= FIBF_READ;
#ifdef FIBF_GRP_EXECUTE
  if (mode & S_IXGRP) amiga_mode |= FIBF_GRP_EXECUTE;
  if (mode & S_IWGRP) amiga_mode |= FIBF_GRP_WRITE|FIBF_GRP_DELETE;
  if (mode & S_IRGRP) amiga_mode |= FIBF_GRP_READ;
  if (mode & S_IXOTH) amiga_mode |= FIBF_OTR_EXECUTE;
  if (mode & S_IWOTH) amiga_mode |= FIBF_OTR_WRITE|FIBF_OTR_DELETE;
  if (mode & S_IROTH) amiga_mode |= FIBF_OTR_READ;
#endif
  if (mode & S_ISTXT) amiga_mode |= FIBF_HOLD;
  if (mode & S_ISUID) amiga_mode |= muFIBF_SET_UID;
  if (mode & S_ISGID) amiga_mode |= muFIBF_SET_GID;

  /* RWED-permissions are "lo-active", if cleared they allow the operation */
  amiga_mode ^= FIBF_READ|FIBF_WRITE|FIBF_DELETE|FIBF_EXECUTE;

  result = __plock (name, __chmod_func, (void *)amiga_mode);
  if (result == 0)
    {
      errno = __ioerr_to_errno (IoErr());
      KPRINTF (("&errno = %lx, errno = %ld\n", &errno, errno));
    }
  else
    {
      struct file *fp;

      /* we walk thru our filetab to see, whether we have this file
       * open, and set its mode */
      ix_lock_base();
#if USE_DYNFILETAB
      {
	struct MinNode *node;
	ForeachNode(&ix.ix_used_file_list, node)
	{
	  fp = (void *) (node + 1);
#else
      for (fp = ix.ix_file_tab; fp < ix.ix_fileNFILE; fp++)
#endif
	if (fp->f_count && fp->f_name && !strcmp(fp->f_name, name))
	  {
	    fp->f_stb.st_mode = mode;
	    fp->f_stb_dirty |= FSDF_MODE;
	  }
#if USE_DYNFILETAB
	}
      }
#endif
      ix_unlock_base();
    }
  return result ? 0 : -1;
}


/* a signal proof SetProtection(), nothing more ;-) */
int
ix_chmod (char *name, int mode)
{
  int result;
  usetup;

  result = __plock (name, __chmod_func, (void *)mode) == -1 ? 0 : -1;
  if (result == 0)
    {
      errno = __ioerr_to_errno (IoErr ());
      KPRINTF (("&errno = %lx, errno = %ld\n", &errno, errno));
    }

  return result;
}
#else

char *ix_to_ados(char *, const char *);
char *check_root(char *);

int
chmod(const char *name, mode_t mode)
{
  int result;
  usetup;
  long amiga_mode = 0;
  char *buf = alloca(strlen(name) + 3);
  int omask;
  LONG err;

  if (mode & S_IXUSR) amiga_mode |= FIBF_EXECUTE;
  if (mode & S_IWUSR) amiga_mode |= (FIBF_WRITE|FIBF_DELETE);
  if (mode & S_IRUSR) amiga_mode |= FIBF_READ;
#ifdef FIBF_GRP_EXECUTE
  if (mode & S_IXGRP) amiga_mode |= FIBF_GRP_EXECUTE;
  if (mode & S_IWGRP) amiga_mode |= FIBF_GRP_WRITE|FIBF_GRP_DELETE;
  if (mode & S_IRGRP) amiga_mode |= FIBF_GRP_READ;
  if (mode & S_IXOTH) amiga_mode |= FIBF_OTR_EXECUTE;
  if (mode & S_IWOTH) amiga_mode |= FIBF_OTR_WRITE|FIBF_OTR_DELETE;
  if (mode & S_IROTH) amiga_mode |= FIBF_OTR_READ;
#endif
  if (mode & S_ISTXT) amiga_mode |= FIBF_HOLD;
  if (mode & S_ISUID) amiga_mode |= muFIBF_SET_UID;
  if (mode & S_ISGID) amiga_mode |= muFIBF_SET_GID;

  /* RWED-permissions are "lo-active", if cleared they allow the operation */
  amiga_mode ^= FIBF_READ|FIBF_WRITE|FIBF_DELETE|FIBF_EXECUTE;

  buf = ix_to_ados(buf, name);

  omask = syscall(SYS_sigsetmask, ~0);

  result = SetProtection (buf, amiga_mode);
  if (!result)
    {
      err = IoErr();
      if (err == ERROR_OBJECT_NOT_FOUND)
        {
	  buf = check_root(buf);
	  if (buf && *buf)
	    {
	      result = SetProtection(buf, amiga_mode);
	      if (!result)
		err = IoErr();
	    }
	}
    }

  syscall(SYS_sigsetmask, omask);

  if (result == 0)
    {
      errno = __ioerr_to_errno (err);
      KPRINTF (("chown(%s): &errno = %lx, errno = %ld\n", name, &errno, errno));
    }
  else
    {
      struct file *fp;

      /* we walk thru our filetab to see, whether we have this file
       * open, and set its mode */
      ix_lock_base();
#if USE_DYNFILETAB
      {
	struct MinNode *node;
	ForeachNode(&ix.ix_used_file_list, node)
	{
	  fp = (void *) (node + 1);
#else
      for (fp = ix.ix_file_tab; fp < ix.ix_fileNFILE; fp++)
#endif
	if (fp->f_count && fp->f_name && !strcmp(fp->f_name, name))
	  {
	    fp->f_stb.st_mode = mode;
	    fp->f_stb_dirty |= FSDF_MODE;
	  }
#if USE_DYNFILETAB
	}
      }
#endif
      ix_unlock_base();
    }
  return result ? 0 : -1;
}


/* a signal proof SetProtection(), nothing more ;-) */
int
ix_chmod (char *name, int mode)
{
  int result;
  usetup;
  int omask;
  char *buf = alloca(strlen(name) + 4);
  LONG err;

  buf = ix_to_ados(buf, name);

  omask = syscall(SYS_sigsetmask, ~0);
  result = SetProtection(name, mode);
  if (!result)
    {
      err = IoErr();
      if (err == ERROR_OBJECT_NOT_FOUND)
        {
	  buf = check_root(buf);
	  if (buf && *buf)
	    {
	      result = SetProtection(name, mode);
	      if (!result)
		err = IoErr();
	    }
	}
    }
  syscall(SYS_sigsetmask, omask);

  if (result == 0)
    {
      errno = __ioerr_to_errno (err);
      KPRINTF (("ix_chmod(%s): &errno = %lx, errno = %ld\n", name, &errno, errno));
    }

  return result;
}

#endif