mirror of https://github.com/red-prig/fpPS4.git
83 lines
1.4 KiB
Plaintext
83 lines
1.4 KiB
Plaintext
unit kern_blockpool;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
{$CALLING SysV_ABI_CDecl}
|
|
|
|
interface
|
|
|
|
function sys_blockpool_open(flags:Integer):Integer;
|
|
|
|
implementation
|
|
|
|
uses
|
|
errno,
|
|
kern_thr,
|
|
kern_descrip,
|
|
vfile,
|
|
vfcntl,
|
|
sys_conf,
|
|
vstat;
|
|
|
|
function blockpool_ioctl(fp:p_file;com:QWORD;data:Pointer):Integer;
|
|
begin
|
|
Assert(False);
|
|
Result:=0;
|
|
end;
|
|
|
|
function blockpool_stat(fp:p_file;sb:p_stat):Integer;
|
|
begin
|
|
Assert(False);
|
|
Result:=0;
|
|
end;
|
|
|
|
function blockpool_close(fp:p_file):Integer;
|
|
begin
|
|
Assert(False);
|
|
Result:=0;
|
|
end;
|
|
|
|
const
|
|
blockpool_ops:fileops=(
|
|
fo_read :fo_rdwr_t (@_enxio);
|
|
fo_write :fo_rdwr_t (@_enxio);
|
|
fo_truncate:fo_truncate_t(@_enxio);
|
|
fo_ioctl :@blockpool_ioctl;
|
|
fo_poll :fo_poll_t (@_eopnotsupp);
|
|
fo_kqfilter:fo_kqfilter_t(@_eopnotsupp);
|
|
fo_stat :@blockpool_stat;
|
|
fo_close :@blockpool_close;
|
|
fo_chmod :fo_chmod_t (@_einval);
|
|
fo_chown :fo_chown_t (@_einval);
|
|
fo_flags :0;
|
|
);
|
|
|
|
function sys_blockpool_open(flags:Integer):Integer;
|
|
var
|
|
td:p_kthread;
|
|
bp:Pointer;
|
|
fp:p_file;
|
|
fd:Integer;
|
|
begin
|
|
td:=curkthread;
|
|
if (td=nil) then Exit(-1);
|
|
//0x100000(O_CLOEXEC) | 0x400000(ASLR_FD????)
|
|
if ((flags and $ffafffff)<>0) then Exit(EINVAL);
|
|
|
|
flags:=flags or FWRITE;
|
|
|
|
fd:=0;
|
|
Result:=falloc(@fp,@fd,flags);
|
|
if (Result<>0) then Exit();
|
|
|
|
bp:=nil; /////
|
|
|
|
finit(fp, flags, DTYPE_BLOCKPOOL, bp, @blockpool_ops);
|
|
|
|
fdrop(fp);
|
|
|
|
td^.td_retval[0]:=fd;
|
|
end;
|
|
|
|
end.
|
|
|