| author | koda |
| Fri, 22 Feb 2013 06:39:16 +0100 | |
| branch | physfslayer |
| changeset 8528 | ffd71e99a4f0 |
| parent 8310 | a98c349bc06b |
| child 8533 | 2d7703d6bc22 |
| permissions | -rw-r--r-- |
| 7959 | 1 |
unit uPhysFSLayer; |
| 8063 | 2 |
|
| 7959 | 3 |
interface |
| 8077 | 4 |
uses SDLh, LuaPas; |
| 7959 | 5 |
|
| 8528 | 6 |
{$LINKLIB physfs}
|
7 |
{$LINKLIB physlayer}
|
|
8 |
||
9 |
{$IFDEF DARWIN}
|
|
10 |
{$LINKFRAMEWORK IOKit}
|
|
| 8073 | 11 |
{$ENDIF}
|
12 |
||
13 |
const |
|
14 |
{$IFDEF WIN32}
|
|
15 |
PhysfsLibName = 'libphysfs'; |
|
| 8528 | 16 |
PhyslayerLibName = 'libphyslayer'; |
| 8073 | 17 |
{$ELSE}
|
18 |
PhysfsLibName = 'physfs'; |
|
| 8528 | 19 |
PhyslayerLibName = 'physlayer'; |
| 8073 | 20 |
{$ENDIF}
|
21 |
||
| 7959 | 22 |
procedure initModule; |
23 |
procedure freeModule; |
|
24 |
||
| 8028 | 25 |
type PFSFile = pointer; |
26 |
||
| 8025 | 27 |
function rwopsOpenRead(fname: shortstring): PSDL_RWops; |
28 |
function rwopsOpenWrite(fname: shortstring): PSDL_RWops; |
|
| 8022 | 29 |
|
| 8028 | 30 |
function pfsOpenRead(fname: shortstring): PFSFile; |
31 |
function pfsClose(f: PFSFile): boolean; |
|
32 |
||
33 |
procedure pfsReadLn(f: PFSFile; var s: shortstring); |
|
| 8107 | 34 |
procedure pfsReadLnA(f: PFSFile; var s: ansistring); |
| 8031 | 35 |
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64; |
36 |
function pfsEOF(f: PFSFile): boolean; |
|
37 |
||
38 |
function pfsExists(fname: shortstring): boolean; |
|
| 8028 | 39 |
|
| 8077 | 40 |
function physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhysfsLibName; |
41 |
procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhysfsLibName; |
|
42 |
||
| 7959 | 43 |
implementation |
|
8310
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
44 |
uses uUtils, uVariables, sysutils; |
| 7959 | 45 |
|
| 8073 | 46 |
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName; |
47 |
function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName; |
|
48 |
function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl ; external PhysfsLibName; |
|
49 |
function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhysfsLibName; |
|
| 7959 | 50 |
|
| 8073 | 51 |
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongInt; cdecl; external PhysfsLibName; |
52 |
function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName; |
|
53 |
function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName; |
|
54 |
function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName; |
|
55 |
function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName; |
|
56 |
function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName; |
|
| 7959 | 57 |
|
| 8073 | 58 |
procedure hedgewarsMountPackages(); cdecl; external PhysfsLibName; |
| 8052 | 59 |
|
| 8025 | 60 |
function rwopsOpenRead(fname: shortstring): PSDL_RWops; |
61 |
begin |
|
62 |
exit(PHYSFSRWOPS_openRead(Str2PChar(fname))); |
|
63 |
end; |
|
64 |
||
65 |
function rwopsOpenWrite(fname: shortstring): PSDL_RWops; |
|
| 7959 | 66 |
begin |
| 8025 | 67 |
exit(PHYSFSRWOPS_openWrite(Str2PChar(fname))); |
68 |
end; |
|
| 8022 | 69 |
|
| 8028 | 70 |
function pfsOpenRead(fname: shortstring): PFSFile; |
71 |
begin |
|
72 |
exit(PHYSFS_openRead(Str2PChar(fname))); |
|
73 |
end; |
|
74 |
||
75 |
function pfsEOF(f: PFSFile): boolean; |
|
76 |
begin |
|
77 |
exit(PHYSFS_eof(f)) |
|
78 |
end; |
|
79 |
||
80 |
function pfsClose(f: PFSFile): boolean; |
|
81 |
begin |
|
82 |
exit(PHYSFS_close(f)) |
|
83 |
end; |
|
84 |
||
| 8031 | 85 |
function pfsExists(fname: shortstring): boolean; |
86 |
begin |
|
87 |
exit(PHYSFS_exists(Str2PChar(fname))) |
|
88 |
end; |
|
89 |
||
| 8028 | 90 |
|
91 |
procedure pfsReadLn(f: PFSFile; var s: shortstring); |
|
92 |
var c: char; |
|
93 |
begin |
|
94 |
s[0]:= #0; |
|
95 |
||
| 8034 | 96 |
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do |
| 8028 | 97 |
if (c <> #13) and (s[0] < #255) then |
98 |
begin |
|
99 |
inc(s[0]); |
|
100 |
s[byte(s[0])]:= c |
|
101 |
end |
|
102 |
end; |
|
103 |
||
| 8107 | 104 |
procedure pfsReadLnA(f: PFSFile; var s: ansistring); |
105 |
var c: char; |
|
106 |
b: shortstring; |
|
107 |
begin |
|
108 |
s:= ''; |
|
109 |
b[0]:= #0; |
|
110 |
||
111 |
while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do |
|
112 |
if (c <> #13) then |
|
113 |
begin |
|
114 |
inc(b[0]); |
|
115 |
b[byte(b[0])]:= c; |
|
116 |
if b[0] = #255 then |
|
117 |
begin |
|
118 |
s:= s + b; |
|
119 |
b[0]:= #0 |
|
120 |
end |
|
121 |
end; |
|
122 |
||
123 |
s:= s + b |
|
124 |
end; |
|
125 |
||
| 8031 | 126 |
function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64; |
127 |
var r: Int64; |
|
128 |
begin |
|
| 8034 | 129 |
r:= PHYSFS_readBytes(f, buf, size); |
| 8031 | 130 |
|
131 |
if r <= 0 then |
|
132 |
pfsBlockRead:= 0 |
|
133 |
else |
|
134 |
pfsBlockRead:= r |
|
135 |
end; |
|
136 |
||
| 8025 | 137 |
procedure initModule; |
138 |
var i: LongInt; |
|
|
8310
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
139 |
cPhysfsId: shortstring; |
| 8025 | 140 |
begin |
|
8310
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
141 |
{$IFDEF HWLIBRARY}
|
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
142 |
//TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html |
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
143 |
cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF} ' hedgewars';
|
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
144 |
{$ELSE}
|
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
145 |
cPhysfsId:= ParamStr(0); |
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
146 |
{$ENDIF}
|
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
147 |
|
|
a98c349bc06b
minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread()
koda
parents:
8283
diff
changeset
|
148 |
i:= PHYSFS_init(Str2PChar(cPhysfsId)); |
| 8025 | 149 |
AddFileLog('[PhysFS] init: ' + inttostr(i));
|
150 |
||
151 |
i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, true); |
|
152 |
AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
|
|
| 8031 | 153 |
i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, true); |
| 8046 | 154 |
AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
|
| 8052 | 155 |
|
156 |
hedgewarsMountPackages; |
|
| 7959 | 157 |
end; |
158 |
||
159 |
procedure freeModule; |
|
160 |
begin |
|
161 |
PHYSFS_deinit; |
|
162 |
end; |
|
163 |
||
164 |
end. |