kolibrios-gitea/programs/cmm/browser/show_src.h
Kirill Lipatov (Leency) 74e44c8770 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 21:03:20 +00:00

82 lines
1.8 KiB
C

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;
}