equal
deleted
inserted
replaced
21 function rwopsOpenRead(fname: shortstring): PSDL_RWops; |
21 function rwopsOpenRead(fname: shortstring): PSDL_RWops; |
22 function rwopsOpenWrite(fname: shortstring): PSDL_RWops; |
22 function rwopsOpenWrite(fname: shortstring): PSDL_RWops; |
23 |
23 |
24 function pfsOpenRead(fname: shortstring): PFSFile; |
24 function pfsOpenRead(fname: shortstring): PFSFile; |
25 function pfsClose(f: PFSFile): boolean; |
25 function pfsClose(f: PFSFile): boolean; |
|
26 function pfsSeek(f: PFSFile; pos: QWord): boolean; |
26 |
27 |
27 procedure pfsReadLn(f: PFSFile; var s: shortstring); |
28 procedure pfsReadLn(f: PFSFile; var s: shortstring); |
28 procedure pfsReadLnA(f: PFSFile; var s: ansistring); |
29 procedure pfsReadLnA(f: PFSFile; var s: ansistring); |
29 function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64; |
30 function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64; |
30 function pfsEOF(f: PFSFile): boolean; |
31 function pfsEOF(f: PFSFile): boolean; |
48 function PHYSFS_deinit(): LongInt; cdecl; external PhysfsLibName; |
49 function PHYSFS_deinit(): LongInt; cdecl; external PhysfsLibName; |
49 function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongBool; cdecl; external PhysfsLibName; |
50 function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongBool; cdecl; external PhysfsLibName; |
50 function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName; |
51 function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName; |
51 function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName; |
52 function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName; |
52 function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName; |
53 function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName; |
|
54 function PHYSFS_seek(f: PFSFile; pos: QWord): LongBool; cdecl; external PhysfsLibName; |
53 function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName; |
55 function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName; |
54 function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName; |
56 function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName; |
55 function PHYSFS_getLastError(): PChar; cdecl; external PhysfsLibName; |
57 function PHYSFS_getLastError(): PChar; cdecl; external PhysfsLibName; |
56 function PHYSFS_enumerateFiles(dir: PChar): PPChar; cdecl; external PhysfsLibName; |
58 function PHYSFS_enumerateFiles(dir: PChar): PPChar; cdecl; external PhysfsLibName; |
57 procedure PHYSFS_freeList(list: PPChar); cdecl; external PhysfsLibName; |
59 procedure PHYSFS_freeList(list: PPChar); cdecl; external PhysfsLibName; |
83 end; |
85 end; |
84 |
86 |
85 function pfsClose(f: PFSFile): boolean; |
87 function pfsClose(f: PFSFile): boolean; |
86 begin |
88 begin |
87 exit(PHYSFS_close(f)) |
89 exit(PHYSFS_close(f)) |
|
90 end; |
|
91 |
|
92 function pfsSeek(f: PFSFile; pos: QWord): boolean; |
|
93 begin |
|
94 exit(PHYSFS_seek(f, 0)); |
88 end; |
95 end; |
89 |
96 |
90 function pfsExists(fname: shortstring): boolean; |
97 function pfsExists(fname: shortstring): boolean; |
91 begin |
98 begin |
92 exit(PHYSFS_exists(Str2PChar(fname))) |
99 exit(PHYSFS_exists(Str2PChar(fname))) |