hedgewars-draft: hedgewars/uPhysFSLayer.pas@76ad55807c24 (annotated)

7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	1	unit uPhysFSLayer;
8063 06efc1ea6a40 linking phsyfs on osx koda parents: 8062 diff changeset	2
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	3	interface
8077 2ea5cde93abc Fix build unc0rr parents: 8073 diff changeset	4	uses SDLh, LuaPas;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	5
9204 1c233176fffd drop the '_' koda parents: 9202 diff changeset	6	const PhysfsLibName = {$IFDEF PHYSFS_INTERNAL}'libhwphysfs'{$ELSE}'libphysfs'{$ENDIF};
8540 cf808329bb6f this should hijack the linker name and always pick the bundled physfs when another version is already prsent koda parents: 8533 diff changeset	7	const PhyslayerLibName = 'libphyslayer';
8073 5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	8
8540 cf808329bb6f this should hijack the linker name and always pick the bundled physfs when another version is already prsent koda parents: 8533 diff changeset	9	{$IFNDEF WIN32}
cf808329bb6f this should hijack the linker name and always pick the bundled physfs when another version is already prsent koda parents: 8533 diff changeset	10	{$linklib physfs}
cf808329bb6f this should hijack the linker name and always pick the bundled physfs when another version is already prsent koda parents: 8533 diff changeset	11	{$linklib physlayer}
8533 2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	12	{$ENDIF}
2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	13
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	14	procedure initModule;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	15	procedure freeModule;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	16
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	17	type PFSFile = pointer;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	18
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	19	function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	20	function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
8022 10b3b93c1f56 - Add physfsrwops library unc0rr parents: 7963 diff changeset	21
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	22	function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	23	function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	24
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	25	procedure pfsReadLn(f: PFSFile; var s: shortstring);
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	26	procedure pfsReadLnA(f: PFSFile; var s: ansistring);
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	27	function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	28	function pfsEOF(f: PFSFile): boolean;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	29
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	30	function pfsExists(fname: shortstring): boolean;
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	31
8533 2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	32	function physfsReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; cdecl; external PhyslayerLibName;
2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	33	procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhyslayerLibName;
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	34	procedure pfsPermitSymbolicLinks(allow: boolean);
8978 e6ef8fe314bd suggestion of unc0rr's to fix issue w/ random maps in campaign. load sidecar packages in physfs for lua. should be useful also for lua that does custom layouts nemo parents: 8927 diff changeset	35	procedure hedgewarsMountPackage(filename: PChar); cdecl; external PhyslayerLibName;
8077 2ea5cde93abc Fix build unc0rr parents: 8073 diff changeset	36
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	37	implementation
8310 a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	38	uses uUtils, uVariables, sysutils;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	39
8073 5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	40	function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	41	function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName;
8533 2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	42	function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl ; external PhyslayerLibName;
2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	43	function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhyslayerLibName;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	44
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	45	procedure PHYSFS_permitSymbolicLinks(allow: boolean); cdecl; external PhysfsLibName;
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	46
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	47	function PHYSFS_mount(newDir, mountPoint: PChar; appendToPath: LongBool) : LongBool; cdecl; external PhysfsLibName;
8073 5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	48	function PHYSFS_openRead(fname: PChar): PFSFile; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	49	function PHYSFS_eof(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	50	function PHYSFS_readBytes(f: PFSFile; buffer: pointer; len: Int64): Int64; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	51	function PHYSFS_close(f: PFSFile): LongBool; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	52	function PHYSFS_exists(fname: PChar): LongBool; cdecl; external PhysfsLibName;
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	53	function PHYSFS_getLastError(): PChar; cdecl; external PhysfsLibName;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	54
8533 2d7703d6bc22 this should make physfs happy to link on windows too, forcing every function in its proper dll and skipping linklib koda parents: 8528 diff changeset	55	procedure hedgewarsMountPackages(); cdecl; external PhyslayerLibName;
8052 845b5ae03841 Mount .hwt files found in Data folder unc0rr parents: 8046 diff changeset	56
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	57	function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	58	begin
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	59	exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	60	end;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	61
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	62	function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	63	begin
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	64	exit(PHYSFSRWOPS_openWrite(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	65	end;
8022 10b3b93c1f56 - Add physfsrwops library unc0rr parents: 7963 diff changeset	66
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	67	function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	68	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	69	exit(PHYSFS_openRead(Str2PChar(fname)));
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	70	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	71
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	72	function pfsEOF(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	73	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	74	exit(PHYSFS_eof(f))
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	75	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	76
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	77	function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	78	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	79	exit(PHYSFS_close(f))
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	80	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	81
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	82	function pfsExists(fname: shortstring): boolean;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	83	begin
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	84	exit(PHYSFS_exists(Str2PChar(fname)))
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	85	end;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	86
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	87
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	88	procedure pfsReadLn(f: PFSFile; var s: shortstring);
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	89	var c: char;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	90	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	91	s[0]:= #0;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	92
8034 fc032c0f7b23 Implement reader in C ffs unc0rr parents: 8031 diff changeset	93	while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	94	if (c <> #13) and (s[0] < #255) then
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	95	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	96	inc(s[0]);
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	97	s[byte(s[0])]:= c
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	98	end
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	99	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	100
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	101	procedure pfsReadLnA(f: PFSFile; var s: ansistring);
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	102	var c: char;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	103	b: shortstring;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	104	begin
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	105	s:= '';
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	106	b[0]:= #0;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	107
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	108	while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	109	if (c <> #13) then
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	110	begin
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	111	inc(b[0]);
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	112	b[byte(b[0])]:= c;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	113	if b[0] = #255 then
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	114	begin
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	115	s:= s + b;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	116	b[0]:= #0
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	117	end
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	118	end;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	119
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	120	s:= s + b
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	121	end;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	122
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	123	function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	124	var r: Int64;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	125	begin
8034 fc032c0f7b23 Implement reader in C ffs unc0rr parents: 8031 diff changeset	126	r:= PHYSFS_readBytes(f, buf, size);
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	127
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	128	if r <= 0 then
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	129	pfsBlockRead:= 0
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	130	else
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	131	pfsBlockRead:= r
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	132	end;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	133
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	134	procedure pfsPermitSymbolicLinks(allow: boolean);
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	135	begin
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	136	PHYSFS_permitSymbolicLinks(allow);
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	137	end;
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	138
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	139	procedure pfsMount(path: AnsiString; mountpoint: PChar);
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	140	begin
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	141	if PHYSFS_mount(Str2PChar(path), mountpoint, false) then
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	142	AddFileLog('[PhysFS] mount ' + path + ': ok')
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	143	else
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	144	AddFileLog('[PhysFS] mount ' + path + ': FAILED ("' + PHYSFS_getLastError() + '")');
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	145	end;
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	146
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	147	procedure pfsMountAtRoot(path: AnsiString);
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	148	begin
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	149	pfsMount(path, nil);
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	150	end;
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	151
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	152	procedure initModule;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	153	var i: LongInt;
8310 a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	154	cPhysfsId: shortstring;
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	155	begin
8310 a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	156	{$IFDEF HWLIBRARY}
a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	157	//TODO: http://icculus.org/pipermail/physfs/2011-August/001006.html
9378 2be457289e60 update physlayer and sdl bindings to the new rwops interface koda parents: 9224 diff changeset	158	cPhysfsId:= GetCurrentDir() + {$IFDEF DARWIN}{$IFNDEF IPHONEOS}'/Hedgewars.app/Contents/MacOS/' + {$ENDIF}{$ENDIF} ' hedgewars';
8310 a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	159	{$ELSE}
a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	160	cPhysfsId:= ParamStr(0);
a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	161	{$ENDIF}
a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	162
a98c349bc06b minor adjustments to libengine, moc is correctly created as definitions are set before calling it, params are better numbered and we don't subclass qthread but rather use moveToThread() koda parents: 8283 diff changeset	163	i:= PHYSFS_init(Str2PChar(cPhysfsId));
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	164	AddFileLog('[PhysFS] init: ' + inttostr(i));
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	165
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	166	pfsMountAtRoot(PathPrefix);
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	167	pfsMountAtRoot(UserPathPrefix + '/Data');
8052 845b5ae03841 Mount .hwt files found in Data folder unc0rr parents: 8046 diff changeset	168
845b5ae03841 Mount .hwt files found in Data folder unc0rr parents: 8046 diff changeset	169	hedgewarsMountPackages;
9531 7fcdedc45589 Unbreak access to Data dir in profile broken in r8b48c27201af unc0rr parents: 9466 diff changeset	170
7fcdedc45589 Unbreak access to Data dir in profile broken in r8b48c27201af unc0rr parents: 9466 diff changeset	171	// need access to teams and frontend configs (for bindings)
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	172	pfsMountAtRoot(UserPathPrefix);
9988 317d46a2afd2 simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense sheepluva parents: 9531 diff changeset	173
317d46a2afd2 simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense sheepluva parents: 9531 diff changeset	174	if cTestLua then
317d46a2afd2 simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense sheepluva parents: 9531 diff changeset	175	begin
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	176	pfsMountAtRoot(ExtractFileDir(cScriptName));
9988 317d46a2afd2 simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense sheepluva parents: 9531 diff changeset	177	cScriptName := ExtractFileName(cScriptName);
317d46a2afd2 simple mechanism to run lua-based test cases. experimental - I will back it out if it turns out to be nonsense sheepluva parents: 9531 diff changeset	178	end;
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	179
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	180	// mounts fonts last - don't allow overwriting them as we allow symlinks there
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	181	pfsMount(PathPrefix + '/Fonts', '/Fonts');
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	182	end;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	183
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	184	procedure freeModule;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	185	begin
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	186	PHYSFS_deinit;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	187	end;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	188
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	189	end.

author	sheepluva
	Thu, 16 Jan 2014 17:18:53 +0100
changeset 9993	76ad55807c24
parent 9988	317d46a2afd2
child 9994	8455993a7a1b
permissions	-rw-r--r--