#endif

//{{{ LOCAL INTERFACE
#if LOCAL_INTERFACE

#define POOL_CHUNK_SIZE 100

//{{{ KIND
#define KIND_ROOT            0x0000001
#define KIND_HORIZONTAL_RULE 0x0000002
#define KIND_HEADING         0x0000004
#define KIND_ORDERED_LIST    0x0000008

#define KIND_UNORDERED_LIST  0x0000010
#define KIND_PARAGRAPH       0x0000020
#define KIND_TABLE           0x0000040
#define KIND_NO_WIKI_BLOCK   0x0000080

#define KIND_PARA_BREAK      0x0000100
#define KIND_END_WIKI_MARKER 0x0000200

#define KIND_BOLD            0x0000400
#define KIND_ITALIC          0x0000800
#define KIND_SUPERSCRIPT     0x0001000
#define KIND_SUBSCRIPT       0x0002000
#define KIND_MONOSPACED      0x0004000
#define KIND_BREAK           0x0008000

#define KIND_TABLE_ROW       0x0010000
//}}}
//{{{ FLAG
// keep first four bits free
#define FLAG_CENTER	 0x0000100
//}}}
struct Node {//{{{

	char *start;
	char *end;

	int kind;
	int level;
	int flags;

	Node *parent;
	Node *next;
	Node *children;

};
//}}}

	Blob *iblob;




};


//}}}

#endif

const int KIND_LIST = (KIND_UNORDERED_LIST | KIND_ORDERED_LIST);
const int KIND_LIST_OR_PARAGRAPH = (KIND_PARAGRAPH | KIND_UNORDERED_LIST | KIND_ORDERED_LIST);
//}}}

		return 0;

	char *s = p->icursor + 3;

	int count = p->iend - p->icursor - 6;
	while (count--){
		if (s[0]=='}' && s[1]=='}' && s[2]=='}' && s[3]!='}'){
			blob_appendf(p->iblob, "<tt style='background:oldlace'>%s</tt>", htmlize(p->icursor + 3, s - p->icursor-3));
			p->icursor = s + 3;
			return 1;
		}
		s++;
	}
	return 0;
}

//}}}
static int cr_iImage(Parser *p){//{{{

	if (p->inLink) return 0;
	if ((p->iend - p->icursor)<3) return 0;

	if (p->icursor[1]!='{') return 0;


	char *s = p->icursor + 2;
	char *bar = NULL;

	int count = p->iend - p->icursor - 4;
	while (count--){
		if (s[0]=='}' && s[1]=='}'){
			if (!bar) bar = p->icursor + 2;
			blob_appendf(p->iblob, "<span style='color:green;border:1px solid green;'>%s</span>", htmlize(bar, s - bar ));
			p->icursor = s + 2;
			return 1;
		}
		if (!bar && s[0]=='|') bar=s+1;
		s++;
	}
	return 0;
}
//}}}
static int cr_iMacro(Parser *p){//{{{

	if (p->inLink) return 0;
	if ((p->iend - p->icursor)<3) return 0;

	if (p->icursor[1]!='<') return 0;

	char *s = p->icursor + 2;

	int count = p->iend - p->icursor - 4;
	while (count--){
		if (s[0]=='>' && s[1]=='>'){
			blob_appendf(p->iblob, "<span style='color:red;border:1px solid red;'>%s</span>", htmlize(p->icursor, s - p->icursor + 2));
			p->icursor = s + 2;
			return 1;
		}
		s++;
	}
	return 0;

}
//}}}

static void cr_renderLink(Parser *p, char *s, char *bar, char *e){//{{{

	int tsize = bar-s;
	int dsize = e - bar-1;

	p->istack = save_istack;

	return eof;

}
//}}}
//}}}

//{{{ BLOCK PARSER

static void cr_renderListItem(Parser *p, Node *n){//{{{


	blob_append(p->iblob, "<li>", 4);
	cr_parseInline(p, n->start, n->end);

		}

		if (ord) 	blob_append(p->iblob, "</ol>", 5);
		else 			blob_append(p->iblob, "</ul>", 5);
	}
	blob_append(p->iblob, "</li>", 5);
}
//}}}
static void cr_renderList(Parser *p){//{{{

	Node *n = p->list;

	while (n->parent !=n)  n = n->parent;

	int ord = (n->kind & KIND_ORDERED_LIST);

			blob_append(p->iblob, "</td>\n", -1);

		if (!s) break;
	}
	blob_append(p->iblob, "</tr>", 5);
}
//}}}

static void cr_renderTable(Parser *p, Node *n){//{{{

	Node *row = n->children;

	blob_append(p->iblob, "<table class='creoletable'>", -1);
	p->inTable = 1;
	while (row){

		cr_renderTableRow(p, row);
		row = row->next;

	}
	blob_append(p->iblob, "</table>", -1);
	p->inTable = 0;

}
//}}}


static void cr_render(Parser *p, Node *node){//{{{

	if (node->kind & KIND_PARAGRAPH){
		blob_append(p->iblob, 	"\n<p>", -1);
		cr_parseInline(p, node->start, node->end );
		blob_append(p->iblob, "</p>\n", -1	);
	}

	if (node->kind & KIND_HEADING){

		blob_appendf(p->iblob,
				"\n<h%d %s>",
				node->level,

				(node->flags & FLAG_CENTER) ? " style='text-align:center;'" : ""
		);
		cr_parseInline(p, node->start, node->end);
		blob_appendf(p->iblob, "</h%d>\n", node->level	);
		return;
	}

	if (node->kind & KIND_HORIZONTAL_RULE){
		blob_append(p->iblob, "<hr />", -1);
		return;
	}

			"\n<blockquote style='background:oldlace'><pre>%s</pre></blockquote>\n",
				htmlize( node->start, node->end - node->start)
		);
	}
}
//}}}


static char *cr_findEndOfBlock(Parser *p, char *s, char c){//{{{

	char *end;
	while (s[0]){

		end = s;
		if (s[0] == c && s[0] == c && s[0] == c) {
			s = cr_nextLine(p, s + 3);
			if (p->lineWasBlank) {
					p->cursor = s;
					return end;
			}
		}
		else {
			s = cr_nextLine(p, s);
		}
	}
	return 0;
}
//}}}

static int cr_addListItem(Parser *p, Node *n){//{{{

	n->parent = n;
	n->next = n->children = NULL;

	if (!p->list) {
		if (n->level != 1) return 0;

	n->parent = p->list;
	p->list->children = n;
	p->list = n;
	return 1;

}
//}}}


static int isEndWikiMarker(Parser *p){//{{{

	char *s = p->cursor;
	if (memcmp(s, "<<fossil>>", 10)) return 0;
	p->this->start = s;
	p->this->kind = KIND_END_WIKI_MARKER;

	return 1;
}
//}}}
static int isHeading(Parser *p){//{{{

	char *s = cr_skipBlanks(p, p->cursor);

	int flags = 0;
	int level = cr_countChars(p, s, '=');
	if (!level) return 0;

	s += level;

	if (s[0] == '<' && s[1] == '>') {
		flags |= FLAG_CENTER;
		s += 2;
	}
	s = cr_skipBlanks(p, s);

	p->this->start = s;

	s = cr_nextLine(p, s);
	char *z = s;

	if (s[-1] == '\n') s--;
	while(s[-1] == ' ' || s[-1]=='\t') s--;
	while(s[-1] == '=' ) s--;
	if (p->this->start < s){
		p->cursor = z;
		p->this->kind = KIND_HEADING;
		p->this->end = s;
		p->this->level = level;
		p->this->flags |= flags;
		return 1;
	}
	return 0;
}
//}}}
static int isHorizontalRule(Parser *p){//{{{

			cr_render(p, p->previous);

		p->previous = p->this;
		p->this = pool_new(p);

	}
}
//}}}

//}}}

char *wiki_render_creole(Renderer *r, char *z){//{{{

  Parser parser;
	Parser *p = &parser;

/*
** Draw the header.
*/
void style_header(const char *zTitleFormat, ...){
  va_list ap;
  char *zTitle;
  const char *zHeader = db_get("header", (char*)zDefaultHeader);
  login_check_credentials();

  va_start(ap, zTitleFormat);
  zTitle = vmprintf(zTitleFormat, ap);
  va_end(ap);

  cgi_destination(CGI_HEADER);

  if( g.thTrace ) Th_Trace("BEGIN_HEADER<br />\n", -1);

  /* Generate the header up through the main menu */
  Th_Store("project_name", db_get("project-name","Unnamed Fossil Project"));
  Th_Store("title", zTitle);
  Th_Store("baseurl", g.zBaseURL);
  Th_Store("index_page", db_get("index-page","/home"));

/*
** Draw the footer at the bottom of the page.
*/
void style_footer(void){
  const char *zFooter;

  if( !headerHasBeenGenerated ) return;

  /* Go back and put the submenu at the top of the page.  We delay the
  ** creation of the submenu until the end so that we can add elements
  ** to the submenu while generating page text.
  */
  cgi_destination(CGI_HEADER);
  if( nSubmenu>0 ){
    int i;

  /* Put the footer at the bottom of the page.
  */
  @ </div>
  zFooter = db_get("footer", (char*)zDefaultFooter);
  if( g.thTrace ) Th_Trace("BEGIN_FOOTER<br />\n", -1);
  Th_Render(zFooter);
  if( g.thTrace ) Th_Trace("END_FOOTER<br />\n", -1);

  /* Render trace log if TH1 tracing is enabled. */
  if( g.thTrace ){
    cgi_append_content("<font color=\"red\"><hr>\n", -1);
    cgi_append_content(blob_str(&g.thLog), blob_size(&g.thLog));
    cgi_append_content("</font>\n", -1);
  }
}

  @ </td></tr></table>
}

/* @-comment: // */
/*
** The default page header.
*/
const char zDefaultHeader[] =
@ <html>
@ <head>
@ <title>$<project_name>: $<title></title>
@ <link rel="alternate" type="application/rss+xml" title="RSS Feed"
@       href="$baseurl/timeline.rss">
@ <link rel="stylesheet" href="$baseurl/style.css" type="text/css"
@       media="screen">

@ }
@ </th1></div>
;

/*
** The default page footer
*/
const char zDefaultFooter[] =
@ <div class="footer">
@ Fossil version $manifest_version $manifest_date
@ </div>
@ </body></html>
;

/*
** The default Cascading Style Sheet.
*/
const char zDefaultCSS[] =
@ /* General settings for the entire page */
@ body {
@   margin: 0ex 1ex;
@   padding: 0px;
@   background-color: white;
@   font-family: "sans serif";
@ }

@ }
@
@ /* Make the links in the footer less ugly... */
@ div.footer a { color: white; }
@ div.footer a:link { color: white; }
@ div.footer a:visited { color: white; }
@ div.footer a:hover { background-color: white; color: #558195; }
@
@ /* <verbatim> blocks */
@ pre.verbatim {
@    background-color: #f5f5f5;
@    padding: 0.5em;
@}
@
@ /* The label/value pairs on (for example) the ci page */

@   background: #ffff00;
@   border: 1px solid #ff0000;
@ }
@
@ div.miniform {
@     font-size: smaller;
@     margin: 8px;
@ }
@
@ table.fossil_db_generic_query_view {
@   border-spacing: 0px;
@   border: 1px solid black;
@ }
@ table.fossil_db_generic_query_view td {
@   padding: 2px 1em 2px 1em;

@   background: #e5e5e5;
@ }
@ table.fossil_db_generic_query_view tr.header {
@   background: #558195;
@   font-size: 1.5em;
@   color: #ffffff;
@ }
@ .creoletable {
@   border: 1px solid #666666;
@   border-spacing: 0;
@   margin: 1.5em 2em 1.8em 2em;
@ }
@ .creoletable * tr th {
@   font-size: 100%;
@   padding: .5em .7em .5em .7em;
@   border-left: 1px solid #666666;
@   background-color: #558195;
@   vertical-align: bottom;
@   color: white;
@   empty-cells: show;
@ }
@ .creoletable * tr td {
@   padding: .4em .7em .45em .7em;
@   border-left: 1px solid #D9D9D9;
@   border-top: 1px solid #D9D9D9;
@   vertical-align: center;
@   empty-cells: show;
@ }
;

/*
** WEBPAGE: style.css
*/
void page_style_css(void){
  char *zCSS = 0;