ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
FPPS4/sys/test/ps4_libscesystemservice.pas

456 lines
16 KiB
Plaintext
Raw Blame History

unit ps4_libSceSystemService;
{$mode ObjFPC}{$H+}
{$CALLING SysV_ABI_CDecl}
{$WARN 4110 off}
interface
uses
windows,
subr_dynlib;
const
SCE_SYSTEM_SERVICE_PARAM_ID_LANG =1;
SCE_SYSTEM_SERVICE_PARAM_ID_DATE_FORMAT =2;
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_FORMAT =3;
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_ZONE =4;
SCE_SYSTEM_SERVICE_PARAM_ID_SUMMERTIME =5;
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME =6;
SCE_SYSTEM_SERVICE_PARAM_ID_GAME_PARENTAL_LEVEL =7;
SCE_SYSTEM_SERVICE_PARAM_ID_ENTER_BUTTON_ASSIGN =1000;
SCE_SYSTEM_SERVICE_ERROR_INTERNAL =-2136932351;
SCE_SYSTEM_SERVICE_ERROR_UNAVAILABLE =-2136932350;
SCE_SYSTEM_SERVICE_ERROR_PARAMETER =-2136932349;
SCE_SYSTEM_SERVICE_ERROR_NO_EVENT =-2136932348;
SCE_SYSTEM_SERVICE_ERROR_REJECTED =-2136932347;
SCE_SYSTEM_SERVICE_ERROR_NEED_DISPLAY_SAFE_AREA_SETTINGS =-2136932346;
SCE_SYSTEM_SERVICE_ERROR_INVALID_URI_LEN =-2136932345;
SCE_SYSTEM_SERVICE_ERROR_INVALID_URI_SCHEME =-2136932344;
SCE_SYSTEM_SERVICE_ERROR_NO_APP_INFO =-2136932343;
SCE_SYSTEM_SERVICE_ERROR_NOT_FLAG_IN_PARAM_SFO =-2136932342;
// Language
SCE_SYSTEM_PARAM_LANG_JAPANESE =0; //LANG_JAPANESE
SCE_SYSTEM_PARAM_LANG_ENGLISH_US =1; //else
SCE_SYSTEM_PARAM_LANG_FRENCH =2; //LANG_FRENCH else
SCE_SYSTEM_PARAM_LANG_SPANISH =3; //LANG_SPANISH SUBLANG_SPANISH SUBLANG_SPANISH_MEXICAN SUBLANG_SPANISH_MODERN
SCE_SYSTEM_PARAM_LANG_GERMAN =4; //LANG_GERMAN
SCE_SYSTEM_PARAM_LANG_ITALIAN =5; //LANG_ITALIAN
SCE_SYSTEM_PARAM_LANG_DUTCH =6; //LANG_DUTCH
SCE_SYSTEM_PARAM_LANG_PORTUGUESE_PT =7; //LANG_PORTUGUESE SUBLANG_PORTUGUESE
SCE_SYSTEM_PARAM_LANG_RUSSIAN =8; //LANG_RUSSIAN
SCE_SYSTEM_PARAM_LANG_KOREAN =9; //LANG_KOREAN
SCE_SYSTEM_PARAM_LANG_CHINESE_T =10; //LANG_CHINESE else
SCE_SYSTEM_PARAM_LANG_CHINESE_S =11; //LANG_CHINESE SUBLANG_CHINESE_SIMPLIFIED
SCE_SYSTEM_PARAM_LANG_FINNISH =12; //LANG_FINNISH
SCE_SYSTEM_PARAM_LANG_SWEDISH =13; //LANG_SWEDISH
SCE_SYSTEM_PARAM_LANG_DANISH =14; //LANG_DANISH
SCE_SYSTEM_PARAM_LANG_NORWEGIAN =15; //LANG_NORWEGIAN
SCE_SYSTEM_PARAM_LANG_POLISH =16; //LANG_POLISH
SCE_SYSTEM_PARAM_LANG_PORTUGUESE_BR =17; //LANG_PORTUGUESE SUBLANG_PORTUGUESE_BRAZILIAN
SCE_SYSTEM_PARAM_LANG_ENGLISH_GB =18; //LANG_ENGLISH SUBLANG_ENGLISH_UK
SCE_SYSTEM_PARAM_LANG_TURKISH =19; //LANG_TURKISH
SCE_SYSTEM_PARAM_LANG_SPANISH_LA =20; //LANG_SPANISH else
SCE_SYSTEM_PARAM_LANG_ARABIC =21; //LANG_ARABIC
SCE_SYSTEM_PARAM_LANG_FRENCH_CA =22; //LANG_FRENCH SUBLANG_FRENCH_CANADIAN
SCE_SYSTEM_PARAM_LANG_CZECH =23; //LANG_CZECH
SCE_SYSTEM_PARAM_LANG_HUNGARIAN =24; //LANG_HUNGARIAN
SCE_SYSTEM_PARAM_LANG_GREEK =25; //LANG_GREEK
SCE_SYSTEM_PARAM_LANG_ROMANIAN =26; //LANG_ROMANIAN
SCE_SYSTEM_PARAM_LANG_THAI =27; //LANG_THAI
SCE_SYSTEM_PARAM_LANG_VIETNAMESE =28; //LANG_VIETNAMESE
SCE_SYSTEM_PARAM_LANG_INDONESIAN =29; //LANG_INDONESIAN
// Date
SCE_SYSTEM_PARAM_DATE_FORMAT_YYYYMMDD=0;
SCE_SYSTEM_PARAM_DATE_FORMAT_DDMMYYYY=1;
SCE_SYSTEM_PARAM_DATE_FORMAT_MMDDYYYY=2;
// Time
SCE_SYSTEM_PARAM_TIME_FORMAT_12HOUR=0;
SCE_SYSTEM_PARAM_TIME_FORMAT_24HOUR=1;
//
SCE_SYSTEM_SERVICE_MAX_SYSTEM_NAME_LENGTH=65;
//
SCE_SYSTEM_PARAM_GAME_PARENTAL_OFF =0;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL01=1;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL02=2;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL03=3;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL04=4;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL05=5;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL06=6;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL07=7;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL08=8;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL09=9;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL10=10;
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL11=11;
//
SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CIRCLE=0;
SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CROSS =1;
//SceSystemServiceEventType
SCE_SYSTEM_SERVICE_EVENT_INVALID = -1;
SCE_SYSTEM_SERVICE_EVENT_ON_RESUME = $10000000;
SCE_SYSTEM_SERVICE_EVENT_GAME_LIVE_STREAMING_STATUS_UPDATE = $10000001;
SCE_SYSTEM_SERVICE_EVENT_SESSION_INVITATION = $10000002;
SCE_SYSTEM_SERVICE_EVENT_ENTITLEMENT_UPDATE = $10000003;
SCE_SYSTEM_SERVICE_EVENT_GAME_CUSTOM_DATA = $10000004; // deprecated
SCE_SYSTEM_SERVICE_EVENT_DISPLAY_SAFE_AREA_UPDATE = $10000005; // deprecated
SCE_SYSTEM_SERVICE_EVENT_URL_OPEN = $10000006;
SCE_SYSTEM_SERVICE_EVENT_LAUNCH_APP = $10000007;
SCE_SYSTEM_SERVICE_EVENT_APP_LAUNCH_LINK = $10000008;
SCE_SYSTEM_SERVICE_EVENT_ADDCONTENT_INSTALL = $10000009;
SCE_SYSTEM_SERVICE_EVENT_RESET_VR_POSITION = $1000000a;
SCE_SYSTEM_SERVICE_EVENT_JOIN_EVENT = $1000000b;
SCE_SYSTEM_SERVICE_EVENT_PLAYGO_LOCUS_UPDATE = $1000000c;
SCE_SYSTEM_SERVICE_EVENT_PLAY_TOGETHER_HOST = $1000000d;
SCE_SYSTEM_SERVICE_EVENT_SERVICE_ENTITLEMENT_UPDATE = $1000000e;
SCE_SYSTEM_SERVICE_EVENT_EYE_TO_EYE_DISTANCE_UPDATE = $1000000f;
SCE_SYSTEM_SERVICE_EVENT_JOIN_MATCH_EVENT = $10000010;
SCE_SYSTEM_SERVICE_EVENT_PLAY_TOGETHER_HOST_A = $10000011; // deprecated
SCE_SYSTEM_SERVICE_EVENT_WEBBROWSER_CLOSED = $10000012;
SCE_SYSTEM_SERVICE_EVENT_CONTROLLER_SETTINGS_CLOSED = $10000013;
SCE_SYSTEM_SERVICE_EVENT_JOIN_TEAM_ON_TEAM_MATCH_EVENT = $10000014;
SCE_SYSTEM_SERVICE_EVENT_JOIN_FFA_MATCH_EVENT = $10000015;
SCE_SYSTEM_SERVICE_EVENT_JOIN_FFA_TEAM_MATCH_EVENT = $10000016;
SCE_SYSTEM_SERVICE_EVENT_GAME_INTENT = $10000017;
SCE_SYSTEM_SERVICE_EVENT_OPEN_SHARE_MENU = $30000000;
SCE_SYSTEM_SERVICE_EVENT_UNIFIED_ENTITLEMENT_UPDATE = $10000018;
function ps4_sceSystemServiceParamGetInt(paramId:Integer;value:Pinteger):Integer;
implementation
uses
errno,
time,
syscalls,
trap;
type
pSceSystemServiceDisplaySafeAreaInfo=^SceSystemServiceDisplaySafeAreaInfo;
SceSystemServiceDisplaySafeAreaInfo=packed record
ratio:Single; //Ratio of the safe area (0.9 or more, 1.0 or less)
reserved:array[0..127] of Byte;
end;
PSceSystemServiceStatus=^SceSystemServiceStatus;
SceSystemServiceStatus=packed record
eventNum:Integer;
isSystemUiOverlaid,
isInBackgroundExecution,
isCpuMode7CpuNormal,
isGameLiveStreamingOnAir,
isOutOfVrPlayArea:Boolean;
reserved:array[0..124] of Byte;
end;
pSceSystemServiceHdrToneMapLuminance=^SceSystemServiceHdrToneMapLuminance;
SceSystemServiceHdrToneMapLuminance=packed record
maxFullFrameToneMapLuminance:Single;
maxToneMapLuminance :Single;
minToneMapLuminance :Single;
end;
pSceSystemServiceEventType=^SceSystemServiceEventType;
SceSystemServiceEventType=packed record
eventType:Integer; //SceSystemServiceEventType
data:packed record
Case Byte of
0:(param:array[0..8191] of Char);
1:(urlOpen:packed record
source:array[0..1023] of Char;
url :array[0..4095] of Char;
end);
2:(launchApp:packed record
size:DWORD;
arg :array[0..8187] of Byte;
end);
3:(appLaunchLink:packed record
size:DWORD;
arg :array[0..2019] of Byte;
end);
4:(joinEvent:packed record
userId :Integer;
eventId :array[0..36] of Char;
bootArgument:array[0..7168] of Char;
end);
5:(serviceEntitlementUpdate:packed record
userId :Integer;
npServiceLabel:DWORD;
reserved :array[0..8183] of Byte;
end);
6:(unifiedEntitlementUpdate:packed record
userId :Integer;
npServiceLabel:DWORD;
reserved :array[0..8183] of Byte;
end);
7:(reserved:array[0..8191] of Byte);
end;
end;
function ps4_sceSystemServiceParamGetInt(paramId:Integer;value:Pinteger):Integer;
var
info:DWORD;
Format:array[0..0] of AnsiChar;
z:timezone;
begin
Result:=0;
if (value=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
value^:=0;
Case paramId of
SCE_SYSTEM_SERVICE_PARAM_ID_LANG:
begin
sig_lock;
info:=GetThreadLocale;
sig_unlock;
info:=info and $FFFF;
Case (info and $3FF) of //LANG_*
LANG_JAPANESE :value^:=SCE_SYSTEM_PARAM_LANG_JAPANESE;
LANG_ENGLISH :
Case (info shr 10) of //SUBLANG_*
SUBLANG_ENGLISH_UK:value^:=SCE_SYSTEM_PARAM_LANG_ENGLISH_GB;
else value^:=SCE_SYSTEM_PARAM_LANG_ENGLISH_US;
end;
LANG_FRENCH :
Case (info shr 10) of //SUBLANG_*
SUBLANG_FRENCH_CANADIAN:value^:=SCE_SYSTEM_PARAM_LANG_FRENCH_CA;
else value^:=SCE_SYSTEM_PARAM_LANG_FRENCH;
end;
LANG_SPANISH :
Case (info shr 10) of //SUBLANG_*
SUBLANG_SPANISH,
SUBLANG_SPANISH_MEXICAN,
SUBLANG_SPANISH_MODERN:value^:=SCE_SYSTEM_PARAM_LANG_SPANISH;
else
value^:=SCE_SYSTEM_PARAM_LANG_SPANISH_LA;
end;
LANG_GERMAN :value^:=SCE_SYSTEM_PARAM_LANG_GERMAN;
LANG_ITALIAN :value^:=SCE_SYSTEM_PARAM_LANG_ITALIAN;
LANG_DUTCH :value^:=SCE_SYSTEM_PARAM_LANG_DUTCH;
LANG_PORTUGUESE:
Case (info shr 10) of //SUBLANG_*
SUBLANG_PORTUGUESE:value^:=SCE_SYSTEM_PARAM_LANG_PORTUGUESE_PT;
else value^:=SCE_SYSTEM_PARAM_LANG_PORTUGUESE_BR;
end;
LANG_RUSSIAN :value^:=SCE_SYSTEM_PARAM_LANG_RUSSIAN;
LANG_KOREAN :value^:=SCE_SYSTEM_PARAM_LANG_KOREAN;
LANG_CHINESE :
Case (info shr 10) of //SUBLANG_*
SUBLANG_CHINESE_SIMPLIFIED:value^:=SCE_SYSTEM_PARAM_LANG_CHINESE_S;
else value^:=SCE_SYSTEM_PARAM_LANG_CHINESE_T;
end;
LANG_FINNISH :value^:=SCE_SYSTEM_PARAM_LANG_FINNISH;
LANG_SWEDISH :value^:=SCE_SYSTEM_PARAM_LANG_SWEDISH;
LANG_DANISH :value^:=SCE_SYSTEM_PARAM_LANG_DANISH;
LANG_NORWEGIAN :value^:=SCE_SYSTEM_PARAM_LANG_NORWEGIAN;
LANG_POLISH :value^:=SCE_SYSTEM_PARAM_LANG_POLISH;
LANG_TURKISH :value^:=SCE_SYSTEM_PARAM_LANG_TURKISH;
LANG_ARABIC :value^:=SCE_SYSTEM_PARAM_LANG_ARABIC;
LANG_CZECH :value^:=SCE_SYSTEM_PARAM_LANG_CZECH;
LANG_HUNGARIAN :value^:=SCE_SYSTEM_PARAM_LANG_HUNGARIAN;
LANG_GREEK :value^:=SCE_SYSTEM_PARAM_LANG_GREEK;
LANG_ROMANIAN :value^:=SCE_SYSTEM_PARAM_LANG_ROMANIAN;
LANG_THAI :value^:=SCE_SYSTEM_PARAM_LANG_THAI;
LANG_VIETNAMESE:value^:=SCE_SYSTEM_PARAM_LANG_VIETNAMESE;
LANG_INDONESIAN:value^:=SCE_SYSTEM_PARAM_LANG_INDONESIAN;
else
value^:=SCE_SYSTEM_PARAM_LANG_ENGLISH_US;
end;
end;
SCE_SYSTEM_SERVICE_PARAM_ID_DATE_FORMAT:
begin
Format[0]:=#0;
sig_lock;
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_ILDATE,@Format,1);
sig_unlock;
Case Format[0] of
'0':value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_MMDDYYYY;
'1':value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_DDMMYYYY;
'2':value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_YYYYMMDD;
end;
end;
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_FORMAT:
begin
Format[0]:=#0;
sig_lock;
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_ILDATE,@Format,1);
sig_unlock;
Case Format[0] of
'0':value^:=SCE_SYSTEM_PARAM_TIME_FORMAT_12HOUR;
'1':value^:=SCE_SYSTEM_PARAM_TIME_FORMAT_24HOUR;
end;
end;
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_ZONE:
begin
gettimeofday(nil,@z);
value^:=z.tz_minuteswest;
end;
SCE_SYSTEM_SERVICE_PARAM_ID_SUMMERTIME:
begin
gettimeofday(nil,@z);
value^:=z.tz_dsttime;
end;
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME:;
SCE_SYSTEM_SERVICE_PARAM_ID_GAME_PARENTAL_LEVEL:value^:=SCE_SYSTEM_PARAM_GAME_PARENTAL_OFF;
SCE_SYSTEM_SERVICE_PARAM_ID_ENTER_BUTTON_ASSIGN:value^:=SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CROSS;
else
Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
end;
end;
const
CUH='CUH-0000'#0;
function ps4_sceSystemServiceParamGetString(paramId:Integer;buf:Pchar;bufSize:size_t):Integer;
begin
if (buf=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
Case paramId of
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME:
begin
if (bufSize<Length(CUH)) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
Move(PChar(CUH)^,buf^,Length(CUH));
end;
else
Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
end;
end;
function ps4_sceSystemServiceHideSplashScreen:Integer;
begin
Result:=0;
end;
function ps4_sceSystemServiceDisableMusicPlayer:Integer;
begin
Result:=0;
end;
function ps4_sceSystemServiceReenableMusicPlayer:Integer;
begin
Result:=0;
end;
function ps4_sceSystemServiceEnableSuspendConfirmationDialog:Integer;
begin
Result:=0;
end;
function ps4_sceSystemServiceDisableSuspendConfirmationDialog:Integer;
begin
Result:=0;
end;
function ps4_sceSystemServiceGetDisplaySafeAreaInfo(info:pSceSystemServiceDisplaySafeAreaInfo):Integer;
begin
Result:=SCE_KERNEL_ERROR_UNKNOWN;
if (info=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
info^:=Default(SceSystemServiceDisplaySafeAreaInfo);
info^.ratio:=1.0;
Result:=0;
end;
function ps4_sceSystemServiceGetHdrToneMapLuminance(hdrToneMapLuminance:pSceSystemServiceHdrToneMapLuminance):Integer;
begin
if (hdrToneMapLuminance=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
hdrToneMapLuminance^.maxFullFrameToneMapLuminance:=1000;
hdrToneMapLuminance^.maxToneMapLuminance :=1000;
hdrToneMapLuminance^.minToneMapLuminance :=0.01;
Result:=0;
end;
//
function ps4_sceSystemServiceGetStatus(status:PSceSystemServiceStatus):Integer;
begin
if (status=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
status^.eventNum:=0;
status^.isSystemUiOverlaid :=false;
status^.isInBackgroundExecution :=false;
status^.isCpuMode7CpuNormal :=true;
status^.isGameLiveStreamingOnAir:=false;
status^.isOutOfVrPlayArea :=false;
Result:=0;
end;
function ps4_sceSystemServiceReceiveEvent(event:pSceSystemServiceEventType):Integer;
begin
if (event=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
Result:=SCE_SYSTEM_SERVICE_ERROR_NO_EVENT;
end;
//
function ps4_sceSystemServiceEnableSuspendNotification:Integer;
begin
Result:=0;
end;
function ps4_sceSystemServiceDisableSuspendNotification:Integer;
begin
Result:=0;
end;
//
function Load_libSceSystemService(name:pchar):p_lib_info;
var
lib:TLIBRARY;
begin
Result:=obj_new_int('libSceSystemService');
lib:=Result^.add_lib('libSceSystemService');
lib.set_proc($7D9A38F2E9FB2CAE,@ps4_sceSystemServiceParamGetInt);
lib.set_proc($4AC0BF9BF4BD2530,@ps4_sceSystemServiceParamGetString);
lib.set_proc($568E55F0A0300A69,@ps4_sceSystemServiceHideSplashScreen);
lib.set_proc($C75501F5BC0348EC,@ps4_sceSystemServiceDisableMusicPlayer);
lib.set_proc($F643C2CFB3ABFB56,@ps4_sceSystemServiceReenableMusicPlayer);
lib.set_proc($467DF63B93C3966A,@ps4_sceSystemServiceEnableSuspendConfirmationDialog);
lib.set_proc($3D0F928D7020DC43,@ps4_sceSystemServiceDisableSuspendConfirmationDialog);
lib.set_proc($D67DFBAB506F7396,@ps4_sceSystemServiceGetDisplaySafeAreaInfo);
lib.set_proc($98FA4FC6FE4266DE,@ps4_sceSystemServiceGetHdrToneMapLuminance);
lib.set_proc($ACFA3AB55F03F5B3,@ps4_sceSystemServiceGetStatus);
lib.set_proc($EB9E8B3104AB83A5,@ps4_sceSystemServiceReceiveEvent);
lib:=Result^.add_lib('libSceSystemServiceSuspend');
lib.set_proc($6B92A38EAE8781C5,@ps4_sceSystemServiceEnableSuspendNotification);
lib.set_proc($322D2AC026FEAEFA,@ps4_sceSystemServiceDisableSuspendNotification);
end;
var
stub:t_int_file;
initialization
reg_int_file(stub,'libSceSystemService.prx',@Load_libSceSystemService);
end.
Reference in New Issue View Git Blame Copy Permalink