1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-11 20:05:03 -05:00
Simba/Units/MMLAddon/RTInc/settings.inc
2010-09-11 01:10:49 +02:00

40 lines
1.5 KiB
PHP

procedure RUTIS_ps_SetSettingValue(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
Pboolean(Result^.Data)^ := ps_SetSettingValue(Pstring(Params^[0].Data)^, Pstring(Params^[1].Data)^);
end;
procedure RUTIS_ps_KeyIsSetting(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
PBoolean(Result^.Data)^ := ps_KeyIsSetting(PString(Params^[0].Data)^);
end;
procedure RUTIS_ps_KeyIsDirectory(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
PBoolean(Result^.Data)^ := ps_KeyIsDirectory(PString(Params^[0].Data)^);
end;
procedure RUTIS_ps_GetSettingValue(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
PString(Result^.Data)^ := ps_GetSettingValue(PString(Params^[0].Data)^);
end;
procedure RUTIS_ps_GetSettingValueDef(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
PString(Result^.Data)^ := ps_GetSettingValueDef(PString(Params^[0].Data)^, PString(Params^[1].Data)^);
end;
procedure RUTIS_ps_ListSettings(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
Pboolean(Result^.Data)^ := ps_ListSettings(PString(Params^[0].Data)^, PStringArray(Params^[1].Data)^);
end;
procedure RUTIS_ps_DeleteSetting(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
PBoolean(Result^.Data)^ := ps_DeleteSetting(PString(Params^[0].Data)^);
end;
procedure RUTIS_ps_DeleteSubSettings(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
PBoolean(Result^.Data)^ := ps_DeleteSubSettings(PString(Params^[0].Data)^);
end;