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 interface
uses uses
SupportDefs; baseunix;
{$I beostypes.inc} {$I beostypes.inc}
type type
attr_info = record attr_info = packed record
at_type : Longword; // uint32 type at_type : Longword; // uint32 type
size : off_t; // off_t size size : off_t; // off_t size
end; end;
pattr_info = ^attr_info;
// I renamed the 'type' parameter to attype (attribute type) // 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; function fs_remove_attr(fd : Integer; const attr : PChar) : Integer;
cdecl; external 'root' name 'fs_remove_attr'; 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'; 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'; 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'; 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'; 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'; 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'; cdecl; external 'root' name 'fs_stat_attr';
implementation implementation
end. end.