blob: ec47375916d34b578e67ecb3702af77d9c9a9862 (
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
58
|
implement Chgrp;
include "sys.m";
sys: Sys;
include "draw.m";
include "arg.m";
Chgrp: module
{
init: fn(nil: ref Draw->Context, nil: list of string);
};
usage()
{
sys->fprint(sys->fildes(2), "usage: chgrp [-uo] group file ...\n");
raise "fail:usage";
}
init(nil: ref Draw->Context, args: list of string)
{
sys = load Sys Sys->PATH;
arg := load Arg Arg->PATH;
if(arg == nil){
sys->fprint(sys->fildes(2), "chgrp: can't load %s: %r\n", Arg->PATH);
raise "fail:load";
}
setuser := 0;
arg->init(args);
while((o := arg->opt()) != 0)
case o {
'o' or 'u' =>
setuser = 1;
* =>
usage();
}
args = arg->argv();
arg = nil;
if(args == nil)
usage();
id := hd args;
err := 0;
while((args = tl args) != nil){
d := sys->nulldir;
if(setuser)
d.uid = id;
else
d.gid = id;
if(sys->wstat(hd args, d) < 0){
sys->fprint(sys->fildes(2), "chgrp: can't change %s: %r\n", hd args);
err = 1;
}
}
if(err)
raise "fail:error";
}
|
