7959
|
1 |
unit uPhysFSLayer;
|
8063
|
2 |
|
7959
|
3 |
interface
|
8077
|
4 |
uses SDLh, LuaPas;
|
7959
|
5 |
|
8073
|
6 |
{$IFDEF ANDROID}
|
|
7 |
{$linklib physfs}
|
|
8 |
{$ELSE}
|
|
9 |
{$IFDEF DARWIN}
|
|
10 |
{$LINKFRAMEWORK IOKit}
|
|
11 |
{$ENDIF}
|
|
12 |
{$ENDIF}
|
|
13 |
|
|
14 |
const
|
|
15 |
{$IFDEF WIN32}
|
|
16 |
PhysfsLibName = 'libphysfs';
|
|
17 |
{$ELSE}
|
|
18 |
PhysfsLibName = 'physfs';
|
|
19 |
{$ENDIF}
|
|
20 |
|
7959
|
21 |
procedure initModule;
|
|
22 |
procedure freeModule;
|
|
23 |
|
8028
|
24 |
type PFSFile = pointer;
|
|
25 |
|
8025
|
26 |
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
|
|
27 |
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
|
8022
|
28 |
|
8028
|
29 |
function pfsOpenRead(fname: shortstring): PFSFile;
|
|
30 |
function pfsClose(f: PFSFile): boolean;
|
|
31 |
|
|
32 |
procedure pfsReadLn(f: PFSFile; var s: shortstring);
|
8107
|
33 |
procedure pfsReadLnA(f: PFSFile; var s: ansistring);
|
8031
|
34 |
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
|
|
35 |
function pfsEOF(f: PFSFile): boolean;
|
|
36 |
|
|
37 |
function pfsExists(fname: shortstring): boolean;
|
8028
|
38 |
|
8077
|
39 |
function physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhysfsLibName;
|
|
40 |
procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhysfsLibName;
|
|
41 |
|
7959
|
42 |
implementation
|
8022
|
43 |
uses uUtils, uVariables;
|
7959
|
44 |
|
8073
|
45 |
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName;
|
|
46 |
function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName;
|
|
47 |
function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl ; external PhysfsLibName;
|
|
48 |
function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhysfsLibName;
|
7959
|
49 |
|
8073
|
50 |
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external PhysfsLibName;
|
|
51 |
function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName;
|
|
52 |
function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
|
|
53 |
function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName;
|
|
54 |
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
|
|
55 |
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName;
|
7959
|
56 |
|
8073
|
57 |
procedure hedgewarsMountPackages(); cdecl; external PhysfsLibName;
|
8052
|
58 |
|
8025
|
59 |
function rwopsOpenRead(fname: shortstring): PSDL_RWops;
|
|
60 |
begin
|
|
61 |
exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
|
|
62 |
end;
|
|
63 |
|
|
64 |
function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
|
7959
|
65 |
begin
|
8025
|
66 |
exit(PHYSFSRWOPS_openWrite(Str2PChar(fname)));
|
|
67 |
end;
|
8022
|
68 |
|
8028
|
69 |
function pfsOpenRead(fname: shortstring): PFSFile;
|
|
70 |
begin
|
|
71 |
exit(PHYSFS_openRead(Str2PChar(fname)));
|
|
72 |
end;
|
|
73 |
|
|
74 |
function pfsEOF(f: PFSFile): boolean;
|
|
75 |
begin
|
|
76 |
exit(PHYSFS_eof(f))
|
|
77 |
end;
|
|
78 |
|
|
79 |
function pfsClose(f: PFSFile): boolean;
|
|
80 |
begin
|
|
81 |
exit(PHYSFS_close(f))
|
|
82 |
end;
|
|
83 |
|
8031
|
84 |
function pfsExists(fname: shortstring): boolean;
|
|
85 |
begin
|
|
86 |
exit(PHYSFS_exists(Str2PChar(fname)))
|
|
87 |
end;
|
|
88 |
|
8028
|
89 |
|
|
90 |
procedure pfsReadLn(f: PFSFile; var s: shortstring);
|
|
91 |
var c: char;
|
|
92 |
begin
|
|
93 |
s[0]:= #0;
|
|
94 |
|
8034
|
95 |
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
|
8028
|
96 |
if (c <> #13) and (s[0] < #255) then
|
|
97 |
begin
|
|
98 |
inc(s[0]);
|
|
99 |
s[byte(s[0])]:= c
|
|
100 |
end
|
|
101 |
end;
|
|
102 |
|
8107
|
103 |
procedure pfsReadLnA(f: PFSFile; var s: ansistring);
|
|
104 |
var c: char;
|
|
105 |
b: shortstring;
|
|
106 |
begin
|
|
107 |
s:= '';
|
|
108 |
b[0]:= #0;
|
|
109 |
|
|
110 |
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
|
|
111 |
if (c <> #13) then
|
|
112 |
begin
|
|
113 |
inc(b[0]);
|
|
114 |
b[byte(b[0])]:= c;
|
|
115 |
if b[0] = #255 then
|
|
116 |
begin
|
|
117 |
s:= s + b;
|
|
118 |
b[0]:= #0
|
|
119 |
end
|
|
120 |
end;
|
|
121 |
|
|
122 |
s:= s + b
|
|
123 |
end;
|
|
124 |
|
8031
|
125 |
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
|
|
126 |
var r: Int64;
|
|
127 |
begin
|
8034
|
128 |
r:= PHYSFS_readBytes(f, buf, size);
|
8031
|
129 |
|
|
130 |
if r <= 0 then
|
|
131 |
pfsBlockRead:= 0
|
|
132 |
else
|
|
133 |
pfsBlockRead:= r
|
|
134 |
end;
|
|
135 |
|
8025
|
136 |
procedure initModule;
|
|
137 |
var i: LongInt;
|
|
138 |
begin
|
|
139 |
i:= PHYSFS_init(Str2PChar(ParamStr(0)));
|
|
140 |
AddFileLog('[PhysFS] init: ' + inttostr(i));
|
|
141 |
|
|
142 |
i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true);
|
|
143 |
AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
|
8031
|
144 |
i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true);
|
8046
|
145 |
AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
|
8052
|
146 |
|
|
147 |
hedgewarsMountPackages;
|
7959
|
148 |
end;
|
|
149 |
|
|
150 |
procedure freeModule;
|
|
151 |
begin
|
|
152 |
PHYSFS_deinit;
|
|
153 |
end;
|
|
154 |
|
|
155 |
end.
|