rom/dos/setprotection.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Set the protection bits of a file.
   6     Lang: English
   7 */
   8 #include <aros/debug.h>
   9 #include <proto/exec.h>
  10 #include <dos/dosextens.h>
  11 #include <proto/dos.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(LONG, SetProtection,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(CONST_STRPTR, name,    D1),
  23         AROS_LHA(ULONG,  protect, D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 31, Dos)
  27
  28 /*  FUNCTION
  29
  30     INPUTS
  31         name    - name of the file
  32         protect - new protection bits
  33
  34     RESULT
  35         != 0 if all went well, 0 else. IoErr() gives additional
  36         information in that case.
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     LONG status = 0;
  53     struct PacketHelperStruct phs;
  54
  55     D(bug("[SetProtection] '%s':%x\n", name, protect));
  56
  57     if (getpacketinfo(DOSBase, name, &phs)) {
  58         status = dopacket4(DOSBase, NULL, phs.port, ACTION_SET_PROTECT, BNULL, phs.lock, phs.name, protect);
  59         freepacketinfo(DOSBase, &phs);
  60     }
  61
  62     return status;
  63
  64     AROS_LIBFUNC_EXIT
  65 } /* SetProtection */