Skip to content

Commit

Permalink
Merge pull request #30 from Shoozza/steamwrapper_cleanup
Browse files Browse the repository at this point in the history
Steamwrapper cleanup (unnecessary blank lines + copyright + steamworks sdk verison info)
  • Loading branch information
furai committed Jul 13, 2020
2 parents 51cc9b6 + da82420 commit 078795a
Show file tree
Hide file tree
Showing 2 changed files with 22 additions and 11 deletions.
23 changes: 12 additions & 11 deletions shared/libs/SteamWrapper/Steam.pas
@@ -1,7 +1,17 @@
unit Steam;
{*******************************************************}
{ }
{ Steam Unit for SOLDAT }
{ }
{ Copyright (c) 2020 Soldat Team }
{ }
{ For use with SteamWorks SDK 1.48a }
{ }
{*******************************************************}

unit Steam;

interface

uses
cmem, sysutils, ctypes, SteamTypes, GameNetworkingSockets;

Expand Down Expand Up @@ -51,7 +61,6 @@ procedure SteamAPI_ManualDispatch_FreeLastCallback(hSteamPipe: HSteamPipe); cdec
function SteamAPI_ManualDispatch_GetAPICallResult(hSteamPipe: HSteamPipe; hSteamAPICall: SteamAPICall_t; pCallback: Pointer; cubCallback: Integer; iCallbackExpected: Integer; pbFailed: PBoolean): Boolean; cdecl; external STEAMLIB;



function SteamInternal_CreateInterface(ver: PChar): Pointer; cdecl; external STEAMLIB;
//function SteamAPI_ISteamClient_ConnectToGlobalUser(instancePtr: Pointer; hSteamPipe: HSteamPipe): longint; cdecl; external STEAMLIB;
//function SteamAPI_ISteamClient_GetISteamGameServer(instancePtr: Pointer; hSteamUser: HSteamUser; hSteamPipe: HSteamPipe; pchVersion: PChar): ISteamFriends; cdecl; external STEAMLIB;
Expand Down Expand Up @@ -293,24 +302,20 @@ function SteamAPI_ISteamMatchmaking_SetLobbyOwner(SteamInterface: ISteamMatchmak
function SteamAPI_ISteamMatchmaking_SetLinkedLobby(SteamInterface: ISteamMatchmaking; steamIDLobby: TSteamID; steamIDLobbyDependent: TSteamID): Boolean; cdecl; external STEAMLIB;



procedure SteamAPI_ISteamMatchmakingServerListResponse_ServerResponded(SteamInterface: ISteamMatchmakingServerListResponse; hRequest: HServerListRequest; iServer: Longint); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingServerListResponse_ServerFailedToRespond(SteamInterface: ISteamMatchmakingServerListResponse; hRequest: HServerListRequest; iServer: Longint); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingServerListResponse_RefreshComplete(SteamInterface: ISteamMatchmakingServerListResponse; hRequest: HServerListRequest; response: EMatchMakingServerResponse); cdecl; external STEAMLIB;



procedure SteamAPI_ISteamMatchmakingPingResponse_ServerResponded(SteamInterface: ISteamMatchmakingPingResponse; server: Pgameserveritem_t); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingPingResponse_ServerFailedToRespond(SteamInterface: ISteamMatchmakingPingResponse); cdecl; external STEAMLIB;



procedure SteamAPI_ISteamMatchmakingPlayersResponse_AddPlayerToList(SteamInterface: ISteamMatchmakingPlayersResponse; pchName: PChar; nScore: Longint; flTimePlayed: Single); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingPlayersResponse_PlayersFailedToRespond(SteamInterface: ISteamMatchmakingPlayersResponse); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingPlayersResponse_PlayersRefreshComplete(SteamInterface: ISteamMatchmakingPlayersResponse); cdecl; external STEAMLIB;



procedure SteamAPI_ISteamMatchmakingRulesResponse_RulesResponded(SteamInterface: ISteamMatchmakingRulesResponse; pchRule: PChar; pchValue: PChar); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingRulesResponse_RulesFailedToRespond(SteamInterface: ISteamMatchmakingRulesResponse); cdecl; external STEAMLIB;
procedure SteamAPI_ISteamMatchmakingRulesResponse_RulesRefreshComplete(SteamInterface: ISteamMatchmakingRulesResponse); cdecl; external STEAMLIB;
Expand Down Expand Up @@ -1021,12 +1026,10 @@ function SteamAPI_ISteamNetworkingSockets_GetCertificateRequest(SteamInterface:
function SteamAPI_ISteamNetworkingSockets_SetCertificate(SteamInterface: ISteamNetworkingSockets; pCertificate: Pointer; cbCertificate: Longint; errMsg: PSteamNetworkingErrMsg): Boolean; cdecl; external STEAMLIB;



function SteamAPI_ISteamNetworkingConnectionCustomSignaling_SendSignal(SteamInterface: ISteamNetworkingConnectionCustomSignaling; hConn: HSteamNetConnection; info: PSteamNetConnectionInfo_t; pMsg: Pointer; cbMsg: Longint): Boolean; cdecl; external STEAMLIB;
procedure SteamAPI_ISteamNetworkingConnectionCustomSignaling_Release(SteamInterface: ISteamNetworkingConnectionCustomSignaling); cdecl; external STEAMLIB;



function SteamAPI_ISteamNetworkingCustomSignalingRecvContext_OnConnectRequest(SteamInterface: ISteamNetworkingCustomSignalingRecvContext; hConn: HSteamNetConnection; identityPeer: PSteamNetworkingIdentity): ISteamNetworkingConnectionCustomSignaling; cdecl; external STEAMLIB;
procedure SteamAPI_ISteamNetworkingCustomSignalingRecvContext_SendRejectionSignal(SteamInterface: ISteamNetworkingCustomSignalingRecvContext; identityPeer: PSteamNetworkingIdentity; pMsg: Pointer; cbMsg: Longint); cdecl; external STEAMLIB;

Expand Down Expand Up @@ -1067,8 +1070,6 @@ procedure SteamAPI_ISteamNetworkingUtils_SteamNetworkingIdentity_ToString(SteamI
function SteamAPI_ISteamNetworkingUtils_SteamNetworkingIdentity_ParseString(SteamInterface: ISteamNetworkingUtils; pIdentity: pSteamNetworkingIdentity; pszStr: PChar): Boolean; cdecl; external STEAMLIB;




function SteamAPI_SteamGameServer_v013(): ISteamGameServer; cdecl; external STEAMLIB;

procedure SteamAPI_ISteamGameServer_SetProduct(SteamInterface: ISteamGameServer; pszProduct: PChar); cdecl; external STEAMLIB;
Expand Down Expand Up @@ -2248,4 +2249,4 @@ function TSteamUGC.GetQueryUGCChildren(handle: UGCQueryHandle_t; index_: uint32;
Result := SteamAPI_ISteamUGC_GetQueryUGCChildren(SteamUGCInterface, handle, index_, pvecPublishedFileID, cMaxEntries);
end;

end.
end.
10 changes: 10 additions & 0 deletions shared/libs/SteamWrapper/SteamTypes.pas
@@ -1,3 +1,13 @@
{*******************************************************}
{ }
{ SteamTypes Unit for SOLDAT }
{ }
{ Copyright (c) 2020 Soldat Team }
{ }
{ For use with SteamWorks SDK 1.48a }
{ }
{*******************************************************}

{$IFDEF UNIX}
{$PACKRECORDS 4}
{$PACKENUM 4}
Expand Down

0 comments on commit 078795a

Please sign in to comment.