annotate 2015_06_02/highlighter/shBrushDelphi.js @ 0:47676a16ed13

Add Slides
author Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
date Tue, 14 Jul 2015 17:23:04 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 /**
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 * SyntaxHighlighter
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 * http://alexgorbatchev.com/SyntaxHighlighter
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 *
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 * SyntaxHighlighter is donationware. If you are using it, please donate.
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 * http://alexgorbatchev.com/SyntaxHighlighter/donate.html
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 *
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 * @version
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 * 3.0.83 (July 02 2010)
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 *
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 * @copyright
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 * Copyright (C) 2004-2010 Alex Gorbatchev.
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 *
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 * @license
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 * Dual licensed under the MIT and GPL licenses.
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 */
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 ;(function()
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 {
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 // CommonJS
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 typeof(require) != 'undefined' ? SyntaxHighlighter = require('shCore').SyntaxHighlighter : null;
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 function Brush()
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 {
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 var keywords = 'abs addr and ansichar ansistring array as asm begin boolean byte cardinal ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 'case char class comp const constructor currency destructor div do double ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 'downto else end except exports extended false file finalization finally ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 'for function goto if implementation in inherited int64 initialization ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 'integer interface is label library longint longword mod nil not object ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 'of on or packed pansichar pansistring pchar pcurrency pdatetime pextended ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 'pint64 pointer private procedure program property pshortstring pstring ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 'pvariant pwidechar pwidestring protected public published raise real real48 ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 'record repeat set shl shortint shortstring shr single smallint string then ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 'threadvar to true try type unit until uses val var varirnt while widechar ' +
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 'widestring with word write writeln xor';
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 this.regexList = [
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 { regex: /\(\*[\s\S]*?\*\)/gm, css: 'comments' }, // multiline comments (* *)
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 { regex: /{(?!\$)[\s\S]*?}/gm, css: 'comments' }, // multiline comments { }
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 { regex: SyntaxHighlighter.regexLib.singleLineCComments, css: 'comments' }, // one line
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 { regex: SyntaxHighlighter.regexLib.singleQuotedString, css: 'string' }, // strings
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 { regex: /\{\$[a-zA-Z]+ .+\}/g, css: 'color1' }, // compiler Directives and Region tags
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 { regex: /\b[\d\.]+\b/g, css: 'value' }, // numbers 12345
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 { regex: /\$[a-zA-Z0-9]+\b/g, css: 'value' }, // numbers $F5D3
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 { regex: new RegExp(this.getKeywords(keywords), 'gmi'), css: 'keyword' } // keyword
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 ];
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 };
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 Brush.prototype = new SyntaxHighlighter.Highlighter();
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 Brush.aliases = ['delphi', 'pascal', 'pas'];
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 SyntaxHighlighter.brushes.Delphi = Brush;
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 // CommonJS
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 typeof(exports) != 'undefined' ? exports.Brush = Brush : null;
47676a16ed13 Add Slides
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 })();