--- /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.