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

enum { TAG, OPTION_VALUE, TEXT, COMMENT };

//you are butifull, you are butifull
dword ShowSource()
{
	dword new_buf, new_buf_start, i;
	byte ww, mode;

	if (souce_mode) return;
	souce_mode = true;
	new_buf = malloc(bufsize*5);
	new_buf_start = new_buf;
	header[strrchr(#header, '-')-2]=0;
	sprintf(new_buf,"<html><head><title>Source: %s</title><body><pre>",#header);
	new_buf += strlen(new_buf);
	for (i=bufpointer; i<bufpointer+bufsize; i++) 
	{
		ww = ESBYTE[i];
		switch (ww)
		{
			case '<':
				if (mode == COMMENT)
				{
					strcpy(new_buf, "&lt;");
					new_buf+=4;
					break;
				}
				if (ESBYTE[i+1]=='!') && (ESBYTE[i+2]=='-') && (ESBYTE[i+3]=='-')
				{
					strcpy(new_buf, "<font color=#bbb>&lt;");
					new_buf+=21;
					mode = COMMENT;
					break;
				}
				if (mode != COMMENT)
				{
					strcpy(new_buf, "<font color=#00f>&lt;");
					new_buf+=21;
					mode = TAG;
					break;
				}
				break;
			case '>':
				if (mode == OPTION_VALUE) //fix non-closed quote in TAG
				{
					strcpy(new_buf, "&quot;</font>");
					new_buf+=13;					
					mode = TAG;
					break;
				}
				if (mode == COMMENT) && (ESBYTE[i-1]=='-') && (ESBYTE[i-2]=='-')
				{
					strcpy(new_buf, "&gt;</font>");
					new_buf+=11;
					mode = TEXT;
					break;
				}
				if (mode == COMMENT) 
				{
					strcpy(new_buf, "&gt;");
					new_buf+=4;
					break;					
				}
				if (mode == TAG)
				{
					strcpy(new_buf, "&gt;</font>");
					new_buf+=11;
					mode = TEXT;
					break;
				}
				break;
			case '\"':
			case '\'':
				if (mode == TAG)
				{
					strcpy(new_buf, "<font color=#f0f>&#39;");
					new_buf+=22;
					mode = OPTION_VALUE;
					break;
				}
				if (mode == OPTION_VALUE)
				{
					strcpy(new_buf, "&#39;</font>");
					new_buf+=12;
					mode = TAG;
					break;
				}
			default:
				ESBYTE[new_buf] = ww;
				new_buf++;
		}
	}
	ESBYTE[new_buf] = 0;
	bufsize = new_buf - new_buf_start;
	free(bufpointer);
	bufpointer = new_buf_start;
}
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			`enum { TAG, OPTION_VALUE, TEXT, COMMENT };`

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			`//you are butifull, you are butifull`
			`dword ShowSource()`
			`{`
			`dword new_buf, new_buf_start, i;`
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			`byte ww, mode;`
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
			`if (souce_mode) return;`
			`souce_mode = true;`
WebView 1.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`new_buf = malloc(bufsize*5);`
			`new_buf_start = new_buf;`
WebView 1.38: readable big headers, fix <li> and <hr> tag, fix show source git-svn-id: svn://kolibrios.org@5773 a494cfbc-eb01-0410-851d-a64ba20cac60 2015-08-27 01:45:56 +02:00			`header[strrchr(#header, '-')-2]=0;`
WebView 1.57: change draw Y coordinate from lines to pixels, several fixes git-svn-id: svn://kolibrios.org@6794 a494cfbc-eb01-0410-851d-a64ba20cac60 2016-12-11 23:58:11 +01:00			`sprintf(new_buf,"<html><head><title>Source: %s</title><body><pre>",#header);`
			`new_buf += strlen(new_buf);`
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			`for (i=bufpointer; i<bufpointer+bufsize; i++)`
			`{`
			`ww = ESBYTE[i];`
			`switch (ww)`
			`{`
			`case '<':`
WebView 1.7: a lot of various fixes: parsing tag, parsing comment, displaying '<' and '>' symbols in source code view, do not allow multiple downloaders. Thanks hidnplayr for reporting. git-svn-id: svn://kolibrios.org@6986 a494cfbc-eb01-0410-851d-a64ba20cac60 2017-09-17 14:35:45 +02:00			`if (mode == COMMENT)`
			`{`
			`strcpy(new_buf, "<");`
			`new_buf+=4;`
			`break;`
			`}`
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			`if (ESBYTE[i+1]=='!') && (ESBYTE[i+2]=='-') && (ESBYTE[i+3]=='-')`
			`{`
WebView 1.0 Beta 6.1: ViewSource - fix comments in code <!-- -> git-svn-id: svn://kolibrios.org@4728 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 23:03:20 +02:00			`strcpy(new_buf, "<font color=#bbb><");`
WebView 1.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`new_buf+=21;`
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			`mode = COMMENT;`
WebView 1.7: a lot of various fixes: parsing tag, parsing comment, displaying '<' and '>' symbols in source code view, do not allow multiple downloaders. Thanks hidnplayr for reporting. git-svn-id: svn://kolibrios.org@6986 a494cfbc-eb01-0410-851d-a64ba20cac60 2017-09-17 14:35:45 +02:00			`break;`
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.0 Beta 6.1: ViewSource - fix comments in code <!-- -> git-svn-id: svn://kolibrios.org@4728 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 23:03:20 +02:00			`if (mode != COMMENT)`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`strcpy(new_buf, "<font color=#00f><");`
			`new_buf+=21;`
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			`mode = TAG;`
WebView 1.7: a lot of various fixes: parsing tag, parsing comment, displaying '<' and '>' symbols in source code view, do not allow multiple downloaders. Thanks hidnplayr for reporting. git-svn-id: svn://kolibrios.org@6986 a494cfbc-eb01-0410-851d-a64ba20cac60 2017-09-17 14:35:45 +02:00			`break;`
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			`}`
			`break;`
			`case '>':`
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			`if (mode == OPTION_VALUE) //fix non-closed quote in TAG`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`strcpy(new_buf, ""</font>");`
			`new_buf+=13;`
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			`mode = TAG;`
WebView 1.7: a lot of various fixes: parsing tag, parsing comment, displaying '<' and '>' symbols in source code view, do not allow multiple downloaders. Thanks hidnplayr for reporting. git-svn-id: svn://kolibrios.org@6986 a494cfbc-eb01-0410-851d-a64ba20cac60 2017-09-17 14:35:45 +02:00			`break;`
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.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			`if (mode == COMMENT) && (ESBYTE[i-1]=='-') && (ESBYTE[i-2]=='-')`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`strcpy(new_buf, "></font>");`
			`new_buf+=11;`
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			`mode = TEXT;`
WebView 1.7: a lot of various fixes: parsing tag, parsing comment, displaying '<' and '>' symbols in source code view, do not allow multiple downloaders. Thanks hidnplayr for reporting. git-svn-id: svn://kolibrios.org@6986 a494cfbc-eb01-0410-851d-a64ba20cac60 2017-09-17 14:35:45 +02:00			`break;`
			`}`
			`if (mode == COMMENT)`
			`{`
			`strcpy(new_buf, ">");`
			`new_buf+=4;`
			`break;`
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.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			`if (mode == TAG)`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`strcpy(new_buf, "></font>");`
			`new_buf+=11;`
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			`mode = TEXT;`
WebView 1.7: a lot of various fixes: parsing tag, parsing comment, displaying '<' and '>' symbols in source code view, do not allow multiple downloaders. Thanks hidnplayr for reporting. git-svn-id: svn://kolibrios.org@6986 a494cfbc-eb01-0410-851d-a64ba20cac60 2017-09-17 14:35:45 +02:00			`break;`
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			`}`
			`break;`
			`case '\"':`
			`case '\'':`
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			`if (mode == TAG)`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`strcpy(new_buf, "<font color=#f0f>'");`
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			`new_buf+=22;`
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			`mode = OPTION_VALUE;`
			`break;`
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.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			`if (mode == OPTION_VALUE)`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`strcpy(new_buf, "'</font>");`
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			`new_buf+=12;`
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			`mode = TAG;`
			`break;`
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			`}`
			`default:`
WebView 1.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`ESBYTE[new_buf] = ww;`
			`new_buf++;`
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.0 Beta 5.5: View Source fixes & optimizations (thanks 0CodErr) git-svn-id: svn://kolibrios.org@4725 a494cfbc-eb01-0410-851d-a64ba20cac60 2014-03-31 19:14:16 +02:00			`ESBYTE[new_buf] = 0;`
			`bufsize = new_buf - new_buf_start;`
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			`free(bufpointer);`
			`bufpointer = new_buf_start;`
			`}`