compiler/clib/fchmod.c

   1 /*
   2     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function fchmod().
   6 */
   7
   8 #include <errno.h>
   9
  10 #include <aros/debug.h>
  11 #include <proto/exec.h>
  12 #include <proto/dos.h>
  13 #include <sys/types.h>
  14 #include <stdlib.h>
  15
  16 #include "__stdio.h"
  17 #include "__fdesc.h"
  18 #include "__errno.h"
  19 #include "__upath.h"
  20
  21 ULONG prot_u2a(mode_t protect);
  22
  23 /*****************************************************************************
  24
  25     NAME */
  26 #include <sys/types.h>
  27 #include <sys/stat.h>
  28
  29         int fchmod (
  30
  31 /*  SYNOPSIS */
  32         int filedes,
  33         mode_t mode)
  34
  35 /*  FUNCTION
  36         Change permission bits of a file specified by an open file descriptor.
  37
  38     INPUTS
  39         filedes - File descriptor of the file
  40         mode - Permission bits to set
  41
  42     RESULT
  43         0 on success and -1 on error. If an error occurred, the global
  44         variable errno is set.
  45
  46     NOTES
  47         See chmod() documentation for more details about the mode parameter.
  48
  49     EXAMPLE
  50
  51     BUGS
  52
  53     SEE ALSO
  54         chmod()
  55
  56     INTERNALS
  57
  58 ******************************************************************************/
  59 {
  60     fdesc *fdesc;
  61     UBYTE *buffer;
  62     int buffersize = 256;
  63
  64     if (!(fdesc = __getfdesc(filedes)))
  65     {
  66         errno = EBADF;
  67         return -1;
  68     }
  69
  70     /* Get the full path of the stated filesystem object and use it to
  71        compute hash value */
  72     do
  73     {
  74         if(!(buffer = AllocVec(buffersize, MEMF_ANY)))
  75         {
  76             errno = IoErr2errno(IoErr());
  77             return -1;
  78         }
  79
  80         if(NameFromFH(fdesc->fcb->fh, buffer, buffersize))
  81             break;
  82         else if(IoErr() != ERROR_LINE_TOO_LONG)
  83         {
  84             errno = IoErr2errno(IoErr());
  85             FreeVec(buffer);
  86             return -1;
  87         }
  88         FreeVec(buffer);
  89         buffersize *= 2;
  90     }
  91     while(TRUE);
  92
  93     if (!SetProtection(buffer, prot_u2a(mode)))
  94     {
  95         FreeVec(buffer);
  96         errno = IoErr2errno(IoErr());
  97         return -1;
  98     }
  99
 100     FreeVec(buffer);
 101     return 0;
 102 } /* fchmod */
 103