diff -r 85b3970b402a -r 644b757d20e6 hedgewars/uPhysFSLayer.pas --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/hedgewars/uPhysFSLayer.pas Mon Nov 05 23:03:32 2012 +0400 @@ -0,0 +1,28 @@ +unit uPhysFSLayer; + +{$LINKLIB ../bin/libphysfs.a} + +interface + +procedure initModule; +procedure freeModule; + +implementation +uses uUtils; + +function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external; +function PHYSFS_deinit() : LongInt; cdecl; external; + +function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool); cdecl; external; + +procedure initModule; +begin + PHYSFS_init(Str2PChar(ParamStr(0))); +end; + +procedure freeModule; +begin + PHYSFS_deinit; +end; + +end.