hedgewars/uPhysFSLayer.pas
author koda
Wed, 21 Nov 2012 15:03:33 +0100
changeset 8089 56bf04303311
parent 8080 a6fc5396b3d6
child 8099 a7f02b902b6f
child 8107 ee21b816394f
permissions -rw-r--r--
Bad unC0Rr
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     1
unit uPhysFSLayer;
8063
06efc1ea6a40 linking phsyfs on osx
koda
parents: 8062
diff changeset
     2
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     3
interface
8077
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
     4
uses SDLh, LuaPas;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     5
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
     6
{$IFDEF ANDROID}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
     7
    {$linklib physfs}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
     8
{$ELSE}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
     9
    {$IFDEF DARWIN}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    10
        {$LINKFRAMEWORK IOKit}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    11
    {$ENDIF}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    12
{$ENDIF}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    13
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    14
const
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    15
{$IFDEF WIN32}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    16
    PhysfsLibName = 'libphysfs';
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    17
{$ELSE}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    18
    PhysfsLibName = 'physfs';
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    19
{$ENDIF}
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    20
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    21
procedure initModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    22
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    23
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    24
type PFSFile = pointer;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    25
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    26
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    27
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    28
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    29
function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    30
function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    31
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    32
procedure pfsReadLn(f: PFSFile; var s: shortstring);
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    33
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    34
function pfsEOF(f: PFSFile): boolean;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    35
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    36
function pfsExists(fname: shortstring): boolean;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    37
8077
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
    38
function  physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhysfsLibName;
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
    39
procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhysfsLibName;
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
    40
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    41
implementation
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    42
uses uUtils, uVariables;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    43
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    44
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    45
function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    46
function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl ; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    47
function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhysfsLibName;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    48
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    49
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    50
function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    51
function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    52
function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    53
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    54
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    55
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    56
procedure hedgewarsMountPackages(); cdecl; external PhysfsLibName;
8052
845b5ae03841 Mount .hwt files found in Data folder
unc0rr
parents: 8046
diff changeset
    57
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    58
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    59
begin
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    60
    exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    61
end;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    62
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    63
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    64
begin
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    65
    exit(PHYSFSRWOPS_openWrite(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    66
end;
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    67
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    68
function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    69
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    70
    exit(PHYSFS_openRead(Str2PChar(fname)));
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    71
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    72
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    73
function pfsEOF(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    74
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    75
    exit(PHYSFS_eof(f))
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    76
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    77
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    78
function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    79
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    80
    exit(PHYSFS_close(f))
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    81
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    82
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    83
function pfsExists(fname: shortstring): boolean;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    84
begin
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    85
    exit(PHYSFS_exists(Str2PChar(fname)))
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    86
end;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    87
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    88
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    89
procedure pfsReadLn(f: PFSFile; var s: shortstring);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    90
var c: char;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    91
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    92
s[0]:= #0;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    93
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
    94
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    95
    if (c <> #13) and (s[0] < #255) then
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    96
        begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    97
        inc(s[0]);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    98
        s[byte(s[0])]:= c
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    99
        end
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
   100
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
   101
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   102
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   103
var r: Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   104
begin
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
   105
    r:= PHYSFS_readBytes(f, buf, size);
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   106
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   107
    if r <= 0 then
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   108
        pfsBlockRead:= 0
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   109
    else
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   110
        pfsBlockRead:= r
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   111
end;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   112
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   113
procedure initModule;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   114
var i: LongInt;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   115
begin
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   116
    i:= PHYSFS_init(Str2PChar(ParamStr(0)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   117
    AddFileLog('[PhysFS] init: ' + inttostr(i));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   118
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   119
    i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true);
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   120
    AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   121
    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
8046
4d3415927d2c Use (undocumented) Mix_LoadMUS_RW to load music
unc0rr
parents: 8034
diff changeset
   122
    AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
8052
845b5ae03841 Mount .hwt files found in Data folder
unc0rr
parents: 8046
diff changeset
   123
845b5ae03841 Mount .hwt files found in Data folder
unc0rr
parents: 8046
diff changeset
   124
    hedgewarsMountPackages;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   125
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   126
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   127
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   128
begin
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   129
    PHYSFS_deinit;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   130
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   131
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   132
end.