hedgewars/uPhysFSLayer.pas
author unc0rr
Tue, 18 Dec 2012 20:48:37 +0400
branchflibqtfrontend
changeset 8306 50fe80adbfcb
parent 8283 af97cdbb7713
child 8310 a98c349bc06b
permissions -rw-r--r--
Use physfs here too
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);
8107
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
    33
procedure pfsReadLnA(f: PFSFile; var s: ansistring);
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    34
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    35
function pfsEOF(f: PFSFile): boolean;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    36
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    37
function pfsExists(fname: shortstring): boolean;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    38
8077
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
    39
function  physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhysfsLibName;
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
    40
procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhysfsLibName;
2ea5cde93abc Fix build
unc0rr
parents: 8073
diff changeset
    41
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    42
implementation
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    43
uses uUtils, uVariables;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    44
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    45
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    46
function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    47
function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl ; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    48
function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhysfsLibName;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    49
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    50
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    51
function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    52
function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    53
function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    54
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    55
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    56
8073
5a289ef40fdb physfs compilation on windows
koda
parents: 8067
diff changeset
    57
procedure hedgewarsMountPackages(); cdecl; external PhysfsLibName;
8052
845b5ae03841 Mount .hwt files found in Data folder
unc0rr
parents: 8046
diff changeset
    58
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    59
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    60
begin
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    61
    exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    62
end;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    63
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    64
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    65
begin
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    66
    exit(PHYSFSRWOPS_openWrite(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    67
end;
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    68
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    69
function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    70
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    71
    exit(PHYSFS_openRead(Str2PChar(fname)));
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    72
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    73
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    74
function pfsEOF(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    75
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    76
    exit(PHYSFS_eof(f))
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    77
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    78
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    79
function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    80
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    81
    exit(PHYSFS_close(f))
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    82
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    83
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    84
function pfsExists(fname: shortstring): boolean;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    85
begin
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    86
    exit(PHYSFS_exists(Str2PChar(fname)))
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    87
end;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    88
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    89
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    90
procedure pfsReadLn(f: PFSFile; var s: shortstring);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    91
var c: char;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    92
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    93
s[0]:= #0;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    94
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
    95
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    96
    if (c <> #13) and (s[0] < #255) then
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    97
        begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    98
        inc(s[0]);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    99
        s[byte(s[0])]:= c
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
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
   102
8107
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   103
procedure pfsReadLnA(f: PFSFile; var s: ansistring);
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   104
var c: char;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   105
    b: shortstring;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   106
begin
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   107
s:= '';
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   108
b[0]:= #0;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   109
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   110
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   111
    if (c <> #13) then
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   112
        begin
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   113
        inc(b[0]);
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   114
        b[byte(b[0])]:= c;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   115
        if b[0] = #255 then
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   116
            begin
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   117
            s:= s + b;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   118
            b[0]:= #0
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   119
            end
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   120
        end;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   121
        
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   122
s:= s + b
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   123
end;
ee21b816394f Bring ansistrings back
unc0rr
parents: 8080
diff changeset
   124
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   125
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   126
var r: Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   127
begin
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
   128
    r:= PHYSFS_readBytes(f, buf, size);
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   129
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   130
    if r <= 0 then
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   131
        pfsBlockRead:= 0
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   132
    else
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   133
        pfsBlockRead:= r
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   134
end;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   135
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   136
procedure initModule;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   137
var i: LongInt;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   138
begin
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   139
    i:= PHYSFS_init(Str2PChar(ParamStr(0)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   140
    AddFileLog('[PhysFS] init: ' + inttostr(i));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   141
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   142
    i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true);
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   143
    AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   144
    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
8046
4d3415927d2c Use (undocumented) Mix_LoadMUS_RW to load music
unc0rr
parents: 8034
diff changeset
   145
    AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
8052
845b5ae03841 Mount .hwt files found in Data folder
unc0rr
parents: 8046
diff changeset
   146
845b5ae03841 Mount .hwt files found in Data folder
unc0rr
parents: 8046
diff changeset
   147
    hedgewarsMountPackages;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   148
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   149
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   150
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   151
begin
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   152
    PHYSFS_deinit;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   153
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   154
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   155
end.