hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Fix declarations of file attributes functions.

Browse Source
This commit is contained in:
ocoursiere
2013-05-29 23:52:34 +00:00
parent 01a3b8bcae
commit 718bdecfc3
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
bepascal/source/bepascal/pas/src/be/kernel/fs_attr.pp
View File

@@ -5,15 +5,16 @@ unit fs_attr;
interface
uses
SupportDefs;
baseunix;
{$I beostypes.inc}
type
attr_info = record
attr_info = packed record
at_type : Longword; // uint32 type
size : off_t; // off_t size
end;
pattr_info = ^attr_info;
// I renamed the 'type' parameter to attype (attribute type)
@@ -28,24 +29,25 @@ function fs_write_attr(fd : Integer; const attribute : PChar; attype : Longword;
function fs_remove_attr(fd : Integer; const attr : PChar) : Integer;
cdecl; external 'root' name 'fs_remove_attr';
function fs_open_attr_dir(const path : PChar) : DIR;
function fs_open_attr_dir(const path : PChar) : pDIR;
cdecl; external 'root' name 'fs_open_attr_dir';
function fs_fopen_attr_dir(fd : Integer) : DIR;
function fs_fopen_attr_dir(fd : Integer) : pDIR;
cdecl; external 'root' name 'fs_fopen_attr_dir';
function fs_close_attr_dir(dirp : DIR) : Integer;
function fs_close_attr_dir(dirp : pDIR) : Integer;
cdecl; external 'root' name 'fs_close_attr_dir';
function fs_read_attr_dir(dirp : DIR) : dirent;
function fs_read_attr_dir(dirp : pDIR) : pDirent;
cdecl; external 'root' name 'fs_read_attr_dir';
procedure fs_rewind_attr_dir(dirp : DIR);
procedure fs_rewind_attr_dir(dirp : pDIR);
cdecl; external 'root' name 'fs_rewind_attr_dir';
function fs_stat_attr(fd : Integer; const name : PChar; ai : attr_info) : Integer;
function fs_stat_attr(fd : Integer; const name : PChar; ai : pattr_info) : Integer;
cdecl; external 'root' name 'fs_stat_attr';
implementation
end.
end.