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 "__open.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
  37     INPUTS
  38
  39     RESULT
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51     HISTORY
  52
  53 ******************************************************************************/
  54 {
  55     fdesc *fdesc;
  56     UBYTE *buffer;
  57     int buffersize = 256;
  58     char *path;
  59
  60     if (!(fdesc = __getfdesc(filedes)))
  61     {
  62         errno = EBADF;
  63         return -1;
  64     }
  65
  66     /* Get the full path of the stated filesystem object and use it to
  67        compute hash value */
  68     do
  69     {
  70         if(!(buffer = AllocVec(buffersize, MEMF_ANY)))
  71         {
  72             errno = IoErr2errno(IoErr());
  73             return -1;
  74         }
  75
  76         if(NameFromLock(fdesc->fh, buffer, buffersize))
  77             break;
  78         else if(IoErr() != ERROR_LINE_TOO_LONG)
  79         {
  80             errno = IoErr2errno(IoErr());
  81             FreeVec(buffer);
  82             return -1;
  83         }
  84         FreeVec(buffer);
  85         buffersize *= 2;
  86     }
  87     while(TRUE);
  88
  89     if (!SetProtection(buffer, prot_u2a(mode)))
  90     {
  91         FreeVec(buffer);
  92         errno = IoErr2errno(IoErr());
  93         return -1;
  94     }
  95
  96     FreeVec(buffer);
  97     return 0;
  98 } /* fchmod */
  99