-
Notifications
You must be signed in to change notification settings - Fork 1.3k
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
a3905c0
commit f22ea9f
Showing
5 changed files
with
181 additions
and
206 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,191 +1,156 @@ | ||
Prism.languages.perl = { | ||
'comment': [ | ||
{ | ||
// POD | ||
pattern: /(^\s*)=\w[\s\S]*?=cut.*/m, | ||
(function (Prism) { | ||
|
||
var brackets = /(?:\((?:[^()\\]|\\[\s\S])*\)|\{(?:[^{}\\]|\\[\s\S])*\}|\[(?:[^[\]\\]|\\[\s\S])*\]|<(?:[^<>\\]|\\[\s\S])*>)/.source; | ||
|
||
Prism.languages.perl = { | ||
'comment': [ | ||
{ | ||
// POD | ||
pattern: /(^\s*)=\w[\s\S]*?=cut.*/m, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
{ | ||
pattern: /(^|[^\\$])#.*/, | ||
lookbehind: true, | ||
greedy: true | ||
} | ||
], | ||
// TODO Could be nice to handle Heredoc too. | ||
'string': [ | ||
{ | ||
pattern: RegExp( | ||
/\b(?:q|qq|qw|qx)(?![a-zA-Z0-9])\s*/.source + | ||
'(?:' + | ||
[ | ||
// q/.../ | ||
/([^a-zA-Z0-9\s{(\[<])(?:(?!\1)[^\\]|\\[\s\S])*\1/.source, | ||
|
||
// q a...a | ||
// eslint-disable-next-line regexp/strict | ||
/([a-zA-Z0-9])(?:(?!\2)[^\\]|\\[\s\S])*\2/.source, | ||
|
||
// q(...) | ||
// q{...} | ||
// q[...] | ||
// q<...> | ||
brackets, | ||
].join('|') + | ||
')' | ||
), | ||
greedy: true | ||
}, | ||
|
||
// "...", `...` | ||
{ | ||
pattern: /("|`)(?:(?!\1)[^\\]|\\[\s\S])*\1/, | ||
greedy: true | ||
}, | ||
|
||
// '...' | ||
// FIXME Multi-line single-quoted strings are not supported as they would break variables containing ' | ||
{ | ||
pattern: /'(?:[^'\\\r\n]|\\.)*'/, | ||
greedy: true | ||
} | ||
], | ||
'regex': [ | ||
{ | ||
pattern: RegExp( | ||
/\b(?:m|qr)(?![a-zA-Z0-9])\s*/.source + | ||
'(?:' + | ||
[ | ||
// m/.../ | ||
/([^a-zA-Z0-9\s{(\[<])(?:(?!\1)[^\\]|\\[\s\S])*\1/.source, | ||
|
||
// m a...a | ||
// eslint-disable-next-line regexp/strict | ||
/([a-zA-Z0-9])(?:(?!\2)[^\\]|\\[\s\S])*\2/.source, | ||
|
||
// m(...) | ||
// m{...} | ||
// m[...] | ||
// m<...> | ||
brackets, | ||
].join('|') + | ||
')' + | ||
/[msixpodualngc]*/.source | ||
), | ||
greedy: true | ||
}, | ||
|
||
// The lookbehinds prevent -s from breaking | ||
{ | ||
pattern: RegExp( | ||
/(^|[^-])\b(?:s|tr|y)(?![a-zA-Z0-9])\s*/.source + | ||
'(?:' + | ||
[ | ||
// s/.../.../ | ||
// eslint-disable-next-line regexp/strict | ||
/([^a-zA-Z0-9\s{(\[<])(?:(?!\2)[^\\]|\\[\s\S])*\2(?:(?!\2)[^\\]|\\[\s\S])*\2/.source, | ||
|
||
// s a...a...a | ||
// eslint-disable-next-line regexp/strict | ||
/([a-zA-Z0-9])(?:(?!\3)[^\\]|\\[\s\S])*\3(?:(?!\3)[^\\]|\\[\s\S])*\3/.source, | ||
|
||
// s(...)(...) | ||
// s{...}{...} | ||
// s[...][...] | ||
// s<...><...> | ||
// s(...)[...] | ||
brackets + /\s*/.source + brackets, | ||
].join('|') + | ||
')' + | ||
/[msixpodualngcer]*/.source | ||
), | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// /.../ | ||
// The look-ahead tries to prevent two divisions on | ||
// the same line from being highlighted as regex. | ||
// This does not support multi-line regex. | ||
{ | ||
pattern: /\/(?:[^\/\\\r\n]|\\.)*\/[msixpodualngc]*(?=\s*(?:$|[\r\n,.;})&|\-+*~<>!?^]|(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|x|xor)\b))/, | ||
greedy: true | ||
} | ||
], | ||
|
||
// FIXME Not sure about the handling of ::, ', and # | ||
'variable': [ | ||
// ${^POSTMATCH} | ||
/[&*$@%]\{\^[A-Z]+\}/, | ||
// $^V | ||
/[&*$@%]\^[A-Z_]/, | ||
// ${...} | ||
/[&*$@%]#?(?=\{)/, | ||
// $foo | ||
/[&*$@%]#?(?:(?:::)*'?(?!\d)[\w$]+(?![\w$]))+(?:::)*/, | ||
// $1 | ||
/[&*$@%]\d+/, | ||
// $_, @_, %! | ||
// The negative lookahead prevents from breaking the %= operator | ||
/(?!%=)[$@%][!"#$%&'()*+,\-.\/:;<=>?@[\\\]^_`{|}~]/ | ||
], | ||
'filehandle': { | ||
// <>, <FOO>, _ | ||
pattern: /<(?![<=])\S*?>|\b_\b/, | ||
alias: 'symbol' | ||
}, | ||
'v-string': { | ||
// v1.2, 1.2.3 | ||
pattern: /v\d+(?:\.\d+)*|\d+(?:\.\d+){2,}/, | ||
alias: 'string' | ||
}, | ||
'function': { | ||
pattern: /(\bsub[ \t]+)\w+/, | ||
lookbehind: true | ||
}, | ||
{ | ||
pattern: /(^|[^\\$])#.*/, | ||
lookbehind: true | ||
} | ||
], | ||
// TODO Could be nice to handle Heredoc too. | ||
'string': [ | ||
// q/.../ | ||
{ | ||
pattern: /\b(?:q|qq|qw|qx)\s*([^a-zA-Z0-9\s{(\[<])(?:(?!\1)[^\\]|\\[\s\S])*\1/, | ||
greedy: true | ||
}, | ||
|
||
// q a...a | ||
{ | ||
pattern: /\b(?:q|qq|qw|qx)\s+([a-zA-Z0-9])(?:(?!\1)[^\\]|\\[\s\S])*\1/, | ||
greedy: true | ||
}, | ||
|
||
// q(...) | ||
{ | ||
pattern: /\b(?:q|qq|qw|qx)\s*\((?:[^()\\]|\\[\s\S])*\)/, | ||
greedy: true | ||
}, | ||
|
||
// q{...} | ||
{ | ||
pattern: /\b(?:q|qq|qw|qx)\s*\{(?:[^{}\\]|\\[\s\S])*\}/, | ||
greedy: true | ||
}, | ||
|
||
// q[...] | ||
{ | ||
pattern: /\b(?:q|qq|qw|qx)\s*\[(?:[^[\]\\]|\\[\s\S])*\]/, | ||
greedy: true | ||
}, | ||
|
||
// q<...> | ||
{ | ||
pattern: /\b(?:q|qq|qw|qx)\s*<(?:[^<>\\]|\\[\s\S])*>/, | ||
greedy: true | ||
}, | ||
|
||
// "...", `...` | ||
{ | ||
pattern: /("|`)(?:(?!\1)[^\\]|\\[\s\S])*\1/, | ||
greedy: true | ||
}, | ||
|
||
// '...' | ||
// FIXME Multi-line single-quoted strings are not supported as they would break variables containing ' | ||
{ | ||
pattern: /'(?:[^'\\\r\n]|\\.)*'/, | ||
greedy: true | ||
} | ||
], | ||
'regex': [ | ||
// m/.../ | ||
{ | ||
pattern: /\b(?:m|qr)\s*([^a-zA-Z0-9\s{(\[<])(?:(?!\1)[^\\]|\\[\s\S])*\1[msixpodualngc]*/, | ||
greedy: true | ||
}, | ||
|
||
// m a...a | ||
{ | ||
pattern: /\b(?:m|qr)\s+([a-zA-Z0-9])(?:(?!\1)[^\\]|\\[\s\S])*\1[msixpodualngc]*/, | ||
greedy: true | ||
}, | ||
|
||
// m(...) | ||
{ | ||
pattern: /\b(?:m|qr)\s*\((?:[^()\\]|\\[\s\S])*\)[msixpodualngc]*/, | ||
greedy: true | ||
}, | ||
|
||
// m{...} | ||
{ | ||
pattern: /\b(?:m|qr)\s*\{(?:[^{}\\]|\\[\s\S])*\}[msixpodualngc]*/, | ||
greedy: true | ||
}, | ||
|
||
// m[...] | ||
{ | ||
pattern: /\b(?:m|qr)\s*\[(?:[^[\]\\]|\\[\s\S])*\][msixpodualngc]*/, | ||
greedy: true | ||
}, | ||
|
||
// m<...> | ||
{ | ||
pattern: /\b(?:m|qr)\s*<(?:[^<>\\]|\\[\s\S])*>[msixpodualngc]*/, | ||
greedy: true | ||
}, | ||
|
||
// The lookbehinds prevent -s from breaking | ||
// FIXME We don't handle change of separator like s(...)[...] | ||
// s/.../.../ | ||
{ | ||
pattern: /(^|[^-]\b)(?:s|tr|y)\s*([^a-zA-Z0-9\s{(\[<])(?:(?!\2)[^\\]|\\[\s\S])*\2(?:(?!\2)[^\\]|\\[\s\S])*\2[msixpodualngcer]*/, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// s a...a...a | ||
{ | ||
pattern: /(^|[^-]\b)(?:s|tr|y)\s+([a-zA-Z0-9])(?:(?!\2)[^\\]|\\[\s\S])*\2(?:(?!\2)[^\\]|\\[\s\S])*\2[msixpodualngcer]*/, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// s(...)(...) | ||
{ | ||
pattern: /(^|[^-]\b)(?:s|tr|y)\s*\((?:[^()\\]|\\[\s\S])*\)\s*\((?:[^()\\]|\\[\s\S])*\)[msixpodualngcer]*/, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// s{...}{...} | ||
{ | ||
pattern: /(^|[^-]\b)(?:s|tr|y)\s*\{(?:[^{}\\]|\\[\s\S])*\}\s*\{(?:[^{}\\]|\\[\s\S])*\}[msixpodualngcer]*/, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// s[...][...] | ||
{ | ||
pattern: /(^|[^-]\b)(?:s|tr|y)\s*\[(?:[^[\]\\]|\\[\s\S])*\]\s*\[(?:[^[\]\\]|\\[\s\S])*\][msixpodualngcer]*/, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// s<...><...> | ||
{ | ||
pattern: /(^|[^-]\b)(?:s|tr|y)\s*<(?:[^<>\\]|\\[\s\S])*>\s*<(?:[^<>\\]|\\[\s\S])*>[msixpodualngcer]*/, | ||
lookbehind: true, | ||
greedy: true | ||
}, | ||
|
||
// /.../ | ||
// The look-ahead tries to prevent two divisions on | ||
// the same line from being highlighted as regex. | ||
// This does not support multi-line regex. | ||
{ | ||
pattern: /\/(?:[^\/\\\r\n]|\\.)*\/[msixpodualngc]*(?=\s*(?:$|[\r\n,.;})&|\-+*~<>!?^]|(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|x|xor)\b))/, | ||
greedy: true | ||
} | ||
], | ||
'keyword': /\b(?:any|break|continue|default|delete|die|do|else|elsif|eval|for|foreach|given|goto|if|last|local|my|next|our|package|print|redo|require|return|say|state|sub|switch|undef|unless|until|use|when|while)\b/, | ||
'number': /\b(?:0x[\dA-Fa-f](?:_?[\dA-Fa-f])*|0b[01](?:_?[01])*|(?:(?:\d(?:_?\d)*)?\.)?\d(?:_?\d)*(?:[Ee][+-]?\d+)?)\b/, | ||
'operator': /-[rwxoRWXOezsfdlpSbctugkTBMAC]\b|\+[+=]?|-[-=>]?|\*\*?=?|\/\/?=?|=[=~>]?|~[~=]?|\|\|?=?|&&?=?|<(?:=>?|<=?)?|>>?=?|![~=]?|[%^]=?|\.(?:=|\.\.?)?|[\\?]|\bx(?:=|\b)|\b(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|xor)\b/, | ||
'punctuation': /[{}[\];(),:]/ | ||
}; | ||
|
||
// FIXME Not sure about the handling of ::, ', and # | ||
'variable': [ | ||
// ${^POSTMATCH} | ||
/[&*$@%]\{\^[A-Z]+\}/, | ||
// $^V | ||
/[&*$@%]\^[A-Z_]/, | ||
// ${...} | ||
/[&*$@%]#?(?=\{)/, | ||
// $foo | ||
/[&*$@%]#?(?:(?:::)*'?(?!\d)[\w$]+(?![\w$]))+(?:::)*/, | ||
// $1 | ||
/[&*$@%]\d+/, | ||
// $_, @_, %! | ||
// The negative lookahead prevents from breaking the %= operator | ||
/(?!%=)[$@%][!"#$%&'()*+,\-.\/:;<=>?@[\\\]^_`{|}~]/ | ||
], | ||
'filehandle': { | ||
// <>, <FOO>, _ | ||
pattern: /<(?![<=])\S*>|\b_\b/, | ||
alias: 'symbol' | ||
}, | ||
'vstring': { | ||
// v1.2, 1.2.3 | ||
pattern: /v\d+(?:\.\d+)*|\d+(?:\.\d+){2,}/, | ||
alias: 'string' | ||
}, | ||
'function': { | ||
pattern: /sub \w+/i, | ||
inside: { | ||
keyword: /sub/ | ||
} | ||
}, | ||
'keyword': /\b(?:any|break|continue|default|delete|die|do|else|elsif|eval|for|foreach|given|goto|if|last|local|my|next|our|package|print|redo|require|return|say|state|sub|switch|undef|unless|until|use|when|while)\b/, | ||
'number': /\b(?:0x[\dA-Fa-f](?:_?[\dA-Fa-f])*|0b[01](?:_?[01])*|(?:(?:\d(?:_?\d)*)?\.)?\d(?:_?\d)*(?:[Ee][+-]?\d+)?)\b/, | ||
'operator': /-[rwxoRWXOezsfdlpSbctugkTBMAC]\b|\+[+=]?|-[-=>]?|\*\*?=?|\/\/?=?|=[=~>]?|~[~=]?|\|\|?=?|&&?=?|<(?:=>?|<=?)?|>>?=?|![~=]?|[%^]=?|\.(?:=|\.\.?)?|[\\?]|\bx(?:=|\b)|\b(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|xor)\b/, | ||
'punctuation': /[{}[\];(),:]/ | ||
}; | ||
}(Prism)); |
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.