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.