equal
deleted
inserted
replaced
179 pfsBlockRead:= r |
179 pfsBlockRead:= r |
180 end; |
180 end; |
181 |
181 |
182 procedure pfsMount(path: PChar; mountpoint: PChar); |
182 procedure pfsMount(path: PChar; mountpoint: PChar); |
183 begin |
183 begin |
184 if PHYSFS_mount(path, mountpoint, false) then |
184 PHYSFS_mount(path, mountpoint, false) |
185 AddFileLog('[PhysFS] mount ' + shortstring(path) + ' at ' + shortstring(mountpoint) + ' : ok') |
|
186 else |
|
187 AddFileLog('[PhysFS] mount ' + shortstring(path) + ' at ' + shortstring(mountpoint) + ' : FAILED ("' + shortstring(PHYSFS_getLastError()) + '")'); |
|
188 end; |
185 end; |
189 |
186 |
190 procedure pfsMountAtRoot(path: PChar); |
187 procedure pfsMountAtRoot(path: PChar); |
191 begin |
188 begin |
192 pfsMount(path, PChar(_S'/')); |
189 pfsMount(path, PChar(_S'/')); |
205 {$ELSE} |
202 {$ELSE} |
206 cPhysfsId:= ParamStr(0); |
203 cPhysfsId:= ParamStr(0); |
207 {$ENDIF} |
204 {$ENDIF} |
208 |
205 |
209 i:= PHYSFS_init(Str2PChar(cPhysfsId)); |
206 i:= PHYSFS_init(Str2PChar(cPhysfsId)); |
210 AddFileLog('[PhysFS] init: ' + inttostr(i)); |
207 //AddFileLog('[PhysFS] init: ' + inttostr(i)); |
211 |
208 |
212 {$IFNDEF MOBILE} |
209 {$IFNDEF MOBILE} |
213 // mount system fonts paths first |
210 // mount system fonts paths first |
214 for i:= low(cFontsPaths) to high(cFontsPaths) do |
211 for i:= low(cFontsPaths) to high(cFontsPaths) do |
215 begin |
212 begin |