blob: be9c17d8609df654a9542c2c96f00bb17944de63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
/*
############################################################################
#
# File: files.c
#
# Subject: Functions to manipulate file attributes
#
# Author: Gregg M. Townsend
#
# Date: November 17, 2004
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# chmod(filename, mode) changes the file permission modes of a file to
# those specified.
#
# umask(mask) sets the process "umask" to the specified value.
# If mask is omitted, the current process mask is returned.
#
############################################################################
#
# Requires: UNIX, dynamic loading
#
############################################################################
*/
#include "icall.h"
#include <sys/types.h>
#include <sys/stat.h>
int icon_chmod (int argc, descriptor argv[]) /*: change UNIX file permissions */
{
ArgString(1);
ArgInteger(2);
if (chmod(StringVal(argv[1]), IntegerVal(argv[2])) == 0)
RetNull();
else
Fail;
}
int icon_umask (int argc, descriptor argv[]) /*: change UNIX permission mask */
{
int n;
if (argc == 0) {
umask(n = umask(0));
RetInteger(n);
}
ArgInteger(1);
umask(IntegerVal(argv[1]));
RetArg(1);
}
|
