| 1971 |
lev |
1 |
//http://jsbeautifier.org/ |
|
|
2 |
//Web-component, Leency & Veliant 2007-2009 |
|
|
3 |
//lev |
|
|
4 |
|
|
|
5 |
|
| 2085 |
leency |
6 |
//идея - левые файлы открывать соответствующими прогами |
|
|
7 |
//wintodos(buf); -> в парсе хтмл как и все кодировки |
| 1971 |
lev |
8 |
//ol - циферки |
|
|
9 |
|
| 2155 |
leency |
10 |
int downloader_id; |
| 1971 |
lev |
11 |
|
|
|
12 |
dword j, |
|
|
13 |
buf, |
|
|
14 |
filesize, |
|
|
15 |
blink = 400; |
|
|
16 |
int i; |
|
|
17 |
|
|
|
18 |
char download_path[]="/rd/1/.download"; |
|
|
19 |
//char search_path[]="http://nova.rambler.ru/search?words="; |
|
|
20 |
char search_path[]="http://nigma.ru/index.php?s="; |
| 2182 |
leency |
21 |
char version[]=" Text-based Browser 23.69"; |
| 1971 |
lev |
22 |
|
|
|
23 |
|
|
|
24 |
struct TWebBrowser { |
| 2085 |
leency |
25 |
int left, |
| 1971 |
lev |
26 |
top, |
|
|
27 |
width, |
|
|
28 |
height; |
|
|
29 |
void DrawScroller(); |
|
|
30 |
void Load(); |
|
|
31 |
void ParseHTML(dword, dword); |
|
|
32 |
void Scan(dword); |
|
|
33 |
void WhatTextStyle(int left1, top1, width1); |
|
|
34 |
}; |
|
|
35 |
|
|
|
36 |
TWebBrowser WB1; |
|
|
37 |
|
|
|
38 |
#include "include\history.h--" |
|
|
39 |
#include "include\colors.h--" |
|
|
40 |
|
|
|
41 |
void TWebBrowser::Scan(dword id) { |
| 1974 |
yogev_ezra |
42 |
IF (id > 399) { |
| 1971 |
lev |
43 |
j = 0; |
|
|
44 |
FOR(i = 0; i <= id - 401; i++) { |
|
|
45 |
do j++; |
|
|
46 |
while (page_links[j] <>'|'); |
|
|
47 |
} |
|
|
48 |
page_links[j] = 0x00; |
|
|
49 |
copystr(#page_links[find_symbol(#page_links, '|')], #URL); |
|
|
50 |
Load(#URL); |
|
|
51 |
Draw_Window(); |
|
|
52 |
return; |
|
|
53 |
} |
|
|
54 |
//edit1.flags=64; |
|
|
55 |
IF(kolichestvo < max_kolvo_strok) SWITCH(id) { |
|
|
56 |
CASE 183: CASE 184: CASE 180: CASE 181: return; |
|
|
57 |
} //если мало строк игнорируем некоторые кнопки |
|
|
58 |
switch (id) { |
|
|
59 |
case 011: |
|
|
60 |
case 004: |
|
|
61 |
ReadHtml(); |
|
|
62 |
break; |
|
|
63 |
case BACK: |
|
|
64 |
BrowserHistory.GoBack(); |
|
|
65 |
return; |
| 2085 |
leency |
66 |
case FORWARD: |
|
|
67 |
//RunProgram("@notify", "Forward button is not realized yet"); |
|
|
68 |
return; |
| 1971 |
lev |
69 |
case 054: //F5 |
|
|
70 |
IF(edit1.flags == 66) break; |
|
|
71 |
case REFRESH: |
|
|
72 |
copystr(#URL, #editURL); |
|
|
73 |
Draw_Window(); |
|
|
74 |
return; |
| 2085 |
leency |
75 |
case 014: //Ctrl+N новое окно |
|
|
76 |
case 020: //Ctrl+T новая вкладка |
|
|
77 |
case NEWTAB: |
|
|
78 |
MoveSize(190,80,OLD,OLD); |
|
|
79 |
RunProgram(#program_path, #URL); |
|
|
80 |
return; |
| 1971 |
lev |
81 |
case HOME: |
|
|
82 |
copystr("/sys/index.htm", #editURL); |
|
|
83 |
case GOTOURL: |
|
|
84 |
case 0x0D: //enter |
|
|
85 |
copystr(#editURL, #URL); |
|
|
86 |
Load(#URL); |
|
|
87 |
return; |
|
|
88 |
case 052: //Нажата F3 |
|
|
89 |
IF(edit1.flags <> 66) |
|
|
90 |
IF (strcmp(get_URL_part(5),"http:")<>0) RunProgram("tinypad", #URL); ELSE RunProgram("tinypad", #download_path); |
|
|
91 |
break; |
|
|
92 |
case 173: //ctrl+enter |
|
|
93 |
case SEARCHWEB: |
|
|
94 |
copystr(#search_path, #URL); |
|
|
95 |
copystr(#editURL, #URL + strlen(#URL)); |
|
|
96 |
Load(#URL); |
|
|
97 |
return; |
|
|
98 |
case ID1: //мотаем вверх |
|
|
99 |
IF(za_kadrom > 0) za_kadrom--; |
|
|
100 |
ELSE return; |
|
|
101 |
break; |
|
|
102 |
case ID2: //мотаем вниз |
|
|
103 |
IF(max_kolvo_strok + za_kadrom >= kolichestvo) return; |
|
|
104 |
za_kadrom++; |
|
|
105 |
break; |
|
|
106 |
case 183: //PgDown |
|
|
107 |
IF(za_kadrom == kolichestvo - max_kolvo_strok) return; |
|
|
108 |
za_kadrom = za_kadrom + max_kolvo_strok + 2; |
|
|
109 |
IF(max_kolvo_strok + za_kadrom > kolichestvo) za_kadrom = kolichestvo - max_kolvo_strok; |
| 1974 |
yogev_ezra |
110 |
BREAK; |
| 1971 |
lev |
111 |
case 184: //PgUp |
| 1974 |
yogev_ezra |
112 |
IF(za_kadrom == 0) RETURN; |
| 1971 |
lev |
113 |
za_kadrom = za_kadrom - max_kolvo_strok - 2; |
|
|
114 |
IF(za_kadrom < 0) za_kadrom = 0; |
| 1974 |
yogev_ezra |
115 |
BREAK; |
| 1971 |
lev |
116 |
case 180: //home |
|
|
117 |
IF (za_kadrom <>0) za_kadrom = 0; |
| 1974 |
yogev_ezra |
118 |
ELSE RETURN; |
|
|
119 |
BREAK; |
| 1971 |
lev |
120 |
case 181: //end |
|
|
121 |
za_kadrom = kolichestvo - max_kolvo_strok; |
| 1974 |
yogev_ezra |
122 |
BREAK; |
| 1971 |
lev |
123 |
default: |
| 1974 |
yogev_ezra |
124 |
RETURN; |
| 1971 |
lev |
125 |
} |
|
|
126 |
IF(id == 11) koitodos(buf); |
|
|
127 |
ParseHTML(buf, filesize); |
|
|
128 |
} |
|
|
129 |
|
|
|
130 |
//скролл |
|
|
131 |
void TWebBrowser::DrawScroller() { |
|
|
132 |
dword on_y; |
|
|
133 |
DrawBar(left + width - 15, top + 17, 1, height - 34, 0x94AECE); //линия слева от прокрутки |
|
|
134 |
DrawFlatButton(left + width - 15, top + height - 17, 16, 16, ID2, 0xE4DFE1, "\x19"); |
|
|
135 |
DrawFlatButton(left + width - 15, top, 16, 16, ID1, 0xE4DFE1, "\x18"); |
|
|
136 |
|
|
|
137 |
IF(kolichestvo <= max_kolvo_strok) { |
|
|
138 |
DrawBar(left + width - 14, top + 17, 16, height - 34, 0xCED0D0); |
|
|
139 |
return; |
|
|
140 |
} |
|
|
141 |
|
|
|
142 |
razm_scrl = height - 16 * max_kolvo_strok / kolichestvo - 3; |
|
|
143 |
IF(razm_scrl < 10) razm_scrl = 10; |
|
|
144 |
IF(za_kadrom + max_kolvo_strok >= kolichestvo) on_y = height - razm_scrl + top - 17; |
|
|
145 |
ELSE on_y = height - 32 * za_kadrom / kolichestvo + top + 16; |
|
|
146 |
DrawFlatButton(left + width - 15, on_y, 16, razm_scrl, 0, 0xE4DFE1, ""); //ползунок |
|
|
147 |
IF(on_y > top + 17) DrawBar(left + width - 14, top + 17, 16, on_y - top - 17, 0xCED0D0); //поле до ползунка |
|
|
148 |
IF(height - razm_scrl + top - 17 > on_y) |
|
|
149 |
DrawBar(left + width - 14, on_y + razm_scrl + 1, 16, height - razm_scrl - on_y + top - 18, 0xCED0D0); //поле после ползунка |
|
|
150 |
} |
|
|
151 |
|
|
|
152 |
|
|
|
153 |
void GetNewUrl(){ |
|
|
154 |
IF (!strcmp(get_URL_part(2),"./")) copystr(#URL+1,#URL); |
|
|
155 |
//IF (!strcmp(get_URL_part(3),"../")) |
|
|
156 |
//{ |
|
|
157 |
// //DrawTitle(#URL+7); |
|
|
158 |
//} |
|
|
159 |
if (strcmp(get_URL_part(3),"/rd")<>0) && (strcmp(get_URL_part(5),"/sys/")<>0) && (strcmp(get_URL_part(3),"/hd")<>0) |
|
|
160 |
&& (strcmp(get_URL_part(3),"/bd")<>0) && (strcmp(get_URL_part(3),"/fd")<>0) && (strcmp(get_URL_part(3),"/cd")<>0) |
|
|
161 |
&& (strcmp(get_URL_part(5),"http:")<>0) && (strcmp(get_URL_part(5),"mailt")<>0) && (strcmp(get_URL_part(5),"ftp:/")<>0) |
|
|
162 |
{ |
|
|
163 |
copystr(BrowserHistory.CurrentUrl(), #editURL); //достаём адрес текущей страницы |
|
|
164 |
|
|
|
165 |
IF (editURL[find_symbol(#editURL, '/')-2]<>'/') // если не http://test.ua |
|
|
166 |
{ |
|
|
167 |
editURL[find_symbol(#editURL, '/')] = 0x00; //обрезаем её урл до последнего / |
|
|
168 |
IF (URL[0]=='/') copystr(#URL+1,#URL); |
|
|
169 |
} |
|
|
170 |
copystr(#URL, #editURL + strlen(#editURL)); //клеим новый адрес |
|
|
171 |
copystr(#editURL, #URL); |
|
|
172 |
} |
|
|
173 |
} |
|
|
174 |
|
|
|
175 |
|
|
|
176 |
|
| 2153 |
leency |
177 |
void ReadHtml(byte DO_LOAD) |
|
|
178 |
{ |
| 1971 |
lev |
179 |
|
| 2155 |
leency |
180 |
if (!strcmp(get_URL_part(5),"http:"))) |
| 1971 |
lev |
181 |
{ |
| 1974 |
yogev_ezra |
182 |
IF (DO_LOAD) && (!WindowRePaint) |
| 1971 |
lev |
183 |
{ |
|
|
184 |
DeleteFile(#download_path); |
|
|
185 |
IF (URL[strlen(#URL)-1]=='/') URL[strlen(#URL)-1]=''; |
| 2155 |
leency |
186 |
downloader_id = RunProgram("/sys/network/downloader", #URL); |
|
|
187 |
IF (downloader_id<0) RunProgram("@notify", "Error running Downloader. Internet unavilable."); |
| 1974 |
yogev_ezra |
188 |
RETURN; |
| 1971 |
lev |
189 |
} |
| 2184 |
leency |
190 |
file_size stdcall (#download_path); |
| 1971 |
lev |
191 |
} |
| 2184 |
leency |
192 |
ELSE file_size stdcall (#URL); |
|
|
193 |
|
| 1971 |
lev |
194 |
filesize = EBX; |
| 2184 |
leency |
195 |
mem_Free(buf); |
|
|
196 |
buf = mem_Alloc(filesize); |
|
|
197 |
ReadFile(0, filesize, buf, #URL); |
| 1971 |
lev |
198 |
} |
|
|
199 |
|
|
|
200 |
|
|
|
201 |
|
|
|
202 |
void TWebBrowser::Load(dword adress) { |
| 1974 |
yogev_ezra |
203 |
IF (URL[0] == '#') { //мы не умеем переходить по ссылке внутри документа. Пока что... |
| 1971 |
lev |
204 |
copystr(#editURL, #URL); |
|
|
205 |
return; |
|
|
206 |
} |
|
|
207 |
|
|
|
208 |
URL[find_symbol(#URL, '#')-1] = 0x00; //заглушка, лучше, чем ничего (хабр, например, будет работать) |
|
|
209 |
|
|
|
210 |
GetNewUrl(); |
|
|
211 |
|
|
|
212 |
max_kolvo_stolbcov = width - 30 / 6; |
|
|
213 |
max_kolvo_strok = height - 3 / 10 - 2; |
| 1976 |
yogev_ezra |
214 |
copystr(#version, #header); |
| 1974 |
yogev_ezra |
215 |
IF (!WindowRePaint) { |
| 1971 |
lev |
216 |
za_kadrom = 0; |
|
|
217 |
copystr(#URL, #editURL); |
|
|
218 |
BrowserHistory.AddUrl(); |
|
|
219 |
} |
|
|
220 |
edit1.size = edit1.pos = strlen(#editURL); |
|
|
221 |
edit_box_draw stdcall(#edit1); //рисуем строку адреса |
|
|
222 |
|
|
|
223 |
ReadHtml(LETS_LOAD); |
|
|
224 |
wintodos(buf); |
|
|
225 |
ParseHTML(buf, filesize); |
|
|
226 |
IF(!strlen(buf)) { |
|
|
227 |
IF (strcmp(get_URL_part(5),"http:")==0) |
|
|
228 |
{ |
|
|
229 |
PutImage(#stop_btn, 24, 24, 88, 10); |
|
|
230 |
WriteText(left + 10, top + 18, 0x80, 0, "Loading...", 0); |
|
|
231 |
} |
|
|
232 |
ELSE |
|
|
233 |
WriteText(left + 10, top + 18, 0x80, 0, "Page not found. May be, URL contains some errors.", 0); |
|
|
234 |
} |
|
|
235 |
|
| 1976 |
yogev_ezra |
236 |
IF (!strcmp(#version, #header)) DrawTitle(#header); |
| 1971 |
lev |
237 |
} |
|
|
238 |
|
|
|
239 |
|
|
|
240 |
|
|
|
241 |
byte rez, b_text, i_text, u_text, s_text, w_title, pre_text, blq_text, li_text, link, ignor_text, li_tab; |
|
|
242 |
dword text_colors[10], |
|
|
243 |
text_color_index = 0, |
|
|
244 |
link_color; |
|
|
245 |
int stroka, |
| 2085 |
leency |
246 |
stolbec, |
|
|
247 |
tab_len; |
| 1971 |
lev |
248 |
byte line[330], |
|
|
249 |
tag[100], |
|
|
250 |
tagparam[10000], |
|
|
251 |
parametr[1200], |
|
|
252 |
options[1000]; |
|
|
253 |
|
|
|
254 |
byte ignor_param = 0; |
|
|
255 |
|
|
|
256 |
void TWebBrowser::ParseHTML(dword bword, fsize){ |
|
|
257 |
word bukva[1]; |
|
|
258 |
char temp[768]; |
|
|
259 |
stroka = -za_kadrom; |
|
|
260 |
stolbec = 0; |
|
|
261 |
FOR(j = 400; j < blink + 1; j++;) DeleteButton(j); |
|
|
262 |
b_text = i_text = u_text = s_text = w_title = pre_text = blq_text = |
|
|
263 |
li_text = link = ignor_text = text_color_index = text_colors[0] = li_tab = 0; //обнуляем теги |
|
|
264 |
link_color = 0x0000FF; |
|
|
265 |
blink = 400; |
|
|
266 |
line = ''; |
|
|
267 |
copystr("|", #page_links); |
|
|
268 |
IF(!strcmp(#URL + strlen(#URL) - 4, ".txt")) pre_text = 1; //зачётное отображение текста |
|
|
269 |
IF(!strcmp(#URL + strlen(#URL) - 4, ".mht")) ignor_text = 1; |
|
|
270 |
IF(za_kadrom == 0) || (WindowRePaint) DrawBar(left, top, width - 15, 15, 0xFFFFFF); //закрашиваем первую строку |
|
|
271 |
for (; buf + fsize > bword; bword++;) { |
|
|
272 |
bukva = ESBYTE[bword]; |
|
|
273 |
switch (bukva) { |
|
|
274 |
case 0x0a: |
|
|
275 |
IF(pre_text == 1) { |
|
|
276 |
bukva = ''; |
|
|
277 |
temp = ''; |
|
|
278 |
goto NEXT_MARK; |
|
|
279 |
} |
| 1974 |
yogev_ezra |
280 |
CASE '\9': |
| 2085 |
leency |
281 |
if (pre_text == 1) //иначе идём на 0x0d |
|
|
282 |
{ |
|
|
283 |
tab_len=strlen(#line)/8; |
|
|
284 |
tab_len=tab_len*8; |
|
|
285 |
tab_len=8+tab_len-strlen(#line); |
|
|
286 |
for (i=0; i |
|
|
287 |
break; |
|
|
288 |
} |
|
|
289 |
case 0x0d: |
| 1971 |
lev |
290 |
bukva = ' '; |
|
|
291 |
goto DEFAULT_MARK; |
| 2085 |
leency |
292 |
case '<': |
| 1971 |
lev |
293 |
bword++; //промотаем символ < |
|
|
294 |
IF(ESBYTE[bword] == '!') //фильтрация внутри , дерзко |
|
|
295 |
{ |
|
|
296 |
bword++; |
|
|
297 |
IF(ESBYTE[bword] == '-') { |
|
|
298 |
HH_: do { |
|
|
299 |
bword++; |
|
|
300 |
IF(bword >= buf + fsize) break 1; |
|
|
301 |
} while (ESBYTE[bword] <>'-'); |
|
|
302 |
bword++; |
|
|
303 |
IF(ESBYTE[bword] <>'-') GOTO HH_; |
|
|
304 |
} |
|
|
305 |
} |
| 1974 |
yogev_ezra |
306 |
WHILE (ESBYTE[bword] <>'>') && (bword < buf + fsize) //получаем тег и его параметры |
| 1971 |
lev |
307 |
{ |
|
|
308 |
bukva = ESBYTE[bword]; |
|
|
309 |
IF(bukva == '\9') || (bukva == '\x0a') || (bukva == '\x0d') bukva = ' '; |
|
|
310 |
IF(!ignor_param) && (bukva <>' ') copystr(#bukva, #tag + strlen(#tag)); |
|
|
311 |
ELSE { |
|
|
312 |
ignor_param = true; |
|
|
313 |
copystr(#bukva, #tagparam + strlen(#tagparam)); |
|
|
314 |
} |
|
|
315 |
bword++; |
|
|
316 |
} |
|
|
317 |
lowcase(#tag); |
|
|
318 |
lowcase(#tagparam); |
|
|
319 |
//WriteDebug(#tagparam); |
|
|
320 |
//WriteDebug(#tag); Pause(50); |
|
|
321 |
// |
|
|
322 |
IF (tag[strlen(#tag)-1]=='/') tag[strlen(#tag)-1]=''; //небольшой фикс для работы с XHTML-тегами типа br/ |
|
|
323 |
IF(strlen(#tagparam) > 0) && (strlen(#tagparam) < 4000) GetNextParam(); |
|
|
324 |
WhatTextStyle(left + 5, stroka * 10 + top + 5, width - 20); //обработка тегов |
|
|
325 |
|
|
|
326 |
line = tag = parametr = tagparam = ignor_param = 0; //всё обнуляем |
|
|
327 |
break; |
|
|
328 |
case '=': //поддержка шайтанской кодировки страниц, сохранённых через ИЕ7 |
|
|
329 |
IF(strcmp(#URL + strlen(#URL) - 4, ".mht")<>0) goto DEFAULT_MARK; |
|
|
330 |
|
|
|
331 |
bword++; |
|
|
332 |
bukva=ESBYTE[bword]; |
|
|
333 |
copystr(#bukva, #temp); |
|
|
334 |
|
|
|
335 |
bword++; |
|
|
336 |
bukva=ESBYTE[bword]; |
|
|
337 |
copystr(#bukva, #temp + strlen(#temp)); |
|
|
338 |
|
|
|
339 |
bukva=Hex2Symb(#temp); |
|
|
340 |
IF (bukva) goto DEFAULT_MARK; |
|
|
341 |
break; |
|
|
342 |
case '&': |
|
|
343 |
IF(ignor_text) break; |
|
|
344 |
bword++; |
|
|
345 |
j = 0; |
|
|
346 |
WHILE(ESBYTE[bword] <>';') && (j < 7) { |
|
|
347 |
bukva = ESBYTE[bword]; |
|
|
348 |
copystr(#bukva, #tag + strlen(#tag)); |
|
|
349 |
bword++; |
|
|
350 |
j++; |
|
|
351 |
} |
|
|
352 |
bukva = ''; //всю эту хрень надо залабать через масив |
|
|
353 |
IF(!strcmp("nbsp", #tag)) copystr(" ", #line + strlen(#line)); |
|
|
354 |
IF(!strcmp("copy", #tag)) || (!strcmp("#169", #tag)) copystr("(c)", #line + strlen(#line)); |
|
|
355 |
IF(!strcmp("reg", #tag)) || (!strcmp("#174", #tag)) copystr("(r)", #line + strlen(#line)); |
|
|
356 |
rez = StrToInt(#tag + 1) - 1040; |
|
|
357 |
IF(tag[1] == '1') && (strlen(#tag) == 5) bukva = utf100tmmv_mas[rez]; |
|
|
358 |
IF(!strcmp("bdquo", #tag)) copystr(",,", #line + strlen(#line)); |
|
|
359 |
IF(!strcmp("amp", #tag)) || (!strcmp("#38", #tag)) bukva = '&'; |
|
|
360 |
IF(!strcmp("lt", #tag)) || (!strcmp("#60", #tag)) bukva = '<'; |
|
|
361 |
IF(!strcmp("gt", #tag)) || (!strcmp("#62", #tag)) bukva = '>'; |
|
|
362 |
IF(!strcmp("minus", #tag)) || (!strcmp("#8722", #tag)) bukva = '-'; |
|
|
363 |
IF(!strcmp("#151", #tag)) || (!strcmp("#149", #tag)) || (!strcmp("ndash", #tag)) bukva = '-'; |
|
|
364 |
IF(!strcmp("#39", #tag)) || (!strcmp("#96", #tag)) bukva = '\''; |
|
|
365 |
IF(!strcmp("quot", #tag)) || (!strcmp("#34", #tag)) || (!strcmp("ldquo", #tag)) || (!strcmp("rdquo", #tag)) bukva = '"'; |
|
|
366 |
tag = ''; |
|
|
367 |
//break; |
|
|
368 |
default: |
|
|
369 |
DEFAULT_MARK: |
|
|
370 |
IF(ignor_text) break; |
|
|
371 |
IF(pre_text == 0) && (bukva == ' ') && (strcmp(#line + strlen(#line) - 1, " ") == 0) continue; |
|
|
372 |
// |
|
|
373 |
if (stolbec + strlen(#line) > max_kolvo_stolbcov) && (w_title == 0) { |
|
|
374 |
copystr(#line + find_symbol(#line, ' '), #temp); //перенос по словам |
|
|
375 |
line[find_symbol(#line, ' ')] = 0x00; |
|
|
376 |
NEXT_MARK: IF(stroka - 1 > max_kolvo_strok) && (za_kadrom <>0) break 1; //уходим... |
|
|
377 |
WhatTextStyle(left + 5, stroka * 10 + top + 5, width - 20); //вывод строки |
|
|
378 |
TextGoDown(left + 5, stroka * 10 + top + 5, width - 20); //закрашиваем строку вконце |
|
|
379 |
copystr(#temp, #line); |
|
|
380 |
} |
| 1974 |
yogev_ezra |
381 |
IF(pre_text == 0) && (bukva == ' ') && (stolbec == 0) && (strlen(#line) == 0) CONTINUE; |
| 1971 |
lev |
382 |
copystr(#bukva, #line + strlen(#line)); |
|
|
383 |
} |
|
|
384 |
} |
|
|
385 |
IF(max_kolvo_strok * 10 + 25 <= height) |
|
|
386 |
DrawBar(left, max_kolvo_strok * 10 + top + 25, width - 15, -max_kolvo_strok * 10 + height - 25, 0xFFFFFF); |
|
|
387 |
IF(stroka * 10 + 15 <= height) |
|
|
388 |
DrawBar(left, stroka * 10 + top + 15, width - 15, -stroka * 10 + height - 15, 0xFFFFFF); //закрашиваем всё до конца |
|
|
389 |
IF(za_kadrom == 0) kolichestvo = stroka; |
|
|
390 |
DrawScroller(); //рисуем скролл |
|
|
391 |
} |
|
|
392 |
|
|
|
393 |
|
| 2182 |
leency |
394 |
void GetNextParam() |
|
|
395 |
{ |
|
|
396 |
byte kavichki = false; |
|
|
397 |
int i = strlen(#tagparam) - 1; |
|
|
398 |
|
|
|
399 |
WHILE((i > 0) && ((tagparam[i] == '"') || (tagparam[i] == ' ') || (tagparam[i] == '\'') || (tagparam[i] == '/'))) |
| 1971 |
lev |
400 |
{ |
| 2182 |
leency |
401 |
IF (tagparam[i] == '"') || (tagparam[i] == '\'') kavichki=tagparam[i]; |
| 1971 |
lev |
402 |
tagparam[i] = 0x00; |
|
|
403 |
i--; |
|
|
404 |
} |
|
|
405 |
|
| 2182 |
leency |
406 |
IF (kavichki) |
| 1971 |
lev |
407 |
{ |
| 2182 |
leency |
408 |
i=find_symbol(#tagparam, kavichki); |
| 1971 |
lev |
409 |
copystr(#tagparam + i, #options); |
|
|
410 |
} |
| 1974 |
yogev_ezra |
411 |
ELSE |
| 1971 |
lev |
412 |
{ |
| 2182 |
leency |
413 |
WHILE((i > 0) && (tagparam[i] <>'=')) i--; //i=find_symbol(#tagparam, '=')+1; |
|
|
414 |
i++; |
|
|
415 |
|
| 1971 |
lev |
416 |
copystr(#tagparam + i, #options); //копируем опцию |
|
|
417 |
WHILE (options[0] == ' ') copystr(#options + 1, #options); |
|
|
418 |
} |
|
|
419 |
tagparam[i] = 0x00; |
|
|
420 |
|
| 2182 |
leency |
421 |
FOR ( ; ((tagparam[i] <>' ') && (i > 0); i--) |
|
|
422 |
{ |
|
|
423 |
IF (tagparam[i] == '=') //дерзкая заглушка |
| 1971 |
lev |
424 |
{ |
|
|
425 |
//copystr(#tagparam+i+2,#options); |
|
|
426 |
tagparam[i + 1] = 0x00; |
|
|
427 |
} |
|
|
428 |
} |
| 2182 |
leency |
429 |
|
| 1971 |
lev |
430 |
copystr(#tagparam + i + 1, #parametr); //копируем параметр |
|
|
431 |
tagparam[i] = 0x00; |
|
|
432 |
} |
|
|
433 |
|
|
|
434 |
|
|
|
435 |
|
|
|
436 |
char oldtag[100]; |
| 2085 |
leency |
437 |
void TWebBrowser::WhatTextStyle(int left1, top1, width1) { |
| 1971 |
lev |
438 |
dword hr_color; |
|
|
439 |
|
|
|
440 |
dword image=0; |
| 2182 |
leency |
441 |
char temp[4096]; |
|
|
442 |
int w, h, img_za_kadrom=0; |
| 1971 |
lev |
443 |
|
|
|
444 |
IF(tag[0] == '/') { |
|
|
445 |
rez = 0; |
|
|
446 |
copystr(#tag + 1, #tag); |
|
|
447 |
} ELSE rez = 1; |
|
|
448 |
// |
|
|
449 |
IF(!chTag("html")) { |
|
|
450 |
IF(!strcmp(#URL + strlen(#URL) - 4, ".mht")) IF (rez==0) ignor_text = 1; ELSE ignor_text = 0; |
|
|
451 |
return; |
|
|
452 |
} |
|
|
453 |
IF(!chTag("script")) || (!chTag("style")) ignor_text = rez; |
|
|
454 |
IF (ignor_text == 1) return; |
|
|
455 |
// |
|
|
456 |
|
| 1978 |
yogev_ezra |
457 |
if(!chTag("title")) IF(w_title == 0) { |
| 1971 |
lev |
458 |
copystr(" ", #line); |
|
|
459 |
w_title = 1; |
|
|
460 |
} |
|
|
461 |
ELSE { |
|
|
462 |
w_title = 0; |
|
|
463 |
stolbec = 0; |
|
|
464 |
copystr(#line, #header); |
| 1977 |
yogev_ezra |
465 |
copystr(" -", #header + strlen(#header)); |
|
|
466 |
copystr(#version, #header + strlen(#header)); |
| 1971 |
lev |
467 |
IF(stroka == 0) || (WindowRePaint == 1) DrawTitle(#header); |
|
|
468 |
//да, знаю, 2 раза выходит, но, если большая страница, то труъ |
|
|
469 |
return; |
|
|
470 |
} |
|
|
471 |
// |
|
|
472 |
IF(!chTag("q")) copystr("\"", #line + strlen(#line)); |
|
|
473 |
if (stroka > -1) && (stroka - 2 < max_kolvo_strok) && (line) { |
|
|
474 |
WriteText(stolbec * 6 + left1, top1, 0x80, text_colors[text_color_index], #line, 0); |
|
|
475 |
IF(b_text) WriteText(stolbec * 6 + left1 + 1, top1, 0x80, text_colors[text_color_index], #line, 0); |
|
|
476 |
IF(i_text) Skew(stolbec * 6 + left1, top1, strlen(#line)+1*6, 10); |
|
|
477 |
IF(s_text) DrawBar(stolbec * 6 + left1, top1 + 4, strlen(#line) * 6, 1, text_colors[text_color_index]); //зачёркнутый |
|
|
478 |
IF(u_text) DrawBar(stolbec * 6 + left1, top1 + 8, strlen(#line) * 6, 1, text_colors[text_color_index]); //подчёркнутый |
|
|
479 |
IF(link) { |
|
|
480 |
DefineButton(stolbec * 6 + left1 - 2, top1, strlen(#line) * 6 + 3, 9, blink + BT_HIDE, 0xB5BFC9); // |
|
|
481 |
DrawBar(stolbec * 6 + left1, top1 + 8, strlen(#line) * 6, 1, text_colors[text_color_index]); |
|
|
482 |
} |
|
|
483 |
} |
|
|
484 |
// |
|
|
485 |
IF(!tag) return; |
|
|
486 |
stolbec += strlen(#line); |
|
|
487 |
////////////////////////// |
|
|
488 |
if (!chTag("a")) { |
|
|
489 |
IF (stroka - 1 > max_kolvo_strok) || (stroka < -2) return; |
|
|
490 |
if (rez) { |
|
|
491 |
HREF: IF(strcmp(#parametr, "href=") == 0) { |
|
|
492 |
IF(link == 1) text_color_index--; //если какой-то долбоёб не закрыл тэг |
|
|
493 |
link = 1; |
|
|
494 |
blink++; |
|
|
495 |
text_color_index++; |
|
|
496 |
text_colors[text_color_index] = link_color; |
|
|
497 |
copystr(#options, #page_links + strlen(#page_links)); |
|
|
498 |
copystr("|", #page_links + strlen(#page_links)); |
|
|
499 |
} |
|
|
500 |
IF(tagparam) { |
|
|
501 |
GetNextParam(); |
|
|
502 |
GOTO HREF; |
|
|
503 |
} |
|
|
504 |
} |
|
|
505 |
ELSE { |
|
|
506 |
link = 0; |
|
|
507 |
IF(text_color_index > 0) text_color_index--; |
|
|
508 |
} |
|
|
509 |
return; |
|
|
510 |
} |
|
|
511 |
///////////////////////// |
| 2152 |
leency |
512 |
if (!chTag("font")) |
|
|
513 |
{ |
|
|
514 |
IF(stroka < 0) || (stroka - 1 > max_kolvo_strok) return; |
|
|
515 |
COL_MARK: |
|
|
516 |
if (strcmp(#parametr, "color=") == 0) //&& (parametr[1] == '#') |
| 1971 |
lev |
517 |
{ |
| 2152 |
leency |
518 |
text_color_index++; |
|
|
519 |
IF (options[0] == '#') |
|
|
520 |
{ |
|
|
521 |
text_colors[text_color_index] = StrToCol(#options); |
| 1971 |
lev |
522 |
} |
| 2152 |
leency |
523 |
ELSE |
|
|
524 |
{ |
|
|
525 |
FOR (i=0; color_names[i]!=0; i++) |
|
|
526 |
{ |
|
|
527 |
IF(!strcmp(#options, color_names[i])) |
|
|
528 |
{ |
|
|
529 |
text_colors[text_color_index] = colors[i]; |
|
|
530 |
BREAK; |
|
|
531 |
} |
|
|
532 |
text_colors[text_color_index] = text_colors[0]; |
|
|
533 |
} |
|
|
534 |
} |
| 1971 |
lev |
535 |
|
|
|
536 |
} |
|
|
537 |
IF(tagparam[0] <>'') { |
|
|
538 |
GetNextParam(); |
|
|
539 |
GOTO COL_MARK; |
|
|
540 |
} |
|
|
541 |
IF(!rez) && (text_color_index > 0) text_color_index--; |
|
|
542 |
return; |
|
|
543 |
} |
|
|
544 |
////////////////////////// |
|
|
545 |
IF(!chTag("tr")) || (!chTag("br")) { |
|
|
546 |
TextGoDown(left1, top1, width1); |
|
|
547 |
return; |
|
|
548 |
} |
|
|
549 |
IF(!chTag("div")) { |
|
|
550 |
IF(oldtag[0] <>'h') TextGoDown(left1, top1, width1); |
|
|
551 |
return; |
|
|
552 |
} |
|
|
553 |
IF(!chTag("p")) { |
|
|
554 |
IF(oldtag[0] == 'h') return; |
|
|
555 |
TextGoDown(left1, top1, width1); |
|
|
556 |
IF(rez) TextGoDown(left1, top1 + 10, width1); |
|
|
557 |
return; |
|
|
558 |
} |
|
|
559 |
//////////////////////////// |
|
|
560 |
IF(!chTag("h1")) || (!chTag("h2")) || (!chTag("h3")) || (!chTag("h4")) { |
|
|
561 |
TextGoDown(left1, top1, width1); |
|
|
562 |
IF(rez) TextGoDown(left1, top1 + 10, width1); |
|
|
563 |
b_text = rez; |
|
|
564 |
copystr(#tag, #oldtag); |
|
|
565 |
return; |
|
|
566 |
} ELSE copystr("", #oldtag); |
|
|
567 |
IF(!chTag("b")) || (!chTag("strong")) || (!chTag("big")) { |
|
|
568 |
b_text = rez; |
|
|
569 |
return; |
|
|
570 |
} |
|
|
571 |
//////////////////////////// |
|
|
572 |
IF(!chTag("i")) || (!chTag("em")) { |
|
|
573 |
i_text = rez; |
|
|
574 |
return; |
|
|
575 |
} |
|
|
576 |
//////////////////////////// |
|
|
577 |
if(!chTag("li")) || (!chTag("dt")) //надо сделать вложенные списки |
|
|
578 |
{ |
|
|
579 |
li_text = rez; |
|
|
580 |
IF(rez == 0) return; |
|
|
581 |
TextGoDown(left1, top1, width1); |
|
|
582 |
IF(stroka > -1) && (stroka - 2 < max_kolvo_strok) IF(!chTag("li")) DrawBar(li_tab * 5 * 6 + left1 - 5, top1 + 12, 2, 2, 0); |
|
|
583 |
return; |
|
|
584 |
} |
|
|
585 |
//////////////////////////// |
|
|
586 |
IF(!chTag("u")) || (!chTag("ins")) u_text = rez; |
|
|
587 |
IF(!chTag("s")) || (!chTag("strike")) || (!chTag("del")) s_text = rez; |
|
|
588 |
IF(!chTag("ul")) || (!chTag("ol")) IF(!rez) { |
|
|
589 |
li_text = rez; |
|
|
590 |
li_tab--; |
|
|
591 |
TextGoDown(left1, top1, width1); |
|
|
592 |
} ELSE li_tab++; |
|
|
593 |
IF(!chTag("dd")) stolbec += 5; |
|
|
594 |
IF(!chTag("blockquote")) blq_text = rez; |
|
|
595 |
IF(!chTag("body")) IF(strcmp(#parametr, "link=") == 0) link_color = StrToCol(#options); |
|
|
596 |
IF(!chTag("pre")) pre_text = rez; |
|
|
597 |
IF(!chTag("hr")) { |
|
|
598 |
TextGoDown(left1, top1, width1); |
|
|
599 |
TextGoDown(left1, top1 + 10, width1); |
|
|
600 |
IF(strcmp(#parametr, "color=") == 0) hr_color = StrToCol(#options); |
|
|
601 |
ELSE hr_color = 0x999999; |
|
|
602 |
IF(stroka > 0) DrawBar(left1, top1 + 14, width1 - 8, 1, hr_color); |
|
|
603 |
} |
|
|
604 |
|
|
|
605 |
if (!chTag("img")) |
|
|
606 |
{ |
|
|
607 |
//IF (GetFileInfo(#libimg)<>0) return; //если библиотеки нет |
|
|
608 |
IMG_TAG: |
| 1974 |
yogev_ezra |
609 |
IF (strcmp(#parametr,"src=")==0) //надо объединить с GetNewUrl() |
| 1971 |
lev |
610 |
{ |
|
|
611 |
copystr(BrowserHistory.CurrentUrl(), #temp); //достаём адрес текущей страницы |
|
|
612 |
temp[find_symbol(#temp, '/')] = 0x00; //обрезаем её урл до последнего / |
|
|
613 |
copystr(#options,#temp+strlen(#temp)); |
|
|
614 |
image=load_image(#temp); |
|
|
615 |
|
|
|
616 |
w=DSWORD[image+4]; |
|
|
617 |
h=DSWORD[image+8]; |
|
|
618 |
} |
|
|
619 |
IF(tagparam) { |
|
|
620 |
GetNextParam(); |
|
|
621 |
GOTO IMG_TAG; |
|
|
622 |
} |
|
|
623 |
|
| 2155 |
leency |
624 |
if (w>width1) w=width1; |
|
|
625 |
|
| 1971 |
lev |
626 |
if (image) |
|
|
627 |
{ |
| 2085 |
leency |
628 |
stroka+=h/10; |
|
|
629 |
|
|
|
630 |
if (top1+hWB1.top+WB1.height-10) //если ВСЁ изображение ушло ВЕРХ или ВНИЗ |
|
|
631 |
return; |
| 2182 |
leency |
632 |
|
| 2085 |
leency |
633 |
if (top1 |
|
|
634 |
{ |
| 2182 |
leency |
635 |
img_za_kadrom=WB1.top-top1; |
|
|
636 |
h=h-img_za_kadrom; |
| 2085 |
leency |
637 |
top1=WB1.top-5; |
|
|
638 |
} |
|
|
639 |
|
|
|
640 |
if (top1>WB1.top+WB1.height-h-10) //если часть изображения снизу IF (stroka - 2 < max_kolvo_strok) |
|
|
641 |
{ |
|
|
642 |
h=WB1.top+WB1.height-top1-10; |
| 2155 |
leency |
643 |
} |
|
|
644 |
|
|
|
645 |
IF (h<=0) return; |
|
|
646 |
|
| 2182 |
leency |
647 |
img_draw stdcall (image,left1-5,top1+10,w, h,0,img_za_kadrom); |
| 2085 |
leency |
648 |
DrawBar(left1+w - 5, top1 + 10, width1-w + 5, h, 0xFFFFFF); |
| 1971 |
lev |
649 |
} |
| 2155 |
leency |
650 |
return; |
| 1971 |
lev |
651 |
} |
|
|
652 |
|
| 2155 |
leency |
653 |
if (!chTag("meta")) |
|
|
654 |
{ |
| 1971 |
lev |
655 |
META: |
|
|
656 |
if (!strcmp(#parametr, "charset=")) || (!strcmp(#parametr, "content=")) |
|
|
657 |
{ |
|
|
658 |
copystr(#options[find_symbol(#options, '=')],#options); //поиск в content= |
|
|
659 |
|
| 2155 |
leency |
660 |
IF (!strcmp(#options,"utf-8")) || (!strcmp(#options,"utf8")) |
| 1971 |
lev |
661 |
{ |
|
|
662 |
ReadHtml(DONT_LOAD); |
| 2155 |
leency |
663 |
utf8rutodos(buf); |
| 1971 |
lev |
664 |
} |
|
|
665 |
IF(!strcmp(#options, "koi8-r")) || (!strcmp(#options, "koi8-u")) |
|
|
666 |
{ |
|
|
667 |
ReadHtml(DONT_LOAD); |
|
|
668 |
koitodos(buf); |
|
|
669 |
} |
|
|
670 |
IF(!strcmp(#options, "dos")) || (!strcmp(#options, "cp-866")) |
|
|
671 |
{ |
|
|
672 |
ReadHtml(DONT_LOAD); |
|
|
673 |
} |
|
|
674 |
} |
| 2155 |
leency |
675 |
IF(tagparam[0] <>'') |
|
|
676 |
{ |
| 1971 |
lev |
677 |
GetNextParam(); |
|
|
678 |
goto META; |
|
|
679 |
} |
| 2155 |
leency |
680 |
return; |
| 1971 |
lev |
681 |
} |
|
|
682 |
} |
|
|
683 |
|
|
|
684 |
|
|
|
685 |
void TextGoDown(int left1, top1, width1) { |
|
|
686 |
stroka++; |
|
|
687 |
IF(blq_text == 1) stolbec = 8; |
|
|
688 |
ELSE stolbec = 0; |
|
|
689 |
IF(li_text == 1) stolbec = li_tab * 5; |
|
|
690 |
IF(stroka >= 0) && (stroka - 2 < max_kolvo_strok) DrawBar(left1 - 5, top1 + 10, width1 + 5, 10, 0xFFFFFF); |
|
|
691 |
} |