Emulator-Archive/fpPS4
1
0
Fork 0
mirror of https://github.com/red-prig/fpPS4.git synced 2024-10-07 03:33:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix enumeration of pseudo devices

Browse Source
This commit is contained in:
red-prig 2023-01-30 20:40:04 +03:00
parent 1ba371dafa
commit 6f230469b0
3 changed files with 257 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
kernel/ps4_kernel_file.pas
View File

@ -122,15 +122,7 @@ begin
Case Result of
PT_ROOT:
begin
if (rp='') then
begin
//root dir
Result:=_sys_root_dir_open(rp,flags,mode);
end else
begin
//root file
Exit(-ENOENT);
end;
Result:=_sys_root_open(rp,flags,mode);
end;
PT_FILE:
begin
@ -621,15 +613,7 @@ begin
Case Result of
PT_ROOT:
begin
if (rp='') then
begin
//root dir
Result:=_sys_root_dir_stat(rp,stat);
end else
begin
//root file
Exit(ENOENT);
end;
Result:=_sys_root_stat(rp,stat);
end;
PT_FILE:
begin

221
sys/sys_dev.pas
View File

@ -11,7 +11,8 @@ uses
RWLock,
sys_kernel,
sys_crt,
sys_fd;
sys_fd,
sys_dir;
procedure _sys_dev_init;
function _sys_dev_open(const path:RawByteString;flags,mode:Integer):Integer;
@ -27,6 +28,10 @@ type
function fstat (stat:PSceKernelStat):Integer; override;
end;
TDirCharDev=class(TDirFile)
function fstat(stat:PSceKernelStat):Integer; override;
end;
TDevRandom=class(TDevFile)
function read (data:Pointer;size:Int64):Int64; override;
function pread (data:Pointer;size,offset:Int64):Int64; override;
@ -61,10 +66,87 @@ begin
_sys_dev_open('stderr',O_RDWR,0); //2
end;
function _sys_dev_open(const path:RawByteString;flags,mode:Integer):Integer;
function _sys_dev_dir_open(const path:RawByteString;flags,mode:Integer):Integer;
var
f:TDirCharDev;
begin
Result:=0;
f:=TDirCharDev.Create;
f.path:=path;
SetLength(f.dirs,0);
f.add_dir('.');
f.add_dir('..');
f.add_dir('ajm' );
f.add_dir('bpf' );
f.add_dir('bpf0' );
f.add_dir('camera' );
f.add_dir('console' );
f.add_dir('ctty' );
f.add_dir('da0x6x1.crypt' );
f.add_dir('da0x6x2.crypt' );
f.add_dir('dbggc' );
f.add_dir('dce' );
f.add_dir('deci_stderr' );
f.add_dir('deci_stdin' );
f.add_dir('deci_stdout' );
f.add_dir('deci_tty2' );
f.add_dir('deci_tty3' );
f.add_dir('deci_tty4' );
f.add_dir('deci_tty5' );
f.add_dir('deci_tty6' );
f.add_dir('deci_tty7' );
f.add_dir('deci_ttya0' );
f.add_dir('deci_ttyb0' );
f.add_dir('deci_ttyc0' );
f.add_dir('dipsw' );
f.add_dir('dmem0' );
f.add_dir('dmem1' );
f.add_dir('fd' );
f.add_dir('gc' );
f.add_dir('hid' );
f.add_dir('icc_configuration');
f.add_dir('icc_device_power' );
f.add_dir('icc_indicator' );
f.add_dir('icc_nvs' );
f.add_dir('icc_power' );
f.add_dir('notification0' );
f.add_dir('notification1' );
f.add_dir('null' );
f.add_dir('random' );
f.add_dir('rng' );
f.add_dir('sce_zlib' );
f.add_dir('srtc' );
f.add_dir('ugen0.4' );
f.add_dir('urandom' );
f.add_dir('usb' );
f.add_dir('usbctl' );
f.add_dir('uvd' );
f.add_dir('vce' );
f.add_dir('zero' );
Result:=_sys_open_fd(f,flags);
if (Result<0) then
begin
f.Destroy;
end else
begin
f.Release;
end;
end;
function _sys_dev_char_open(const path:RawByteString;flags,mode:Integer):Integer;
var
f:TCustomFile;
begin
if (flags and O_DIRECTORY)<>0 then
begin
Exit(-ENOTDIR);
end;
Case path of
'stdin' :f:=TDevStd.Create(@Input,@StdOut);
@ -91,14 +173,117 @@ begin
end;
end;
function _sys_dev_open(const path:RawByteString;flags,mode:Integer):Integer;
begin
if (path='') then
begin
Result:=_sys_dev_dir_open(path,flags,mode);
end else
begin
Result:=_sys_dev_char_open(path,flags,mode);
end;
end;
//
function _sys_dev_dir_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
begin
stat^:=Default(SceKernelStat);
stat^.st_mode :=S_IFDIR;
stat^.st_size :=1;
stat^.st_nlink :=1;
stat^.st_atim.tv_sec :=1;
stat^.st_mtim.tv_sec :=1;
stat^.st_ctim.tv_sec :=1;
stat^.st_birthtim.tv_sec:=1;
stat^.st_blocks :=0;
stat^.st_blksize :=SizeOf(dirent);
Result:=0;
end;
function _sys_dev_char_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
begin
stat^:=Default(SceKernelStat);
stat^.st_mode :=S_IFCHR;
stat^.st_size :=1;
stat^.st_nlink :=1;
stat^.st_atim.tv_sec :=1;
stat^.st_mtim.tv_sec :=1;
stat^.st_ctim.tv_sec :=1;
stat^.st_birthtim.tv_sec:=1;
stat^.st_blocks :=0;
stat^.st_blksize :=512;
Result:=0;
end;
function _sys_dev_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
begin
Result:=0;
stat^:=Default(SceKernelStat);
stat^.st_mode :=S_IFCHR;
stat^.st_nlink:=1;
Case path of
'':Result:=_sys_dev_dir_stat(path,stat);
'ajm',
'bpf',
'bpf0',
'camera',
'console',
'ctty',
'da0x6x1.crypt',
'da0x6x2.crypt',
'dbggc',
'dce',
'deci_stderr',
'deci_stdin',
'deci_stdout',
'deci_tty2',
'deci_tty3',
'deci_tty4',
'deci_tty5',
'deci_tty6',
'deci_tty7',
'deci_ttya0',
'deci_ttyb0',
'deci_ttyc0',
'dipsw',
'dmem0',
'dmem1',
'fd',
'gc',
'hid',
'icc_configuration',
'icc_device_power',
'icc_indicator',
'icc_nvs',
'icc_power',
'notification0',
'notification1',
'null',
'random',
'rng',
'sce_zlib',
'srtc',
'ugen0.4',
'urandom',
'usb',
'usbctl',
'uvd',
'vce',
'zero':
begin
Result:=_sys_dev_char_stat(path,stat);
end
else
Result:=ENOENT;
end;
end;
//
@ -118,14 +303,24 @@ begin
Result:=EACCES;
end;
function TDevFile.fstat (stat:PSceKernelStat):Integer;
function TDevFile.fstat(stat:PSceKernelStat):Integer;
begin
Result:=0;
stat^:=Default(SceKernelStat);
stat^.st_dev :=fd;
stat^.st_rdev :=fd;
stat^.st_mode :=S_IFCHR;
stat^.st_nlink:=1;
Result:=_sys_dev_char_stat('',stat);
if (Result=0) then
begin
stat^.st_dev :=fd;
stat^.st_rdev:=fd;
end;
end;
function TDirCharDev.fstat(stat:PSceKernelStat):Integer;
begin
Result:=_sys_dev_dir_stat(path,stat);
if (Result=0) then
begin
stat^.st_dev :=fd;
stat^.st_rdev:=fd;
end;
end;
//

68
sys/sys_dir.pas
View File

@ -39,15 +39,6 @@ type
d_name :array[0..MAXNAMLEN] of AnsiChar; //name must be no longer than this
end;
function _sys_dir_open(const path:RawByteString;flags,mode:Integer):Integer;
function _sys_dir_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
function _sys_root_dir_open(const path:RawByteString;flags,mode:Integer):Integer;
function _sys_root_dir_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
implementation
type
a_dirent=array of dirent;
TDirFile=class(TCustomFile)
@ -69,11 +60,20 @@ type
function fstat (stat:PSceKernelStat):Integer; override;
function lseek (offset:Int64;whence:Integer):Int64; override;
function getdirentries(buf:Pointer;nbytes:Int64;basep:PInt64):Int64; override;
procedure add_dir(const name:RawByteString);
end;
function _sys_dir_open(const path:RawByteString;flags,mode:Integer):Integer;
function _sys_dir_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
function _sys_root_open(const path:RawByteString;flags,mode:Integer):Integer;
function _sys_root_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
implementation
type
TDirFileRoot=class(TDirFile)
function fstat(stat:PSceKernelStat):Integer; override;
procedure add_dir(const name:RawByteString);
end;
function get_d_type(dwFileAttributes:DWORD):BYTE;
@ -283,6 +283,19 @@ begin
end;
end;
function _sys_root_open(const path:RawByteString;flags,mode:Integer):Integer;
begin
if (path='') then
begin
//root dir
Result:=_sys_root_dir_open(path,flags,mode);
end else
begin
//root file
Result:=-ENOENT;
end;
end;
function _sys_root_dir_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
begin
stat^:=Default(SceKernelStat);
@ -302,6 +315,19 @@ begin
Result:=0;
end;
function _sys_root_stat(Const path:RawByteString;stat:PSceKernelStat):Integer;
begin
if (path='') then
begin
//root dir
Result:=_sys_root_dir_stat(path,stat);
end else
begin
//root file
Result:=ENOENT;
end;
end;
//
Constructor TDirFile.Create;
@ -452,17 +478,7 @@ begin
Result:=count*SizeOf(dirent);
end;
function TDirFileRoot.fstat(stat:PSceKernelStat):Integer;
begin
Result:=_sys_root_dir_stat(path,stat);
if (Result=0) then
begin
stat^.st_dev :=fd;
stat^.st_rdev:=fd;
end;
end;
procedure TDirFileRoot.add_dir(const name:RawByteString);
procedure TDirFile.add_dir(const name:RawByteString);
var
tmp:dirent;
i:Integer;
@ -477,6 +493,16 @@ begin
dirs[i]:=tmp;
end;
function TDirFileRoot.fstat(stat:PSceKernelStat):Integer;
begin
Result:=_sys_root_dir_stat(path,stat);
if (Result=0) then
begin
stat^.st_dev :=fd;
stat^.st_rdev:=fd;
end;
end;
//
end.