hedgewars/uPhysFSLayer.pas
author unc0rr
Mon, 05 Nov 2012 23:03:32 +0400
branchphysfslayer
changeset 7959 644b757d20e6
child 7963 9910f303f5b6
permissions -rw-r--r--
Start work on physfs support in engine
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}
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     4
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     5
interface
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     6
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     7
procedure initModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     8
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
     9
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    10
implementation
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    11
uses uUtils;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    12
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    13
function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    14
function PHYSFS_deinit() : LongInt; cdecl; external;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    15
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    16
function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool); cdecl; external;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    17
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    18
procedure initModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    19
begin
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    20
    PHYSFS_init(Str2PChar(ParamStr(0)));
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    21
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    22
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    23
procedure freeModule;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    24
begin
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    25
    PHYSFS_deinit;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    26
end;
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    27
644b757d20e6 Start work on physfs support in engine
unc0rr
parents:
diff changeset
    28
end.