/** HTML output generator implementation.
*/
module diet.html;

import diet.defs;
import diet.dom;
import diet.internal.html;
import diet.internal.string;
import diet.input;
import diet.parser;
import diet.traits;
import memutils.vector;
import memutils.scoped;

nothrow:
private template _dietFileData(string filename)
{
	import diet.internal.string : stripUTF8BOM;
	private static immutable contents = stripUTF8BOM(import(filename));
}

/** Compiles a Diet template file that is available as a string import.

	The resulting HTML is written to the output range given as a runtime
	parameter.

	Params:
		filename = Name of the main Diet template file.
		ALIASES = A list of variables to make available inside of the template,
			as well as traits structs annotated with the `@dietTraits`
			attribute.

	Traits:
		In addition to the default Diet traits, adding an enum field
		`htmlOutputStyle` of type `HTMLOutputStyle` to a traits
		struct can be used to control the style of the generated
		HTML.

	See_Also: `compileHTMLDietString`, `compileHTMLDietStrings`

	Example:
		---
		import std.array : appender;

		auto text = appender!string;
		text.compileHTMLDietFile!("invitation-email.diet", name, address);
		sendMail(address, text.data);
		---
*/
template compileHTMLDietFile(string filename, ALIASES...)
{
	alias compileHTMLDietFile = compileHTMLDietFileString!(filename, _dietFileData!filename.contents, ALIASES);
}

version(DietUseLive)
{
	// out here, because the FileInfo struct isn't different based on the TRAITS.
	private struct FileInfo
	{
		import std.datetime : SysTime;
		SysTime modTime;
		string[] dependencies;
		string[] htmlstrings;
	}

	private string[] _getHTMLStrings(TRAITS...)(string filename, string expectedCode) @safe
	{
		import std.range : chain;
		import std.file;
		import std.array;
		import std.algorithm;
		import std.string : lineSplitter;
		static FileInfo[string] cache; // one per set of TRAITS.
		// assume files live in views/filename
		if(auto fi = filename in cache)
		{
			// have to check all the files, not just the main one
			bool newer = false;
			foreach(dep; fi.dependencies)
			{
				auto curMod = chain("views/", dep).timeLastModified;
				if(curMod > fi.modTime)
				{
					newer = true;
					break;
				}
			}
			// already checked, return the strings
			if(!newer)
				return fi.htmlstrings;
		}

		auto inputs = rtGetInputs(filename, "views/");

		// need to process the file again
		auto doc = applyTraits!TRAITS(parseDiet!(translate!TRAITS)(inputs));
		auto code = getHTMLLiveMixin(doc);
		// remove all the "#line" directives and compare the code. If it doesn't
		// match, then the code changes might affect the output, and a recompile is
		// necessary.
		if(!code.lineSplitter.filter!(l => !l.startsWith("#line")).equal(expectedCode.lineSplitter.filter!(l => !l.startsWith("#line"))))
		{
			throw new DietParserException("Recompile necessary! view file " ~ filename ~ " or dependency has changed its code");
		}

		auto curMod = chain("views/", inputs[0].name).timeLastModified;
		foreach(x; inputs[1 .. $])
		{
			// find latest time modified
			curMod = max(curMod, chain("views/", x.name).timeLastModified);
		}
		auto newFI = FileInfo(curMod, inputs.map!(fi => fi.name).array, getHTMLRawTextOnly(doc, dietOutputRangeName, getHTMLOutputStyle!TRAITS).splitter('\0').array);
		cache[filename] = newFI;
		return newFI.htmlstrings;
	}
}


// provide a place to cache compilation of a file. No reason to rebuild every
// time a file is used.
private template realCompileHTMLDietFileString(string filename, alias contents, TRAITS...)
{
	private static immutable _diet_files = collectFiles!(filename, contents);

	version (DietUseCache)
	{
		enum _diet_use_cache = true;
		ulong computeTemplateHash()
		{
			ulong ret = 0;
			void hash(string s)
			{
				foreach (char c; s) {
					ret *= 9198984547192449281;
					ret += c * 7576889555963512219;
				}
			}
			foreach (ref f; _diet_files) {
				hash(f.name[]);
				hash(f.contents[]);
			}
			return ret;
		}

		enum _diet_hash = computeTemplateHash();
		enum _diet_cache_file_name = filename~"_cached_"~_diet_hash.to!string~".d";
	}
	else
	{
		enum _diet_use_cache = false;
		enum _diet_cache_file_name = "***INVALID***"; // not used anyway
	}



	static if (_diet_use_cache && is(typeof(import(_diet_cache_file_name)))) {
		pragma(msg, "Using cached Diet HTML template "~filename~"...");
		enum _dietParser = import(_diet_cache_file_name);
	} else {
		pragma(msg, "Compiling Diet HTML template ...");
		pragma(msg, "Compiling Diet HTML template "~filename~"...");
		private Document _diet_nodes() { return applyTraits!TRAITS(parseDiet!(translate!TRAITS)(_diet_files)); }
		version(DietUseLive)
		{
			enum _dietParser = getHTMLLiveMixin(_diet_nodes(), dietOutputRangeName);
		}
		else
		{
			enum _dietParser = getHTMLMixin(_diet_nodes(), dietOutputRangeName, getHTMLOutputStyle!TRAITS);
		}

		static if (_diet_use_cache) {
			shared static this()
			{
				import std.file : exists, write;
				if (!exists("views/"~_diet_cache_file_name))
					write("views/"~_diet_cache_file_name, _dietParser);
			}
		}
	}
}
/** Compiles a Diet template given as a string, with support for includes and extensions.

	This function behaves the same as `compileHTMLDietFile`, except that the
	contents of the file are

	The final HTML will be written to the given `_diet_output` output range.

	Params:
		filename = The name to associate with `contents`
		contents = The contents of the Diet template
		ALIASES = A list of variables to make available inside of the template,
			as well as traits structs annotated with the `@dietTraits`
			attribute.

	See_Also: `compileHTMLDietFile`, `compileHTMLDietString`, `compileHTMLDietStrings`
*/
template compileHTMLDietFileString(string filename, alias contents, ALIASES...)
{
	// This import should be REMOVED for 2.0.0, as it was unintentionally
	// exposed for use inside the mixin. See issue #81

	alias TRAITS = DietTraits!ALIASES;

	alias _dietParser = realCompileHTMLDietFileString!(filename, contents, TRAITS)._dietParser;

	version(DietUseLive)
	{
		// uses the correct range name and removes 'dst' from the scope
		private void exec(R)(ref R _diet_output, string[] _diet_html_strings)
		{
			mixin(localAliasesMixin!(0, ALIASES));
			mixin(_dietParser);
		}

		/**
		 * See `.compileHTMLDietFileString`
		 *
		 * Params:
		 *	   dst = The output range to write the generated HTML to.
		 */
		void compileHTMLDietFileString(R)(ref R dst)
		{
			// first, load the data
			exec(dst, _getHTMLStrings!TRAITS(filename, _dietParser));
		}
	}
	else
	{
		debug {
			// uses the correct range name and removes 'dst' from the scope
			private string exec(R)(ref R _diet_output)
			{
				mixin(localAliasesMixin!(0, ALIASES));
				mixin(_dietParser);
				return _dietParser;
			}

			/**
			* See `.compileHTMLDietFileString`
			*
			* Params:
			*	   dst = The output range to write the generated HTML to.
			*/
			string compileHTMLDietFileString(R)(ref R dst)
			{
				return exec(dst);
			}

		} else {

			// uses the correct range name and removes 'dst' from the scope
			private void exec(R)(ref R _diet_output)
			{
				mixin(localAliasesMixin!(0, ALIASES));
				mixin(_dietParser);
			}

			/**
			* See `.compileHTMLDietFileString`
			*
			* Params:
			*	   dst = The output range to write the generated HTML to.
			*/
			void compileHTMLDietFileString(R)(ref R dst)
			{
				exec(dst);
			}
		}
	}
}


/** Compiles a Diet template given as a string.

	The final HTML will be written to the given `_diet_output` output range.

	Params:
		contents = The contents of the Diet template
		ALIASES = A list of variables to make available inside of the template,
			as well as traits structs annotated with the `@dietTraits`
			attribute.
		dst = The output range to write the generated HTML to.

	See_Also: `compileHTMLDietFileString`, `compileHTMLDietStrings`
*/
template compileHTMLDietString(string contents, ALIASES...)
{
	debug {
		string compileHTMLDietString(R)(ref R dst)
		{
			return compileHTMLDietStrings!(Group!(contents, "diet-string"), ALIASES)(dst);
		}
	} else {
		void compileHTMLDietString(R)(ref R dst)
		{
			compileHTMLDietStrings!(Group!(contents, "diet-string"), ALIASES)(dst);
		}
	}
}


/** Compiles a set of Diet template files.

	The final HTML will be written to the given `_diet_output` output range.

	Params:
		FILES_GROUP = A `diet.input.Group` containing an alternating list of
			file names and file contents.
		ALIASES = A list of variables to make available inside of the template,
			as well as traits structs annotated with the `@dietTraits`
			attribute.
		dst = The output range to write the generated HTML to.

	See_Also: `compileHTMLDietString`, `compileHTMLDietStrings`
*/
template compileHTMLDietStrings(alias FILES_GROUP, ALIASES...)
{
	alias TRAITS = DietTraits!ALIASES;
	private static Document _diet_nodes() { return applyTraits!TRAITS(parseDiet!(translate!TRAITS)(filesFromGroup!FILES_GROUP)); }

	debug {
		// uses the correct range name and removes 'dst' from the scope
		private string exec(R)(ref R _diet_output)
		{
			mixin(localAliasesMixin!(0, ALIASES));
			mixin(getHTMLMixin(_diet_nodes(), dietOutputRangeName, getHTMLOutputStyle!TRAITS));

			return getHTMLMixin(_diet_nodes(), dietOutputRangeName, getHTMLOutputStyle!TRAITS);
		}

		string compileHTMLDietStrings(R)(ref R dst)
		{
			return exec(dst);
		}

	} else {

		// uses the correct range name and removes 'dst' from the scope
		private void exec(R)(ref R _diet_output)
		{
			mixin(localAliasesMixin!(0, ALIASES));
			mixin(getHTMLMixin(_diet_nodes(), dietOutputRangeName, getHTMLOutputStyle!TRAITS));
		}

		void compileHTMLDietStrings(R)(ref R dst)
		{
			exec(dst);
		}
	}
}

// encapsulate this externally for maintenance and for testing.
private enum _diet_imports = "import diet.internal.html : htmlEscape, htmlAttribEscape, filterHTMLAttribEscape;\n"
	 ~ "import diet.defs;\n";

/** Returns a mixin string that generates HTML for the given DOM tree.

	Params:
		doc = The root nodes of the DOM tree.
		range_name = Optional custom name to use for the output range, defaults
			to `_diet_output`.
		style = Output style to use.

	Returns:
		A string of D statements suitable to be mixed in inside of a function.
*/
string getHTMLMixin(in Document doc, string range_name = dietOutputRangeName, HTMLOutputStyle style = HTMLOutputStyle.compact)
{
	CTX ctx;
	ctx.pretty = style == HTMLOutputStyle.pretty;
	ctx.rangeName[] = range_name;
	Vector!char ret = _diet_imports;
	foreach (i, n; doc.nodes[]) {
		//auto scoped = ScopedPool();
		ret ~= ctx.getHTMLMixin(n, false);
	}
	ret ~= ctx.flushRawText();
	return ret[].copy();
}

/** This is like getHTMLMixin, but returns only the NON-code portions of the diet
	template. The usage is for the DietLiveMode, which can update the HTML
	portions of the diet template at runtime without requiring a recompile.


	Params:
		doc = The root nodes of the DOM tree.
		range_name = Optional custom name to use for the output range, defaults
			to `_diet_output`.
		style = Output style to use.

	Returns:
		The return value is a concatenated string with each string of raw
		HTML text separated by a null character. To extract the strings to send
		into the live renderer, split the string based on a null character.
  */
string getHTMLRawTextOnly(in Document doc, string range_name = dietOutputRangeName, HTMLOutputStyle style = HTMLOutputStyle.compact) @safe
{
	CTX ctx;
	ctx.pretty = style == HTMLOutputStyle.pretty;
	ctx.mode = CTX.OutputMode.rawTextOnly;
	ctx.rangeName[] = range_name;
	// definitely don't want the top imports here
	Vector!char ret;
	foreach(i, n; doc.nodes[])
		ret ~= ctx.getHTMLMixin(n, false);
	ret ~= ctx.flushRawText();
	return ret[].copy();
}

/**
  This returns a "live" version of the mixin. The live version generates the code skeleton and then accepts a list of HTML strings that go between the code to output. This way, you can read the diet template at runtime, and if any non-code changes are made, you can avoid recompilation.
  */
string getHTMLLiveMixin(in Document doc, string range_name = dietOutputRangeName, string htmlPiecesMapName = "_diet_html_strings") @safe
{
	CTX ctx;
	ctx.mode = CTX.OutputMode.live;
	ctx.rangeName[] = range_name;
	ctx.piecesMapName[] = htmlPiecesMapName;
	Vector!char ret = _diet_imports;
	foreach(i, n; doc.nodes[])
		ret ~= ctx.getHTMLMixin(n, false);
	// output a final html in case there were any items at the end
	ret ~= ctx.statement!""(Location(Array!char("_livediet"), 0));
	return ret[].copy();
}
/*
unittest {
	import diet.parser;
	void test(string src)(string expected) {
		import std.array : appender, array;
		import std.algorithm : splitter;
		static const n = parseDiet(src);
		{
			auto _diet_output = appender!string();
			mixin(getHTMLMixin(n));
			assert(_diet_output.data == expected, _diet_output.data);
		}

		// test live mode.
		{
			// generate the strings
			auto _diet_output = appender!string();
			auto _diet_html_strings = getHTMLRawTextOnly(n).splitter('\0').array;
			mixin(getHTMLLiveMixin(n));
			assert(_diet_output.data == expected, _diet_output.data);
		}
	}

	test!"doctype html\nfoo(test=true)"("<!DOCTYPE html><foo test></foo>");
	test!"doctype html X\nfoo(test=true)"("<!DOCTYPE html X><foo test=\"test\"></foo>");
	test!"doctype X\nfoo(test=true)"("<!DOCTYPE X><foo test=\"test\"/>");
	test!"foo(test=2+3)"("<foo test=\"5\"></foo>");
	test!"foo(test='#{2+3}')"("<foo test=\"5\"></foo>");
	test!"foo #{2+3}"("<foo>5</foo>");
	test!"foo= 2+3"("<foo>5</foo>");
	test!"- int x = 3;\nfoo=x"("<foo>3</foo>");
	test!"- foreach (i; 0 .. 2)\n\tfoo"("<foo></foo><foo></foo>");
	test!"div(*ngFor=\"\\#item of list\")"(
		"<div *ngFor=\"#item of list\"></div>"
	);
	test!".foo"("<div class=\"foo\"></div>");
	test!"#foo"("<div id=\"foo\"></div>");
}

// test live mode works with HTML changes
unittest {
	void test(string before, string after)(string expectedBefore, string expectedAfter) {
		import std.array : appender, array;
		import std.algorithm : splitter, equal, filter, startsWith;
		import std.string : lineSplitter;
		static const bef = parseDiet(before);
		static const aft = parseDiet(after);

		enum _codeBefore = getHTMLLiveMixin(bef);
		enum _codeAfter = getHTMLLiveMixin(aft);

		// ensure both items produce the same code
		assert(      _codeBefore.lineSplitter.filter!(l => !l.startsWith("#line"))
			   .equal(_codeAfter.lineSplitter.filter!(l => !l.startsWith("#line"))));


		// test both sets of code with both strings
		auto _diet_html_strings = getHTMLRawTextOnly(bef).splitter('\0').array;
		{
			auto _diet_output = appender!string();
			mixin(_codeBefore);
			assert(_diet_output.data == expectedBefore, _diet_output.data);
		}
		{
			auto _diet_output = appender!string();
			mixin(_codeAfter);
			assert(_diet_output.data == expectedBefore, _diet_output.data);
		}

		// second set of strings
		_diet_html_strings = getHTMLRawTextOnly(aft).splitter('\0').array;
		{
			auto _diet_output = appender!string();
			mixin(_codeBefore);
			assert(_diet_output.data == expectedAfter, _diet_output.data);
		}
		{
			auto _diet_output = appender!string();
			mixin(_codeAfter);
			assert(_diet_output.data == expectedAfter, _diet_output.data);
		}
	}

	// test renaming things
	test!("foo(test=2+3)",
		  "foobar(testbaz=2+3)")
		("<foo test=\"5\"></foo>",
		 "<foobar testbaz=\"5\"></foobar>");

	// test injecting extra html
	test!("- if(true)\n  - auto x = 5;\n  foo #{x}",
	      "- if(true)\n  a(href=\"injected!\") injected html!\n  - auto x = 5;\n  foo #{x}",
		  )("<foo>5</foo>", "<a href=\"injected!\">injected html!</a><foo>5</foo>");
}
*/

/** Determines how the generated HTML gets styled.

	To use this, put an enum field named `htmlOutputStyle` into a diet traits
	struct and pass that to the render function.

	The default output style is `compact`.
*/
enum HTMLOutputStyle {
	compact, /// Outputs no extraneous whitespace (including line breaks) around HTML tags
	pretty, /// Inserts line breaks and indents lines according to their nesting level in the HTML structure
}

///
/*
unittest {
	@dietTraits
	struct Traits {
		enum htmlOutputStyle = HTMLOutputStyle.pretty;
	}

	import std.array : appender;
	auto dst = appender!string();
	dst.compileHTMLDietString!("html\n\tbody\n\t\tp Hello", Traits);
	import std.conv : to;
	assert(dst.data == "<html>\n\t<body>\n\t\t<p>Hello</p>\n\t</body>\n</html>", [dst.data].to!string);
}
*/
private @property template getHTMLOutputStyle(TRAITS...)
{
	static if (TRAITS.length) {
		static if (is(typeof(TRAITS[0].htmlOutputStyle)))
			enum getHTMLOutputStyle = TRAITS[0].htmlOutputStyle;
		else enum getHTMLOutputStyle = getHTMLOutputStyle!(TRAITS[1 .. $]);
	} else enum getHTMLOutputStyle = HTMLOutputStyle.compact;
}

private string getHTMLMixin(ref CTX ctx, in Node node, bool in_pre) @safe
{
	switch (node.name[]) {
		default: return ctx.getElementMixin(node, in_pre);
		case "doctype": return ctx.getDoctypeMixin(node);
		case Node.SpecialName.code: return ctx.getCodeMixin(node, in_pre);
		case Node.SpecialName.comment: return ctx.getCommentMixin(node);
		case Node.SpecialName.hidden: return null;
		case Node.SpecialName.text:
			Vector!char ret;
			foreach (i, c; node.contents[])
				ret ~= ctx.getNodeContentsMixin(c, in_pre);
			if (in_pre) ctx.plainNewLine();
			else ctx.prettyNewLine();
			return ret[].copy();
	}
}

private string getElementMixin(ref CTX ctx, in Node node, bool in_pre) @safe
{

	if (node.name[] == "pre") in_pre = true;

	bool need_newline = ctx.needPrettyNewline(node.contents[]);

	bool is_singular_tag;
	// determine if we need a closing tag or have a singular tag
	if (ctx.isHTML) {
		switch (node.name[]) {
			default: break;
			case "area", "base", "basefont", "br", "col", "embed", "frame",	"hr", "img", "input",
					"keygen", "link", "meta", "param", "source", "track", "wbr":
				is_singular_tag = true;
				need_newline = true;
				break;
		}
	} else if (!node.hasNonWhitespaceContent) is_singular_tag = true;

	// write tag name
	string tagname = node.name[].length ? node.name[] : "div";
	Vector!char ret;
	if (node.attribs & NodeAttribs.fitOutside || in_pre)
		ctx.inhibitNewLine();
	else if (need_newline)
		ctx.prettyNewLine();
	{
		auto open_tag = Vector!char();
		open_tag ~= "<";
		open_tag ~= tagname;
		ret ~= ctx.rawText(node.loc, open_tag[]);

	}

	bool had_class = false;

	// write attributes
	foreach (ai, att_; node.attributes[]) {
		auto att = att_.dup; // this sucks...

		// merge multiple class attributes into one
		if (att.name[] == "class") {
			if (had_class) continue;
			had_class = true;
			foreach (ca; node.attributes[ai+1 .. $]) {
				if (ca.name[] != "class") continue;
				if (!ca.contents.length || (ca.isText && !ca.expectText.length)) continue;
				att.addText(" ");
				att.addContents(ca.contents[]);
			}
		}

		bool is_expr = att.contents.length == 1 && att.contents[0].kind == AttributeContent.Kind.interpolation;

		if (is_expr) {
			auto expr = att.contents[0].value;

			if (expr[] == "true") {
				if (ctx.isHTML5) ret ~= ctx.rawText(node.loc, format!" %s"(att.name[]));
				else ret ~= ctx.rawText(node.loc, format!" %s=\"%s\""(att.name[], att.name[]));
				continue;
			}

			// note the attribute name is HTML, and not code, so live mode
			// should reprocess that and use the string table.
			ret ~= ctx.statement!("static if (is(typeof(() { return %s; }()) == bool) ){")(node.loc, expr[]);
				ret ~= ctx.statementCont!"if (%s)"(node.loc, expr[]);
				if (ctx.isHTML5)
					ret ~= ctx.rawText(node.loc, format!" %s"(att.name[]));
				else
					ret ~= ctx.rawText(node.loc, format!" %s=\"%s\""(att.name[], att.name[]));

				ret ~= ctx.statement!"} else static if (is(typeof(%s) : const(char)[])) {{"(node.loc, expr[]);
				ret ~= ctx.statementCont!"  auto _diet_val = %s;"(node.loc, expr[]);
				ret ~= ctx.statementCont!"  if (_diet_val !is null) {"(node.loc);
					ret ~= ctx.rawText!"   %s=\""(node.loc, att.name[]);
					ret ~= ctx.statement!"   %s.filterHTMLAttribEscape(_diet_val);"(node.loc, ctx.rangeName[]);
					ret ~= ctx.rawText(node.loc, "\"");
				ret ~= ctx.statement!"  }"(node.loc);
			ret ~= ctx.statementCont!"}} else {"(node.loc);
		}

		ret ~= ctx.rawText(node.loc, format!" %s=\""(att.name[]));

		foreach (i, v; att.contents[]) {
			final switch (v.kind) with (AttributeContent.Kind) {
				case text:
					ret ~= ctx.rawText(node.loc, htmlAttribEscape(v.value[]));
					break;
				case interpolation, rawInterpolation:
					ret ~= ctx.statement!"%s.htmlAttribEscape(%s);"(node.loc, ctx.rangeName[], v.value[]);
					break;
			}
		}

		ret ~= ctx.rawText(node.loc, "\"");

		if (is_expr) ret ~= ctx.statement!"}"(node.loc);
	}

	// determine if we need a closing tag or have a singular tag
	if (is_singular_tag) {
		enforcep(!node.hasNonWhitespaceContent, format!"Singular HTML element '%s' may not have contents."(node.name), node.loc);
		ret ~= ctx.rawText(node.loc, "/>");
		if (need_newline && !(node.attribs & NodeAttribs.fitOutside))
			ctx.prettyNewLine();
		return ret[].copy();
	}

	ret ~= ctx.rawText(node.loc, ">");

	// write contents
	if (need_newline) {
		ctx.depth++;
		if (!(node.attribs & NodeAttribs.fitInside) && !in_pre)
			ctx.prettyNewLine();
	}

	foreach (i, c; node.contents[])
		ret ~= ctx.getNodeContentsMixin(c, in_pre);

	if (need_newline && !in_pre) {
		ctx.depth--;
		if (!(node.attribs & NodeAttribs.fitInside) && !in_pre)
			ctx.prettyNewLine();
	} else ctx.inhibitNewLine();

	// write end tag
	ret ~= ctx.rawText(node.loc, format!"</%s>"(tagname));

	if ((node.attribs & NodeAttribs.fitOutside) || in_pre)
		ctx.inhibitNewLine();
	else if (need_newline)
		ctx.prettyNewLine();
	return ret[].copy();
}

private string getNodeContentsMixin(ref CTX ctx, in NodeContent* c, bool in_pre) @safe
{
	final switch (c.kind) with (NodeContent.Kind) {
		case node:
			return getHTMLMixin(ctx, c.node, in_pre);
		case text:
			return ctx.rawText(c.loc, c.value[]);
		case interpolation:
			return ctx.textStatement!"%s.htmlEscape(%s);"(c.loc, ctx.rangeName[], c.value[]);
		case rawInterpolation:
			return ctx.textStatement!"put(%s, format!\"%s\"(%s));"(c.loc, ctx.rangeName[], "%s", c.value[]);
	}
}

private string getDoctypeMixin(ref CTX ctx, in Node node) @safe
{
	import diet.internal.string;

	if (node.name[] == "!!!")
		ctx.statement!"pragma(msg, \"Use of '!!!' is deprecated. Use 'doctype' instead.\");"(node.loc);

	enforcep(node.contents.length == 1 && node.contents[0].kind == NodeContent.Kind.text,
		"Only doctype specifiers allowed as content for doctype nodes.", node.loc);

	auto args = ctstrip(node.contents[0].value[]);

	ctx.isHTML5 = false;

	auto doctype_str = Vector!char("!DOCTYPE html");
	switch (args) {
		case "5":
		case "":
		case "html":
			ctx.isHTML5 = true;
			break;
		case "xml":
			doctype_str[] = `?xml version="1.0" encoding="utf-8" ?`;
			ctx.isHTML = false;
			break;
		case "transitional":
			doctype_str[] = `!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" `
				~ `"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"`;
			break;
		case "strict":
			doctype_str[] = `!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" `
				~ `"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"`;
			break;
		case "frameset":
			doctype_str[] = `!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" `
				~ `"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd"`;
			break;
		case "1.1":
			doctype_str[] = `!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" `
				~ `"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"`;
			break;
		case "basic":
			doctype_str[] = `!DOCTYPE html PUBLIC "-//W3C//DTD XHTML Basic 1.1//EN" `
				~ `"http://www.w3.org/TR/xhtml-basic/xhtml-basic11.dtd"`;
			break;
		case "mobile":
			doctype_str[] = `!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.2//EN" `
				~ `"http://www.openmobilealliance.org/tech/DTD/xhtml-mobile12.dtd"`;
			break;
		default:
			doctype_str[] = "!DOCTYPE ";
			doctype_str ~= args;
			ctx.isHTML = args.length >= 5 && args[0 .. 5] == "html ";
		break;
	}

	return ctx.rawText(node.loc, format!"<%s>"(doctype_str[]));
}

private string getCodeMixin(ref CTX ctx, const ref Node node, bool in_pre) @safe
{
	enforcep(node.attributes.length == 0, "Code lines may not have attributes.", node.loc);
	enforcep(node.attribs == NodeAttribs.none, "Code lines may not specify translation or text block suffixes.", node.loc);
	if (node.contents.length == 0) return null;

	Vector!char ret;
	bool have_contents = node.contents.length > 1;
	foreach (i, c; node.contents[]) {
		if (i == 0 && c.kind == NodeContent.Kind.text) {
			if(have_contents) {
				ret ~= ctx.statement!"%s\n{"(node.loc, c.value[]);
			}
			else {
				ret ~= ctx.statement!"%s"(node.loc, c.value[]);
			}
		} else {
			assert(c.kind == NodeContent.Kind.node);
			ret ~= ctx.getHTMLMixin(c.node, in_pre);
		}
	}
	if(have_contents)
		ret ~= ctx.statement!"}"(node.loc);
	return ret[].copy();
}

private string getCommentMixin(ref CTX ctx, const ref Node node) @safe
{
	Vector!char ret = ctx.rawText(node.loc, "<!--");
	ctx.depth++;
	foreach (i, c; node.contents[])
		ret ~= ctx.getNodeContentsMixin(c, false);
	ctx.depth--;
	ret ~= ctx.rawText(node.loc, "-->");
	return ret[].copy();
}

private struct CTX {
	@safe:
	nothrow:

	enum NewlineState {
		none,
		plain,
		pretty,
		inhibit
	}

	bool isHTML5, isHTML = true;
	bool pretty;
	enum OutputMode {
		normal,
		live,
		rawTextOnly
	}
	OutputMode mode;
	int depth = 0;
	Vector!char rangeName;
	Vector!char piecesMapName;
	Vector!char piecesMapOutputStr;
	size_t currentStatement;
	bool inRawText = false;
	NewlineState newlineState = NewlineState.none;
	bool anyText;
	int suppressLive;

	// trying to cut down on compile time memory, this should help by not formatting very similar lines.
	@safe const(char)[] getHTMLPiece()
	{
		if(!piecesMapOutputStr.length)
		{
			piecesMapOutputStr[] = format!"put(%s, %s[0x00000000]);\n"(rangeName[], piecesMapName[]);
		}

		// The last characters of the string are "[0x00000000]);\n". We can
		// replace the 0s with hex characters representing the bytes of the
		// index. Since we are always increasing the index, there's no need to
		// keep replacing 0s once the index is out of data
		size_t idx = piecesMapOutputStr.length - 5;
		size_t curIdx = currentStatement;
		while(curIdx)
		{
			immutable n = curIdx & 0x0f;
			if(n > 9)
				piecesMapOutputStr[idx] = 'a' + n - 10;
			else
				piecesMapOutputStr[idx] = '0' + n;
			--idx;
			curIdx >>= 4;
		}
		return piecesMapOutputStr[].copy();
	}

	// same as statement, but with guaranteed no raw text between the last
	// statement and it.
	string statementCont(string fmt, ARGS...)(in Location loc, ARGS args)
	{
		with(OutputMode) final switch(mode)
		{
		case live:
		case normal:
			auto ret = format!("#line %s \"%s\"\n"~fmt~"\n")(loc.line+1, loc.file[], args);
			//assert(ret.length == 0, ret);
			return ret;
		case rawTextOnly:
			// do not output anything here, no raw text is possible
			return "";
		}
	}

	string statement(string fmt, ARGS...)(in Location loc, ARGS args)
	{
		Vector!char ret = flushRawText();

		// Notes on live mode here. This is about to output a statement in D
		// code from the diet template. In live mode, this means we need to
		// output any HTML text before outputting the D line. Because we don't
		// know if someone might add HTML output where there currently isn't
		// any, we always output another string from the table even though it
		// might be empty.
		//
		// There are 2 cases where the code avoids doing this. The first is
		// between an `if` an `else` statement. D does not allow this in the
		// grammar (and it wouldn't make sense anyway). It is technically
		// possible to add HTML in the diet file between these two, but it will
		// not compile anyway.
		//
		// The second case is after a return statement. This one is tricky
		// because we need to suppress it on the closing brace. In practice,
		// the return statement will not have an HTML or any other statement
		// printout (or it will fail to compile), so a flag is stored that
		// indicates the next statement should suppress "possible" HTML output.
		//
		// At this time, the code just does a simple match to the keywords
		// `return` or `else` as the first word of the line. This should be
		// good enough, but may not be sufficient in all cases.
		auto nextLine = format!(fmt~"\n")(args);
		//assert(nextLine.length == 0, nextLine[]);
		Vector!string firstNonSpace = ctsplit(nextLine[], ' ');
		immutable isReturn = !firstNonSpace.empty && (firstNonSpace[][0] == "return" || firstNonSpace[][0] == "return;");
		immutable isElse = !firstNonSpace.empty && firstNonSpace[][0] == "else";
		with(OutputMode) final switch(mode)
		{
		case rawTextOnly:
			// each statement is represented by a null character as a placeholder.
			if(!isElse && !suppressLive)
				ret ~= '\0';
			break;
		case live:
			// output all non-statement data until this point.
			if(!isElse && !suppressLive)
			{
				ret ~= getHTMLPiece();
			}
			// fall through
			goto case normal;
		case normal:
			ret ~= format!("#line %s \"%s\"\n")(loc.line+1, loc.file[]);
			ret ~= nextLine[];
			break;
		}
		if(!isElse)
		{
			if(suppressLive)
				--suppressLive;
			else
				++currentStatement;
		}
		if(isReturn)
		{
			// need to skip next HTML output
			suppressLive = 1;
		}

		return ret[].copy();
	}

	string textStatement(string fmt, ARGS...)(in Location loc, ARGS args)
	{
		Vector!char ret;
		if (newlineState != NewlineState.none) ret ~= rawText(loc, null);
		ret ~= statement!fmt(loc, args);
		return ret[].copy();
	}

	string rawText(ARGS...)(in Location loc, string text)
	{
		Vector!char ret;
		if (!this.inRawText) {
			with(OutputMode) final switch(mode)
			{
			case rawTextOnly:
			case live:
				// do nothing
				break;
			case normal:
				ret ~= format!"put(%s, \""(this.rangeName[]);
				break;
			}
			this.inRawText = true;
		}
		ret ~= outputPendingNewline();
		with(OutputMode) final switch(mode)
		{
		case live:
			// do nothing
			break;
		case normal:
			ret ~= dstringEscape(text);
			break;
		case rawTextOnly:
			// this is the raw string being output to the browser, indexed in
			// an array. Since it's not being mixed in, we do not need to
			// escape.
			ret ~= text;
			break;
		}
		anyText = true;
		return ret[].copy();
	}

	pure string flushRawText()
	{
		if (this.inRawText) {
			this.inRawText = false;
			if(mode == OutputMode.normal)
				return "\");\n";
		}
		return null;
	}

	void plainNewLine() { if (newlineState != NewlineState.inhibit) newlineState = NewlineState.plain; }
	void prettyNewLine() { if (newlineState != NewlineState.inhibit) newlineState = NewlineState.pretty; }
	void inhibitNewLine() { newlineState = NewlineState.inhibit; }

	bool needPrettyNewline(in NodeContent*[] contents) {
		foreach(c; contents[]) {
			if (c.kind == NodeContent.Kind.node) {
				return pretty;
			}
		}
		return false;
	}

	private string outputPendingNewline()
	{
		auto st = newlineState;
		newlineState = NewlineState.none;

		if(mode == OutputMode.live)
			return null;

		final switch (st) {
			case NewlineState.none: return null;
			case NewlineState.inhibit:return null;
			case NewlineState.plain: return "\n";
			case NewlineState.pretty:
				Vector!char tabs;
				tabs ~= "\n";
				for (int i; i < depth; i++) {
					tabs ~= "\t";
				}
				return anyText ? tabs[] : null;
		}
	}
}
/*
unittest {
	static string compile(string diet, ALIASES...)() {
		import std.array : appender;
		import std.string : strip;
		auto dst = appender!string;
		compileHTMLDietString!(diet, ALIASES)(dst);
		return strip(cast(string)(dst.data));
	}

	assert(compile!(`!!! 5`) == `<!DOCTYPE html>`, `_`~compile!(`!!! 5`)~`_`);
	assert(compile!(`!!! html`) == `<!DOCTYPE html>`);
	assert(compile!(`doctype html`) == `<!DOCTYPE html>`);
	assert(compile!(`doctype xml`) == `<?xml version="1.0" encoding="utf-8" ?>`);
	assert(compile!(`p= 5`) == `<p>5</p>`);
	assert(compile!(`script= 5`) == `<script>5</script>`);
	assert(compile!(`style= 5`) == `<style>5</style>`);
	//assert(compile!(`include #{"p Hello"}`) == "<p>Hello</p>");
	assert(compile!(`<p>Hello</p>`) == "<p>Hello</p>");
	assert(compile!(`// I show up`) == "<!-- I show up-->");
	assert(compile!(`//-I don't show up`) == "");
	assert(compile!(`//- I don't show up`) == "");

	// issue 372
	assert(compile!(`div(class="")`) == `<div></div>`);
	assert(compile!(`div.foo(class="")`) == `<div class="foo"></div>`);
	assert(compile!(`div.foo(class="bar")`) == `<div class="foo bar"></div>`);
	assert(compile!(`div(class="foo")`) == `<div class="foo"></div>`);
	assert(compile!(`div#foo(class='')`) == `<div id="foo"></div>`);

	// issue 19
	assert(compile!(`input(checked=false)`) == `<input/>`);
	assert(compile!(`input(checked=true)`) == `<input checked="checked"/>`);
	assert(compile!(`input(checked=(true && false))`) == `<input/>`);
	assert(compile!(`input(checked=(true || false))`) == `<input checked="checked"/>`);

	assert(compile!(q{- import std.algorithm.searching : any;
	input(checked=([false].any))}) == `<input/>`);
	assert(compile!(q{- import std.algorithm.searching : any;
	input(checked=([true].any))}) == `<input checked="checked"/>`);

	assert(compile!(q{- bool foo() { return false; }
	input(checked=foo)}) == `<input/>`);
	assert(compile!(q{- bool foo() { return true; }
	input(checked=foo)}) == `<input checked="checked"/>`);

	// issue 520
	assert(compile!("- auto cond = true;\ndiv(someattr=cond ? \"foo\" : null)") == "<div someattr=\"foo\"></div>");
	assert(compile!("- auto cond = false;\ndiv(someattr=cond ? \"foo\" : null)") == "<div></div>");
	assert(compile!("- auto cond = false;\ndiv(someattr=cond ? true : false)") == "<div></div>");
	assert(compile!("- auto cond = true;\ndiv(someattr=cond ? true : false)") == "<div someattr=\"someattr\"></div>");
	assert(compile!("doctype html\n- auto cond = true;\ndiv(someattr=cond ? true : false)")
		== "<!DOCTYPE html><div someattr></div>");
	assert(compile!("doctype html\n- auto cond = false;\ndiv(someattr=cond ? true : false)")
		== "<!DOCTYPE html><div></div>");

	// issue 510
	assert(compile!("pre.test\n\tfoo") == "<pre class=\"test\"><foo></foo></pre>");
	assert(compile!("pre.test.\n\tfoo") == "<pre class=\"test\">foo</pre>");
	assert(compile!("pre.test. foo") == "<pre class=\"test\"></pre>");
	assert(compile!("pre().\n\tfoo") == "<pre>foo</pre>");
	assert(compile!("pre#foo.test(data-img=\"sth\",class=\"meh\"). something\n\tmeh") ==
		   "<pre id=\"foo\" class=\"test meh\" data-img=\"sth\">meh</pre>");

	assert(compile!("input(autofocus)").length);

	assert(compile!("- auto s = \"\";\ninput(type=\"text\",value=\"&\\\"#{s}\")")
			== `<input type="text" value="&amp;&quot;"/>`);
	assert(compile!("- auto param = \"t=1&u=1\";\na(href=\"/?#{param}&v=1\") foo")
			== `<a href="/?t=1&amp;u=1&amp;v=1">foo</a>`);

	// issue #1021
	assert(compile!("html( lang=\"en\" )")
		== "<html lang=\"en\"></html>");

	// issue #1033
	assert(compile!("input(placeholder=')')")
		== "<input placeholder=\")\"/>");
	assert(compile!("input(placeholder='(')")
		== "<input placeholder=\"(\"/>");
}

unittest { // blocks and extensions
	static string compilePair(string extension, string base, ALIASES...)() {
		import std.array : appender;
		import std.string : strip;
		auto dst = appender!string;
		compileHTMLDietStrings!(Group!(extension, "extension.dt", base, "base.dt"), ALIASES)(dst);
		return strip(dst.data);
	}

	assert(compilePair!("extends base\nblock test\n\tp Hello", "body\n\tblock test")
		 == "<body><p>Hello</p></body>");
	assert(compilePair!("extends base\nblock test\n\tp Hello", "body\n\tblock test\n\t\tp Default")
		 == "<body><p>Hello</p></body>");
	assert(compilePair!("extends base", "body\n\tblock test\n\t\tp Default")
		 == "<body><p>Default</p></body>");
	assert(compilePair!("extends base\nprepend test\n\tp Hello", "body\n\tblock test\n\t\tp Default")
		 == "<body><p>Hello</p><p>Default</p></body>");
}
*/
/*@nogc*/ @safe unittest { // NOTE: formattedWrite is not @nogc
	static struct R {
		@nogc @safe nothrow:
		void put(in char[]) {}
		void put(char) {}
		void put(dchar) {}
	}

	R r;
	r.compileHTMLDietString!(
`doctype html
html
	- foreach (i; 0 .. 10)
		title= i
	title t #{12} !{13}
`);
}
/*
unittest { // issue 4 - nested text in code
	static string compile(string diet, ALIASES...)() {
		import std.array : appender;
		import std.string : strip;
		auto dst = appender!string;
		compileHTMLDietString!(diet, ALIASES)(dst);
		return strip(cast(string)(dst.data));
	}
	assert(compile!"- if (true)\n\t| int bar;" == "int bar;");
}

unittest { // class instance variables
	import std.array : appender;
	import std.string : strip;

	static class C {
		int x = 42;

		string test()
		{
			auto dst = appender!string;
			dst.compileHTMLDietString!("| #{x}", x);
			return dst.data;
		}
	}

	auto c = new C;
	assert(c.test().strip == "42");
}

unittest { // raw interpolation for non-copyable range
	struct R { @disable this(this); void put(dchar) {} void put(in char[]) {} }
	R r;
	r.compileHTMLDietString!("a !{2}");
}

unittest {
	assert(utCompile!(".foo(class=true?\"bar\":\"baz\")") == "<div class=\"foo bar\"></div>");
}
version (unittest) {
	private string utCompile(string diet, ALIASES...)() {
		import std.array : appender;
		import std.string : strip;
		auto dst = appender!string;
		compileHTMLDietString!(diet, ALIASES)(dst);
		return strip(cast(string)(dst.data));
	}
}

unittest { // blank lines in text blocks
	assert(utCompile!("pre.\n\tfoo\n\n\tbar") == "<pre>foo\n\nbar</pre>");
}

unittest { // singular tags should be each on their own line
	enum src = "p foo\nlink\nlink";
	enum dst = "<p>foo</p>\n<link/>\n<link/>";
	@dietTraits struct T { enum HTMLOutputStyle htmlOutputStyle = HTMLOutputStyle.pretty; }
	assert(utCompile!(src, T) == dst);
}

unittest { // ignore whitespace content for singular tags
	assert(utCompile!("link  ") == "<link/>");
	assert(utCompile!("link  \n\t  ") == "<link/>");
}

unittest {
	@dietTraits struct T { enum HTMLOutputStyle htmlOutputStyle = HTMLOutputStyle.pretty; }
	import std.conv : to;
	// no extraneous newlines before text lines
	assert(utCompile!("foo\n\tbar text1\n\t| text2", T) == "<foo>\n\t<bar>text1</bar>text2\n</foo>");
	assert(utCompile!("foo\n\tbar: baz\n\t| text2", T) == "<foo>\n\t<bar>\n\t\t<baz></baz>\n\t</bar>\n\ttext2\n</foo>");
	// fit inside/outside + pretty printing - issue #27
	assert(utCompile!("| foo\na<> bar\n| baz", T) == "foo<a>bar</a>baz");
	assert(utCompile!("foo\n\ta< bar", T) == "<foo>\n\t<a>bar</a>\n</foo>");
	assert(utCompile!("foo\n\ta> bar", T) == "<foo><a>bar</a></foo>");
	assert(utCompile!("a\nfoo<\n\ta bar\nb", T) == "<a></a>\n<foo><a>bar</a></foo>\n<b></b>");
	assert(utCompile!("a\nfoo>\n\ta bar\nb", T) == "<a></a><foo>\n\t<a>bar</a>\n</foo><b></b>");
	// hard newlines in pre blocks
	assert(utCompile!("pre\n\t| foo\n\t| bar", T) == "<pre>foo\nbar</pre>");
	assert(utCompile!("pre\n\tcode\n\t\t| foo\n\t\t| bar", T) == "<pre><code>foo\nbar</code></pre>");
	// always hard breaks for text blocks
	assert(utCompile!("pre.\n\tfoo\n\tbar", T) == "<pre>foo\nbar</pre>");
	assert(utCompile!("foo.\n\tfoo\n\tbar", T) == "<foo>foo\nbar</foo>");
}

unittest { // issue #45 - no singular tags for XML
	assert(!__traits(compiles, utCompile!("doctype html\nlink foo")));
	assert(!__traits(compiles, utCompile!("doctype html FOO\nlink foo")));
	assert(utCompile!("doctype xml\nlink foo") == `<?xml version="1.0" encoding="utf-8" ?><link>foo</link>`);
	assert(utCompile!("doctype foo\nlink foo") == `<!DOCTYPE foo><link>foo</link>`);
}

unittest { // output empty tags as singular for XML output
	assert(utCompile!("doctype html\nfoo") == `<!DOCTYPE html><foo></foo>`);
	assert(utCompile!("doctype xml\nfoo") == `<?xml version="1.0" encoding="utf-8" ?><foo/>`);
}

*/