hedgewars-draft: hedgewars/uPhysFSLayer.pas@7f29a65aa1e4 (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);
10122 cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 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
10078 8572d1f8b2f0 Some love to pas2c unc0rr parents: 10015 diff changeset	32	{$IFNDEF PAS2C}
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	33	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	34	procedure physfsReaderSetBuffer(buf: pointer); cdecl; external PhyslayerLibName;
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;
10078 8572d1f8b2f0 Some love to pas2c unc0rr parents: 10015 diff changeset	36	{$ENDIF}
8077 2ea5cde93abc Fix build unc0rr parents: 8073 diff changeset	37
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	38	implementation
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	39	uses uConsts, uUtils, uVariables{$IFNDEF PAS2C}, sysutils{$ENDIF};
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	40
10078 8572d1f8b2f0 Some love to pas2c unc0rr parents: 10015 diff changeset	41	{$IFNDEF PAS2C}
8073 5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	42	function PHYSFS_init(argv0: PChar) : LongInt; cdecl; external PhysfsLibName;
5a289ef40fdb physfs compilation on windows koda parents: 8067 diff changeset	43	function PHYSFS_deinit() : LongInt; cdecl; external PhysfsLibName;
8839 caa57115d7ea Fixes to make pas2c parse this unc0rr parents: 8833 diff changeset	44	function PHYSFSRWOPS_openRead(fname: PChar): PSDL_RWops; cdecl; external PhyslayerLibName;
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	45	function PHYSFSRWOPS_openWrite(fname: PChar): PSDL_RWops; cdecl; external PhyslayerLibName;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	46
9993 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;
10078 8572d1f8b2f0 Some love to pas2c unc0rr parents: 10015 diff changeset	56	{$ENDIF}
8052 845b5ae03841 Mount .hwt files found in Data folder unc0rr parents: 8046 diff changeset	57
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	58	function rwopsOpenRead(fname: shortstring): PSDL_RWops;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	59	begin
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	60	exit(PHYSFSRWOPS_openRead(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	61	end;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	62
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	63	function rwopsOpenWrite(fname: shortstring): PSDL_RWops;
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	64	begin
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	65	exit(PHYSFSRWOPS_openWrite(Str2PChar(fname)));
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	66	end;
8022 10b3b93c1f56 - Add physfsrwops library unc0rr parents: 7963 diff changeset	67
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	68	function pfsOpenRead(fname: shortstring): PFSFile;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	69	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	70	exit(PHYSFS_openRead(Str2PChar(fname)));
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	71	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	72
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	73	function pfsEOF(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	74	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	75	exit(PHYSFS_eof(f))
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	76	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	77
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	78	function pfsClose(f: PFSFile): boolean;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	79	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	80	exit(PHYSFS_close(f))
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	81	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	82
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	83	function pfsExists(fname: shortstring): boolean;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	84	begin
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	85	exit(PHYSFS_exists(Str2PChar(fname)))
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	86	end;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	87
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	88
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	89	procedure pfsReadLn(f: PFSFile; var s: shortstring);
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	90	var c: char;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	91	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	92	s[0]:= #0;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	93
8034 fc032c0f7b23 Implement reader in C ffs unc0rr parents: 8031 diff changeset	94	while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
8028 dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	95	if (c <> #13) and (s[0] < #255) then
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	96	begin
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	97	inc(s[0]);
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	98	s[byte(s[0])]:= c
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	end;
dc30104660d3 Engine loads fine with basic config unc0rr parents: 8025 diff changeset	101
10122 cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	102	procedure pfsReadLnA(f: PFSFile; var s: ansistring);
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	103	var c: char;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	104	b: shortstring;
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	105	begin
10122 cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	106	s:= '';
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	107	b[0]:= #0;
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	108
10122 cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	109	while (PHYSFS_readBytes(f, @c, 1) = 1) and (c <> #10) do
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	110	if (c <> #13) then
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	111	begin
10122 cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	112	inc(b[0]);
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	113	b[byte(b[0])]:= c;
cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	114	if b[0] = #255 then
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	115	begin
10123 64e72781d344 Implicit type casts to help pas2c unc0rr parents: 10122 diff changeset	116	s:= s + ansistring(b);
10122 cefede760264 Revert 88929358d2e1 in favor of ansistrings implementation in pas2c unc0rr parents: 10101 diff changeset	117	b[0]:= #0
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	118	end
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	119	end;
10123 64e72781d344 Implicit type casts to help pas2c unc0rr parents: 10122 diff changeset	120
64e72781d344 Implicit type casts to help pas2c unc0rr parents: 10122 diff changeset	121	s:= s + ansistring(b)
8107 ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	122	end;
ee21b816394f Bring ansistrings back unc0rr parents: 8080 diff changeset	123
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	124	function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	125	var r: Int64;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	126	begin
8034 fc032c0f7b23 Implement reader in C ffs unc0rr parents: 8031 diff changeset	127	r:= PHYSFS_readBytes(f, buf, size);
8031 fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	128
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	129	if r <= 0 then
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	130	pfsBlockRead:= 0
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	131	else
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	132	pfsBlockRead:= r
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	133	end;
fc40b343c45c Script loading via physfs which doesn't work: unc0rr parents: 8028 diff changeset	134
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	135	procedure pfsMount(path: ansistring; mountpoint: PChar);
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	136	begin
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	137	if PHYSFS_mount(PChar(path), mountpoint, false) then
7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	138	AddFileLog('[PhysFS] mount ' + shortstring(path) + ' at ' + shortstring(mountpoint) + ' : ok')
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	139	else
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	140	AddFileLog('[PhysFS] mount ' + shortstring(path) + ' at ' + shortstring(mountpoint) + ' : FAILED ("' + shortstring(PHYSFS_getLastError()) + '")');
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	141	end;
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	142
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	143	procedure pfsMountAtRoot(path: ansistring);
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	144	begin
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	145	pfsMount(path, PChar('/'));
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	146	end;
76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	147
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	148	procedure initModule;
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	149	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	150	cPhysfsId: shortstring;
9996 d93fb04619ee unCORr likes PChar arrays sheepluva parents: 9994 diff changeset	151	fp: PChar;
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	152	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	153	{$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	154	//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	155	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	156	{$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	157	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	158	{$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	159
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	i:= PHYSFS_init(Str2PChar(cPhysfsId));
8025 07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	161	AddFileLog('[PhysFS] init: ' + inttostr(i));
07862ab415c8 Get rid of Pathz and UserPathz unc0rr parents: 8022 diff changeset	162
9994 8455993a7a1b * allow telling cmake where to find required fonts in system when user supplies the paths, as suggested by unC0Rr, e.g. -DFONTS_DIRS='/usr/share/fonts/truetype/wqy;/usr/share/fonts/truetype/dejavu' sheepluva parents: 9993 diff changeset	163	// mount system fonts paths first
9996 d93fb04619ee unCORr likes PChar arrays sheepluva parents: 9994 diff changeset	164	for i:= low(cFontsPaths) to high(cFontsPaths) do
9994 8455993a7a1b * allow telling cmake where to find required fonts in system when user supplies the paths, as suggested by unC0Rr, e.g. -DFONTS_DIRS='/usr/share/fonts/truetype/wqy;/usr/share/fonts/truetype/dejavu' sheepluva parents: 9993 diff changeset	165	begin
9996 d93fb04619ee unCORr likes PChar arrays sheepluva parents: 9994 diff changeset	166	fp := cFontsPaths[i];
d93fb04619ee unCORr likes PChar arrays sheepluva parents: 9994 diff changeset	167	if fp <> nil then
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	168	pfsMount(ansistring(fp), PChar('/Fonts'));
9994 8455993a7a1b * allow telling cmake where to find required fonts in system when user supplies the paths, as suggested by unC0Rr, e.g. -DFONTS_DIRS='/usr/share/fonts/truetype/wqy;/usr/share/fonts/truetype/dejavu' sheepluva parents: 9993 diff changeset	169	end;
8455993a7a1b * allow telling cmake where to find required fonts in system when user supplies the paths, as suggested by unC0Rr, e.g. -DFONTS_DIRS='/usr/share/fonts/truetype/wqy;/usr/share/fonts/truetype/dejavu' sheepluva parents: 9993 diff changeset	170
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	171	pfsMountAtRoot(PathPrefix);
10127 7f29a65aa1e4 It compiles \o/ unc0rr parents: 10123 diff changeset	172	pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));
8052 845b5ae03841 Mount .hwt files found in Data folder unc0rr parents: 8046 diff changeset	173
845b5ae03841 Mount .hwt files found in Data folder unc0rr parents: 8046 diff changeset	174	hedgewarsMountPackages;
9531 7fcdedc45589 Unbreak access to Data dir in profile broken in r8b48c27201af unc0rr parents: 9466 diff changeset	175
7fcdedc45589 Unbreak access to Data dir in profile broken in r8b48c27201af unc0rr parents: 9466 diff changeset	176	// 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	177	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	178
10080 ac51bcb534ef Even more love to pas2c unc0rr parents: 10078 diff changeset	179	{$IFNDEF PAS2C}
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	180	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	181	begin
9993 76ad55807c24 allow engine to use symlinked fonts. disallow packages to "overwrite" fonts sheepluva parents: 9988 diff changeset	182	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	183	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	184	end;
10080 ac51bcb534ef Even more love to pas2c unc0rr parents: 10078 diff changeset	185	{$ENDIF}
7959 644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	186	end;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	187
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	188	procedure freeModule;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	189	begin
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	190	PHYSFS_deinit;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	191	end;
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	192
644b757d20e6 Start work on physfs support in engine unc0rr parents: diff changeset	193	end.

author	unc0rr
	Mon, 10 Feb 2014 00:43:03 +0400
changeset 10127	7f29a65aa1e4
parent 10123	64e72781d344
child 10129	cd2a64a1f4aa
permissions	-rw-r--r--