/** | |
* SyntaxHighlighter | |
* http://alexgorbatchev.com/ | |
* | |
* SyntaxHighlighter is donationware. If you are using it, please donate. | |
* http://alexgorbatchev.com/wiki/SyntaxHighlighter:Donate | |
* | |
* @version | |
* 2.1.364 (October 15 2009) | |
* | |
* @copyright | |
* Copyright (C) 2004-2009 Alex Gorbatchev. | |
* | |
* @license | |
* This file is part of SyntaxHighlighter. | |
* | |
* SyntaxHighlighter is free software: you can redistribute it and/or modify | |
* it under the terms of the GNU Lesser General Public License as published by | |
* the Free Software Foundation, either version 3 of the License, or | |
* (at your option) any later version. | |
* | |
* SyntaxHighlighter is distributed in the hope that it will be useful, | |
* but WITHOUT ANY WARRANTY; without even the implied warranty of | |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
* GNU General Public License for more details. | |
* | |
* You should have received a copy of the GNU General Public License | |
* along with SyntaxHighlighter. If not, see <http://www.gnu.org/copyleft/lesser.html>. | |
*/ | |
SyntaxHighlighter.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: /\(\*[\s\S]*?\*\)/gm, css: 'comments' }, // multiline comments (* *) | |
{ regex: /{(?!\$)[\s\S]*?}/gm, css: 'comments' }, // multiline comments { } | |
{ regex: SyntaxHighlighter.regexLib.singleLineCComments, css: 'comments' }, // one line | |
{ regex: SyntaxHighlighter.regexLib.singleQuotedString, css: 'string' }, // strings | |
{ regex: /\{\$[a-zA-Z]+ .+\}/g, css: 'color1' }, // compiler Directives and Region tags | |
{ regex: /\b[\d\.]+\b/g, css: 'value' }, // numbers 12345 | |
{ regex: /\$[a-zA-Z0-9]+\b/g, css: 'value' }, // numbers $F5D3 | |
{ regex: new RegExp(this.getKeywords(keywords), 'gmi'), css: 'keyword' } // keyword | |
]; | |
}; | |
SyntaxHighlighter.brushes.Delphi.prototype = new SyntaxHighlighter.Highlighter(); | |
SyntaxHighlighter.brushes.Delphi.aliases = ['delphi', 'pascal', 'pas']; |