hedgewars: hedgewars/uWeb.pas@4877d7333818 (annotated)

8026 4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	1
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	2	// defines functions used for web port
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	3
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	4	unit uWeb;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	5	interface
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	6
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	7	type
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	8	TResourceList = record
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	9	count : Integer;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	10	files : array[0..500] of shortstring;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	11	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	12
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	13	function generateResourceList:TResourceList;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	14
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	15	implementation
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	16
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	17	uses uConsts, uVariables, uTypes;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	18
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	19	function readThemeCfg:TResourceList; forward;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	20
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	21	function generateResourceList:TResourceList;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	22	var
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	23	cfgRes : TResourceList;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	24	i,j : Integer;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	25	t, t2 : shortstring;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	26	si : TSprite;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	27	res : TResourceList;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	28
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	29	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	30
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	31	res.count := 0;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	32
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	33	for i:= 0 to Pred(TeamsCount) do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	34	with TeamsArray[i]^ do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	35	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	36	Str(i, t);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	37
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	38	res.files[res.count] := UserPathz[ptGraves] + '/' + GraveName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	39	res.files[res.count + 1] := UserPathz[ptForts] + '/' + FortName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	40	res.files[res.count + 2] := UserPathz[ptGraphics] + '/' + FortName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	41	res.files[res.count + 3] := UserPathz[ptFlags] + '/' + flag;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	42
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	43	inc(res.count, 4);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	44
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	45	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	46
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	47	for si:= Low(TSprite) to High(TSprite) do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	48	with SpritesData[si] do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	49	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	50	Str(si, t);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	51	res.files[res.count] := UserPathz[Path] + '/' + FileName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	52	res.files[res.count + 1] := UserPathz[AltPath] + '/' + FileName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	53	inc(res.count, 2);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	54
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	55	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	56
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	57	for i:= 0 to Pred(ClansCount) do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	58	with CLansArray[i]^ do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	59	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	60	for j:= 0 to Pred(TeamsNumber) do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	61	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	62	with Teams[j]^ do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	63	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	64	Str(i, t);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	65	Str(j, t2);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	66	res.files[res.count] := UserPathz[ptForts] + '/' + FortName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	67	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	68
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	69	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	70	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	71	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	72
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	73	cfgRes := readThemeCfg();
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	74
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	75	for i:= 0 to Pred(cfgRes.count) do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	76	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	77	res.files[res.count] := cfgRes.files[i];
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	78	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	79	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	80
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	81	res.files[res.count] := UserPathz[ptFlags] + '/cpu';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	82	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	83
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	84	res.files[res.count] := UserPathz[ptFlags] + '/hedgewars';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	85	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	86
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	87	res.files[res.count] := UserPathz[ptGraphics] + '/' + cHHFileName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	88	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	89
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	90	res.files[res.count] := UserPathz[ptGraphics] + '/Girder';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	91	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	92
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	93	res.files[res.count] := UserPathz[ptCurrTheme] + '/LandTex';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	94	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	95
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	96	res.files[res.count] := UserPathz[ptCurrTheme] + '/LandBackTex';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	97	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	98
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	99	res.files[res.count] := UserPathz[ptCurrTheme] + '/Girder';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	100	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	101
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	102	res.files[res.count] := UserPathz[ptCurrTheme] + '/Border';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	103	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	104
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	105	res.files[res.count] := UserPathz[ptMapCurrent] + '/mask';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	106	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	107
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	108	res.files[res.count] := UserPathz[ptMapCurrent] + '/map';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	109	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	110
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	111	res.files[res.count] := UserPathz[ptGraphics] + '/missions';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	112	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	113
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	114	res.files[res.count] := UserPathz[ptGraphics] + '/Progress';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	115	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	116
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	117	res.files[res.count] := UserPathz[ptGraves] + '/Statue';
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	118	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	119
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	120	res.files[res.count] := UserPathz[ptGraphics] + '/' + cCHFileName;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	121	inc(res.count);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	122
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	123	generateResourceList:=res;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	124	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	125
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	126	function readThemeCfg : TResourceList;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	127	var
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	128	s,key : shortstring;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	129	f : TextFile;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	130	i: Integer;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	131	res : TResourceList;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	132	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	133	s:=Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	134
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	135	Assign(f, s);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	136	{$I-}
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	137
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	138	filemode := 0;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	139	Reset(f);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	140
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	141	res.count := 0;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	142
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	143	while not eof(f) do
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	144	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	145	Readln(f, s);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	146
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	147	if Length(s) = 0 then
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	148	continue;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	149	if s[1] = ';' then
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	150	continue;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	151
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	152	i:= Pos('=', s);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	153	key:= Trim(Copy(s, 1, Pred(i)));
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	154	Delete(s, 1, i);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	155
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	156	if (key = 'object') or (key = 'spray') then
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	157	begin
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	158	i:=Pos(',', s);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	159
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	160	res.files[res.count] := Pathz[ptCurrTheme] + '/' + Trim(Copy(s, 1, Pred(i)));
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	161	res.files[res.count + 1] := Pathz[ptGraphics] + '/' + Trim(Copy(s, 1, Pred(i)));
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	162	inc(res.count, 2);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	163
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	164	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	165
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	166	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	167
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	168	close(f);
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	169	{$I+}
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	170
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	171	readThemeCfg := res;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	172	end;
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	173
4a4f21070479 merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions) koda parents: diff changeset	174	end.

author	Michael Hartman <omh1280@gmail.com>
	Sun, 30 Dec 2012 09:24:30 -0500
branch	webgl
changeset 8336	4877d7333818
parent 8026	4a4f21070479
permissions	-rw-r--r--