Support rastport clipping rectangle for layerless rastports
[tangerine.git] / rom / dos / setprotection.c
blobcfe59b99174bc10c10d1abe43b18127761993c41
1 /*
2 Copyright © 1995-2001, The AROS Development Team. All rights reserved.
3 $Id$
5 Desc: Set the protection bits of a file.
6 Lang: English
7 */
8 #include <proto/exec.h>
9 #include <dos/dosextens.h>
10 #include <dos/filesystem.h>
11 #include <proto/dos.h>
12 #include "dos_intern.h"
14 /*****************************************************************************
16 NAME */
17 #include <proto/dos.h>
19 AROS_LH2(BOOL, SetProtection,
21 /* SYNOPSIS */
22 AROS_LHA(CONST_STRPTR, name, D1),
23 AROS_LHA(ULONG, protect, D2),
25 /* LOCATION */
26 struct DosLibrary *, DOSBase, 31, Dos)
28 /* FUNCTION
30 INPUTS
31 name - name of the file
32 protect - new protection bits
34 RESULT
35 != 0 if all went well, 0 else. IoErr() gives additional
36 information in that case.
38 NOTES
40 EXAMPLE
42 BUGS
44 SEE ALSO
46 INTERNALS
48 *****************************************************************************/
50 AROS_LIBFUNC_INIT
51 AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
53 /* Get pointer to I/O request. Use stackspace for now. */
54 struct IOFileSys iofs;
56 /* Prepare I/O request. */
57 InitIOFS(&iofs, FSA_SET_PROTECT, DOSBase);
59 iofs.io_Union.io_SET_PROTECT.io_Protection = protect;
61 return !DoName(&iofs, name, DOSBase);
63 AROS_LIBFUNC_EXIT
64 } /* SetProtection */