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
|
// SPDX-License-Identifier: MPL-2.0
// (c) Hare authors <https://harelang.org>
use errors;
use fs;
use io;
use rt;
// Returns the [[fs::flag]]s associated with a file descriptor. See fcntl(2),
// ref F_GETFL.
export fn getflags(file: io::file) (fs::flag | errors::error) = {
match (rt::fcntl(file, rt::F_GETFL, void)) {
case let i: int =>
return i: fs::flag;
case let err: rt::errno =>
return errors::errno(err);
};
};
// Sets the [[fs::flag]]s associated with a file descriptor. Changes to the
// access mode (e.g. [[fs::flag::RDWR]] and file creation flags (e.g.
// [[fs::flag::CREATE]]) are ignored. See fcntl(2), ref F_SETFL.
export fn setflags(file: io::file, flags: fs::flag) (void | errors::error) = {
match (rt::fcntl(file, rt::F_SETFL, flags)) {
case int =>
return;
case let err: rt::errno =>
return errors::errno(err);
};
};
|
