kolibrios-fun/programs/cmm/browser/show_src.h

enum { TAG=1, VALUE, TEXT, COMMENT, SCRIPT};

int opened_font_counter=0;
int mode;

dword source_buf_end;

void SourceBufAdd(dword _mode, src)
{
	dword font_found_pointer, src_orig = src;

	if (_mode) mode = _mode;

	strcpy(source_buf_end, src);
	source_buf_end += strlen(source_buf_end);

	if (font_found_pointer = strstr(src, "</font>")) {
		opened_font_counter--;
		src = font_found_pointer+2;
	}

	src = src_orig;
	if (font_found_pointer = strstr(src, "<font ")) {
		opened_font_counter++;
		src = font_found_pointer+2;
	}
}

void CloseAllOpenedFonts(dword _mode)
{
	while (opened_font_counter) SourceBufAdd(_mode, "</font>");
}

dword ShowSource(dword _bufdata, _in_bufsize)
{
	dword i, j;
	bool activate_script_mode = false;
	dword source_buf_start;

	opened_font_counter=0;
	source_buf_start = malloc(_in_bufsize*5);
	source_buf_end = source_buf_start;

	SourceBufAdd(TEXT, "<html><head><title>View Source</title><body><pre>");

	for (i=_bufdata; i<_bufdata+_in_bufsize; i++) switch (ESBYTE[i])
	{
		case '<':
			if (!strncmp(i+1,"!--", 3)) SourceBufAdd(COMMENT, "<font color=#bbb>&lt;");
			else if (SCRIPT == mode) {
				if (!strncmp(i+1,"/script>", 8)) {
					CloseAllOpenedFonts(NULL);
					SourceBufAdd(TAG, "<font color=#00f>&lt;");
				}
				else SourceBufAdd(NULL, "&lt;");
			}
			else if (COMMENT == mode) {
				SourceBufAdd(NULL, "&lt;");
			}
			else if (TEXT == mode) {
				if (!strncmp(i+1,"script", 6)) activate_script_mode = true;
				SourceBufAdd(TAG, "<font color=#00f>&lt;");
			}
			break;
		case '>':
			if (TAG == mode) && (activate_script_mode) {
				activate_script_mode = false;
				SourceBufAdd(SCRIPT, "&gt;</font><font color=#994500>");
			}
			else if (VALUE == mode) CloseAllOpenedFonts(TEXT);
			else if (COMMENT == mode) && (!strncmp(i-2,"--", 2)) {
				SourceBufAdd(TEXT, "&gt;");
				CloseAllOpenedFonts(TEXT);
			}
			else if (COMMENT == mode) || (SCRIPT == mode) SourceBufAdd(NULL, "&gt;");
			else if (TAG == mode) SourceBufAdd(TEXT, "&gt;</font>");
			break;
		case '&':
			SourceBufAdd(NULL, "&amp;");
			break;
		case '\"':
		case '\'':
			if (TAG == mode) SourceBufAdd(VALUE, "<font color=#F301F2>&quot;");
			else if (VALUE == mode) SourceBufAdd(TAG, "&quot;</font>");
			else SourceBufAdd(NULL, "&quot;");
			break;
		default:
			ESBYTE[source_buf_end] = ESBYTE[i];
			source_buf_end++;
	}
	ESBYTE[source_buf_end] = 0;
	LoadInternalPage(source_buf_start, source_buf_end-source_buf_start);
	free(source_buf_start);
}
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`enum { TAG=1, VALUE, TEXT, COMMENT, SCRIPT};`
WebView 1.0 Beta 5: fixes in ViewSource git-svn-id: svn://kolibrios.org@4719 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-30 15:51:53 +02:00
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`int opened_font_counter=0;`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`int mode;`

WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`dword source_buf_end;`

WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`void SourceBufAdd(dword _mode, src)`
WebView 1.0 Beta 4: fixes, view page source git-svn-id: svn://kolibrios.org@4718 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-30 13:57:13 +02:00			`{`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`dword font_found_pointer, src_orig = src;`
WebView 1.0 Beta 4: fixes, view page source git-svn-id: svn://kolibrios.org@4718 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-30 13:57:13 +02:00
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`if (_mode) mode = _mode;`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`strcpy(source_buf_end, src);`
			`source_buf_end += strlen(source_buf_end);`
WebView 1.9: tweaks for better view, reworked source view git-svn-id: svn://kolibrios.org@7746 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-22 20:50:16 +01:00
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`if (font_found_pointer = strstr(src, "</font>")) {`
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`opened_font_counter--;`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`src = font_found_pointer+2;`
			`}`
WebView 1.9: tweaks for better view, reworked source view git-svn-id: svn://kolibrios.org@7746 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-22 20:50:16 +01:00
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`src = src_orig;`
			`if (font_found_pointer = strstr(src, "<font ")) {`
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`opened_font_counter++;`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`src = font_found_pointer+2;`
			`}`
			`}`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`void CloseAllOpenedFonts(dword _mode)`
			`{`
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`while (opened_font_counter) SourceBufAdd(_mode, "</font>");`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`}`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`dword ShowSource(dword _bufdata, _in_bufsize)`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`{`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`dword i, j;`
			`bool activate_script_mode = false;`
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`dword source_buf_start;`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`opened_font_counter=0;`
WebView 2.0 beta 4: highlight a link as a single item, more refactoring git-svn-id: svn://kolibrios.org@7757 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-29 12:57:14 +02:00			`source_buf_start = malloc(_in_bufsize*5);`
			`source_buf_end = source_buf_start;`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00
fix searchapp git-svn-id: svn://kolibrios.org@7756 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 21:18:44 +01:00			`SourceBufAdd(TEXT, "<html><head><title>View Source</title><body><pre>");`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`for (i=_bufdata; i<_bufdata+_in_bufsize; i++) switch (ESBYTE[i])`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`{`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`case '<':`
			`if (!strncmp(i+1,"!--", 3)) SourceBufAdd(COMMENT, "<font color=#bbb><");`
			`else if (SCRIPT == mode) {`
			`if (!strncmp(i+1,"/script>", 8)) {`
			`CloseAllOpenedFonts(NULL);`
			`SourceBufAdd(TAG, "<font color=#00f><");`
			`}`
			`else SourceBufAdd(NULL, "<");`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`}`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`else if (COMMENT == mode) {`
			`SourceBufAdd(NULL, "<");`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`}`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`else if (TEXT == mode) {`
			`if (!strncmp(i+1,"script", 6)) activate_script_mode = true;`
			`SourceBufAdd(TAG, "<font color=#00f><");`
			`}`
			`break;`
			`case '>':`
			`if (TAG == mode) && (activate_script_mode) {`
			`activate_script_mode = false;`
			`SourceBufAdd(SCRIPT, "></font><font color=#994500>");`
			`}`
			`else if (VALUE == mode) CloseAllOpenedFonts(TEXT);`
			`else if (COMMENT == mode) && (!strncmp(i-2,"--", 2)) {`
			`SourceBufAdd(TEXT, ">");`
			`CloseAllOpenedFonts(TEXT);`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`}`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`else if (COMMENT == mode) \|\| (SCRIPT == mode) SourceBufAdd(NULL, ">");`
			`else if (TAG == mode) SourceBufAdd(TEXT, "></font>");`
			`break;`
			`case '&':`
			`SourceBufAdd(NULL, "&");`
			`break;`
			`case '\"':`
			`case '\'':`
WebView 2.0 Gold git-svn-id: svn://kolibrios.org@7758 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-30 23:29:52 +02:00			`if (TAG == mode) SourceBufAdd(VALUE, "<font color=#F301F2>"");`
			`else if (VALUE == mode) SourceBufAdd(TAG, ""</font>");`
			`else SourceBufAdd(NULL, """);`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`break;`
			`default:`
			`ESBYTE[source_buf_end] = ESBYTE[i];`
			`source_buf_end++;`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`}`
WebView 1.94: code refactoring and bugfixing; also - rework source code view, open it in a new tab - fix tagparm parsing for case: src=./images/KolibriOS_logo2.jpg?sid=e8ece8b38b - fix: show image text in multiple lines if need git-svn-id: svn://kolibrios.org@7750 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-25 01:18:19 +01:00			`ESBYTE[source_buf_end] = 0;`
WebView 2.0 beta 4: highlight a link as a single item, more refactoring git-svn-id: svn://kolibrios.org@7757 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-29 12:57:14 +02:00			`LoadInternalPage(source_buf_start, source_buf_end-source_buf_start);`
WebView 2.0 beta 2: WebView.c refactoring git-svn-id: svn://kolibrios.org@7755 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-03-27 11:38:54 +01:00			`free(source_buf_start);`
@icon: fixed by GerdtR notes: final version mouse: better hold wheel with other buttongs clicked git-svn-id: svn://kolibrios.org@7437 a494cfbc-eb01-0410-851d-a64ba20cac60 2018-10-06 00:10:27 +02:00			`}`