Subversion Repositories Kolibri OS

Rev

Rev 5781 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4411 leency 1
 
5749 leency 2
 
4677 leency 3
enum { ALIGN_LEFT, ALIGN_CENTER, ALIGN_RIGHT};
4416 leency 4
 
5746 leency 5
struct _style {
4416 leency 6
 
5746 leency 7
	b, i, u, s, h,
8
	pre,
5768 leency 9
	blq,
5746 leency 10
	li,
11
	li_tab,
12
	align;
13
};
14
15
struct TWebBrowser {
16
 
4411 leency 17
	_style style;
4540 leency 18
	DrawBufer DrawBuf;
5746 leency 19
	void Prepare();
4475 leency 20
	void SetStyle();
5766 leency 21
	void DrawStyle();
22
	void DrawPage();
23
	void DrawScroller();
4411 leency 24
	void LoadInternalPage();
25
	void NewLine();
5747 leency 26
	void Perenos();
4650 leency 27
	void BufEncode();
4718 leency 28
} WB1;
5749 leency 29
4686 leency 30
4486 leency 31
 
5746 leency 32
 
33
	ignor_text,
34
	cur_encoding,
35
	t_html,
36
	t_body;
37
38
dword bufpointer=0;
39
 
5781 leency 40
dword bufsize=0;
41
42
dword text_colors[300];
4411 leency 43
 
4417 leency 44
dword link_color_inactive;
45
dword link_color_active;
4491 leency 46
dword bg_color;
47
4417 leency 48
int stroka;
4411 leency 49
 
4417 leency 50
int tab_len;
51
int anchor_line_num;
52
53
char URL[10000];
4636 leency 54
 
5746 leency 55
char line[500];
56
char tagparam[10000];
4417 leency 57
char tag[100];
5746 leency 58
char oldtag[100];
4417 leency 59
char attr[1200];
5768 leency 60
char val[4096];
5746 leency 61
char anchor[256]=0;
62
5768 leency 63
#include "..\TWB\history.h"
4411 leency 64
 
4416 leency 65
#include "..\TWB\colors.h"
4686 leency 66
#include "..\TWB\unicode_tags.h"
4411 leency 67
#include "..\TWB\img_cache.h"
68
#include "..\TWB\parce_tag.h"
69
70
71
 
4475 leency 72
 
5747 leency 73
{
5766 leency 74
	int start_x, start_y, line_length, stolbec_len, body_magrin=5;
4411 leency 75
5766 leency 76
	if (!header)
4411 leency 77
 
78
		ChangeCharset("UTF-8", "CP866", #line);
79
		strcpy(#header, #line);
5718 leency 80
		strcat(#header, " -");
4411 leency 81
		strcat(#header, #version);
82
		line = 0;
83
		return;
84
	}
85
	if (t_html) && (!t_body) return;
86
4637 leency 87
	if (line) && (!anchor)
4411 leency 88
 
5766 leency 89
		start_x = stolbec * list.font_w + body_magrin * DrawBuf.zoom + list.x;
4411 leency 90
		start_y = stroka * list.item_h + body_magrin;
5766 leency 91
		stolbec_len = utf8_strlen(#line) * DrawBuf.zoom;
5825 leency 92
		line_length = stolbec_len * list.font_w;
5768 leency 93
94
		if (style.h) stroka++;
4411 leency 95
 
5768 leency 96
		if (style.b) WriteBufText(start_x+1, start_y, list.font_type, text_colors[text_color_index], #line, buf_data);
5766 leency 97
		if (style.i) { stolbec++; DrawBuf.Skew(start_x, start_y, line_length, list.item_h); } // bug with zoom>1
98
		if (style.s) DrawBuf.DrawBar(start_x, list.item_h / 2 - DrawBuf.zoom + start_y, line_length, DrawBuf.zoom, text_colors[text_color_index]);
5825 leency 99
		if (style.u) DrawBuf.DrawBar(start_x, list.item_h - DrawBuf.zoom - DrawBuf.zoom + start_y, line_length, DrawBuf.zoom, text_colors[text_color_index]);
100
		if (link) {
101
			DrawBuf.DrawBar(start_x, list.item_h*style.h + list.item_h - DrawBuf.zoom - DrawBuf.zoom + start_y, line_length, DrawBuf.zoom, text_colors[text_color_index]);
5519 leency 102
			PageLinks.AddText(#line, line_length, list.item_h*style.h + list.item_h, UNDERLINE);
5825 leency 103
		}
104
		stolbec += stolbec_len;
4411 leency 105
	}
4718 leency 106
}
4411 leency 107
//============================================================================================
108
void TWebBrowser::LoadInternalPage(dword bufpos, in_filesize){
5747 leency 109
	bufsize = in_filesize;
110
	bufpointer = bufpos;
111
	Prepare();
112
}
5766 leency 113
//============================================================================================
5747 leency 114
void TWebBrowser::Prepare(){
115
	word bukva[2];
5766 leency 116
	int j;
4411 leency 117
	byte ignor_param;
4718 leency 118
	dword bufpos;
4411 leency 119
	int line_len;
5773 leency 120
	style.b = style.i = style.u = style.s = style.h = style.blq = t_html = t_body =
121
	style.li = link = ignor_text = text_color_index = text_colors[0] = style.li_tab = 0;
5768 leency 122
	style.align = ALIGN_LEFT;
5749 leency 123
	link_color_inactive = 0x0000FF;
5746 leency 124
	link_color_active = 0xFF0000;
4491 leency 125
	bg_color = 0xFFFFFF;
126
	DrawBuf.Fill(bg_color);
4411 leency 127
	PageLinks.Clear();
4475 leency 128
	strcpy(#header, #version);
4504 leency 129
	stroka = -list.first;
4411 leency 130
	stolbec = 0;
4415 leency 131
	line = 0;
4411 leency 132
	//for plaint text use CP866 for other UTF
133
	if (strstri(bufpointer, "html"))
5749 leency 134
	{
135
		style.pre = 0;
136
		cur_encoding = CH_UTF8;
137
	}
5773 leency 138
	else
5749 leency 139
	{
140
		style.pre = 1;
141
		cur_encoding = CH_CP866;
142
	}
5773 leency 143
	for (bufpos=bufpointer ; (bufpos < bufpointer+bufsize) && (ESBYTE[bufpos]!=0) ; bufpos++;)
5749 leency 144
	{
5773 leency 145
		if (ignor_text) && (ESBYTE[bufpos]!='<') continue;
4411 leency 146
		bukva = ESBYTE[bufpos];
5773 leency 147
		switch (bukva)
4508 leency 148
		{
4411 leency 149
		case 0x0a:
150
			if (style.pre)
151
			{
5746 leency 152
				DrawStyle();
4411 leency 153
				NewLine();
5781 leency 154
				break;
155
			}
4726 leency 156
		case '\9':
4411 leency 157
			if (style.pre) //иначе идём на 0x0d
158
			{
5746 leency 159
				tab_len = strlen(#line) % 4;
4411 leency 160
				if (!tab_len) tab_len = 4;
4725 leency 161
				for (j=0; j
162
				break;
4411 leency 163
			}
164
			goto DEFAULT_MARK;
165
		case '&': //  and so on
166
			bufpos++;
167
			tag=0;
4508 leency 168
			for (j=0; (ESBYTE[bufpos]<>';') && (j<7);   j++, bufpos++;)
4411 leency 169
			{
4508 leency 170
				bukva = ESBYTE[bufpos];
4411 leency 171
				chrcat(#tag, bukva);
4508 leency 172
			}
4411 leency 173
			if (bukva = GetUnicodeSymbol()) goto DEFAULT_MARK;
174
			break;
4417 leency 175
		case '<':
4411 leency 176
			bufpos++;
177
			if (!strncmp(bufpos,"!--",3))
5749 leency 178
			{
5768 leency 179
				if (!strncmp(bufpos,"-->",3)) || (bufpointer + bufsize <= bufpos) break;
4411 leency 180
				bufpos++;
5768 leency 181
			}
4508 leency 182
			tag = attr = tagparam = ignor_param = NULL;
4411 leency 183
			while (ESBYTE[bufpos] !='>') && (bufpos < bufpointer + bufsize) //получаем тег и его параметры
5768 leency 184
			{
4550 leency 185
				bukva = ESBYTE[bufpos];
4411 leency 186
				if (bukva == '\9') || (bukva == '\x0a') || (bukva == '\x0d') bukva = ' ';
4508 leency 187
				if (!ignor_param) && (bukva <>' ')
4411 leency 188
				{
189
					if (strlen(#tag)
190
				}
4726 leency 191
				else
4411 leency 192
				{
193
					ignor_param = true;
194
					if (!ignor_text) && (strlen(#tagparam)+1
195
				}
196
				bufpos++;
197
			}
4508 leency 198
			strlwr(#tag);
4411 leency 199
200
			if (tag[strlen(#tag)-1]=='/') tag[strlen(#tag)-1]=NULL; //for br/
201
 
202
4726 leency 203
			Perenos();
4411 leency 204
 
5768 leency 205
			line = NULL;
5766 leency 206
			if (tag) SetStyle(); //обработка тегов
4677 leency 207
			strcpy(#oldtag, #tag);
5773 leency 208
			tag = attr = tagparam = ignor_param = NULL;
5768 leency 209
			break;
5746 leency 210
		default:
4411 leency 211
			DEFAULT_MARK:
212
			if (bukva<=15) bukva=' ';
213
			line_len = utf8_strlen(#line);
214
			if (!style.pre) && (bukva == ' ')
5712 leency 215
			{
5746 leency 216
				if (line[line_len-1]==' ') break; //no double spaces
4411 leency 217
				if (!stolbec) && (!line) break; //no paces at the beginning of the line
4726 leency 218
			}
219
			if (line_len < sizeof(line)) chrcat(#line, bukva);
4411 leency 220
			Perenos();
4726 leency 221
		}
5768 leency 222
	}
4411 leency 223
	DrawStyle();
224
	NewLine();
5766 leency 225
	DrawPage();
226
	if (list.first == 0) list.count = stroka;
4692 leency 227
	if (anchor) //если посреди текста появится новый якорь - будет бесконечный цикл
4415 leency 228
	{
4411 leency 229
		anchor=NULL;
230
		list.first=anchor_line_num;
231
		Prepare();
4415 leency 232
	}
5766 leency 233
}
4411 leency 234
//============================================================================================
235
void TWebBrowser::Perenos()
5747 leency 236
{
4718 leency 237
	int perenos_num;
238
	char new_line_text[4096];
239
	if (utf8_strlen(#line)*DrawBuf.zoom + stolbec < list.column_max) return;
240
	perenos_num = strrchr(#line, ' ');
5773 leency 241
	if (!perenos_num) && (utf8_strlen(#line)*DrawBuf.zoom>list.column_max) perenos_num=list.column_max/DrawBuf.zoom;
4718 leency 242
	strcpy(#new_line_text, #line + perenos_num);
5773 leency 243
	line[perenos_num] = 0x00;
4718 leency 244
	DrawStyle();
245
	strcpy(#line, #new_line_text);
5766 leency 246
	NewLine();
4718 leency 247
}
248
//============================================================================================
249
void TWebBrowser::SetStyle() {
5747 leency 250
	int left1 = 5 + list.x;
5773 leency 251
	int top1 = stroka * list.item_h + list.y + 5;
252
	byte opened;
5825 leency 253
	byte meta_encoding;
4491 leency 254
	//проверяем тег открывается или закрывается
4636 leency 255
	if (tag[0] == '/')
4411 leency 256
	{
257
		 opened = 0;
258
		 strcpy(#tag, #tag+1);
4491 leency 259
	}
4411 leency 260
	else opened = 1;
261
	if (istag("html")) {
4491 leency 262
		t_html = opened;
5749 leency 263
		return;
4637 leency 264
	}
4411 leency 265
	if (istag("script")) || (istag("style")) || (istag("binary")) || (istag("select")) { ignor_text = opened; return; }
266
	if (istag("form")) if (!opened) ignor_text = false;
5749 leency 267
	if(istag("title")) {
5746 leency 268
		if (opened) header=NULL;
5749 leency 269
		else if (!stroka) DrawTitle(#header); //тег закрылся - вывели строку
4491 leency 270
		return;
4411 leency 271
	}
272
	if (ignor_text) return;
273
274
	IF(istag("q"))
275
 
5746 leency 276
		if (opened)	strcat(#line, " \"");
4491 leency 277
		if (!opened) strcat(#line, "\" ");
5746 leency 278
		return;
279
	}
5749 leency 280
	if (anchor) && (isattr("id=")) { //очень плохо!!! потому что если не последний тег, работать не будет
4491 leency 281
		if (!strcmp(#anchor, #val))	anchor_line_num=list.first+stroka;
5749 leency 282
	}
5746 leency 283
	if (istag("body")) {
5749 leency 284
		t_body = opened;
285
		do{
4637 leency 286
			if (isattr("link=")) link_color_inactive = GetColor(#val);
4411 leency 287
			if (isattr("alink=")) link_color_active = GetColor(#val);
5746 leency 288
			if (isattr("text=")) text_colors[0]=GetColor(#val);
289
			if (isattr("bgcolor="))
290
			{
291
				bg_color=GetColor(#val);
4411 leency 292
				DrawBuf.Fill(bg_color);
5746 leency 293
			}
4475 leency 294
		} while(GetNextParam());
4411 leency 295
		if (opened) && (cur_encoding==CH_NULL) debugln("Document has no information about encoding, UTF will be used");
296
		return;
5749 leency 297
	}
4411 leency 298
	if (istag("a")) {
299
		if (opened)
5749 leency 300
		{
4491 leency 301
			if (link) IF(text_color_index > 0) text_color_index--; //если предыдущий тег а не был закрыт
4411 leency 302
			do{
303
				if (isattr("href="))
304
				{
5746 leency 305
					text_color_index++;
4411 leency 306
					text_colors[text_color_index] = text_colors[text_color_index-1];
307
					link = 1;
308
					text_colors[text_color_index] = link_color_inactive;
309
					PageLinks.AddLink(#val, DrawBuf.zoom * stolbec * list.font_w + left1, top1-DrawBuf.zoom);
4491 leency 310
				}
5746 leency 311
				if (anchor) && (isattr("name="))
4411 leency 312
				{
5746 leency 313
					if (!strcmp(#anchor, #val))
4411 leency 314
					{
5746 leency 315
						anchor_line_num=list.first+stroka;
4411 leency 316
					}
4415 leency 317
				}
4411 leency 318
			} while(GetNextParam());
319
		}
320
		else {
321
			link = 0;
322
			IF(text_color_index > 0) text_color_index--;
323
		}
324
		return;
325
	}
326
	if (istag("font")) {
327
		if (opened)
5749 leency 328
		{
4491 leency 329
			text_color_index++;
4411 leency 330
			text_colors[text_color_index] = text_colors[text_color_index-1];
331
			do{
332
				if (isattr("color=")) text_colors[text_color_index] = GetColor(#val);
333
			} while(GetNextParam());
5749 leency 334
		}
4411 leency 335
		else if (text_color_index > 0) text_color_index--;
336
		return;
5749 leency 337
	}
4411 leency 338
	if (istag("div")) || (istag("header")) || (istag("article")) || (istag("footer")) {
339
		IF(oldtag[0] != 'h') NewLine();
5746 leency 340
		if (isattr("bgcolor="))
5749 leency 341
		{
5746 leency 342
			bg_color=GetColor(#val);
5493 leency 343
			DrawBuf.Fill(bg_color);
5746 leency 344
		}
5493 leency 345
		return;
346
	}
4411 leency 347
	if (istag("p")) {
348
		IF(oldtag[0] == 'h') return;
5746 leency 349
		NewLine();
4411 leency 350
		IF(opened) NewLine();
4692 leency 351
		return;
352
	}
4411 leency 353
	if (istag("br")) { NewLine(); return; }
354
	if (istag("tr")) { if (opened) { NewLine(); strcat(#line, "| "); } return; }
5749 leency 355
	if (istag("td")) || (istag("th")) { if (!opened) strcat(#line, " | "); return; }
356
	if (istag("b")) || (istag("strong")) || (istag("big")) { style.b = opened; return; }
357
	if (istag("i")) || (istag("em")) || (istag("subtitle")) { style.i=opened; return; }
358
	if (istag("u")) || (istag("ins")) { style.u=opened; return;}
359
	if (istag("s")) || (istag("strike")) || (istag("del")) { style.s=opened; return; }
360
	if (istag("dd")) { stolbec += 5; return; }
361
	if (istag("blockquote")) { style.blq = opened; return; }
362
	if (istag("pre")) || (istag("code")) { style.pre = opened; return; }
363
	if (istag("img")) { ImgCache.Images( left1, top1, WB1.list.w); return; }
364
	if (istag("h1")) || (istag("h2")) || (istag("h3")) || (istag("h4")) || (istag("caption")) {
365
		style.h = opened;
366
		NewLine();
5768 leency 367
		if (opened)
4692 leency 368
		{
4491 leency 369
			WB1.DrawBuf.zoom=2;
4411 leency 370
			WB1.list.font_type |= 10111001b;
5768 leency 371
			if (isattr("align=")) && (isval("center")) style.align = ALIGN_CENTER;
5781 leency 372
			if (isattr("align=")) && (isval("right")) style.align = ALIGN_RIGHT;
5746 leency 373
			if (stroka>1) NewLine();
374
		}
5768 leency 375
		else
4411 leency 376
		{
5768 leency 377
			WB1.DrawBuf.zoom=1;
4411 leency 378
			WB1.list.font_type = 10111000b;
5768 leency 379
			style.align = ALIGN_LEFT;
5781 leency 380
		}
5746 leency 381
		return;
4411 leency 382
	}
383
	if (istag("dt")) {
384
		style.li = opened;
5749 leency 385
		if (opened) NewLine();
5746 leency 386
		return;
5749 leency 387
	}
4411 leency 388
	if (istag("li")) || (istag("dt"))
389
	{
5773 leency 390
		style.li = opened;
4411 leency 391
		if (opened)
5746 leency 392
		{
4491 leency 393
			NewLine();
4411 leency 394
			DrawBuf.DrawBar(style.li_tab * 5 * list.font_w * DrawBuf.zoom + list.x, stroka +1 * list.item_h - 3
4692 leency 395
			 - DrawBuf.zoom - DrawBuf.zoom, DrawBuf.zoom*2, DrawBuf.zoom*2, 0x454545);
5825 leency 396
		}
5773 leency 397
		return;
4411 leency 398
	}
399
	if (istag("ul")) || (istag("ol")) {
400
		if (!opened)
5749 leency 401
		{
402
			style.li = opened;
403
			style.li_tab--;
404
			NewLine();
405
		}
406
		else style.li_tab++;
407
	}
408
	if (istag("hr")) {
409
		if (isattr("color=")) EDI = GetColor(#val); else EDI = 0x999999;
410
		$push edi;
5773 leency 411
		NewLine();
412
		$pop edi;
4692 leency 413
		DrawBuf.DrawBar(5, list.item_h*stroka+4, list.w-10, 1, EDI);
5773 leency 414
		NewLine();
5825 leency 415
		return;
4692 leency 416
	}
5773 leency 417
	if (istag("meta")) || (istag("?xml")) {
4411 leency 418
		do{
5749 leency 419
			if (isattr("charset=")) || (isattr("content=")) || (isattr("encoding="))
4411 leency 420
			{
5746 leency 421
				strcpy(#val, #val[strrchr(#val, '=')]); //поиск в content=
4411 leency 422
				strlwr(#val);
5746 leency 423
				if      (isval("utf-8"))        || (isval("utf8"))        meta_encoding = CH_UTF8;
424
				else if (isval("koi8-r"))       || (isval("koi8-u"))      meta_encoding = CH_KOI8;
5749 leency 425
				else if (isval("windows-1251")) || (isval("windows1251")) meta_encoding = CH_CP1251;
5746 leency 426
				else if (isval("iso-8859-5"))   || (isval("iso8859-5"))   meta_encoding = CH_ISO8859_5;
427
				else if (isval("dos"))          || (isval("cp-866"))      meta_encoding = CH_CP866;
428
				if (cur_encoding!=meta_encoding) BufEncode(meta_encoding);
429
				return;
5749 leency 430
			}
4636 leency 431
		} while(GetNextParam());
4411 leency 432
		return;
433
	}
434
}
435
436
void TWebBrowser::BufEncode(int set_new_encoding)
437
 
5749 leency 438
	int bufpointer_realsize;
5704 leency 439
	cur_encoding = set_new_encoding;
440
	if (o_bufpointer==0)
441
	{
442
		o_bufpointer = malloc(bufsize);
443
		strcpy(o_bufpointer, bufpointer);
444
	}
445
	else
446
	{
447
		strcpy(bufpointer, o_bufpointer);
448
	}
449
}
450
//============================================================================================
451
void TWebBrowser::DrawScroller()
5747 leency 452
{
4674 leency 453
	scroll_wv.max_area = list.count;
4411 leency 454
	scroll_wv.cur_area = list.visible;
4416 leency 455
	scroll_wv.position = list.first;
456
457
	scroll_wv.all_redraw = 0;
4411 leency 458
 
5519 leency 459
	scroll_wv.start_y = list.y;
4486 leency 460
4508 leency 461
	scroll_wv.size_y = list.h;
4411 leency 462
 
5678 leency 463
464
	scrollbar_v_draw(#scroll_wv);
5519 leency 465
 
4416 leency 466
//============================================================================================
4411 leency 467
void TWebBrowser::NewLine()
5747 leency 468
{
4692 leency 469
	int onleft, ontop;
4475 leency 470
5678 leency 471
	onleft = list.x + 5;
4692 leency 472
 
473
	if (t_html) && (!t_body) return;
5825 leency 474
	if (stroka * list.item_h + 5 >= 0) && ( stroka + 1 * list.item_h + 5 < list.h) && (!anchor)
4637 leency 475
	{
5825 leency 476
		if (style.align == ALIGN_CENTER) && (DrawBuf.zoom==1) DrawBuf.AlignCenter(onleft,ontop,list.w,list.item_h,stolbec * list.font_w);
4475 leency 477
		if (style.align == ALIGN_RIGHT) && (DrawBuf.zoom==1)  DrawBuf.AlignRight(onleft,ontop,list.w,list.item_h,stolbec * list.font_w);
5825 leency 478
	}
479
	stroka++;
4475 leency 480
	if (style.blq) stolbec = 6; else stolbec = 0;
481
	if (style.li) stolbec = style.li_tab * 5;
5746 leency 482
}
483
//============================================================================================
4488 leency 484
int istag(dword text) { if (!strcmp(#tag,text)) return 1; else return 0; }
5747 leency 485
int isattr(dword text) { if (!strcmp(#attr,text)) return 1; else return 0; }
5746 leency 486
int isval(dword text) { if (!strcmp(#val,text)) return 1; else return 0; }
487
//============================================================================================
488
void TWebBrowser::DrawPage()
5766 leency 489
{
490
	PutPaletteImage(list.first * list.item_h * DrawBuf.bufw * 4 + buf_data+8, DrawBuf.bufw, list.h, DrawBuf.bufx, DrawBuf.bufy, 32, 0);
491
	DrawScroller();
5825 leency 492
}
5766 leency 493
>
494