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