/* Delphi brush is contributed by Eddie Shipman */

dp.sh.Brushes.Delphi = function()

{

	var keywords =	'abs addr and ansichar ansistring array as asm begin boolean byte cardinal ' +

					'case char class comp const constructor currency destructor div do double ' +

					'downto else end except exports extended false file finalization finally ' +

					'for function goto if implementation in inherited int64 initialization ' +

					'integer interface is label library longint longword mod nil not object ' +

					'of on or packed pansichar pansistring pchar pcurrency pdatetime pextended ' + 

					'pint64 pointer private procedure program property pshortstring pstring ' + 

					'pvariant pwidechar pwidestring protected public published raise real real48 ' +

					'record repeat set shl shortint shortstring shr single smallint string then ' +

					'threadvar to true try type unit until uses val var varirnt while widechar ' +

					'widestring with word write writeln xor';



	this.regexList = [

		{ regex: new RegExp('\\(\\*[\\s\\S]*?\\*\\)', 'gm'),		css: 'comment' },  			// multiline comments (* *)

		{ regex: new RegExp('{(?!\\$)[\\s\\S]*?}', 'gm'),			css: 'comment' },  			// multiline comments { }

		{ regex: dp.sh.RegexLib.SingleLineCComments,				css: 'comment' },  			// one line

		{ regex: dp.sh.RegexLib.SingleQuotedString,					css: 'string' },			// strings

		{ regex: new RegExp('\\{\\$[a-zA-Z]+ .+\\}', 'g'),			css: 'directive' },			// Compiler Directives and Region tags

		{ regex: new RegExp('\\b[\\d\\.]+\\b', 'g'),				css: 'number' },			// numbers 12345

		{ regex: new RegExp('\\$[a-zA-Z0-9]+\\b', 'g'),				css: 'number' },			// numbers $F5D3

		{ regex: new RegExp(this.GetKeywords(keywords), 'gm'),		css: 'keyword' }			// keyword

		];



	this.CssClass = 'dp-delphi';

	this.Style =	'.dp-delphi .number { color: blue; }' +

					'.dp-delphi .directive { color: #008284; }' +

					'.dp-delphi .vars { color: #000; }';

}



dp.sh.Brushes.Delphi.prototype	= new dp.sh.Highlighter();

dp.sh.Brushes.Delphi.Aliases	= ['delphi', 'pascal'];