google 代码美化 Delphi 评论
google code prettify Delphi comment
我正在尝试让 google 代码美化工作,显示类似于 Delphi IDE 和 运行 的评论 [=17] =]
这是一条评论:
{text in here}
这是编译器指令(不是注释):
{$text in here}
有谁知道如何更改下面的评论部分,这样如果 {
之后的字符是 $
字符那么它就不是评论
这是我一直在使用的语言-Pascal.js
PR.registerLangHandler(
PR.createSimpleLexer(
[ // shortcutStylePatterns
// 'single-line-string'
[PR.PR_STRING, /^(?:\'(?:[^\\'\r\n]|\.)*(?:\'|$))/, null, '\''],
// Whitespace
[PR.PR_PLAIN, /^\s+/, null, ' \r\n\t\xA0']
],
[ // fallthroughStylePatterns
// A cStyleComments comment (* *) or {}
[PR.PR_COMMENT, /^(?:\/\/[^\r\n]*)|\(\*[\s\S]*?(?:\*\)|$)|^\{[\s\S]*?(?:\}|$)/, null],
//[PR.PR_COMMENT, /^\(\*[\s\S]*?(?:\*\)|$)|^\{[\s\S]*?(?:\}|$)/, null],
[PR.PR_KEYWORD, /^(?:TRY|EXCEPT|PUBLIC|PRIVATE|CLASS|PROPERTY|ABSOLUTE|AND|ARRAY|ASM|ASSEMBLER|BEGIN|CASE|CONST|CONSTRUCTOR|DESTRUCTOR|DIV|DO|DOWNTO|ELSE|END|EXTERNAL|FOR|FORWARD|FUNCTION|GOTO|IF|IMPLEMENTATION|IN|INLINE|INTERFACE|INTERRUPT|LABEL|MOD|NOT|OBJECT|ON|OF|OR|PACKED|PROCEDURE|PROGRAM|RECORD|REPEAT|SET|SHL|SHR|STRICT|THEN|TO|TYPE|UNIT|UNTIL|USES|VAR|VIRTUAL|WHILE|WITH|XOR)\b/i, null],
[PR.PR_LITERAL, /^(?:true|false|self|nil)/i, null],
[PR.PR_PLAIN, /^[a-z][a-z0-9]*/i, null],
// Literals .0, 0, 0.0 0E13
[PR.PR_LITERAL, /^(?:$[a-f0-9]+|(?:\d+(?:\.\d*)?|\.\d+)(?:e[+\-]?\d+)?)/i, null, '0123456789'],
[PR.PR_PUNCTUATION, /^.[^\s\w\.$@\'\/]*/, null]
]),
['pascal']);
由于语法是 JS(文件是 lang-Pascal.js),我还假设正则表达式是 ECMAScript 5合规。
一个非常简单的修复方法是在 {
:
之后添加一个 (?!$)
否定前瞻
^(?:\/\/[^\r\n]*)|\(\*[\s\S]*?(?:\*\)|$)|^\{(?!$)[\s\S]*?(?:\}|$)
^^^^^
如果 string/line.
开头的文字 {
后有 $
,则此前瞻将导致匹配失败
我正在尝试让 google 代码美化工作,显示类似于 Delphi IDE 和 运行 的评论 [=17] =]
这是一条评论:
{text in here}
这是编译器指令(不是注释):
{$text in here}
有谁知道如何更改下面的评论部分,这样如果 {
之后的字符是 $
字符那么它就不是评论
这是我一直在使用的语言-Pascal.js
PR.registerLangHandler(
PR.createSimpleLexer(
[ // shortcutStylePatterns
// 'single-line-string'
[PR.PR_STRING, /^(?:\'(?:[^\\'\r\n]|\.)*(?:\'|$))/, null, '\''],
// Whitespace
[PR.PR_PLAIN, /^\s+/, null, ' \r\n\t\xA0']
],
[ // fallthroughStylePatterns
// A cStyleComments comment (* *) or {}
[PR.PR_COMMENT, /^(?:\/\/[^\r\n]*)|\(\*[\s\S]*?(?:\*\)|$)|^\{[\s\S]*?(?:\}|$)/, null],
//[PR.PR_COMMENT, /^\(\*[\s\S]*?(?:\*\)|$)|^\{[\s\S]*?(?:\}|$)/, null],
[PR.PR_KEYWORD, /^(?:TRY|EXCEPT|PUBLIC|PRIVATE|CLASS|PROPERTY|ABSOLUTE|AND|ARRAY|ASM|ASSEMBLER|BEGIN|CASE|CONST|CONSTRUCTOR|DESTRUCTOR|DIV|DO|DOWNTO|ELSE|END|EXTERNAL|FOR|FORWARD|FUNCTION|GOTO|IF|IMPLEMENTATION|IN|INLINE|INTERFACE|INTERRUPT|LABEL|MOD|NOT|OBJECT|ON|OF|OR|PACKED|PROCEDURE|PROGRAM|RECORD|REPEAT|SET|SHL|SHR|STRICT|THEN|TO|TYPE|UNIT|UNTIL|USES|VAR|VIRTUAL|WHILE|WITH|XOR)\b/i, null],
[PR.PR_LITERAL, /^(?:true|false|self|nil)/i, null],
[PR.PR_PLAIN, /^[a-z][a-z0-9]*/i, null],
// Literals .0, 0, 0.0 0E13
[PR.PR_LITERAL, /^(?:$[a-f0-9]+|(?:\d+(?:\.\d*)?|\.\d+)(?:e[+\-]?\d+)?)/i, null, '0123456789'],
[PR.PR_PUNCTUATION, /^.[^\s\w\.$@\'\/]*/, null]
]),
['pascal']);
由于语法是 JS(文件是 lang-Pascal.js),我还假设正则表达式是 ECMAScript 5合规。
一个非常简单的修复方法是在 {
:
(?!$)
否定前瞻
^(?:\/\/[^\r\n]*)|\(\*[\s\S]*?(?:\*\)|$)|^\{(?!$)[\s\S]*?(?:\}|$)
^^^^^
如果 string/line.
开头的文字{
后有 $
,则此前瞻将导致匹配失败