--- a/hedgewars/uPhysFSLayer.pas Thu Apr 02 21:09:56 2015 +0300
+++ b/hedgewars/uPhysFSLayer.pas Wed Apr 08 23:39:18 2015 +0300
@@ -23,6 +23,7 @@
function pfsOpenRead(fname: shortstring): PFSFile;
function pfsClose(f: PFSFile): boolean;
+function pfsSeek(f: PFSFile; pos: QWord): boolean;
procedure pfsReadLn(f: PFSFile; var s: shortstring);
procedure pfsReadLnA(f: PFSFile; var s: ansistring);
@@ -50,6 +51,7 @@
function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName;
function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName;
+function PHYSFS_seek(f: PFSFile; pos: QWord): LongBool; cdecl; external PhysfsLibName;
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName;
function PHYSFS_getLastError(): PChar; cdecl; external PhysfsLibName;
@@ -87,6 +89,11 @@
exit(PHYSFS_close(f))
end;
+function pfsSeek(f: PFSFile; pos: QWord): boolean;
+begin
+ exit(PHYSFS_seek(f, 0));
+end;
+
function pfsExists(fname: shortstring): boolean;
begin
exit(PHYSFS_exists(Str2PChar(fname)))