hedgewars/uPhysFSLayer.pas
author unc0rr
Sat, 17 Nov 2012 00:01:06 +0400
branchphysfslayer
changeset 8034 fc032c0f7b23
parent 8031 fc40b343c45c
child 8046 4d3415927d2c
permissions -rw-r--r--
Implement reader in C ffs
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;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     2
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     3
{$LINKLIB ../bin/libphysfs.a}
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
     4
{$LINKLIB ../bin/libphysfsrwops.a}
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     5
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     6
interface
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
     7
uses SDLh;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     8
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     9
procedure initModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    10
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    11
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    12
type PFSFile = pointer;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    13
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    14
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    15
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    16
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    17
function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    18
function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    19
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    20
procedure pfsReadLn(f: PFSFile; var s: shortstring);
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    21
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    22
function pfsEOF(f: PFSFile): boolean;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    23
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    24
function pfsExists(fname: shortstring): boolean;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    25
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    26
implementation
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    27
uses uUtils, uVariables;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    28
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    29
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    30
function PHYSFS_deinit() : LongInt; cdecl; external;
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    31
function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl; external;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    32
function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    33
7963
9910f303f5b6 Fix function prototype
unc0rr
parents: 7959
diff changeset
    34
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    35
function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    36
function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external;
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
    37
function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external;
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    38
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external;
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    39
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    40
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    41
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    42
begin
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    43
    exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    44
end;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    45
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    46
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    47
begin
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    48
    exit(PHYSFSRWOPS_openWrite(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    49
end;
8022
10b3b93c1f56 - Add physfsrwops library
unc0rr
parents: 7963
diff changeset
    50
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    51
function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    52
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    53
    exit(PHYSFS_openRead(Str2PChar(fname)));
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    54
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    55
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    56
function pfsEOF(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    57
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    58
    exit(PHYSFS_eof(f))
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    59
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    60
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    61
function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    62
begin
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    63
    exit(PHYSFS_close(f))
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    64
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    65
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    66
function pfsExists(fname: shortstring): boolean;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    67
begin
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    68
    exit(PHYSFS_exists(Str2PChar(fname)))
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    69
end;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    70
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    71
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    72
procedure pfsReadLn(f: PFSFile; var s: shortstring);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    73
var c: char;
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
s[0]:= #0;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    76
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
    77
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
8028
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    78
    if (c <> #13) and (s[0] < #255) then
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
        inc(s[0]);
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    81
        s[byte(s[0])]:= c
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
end;
dc30104660d3 Engine loads fine with basic config
unc0rr
parents: 8025
diff changeset
    84
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    85
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    86
var r: Int64;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    87
begin
8034
fc032c0f7b23 Implement reader in C ffs
unc0rr
parents: 8031
diff changeset
    88
    r:= PHYSFS_readBytes(f, buf, size);
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    89
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    90
    if r <= 0 then
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    91
        pfsBlockRead:= 0
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    92
    else
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    93
        pfsBlockRead:= r
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    94
end;
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
    95
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    96
procedure initModule;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    97
var i: LongInt;
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    98
begin
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
    99
    i:= PHYSFS_init(Str2PChar(ParamStr(0)));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   100
    AddFileLog('[PhysFS] init: ' + inttostr(i));
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   101
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   102
    i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true);
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   103
    AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
8031
fc40b343c45c Script loading via physfs which doesn't work:
unc0rr
parents: 8028
diff changeset
   104
    i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
8025
07862ab415c8 Get rid of Pathz and UserPathz
unc0rr
parents: 8022
diff changeset
   105
    AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i));
7959
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   106
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   107
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   108
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   109
begin
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   110
    PHYSFS_deinit;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   111
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   112
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
   113
end.