kolibrios-fun/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;
	strcpy(new_buf, "<html><head><title>");
	if (strlen(#header)-strlen(#version)>0) header[strlen(#header)-strlen(#version)-2] = 0; else strcpy(#header, "Source");
	strcat(new_buf, #header);
	strcat(new_buf, "</title><body><pre>");
	new_buf += strlen(new_buf);
	for (i=bufpointer; i<bufpointer+bufsize; i++) 
	{
		ww = ESBYTE[i];
		switch (ww)
		{
			case '<':
				if (ESBYTE[i+1]=='!') && (ESBYTE[i+2]=='-') && (ESBYTE[i+3]=='-')
				{
					strcpy(new_buf, "<font color=#bbb>&lt;");
					new_buf+=21;
					mode = COMMENT;
				}
				if (mode != COMMENT)
				{
					strcpy(new_buf, "<font color=#00f>&lt;");
					new_buf+=21;
					mode = TAG;
				}
				break;
			case '>':
				if (mode == OPTION_VALUE) //fix non-closed quote in TAG
				{
					strcpy(new_buf, "&quot;</font>");
					new_buf+=13;					
					mode = TAG;
				}
				if (mode == COMMENT) && (ESBYTE[i-1]=='-') && (ESBYTE[i-2]=='-')
				{
					strcpy(new_buf, "&gt;</font>");
					new_buf+=11;
					mode = TEXT;
				}
				if (mode == TAG)
				{
					strcpy(new_buf, "&gt;</font>");
					new_buf+=11;
					mode = TEXT;
				}
				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;`
			`strcpy(new_buf, "<html><head><title>");`
			`if (strlen(#header)-strlen(#version)>0) header[strlen(#header)-strlen(#version)-2] = 0; else strcpy(#header, "Source");`
			`strcat(new_buf, #header);`
			`strcat(new_buf, "</title><body><pre>");`
			`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 '<':`
			`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.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.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.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.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.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;`
			`}`