;(
function
()
{
typeof
(require) !=
'undefined'
? SyntaxHighlighter = require(
'shCore'
).SyntaxHighlighter :
null
;
function
Brush()
{
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'
},
{ regex: /{(?!\$)[\s\S]*?}/gm, css:
'comments'
},
{ regex: SyntaxHighlighter.regexLib.singleLineCComments, css:
'comments'
},
{ regex: SyntaxHighlighter.regexLib.singleQuotedString, css:
'string'
},
{ regex: /\{\$[a-zA-Z]+ .+\}/g, css:
'color1'
},
{ regex: /\b[\d\.]+\b/g, css:
'value'
},
{ regex: /\$[a-zA-Z0-9]+\b/g, css:
'value'
},
{ regex:
new
RegExp(
this
.getKeywords(keywords),
'gmi'
), css:
'keyword'
}
];
};
Brush.prototype =
new
SyntaxHighlighter.Highlighter();
Brush.aliases = [
'delphi'
,
'pascal'
,
'pas'
];
SyntaxHighlighter.brushes.Delphi = Brush;
typeof
(exports) !=
'undefined'
? exports.Brush = Brush :
null
;
})();