blob: b082959ae8282029febcc85245a5b223600f6d98 (
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
|
{ %target=linux }
uses
ctypes,baseunix,linux;
var
mystatx : statx;
res : cint;
f : text;
begin
assign(f,'test.txt');
rewrite(f);
write(f,'ccccc');
close(f);
res:=fpstatx(AT_FDCWD,'test.txt',AT_SYMLINK_NOFOLLOW,STATX_ALL,mystatx);
erase(f);
if res<>0 then
begin
halt(1);
end;
writeln('statx.stx_mask = %',binstr(mystatx.stx_mask,32));
writeln('statx.size = ',mystatx.stx_size);
if mystatx.stx_size<>5 then
halt(1);
writeln('statx.mode = %',binstr(mystatx.stx_mode,16));
writeln('ok');
end.
|
