https://wild-cards.net/wc/wp-content/plugins/syntaxhighlighter/syn…/scripts/shBrushDelphi.js?ver=2.1.364

1/**
2 * SyntaxHighlighter
3 * http://alexgorbatchev.com/
4 *
5 * SyntaxHighlighter is donationware. If you are using it, please donate.
6 * http://alexgorbatchev.com/wiki/SyntaxHighlighter:Donate
7 *
8 * @version
9 * 2.1.364 (October 15 2009)
10 * 
11 * @copyright
12 * Copyright (C) 2004-2009 Alex Gorbatchev.
13 *
14 * @license
15 * This file is part of SyntaxHighlighter.
16 * 
17 * SyntaxHighlighter is free software: you can redistribute it and/or modify
18 * it under the terms of the GNU Lesser General Public License as published by
19 * the Free Software Foundation, either version 3 of the License, or
20 * (at your option) any later version.
21 * 
22 * SyntaxHighlighter is distributed in the hope that it will be useful,
23 * but WITHOUT ANY WARRANTY; without even the implied warranty of
24 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25 * GNU General Public License for more details.
26 * 
27 * You should have received a copy of the GNU General Public License
28 * along with SyntaxHighlighter.  If not, see <http://www.gnu.org/copyleft/lesser.html>.
29 */
30SyntaxHighlighter.brushes.Delphi = function()
31{
32	var keywords =	'abs addr and ansichar ansistring array as asm begin boolean byte cardinal ' +
33					'case char class comp const constructor currency destructor div do double ' +
34					'downto else end except exports extended false file finalization finally ' +
35					'for function goto if implementation in inherited int64 initialization ' +
36					'integer interface is label library longint longword mod nil not object ' +
37					'of on or packed pansichar pansistring pchar pcurrency pdatetime pextended ' +
38					'pint64 pointer private procedure program property pshortstring pstring ' +
39					'pvariant pwidechar pwidestring protected public published raise real real48 ' +
40					'record repeat set shl shortint shortstring shr single smallint string then ' +
41					'threadvar to true try type unit until uses val var varirnt while widechar ' +
42					'widestring with word write writeln xor';
43
44	this.regexList = [
45		{ regex: /\(\*[\s\S]*?\*\)/gm,								css: 'comments' },  	// multiline comments (* *)
46		{ regex: /{(?!\$)[\s\S]*?}/gm,								css: 'comments' },  	// multiline comments { }
47		{ regex: SyntaxHighlighter.regexLib.singleLineCComments,	css: 'comments' },  	// one line
48		{ regex: SyntaxHighlighter.regexLib.singleQuotedString,		css: 'string' },		// strings
49		{ regex: /\{\$[a-zA-Z]+ .+\}/g,								css: 'color1' },		// compiler Directives and Region tags
50		{ regex: /\b[\d\.]+\b/g,									css: 'value' },			// numbers 12345
51		{ regex: /\$[a-zA-Z0-9]+\b/g,								css: 'value' },			// numbers $F5D3
52		{ regex: new RegExp(this.getKeywords(keywords), 'gmi'),		css: 'keyword' }		// keyword
53		];
54};
55
56SyntaxHighlighter.brushes.Delphi.prototype	= new SyntaxHighlighter.Highlighter();
57SyntaxHighlighter.brushes.Delphi.aliases	= ['delphi', 'pascal', 'pas'];