Alexandru Dima
7 years ago
committed by
GitHub
commit
6c50bcf61c
@ -0,0 +1,17 @@
|
||||
/*---------------------------------------------------------------------------------------------
|
||||
* Copyright (c) Microsoft Corporation. All rights reserved.
|
||||
* Licensed under the MIT License. See License.txt in the project root for license information.
|
||||
*--------------------------------------------------------------------------------------------*/
|
||||
'use strict';
|
||||
|
||||
import { registerLanguage } from '../_.contribution';
|
||||
|
||||
// Allow for running under nodejs/requirejs in tests
|
||||
const _monaco: typeof monaco = typeof monaco === 'undefined' ? (<any>self).monaco : monaco;
|
||||
|
||||
registerLanguage({
|
||||
id: 'perl',
|
||||
extensions: ['.pl'],
|
||||
aliases: ['Perl', 'pl'],
|
||||
loader: () => _monaco.Promise.wrap(import('./perl')),
|
||||
});
|
||||
@ -0,0 +1,432 @@
|
||||
/*---------------------------------------------------------------------------------------------
|
||||
* Copyright (c) Microsoft Corporation. All rights reserved.
|
||||
* Licensed under the MIT License. See License.txt in the project root for license information.
|
||||
*--------------------------------------------------------------------------------------------*/
|
||||
'use strict';
|
||||
|
||||
import { testTokenization } from '../test/testRunner';
|
||||
|
||||
testTokenization('perl', [
|
||||
// Keywords
|
||||
[
|
||||
{
|
||||
line: 'if $msg',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'keyword.perl' },
|
||||
{ startIndex: 2, type: 'white.perl' },
|
||||
{ startIndex: 3, type: 'variable.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// Builtins
|
||||
[
|
||||
{
|
||||
line: 'log $ARGV',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'type.identifier.perl' },
|
||||
{ startIndex: 3, type: 'white.perl' },
|
||||
{ startIndex: 4, type: 'variable.predefined.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// Shebang
|
||||
[
|
||||
{
|
||||
line: '#!/bin/env perl',
|
||||
tokens: [{ startIndex: 0, type: 'metatag.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
// Comments - single line
|
||||
[
|
||||
{
|
||||
line: '#',
|
||||
tokens: [{ startIndex: 0, type: 'comment.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: ' # a comment',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'white.perl' },
|
||||
{ startIndex: 4, type: 'comment.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '# a comment',
|
||||
tokens: [{ startIndex: 0, type: 'comment.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
// number
|
||||
[
|
||||
{
|
||||
line: '0',
|
||||
tokens: [{ startIndex: 0, type: 'number.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '0.0',
|
||||
tokens: [{ startIndex: 0, type: 'number.float.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '0x123',
|
||||
tokens: [{ startIndex: 0, type: 'number.hex.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '23.5',
|
||||
tokens: [{ startIndex: 0, type: 'number.float.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '23.5e3',
|
||||
tokens: [{ startIndex: 0, type: 'number.float.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '23.5E3',
|
||||
tokens: [{ startIndex: 0, type: 'number.float.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '1.72e-3',
|
||||
tokens: [{ startIndex: 0, type: 'number.float.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '0+0',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'number.perl' },
|
||||
{ startIndex: 1, type: 'operators.perl' },
|
||||
{ startIndex: 2, type: 'number.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '100+10',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'number.perl' },
|
||||
{ startIndex: 3, type: 'operators.perl' },
|
||||
{ startIndex: 4, type: 'number.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '0 + 0',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'number.perl' },
|
||||
{ startIndex: 1, type: 'white.perl' },
|
||||
{ startIndex: 2, type: 'operators.perl' },
|
||||
{ startIndex: 3, type: 'white.perl' },
|
||||
{ startIndex: 4, type: 'number.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// Strings
|
||||
|
||||
// Double quoted string
|
||||
[
|
||||
{
|
||||
line: '"string"',
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '"test $foo"',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'string.perl' },
|
||||
{ startIndex: 6, type: 'variable.perl' },
|
||||
{ startIndex: 10, type: 'string.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '"test',
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
{
|
||||
line: '',
|
||||
tokens: [],
|
||||
},
|
||||
{
|
||||
line: 'string $foo string2"',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'string.perl' },
|
||||
{ startIndex: 7, type: 'variable.perl' },
|
||||
{ startIndex: 11, type: 'string.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '"string\\t"',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'string.perl' },
|
||||
{
|
||||
startIndex: 7,
|
||||
type: 'string.escape.perl',
|
||||
},
|
||||
{ startIndex: 9, type: 'string.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// Single quoted string
|
||||
[
|
||||
{
|
||||
line: "'string'",
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: "'test $foo'",
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: "'test",
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
{
|
||||
line: '',
|
||||
tokens: [],
|
||||
},
|
||||
{
|
||||
line: "string $foo string2'",
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: "'string\\t'",
|
||||
tokens: [{ startIndex: 0, type: 'string.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: "'string\\'string2'",
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'string.perl' },
|
||||
{
|
||||
startIndex: 7,
|
||||
type: 'string.escape.perl',
|
||||
},
|
||||
{ startIndex: 9, type: 'string.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// Variables
|
||||
[
|
||||
{
|
||||
line: '$msg $_ $1',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'variable.perl' },
|
||||
{ startIndex: 4, type: 'white.perl' },
|
||||
{ startIndex: 5, type: 'variable.predefined.perl' },
|
||||
{ startIndex: 7, type: 'white.perl' },
|
||||
{ startIndex: 8, type: 'variable.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '@array1 @array2',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'variable.perl' },
|
||||
{ startIndex: 7, type: 'white.perl' },
|
||||
{
|
||||
startIndex: 8,
|
||||
type: 'variable.perl',
|
||||
},
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '%var1 %var2',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'variable.perl' },
|
||||
{
|
||||
startIndex: 5,
|
||||
type: 'white.perl',
|
||||
},
|
||||
{
|
||||
startIndex: 6,
|
||||
type: 'variable.perl',
|
||||
},
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// RegExp
|
||||
[
|
||||
{
|
||||
line: '/abc/',
|
||||
tokens: [{ startIndex: 0, type: 'regexp.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: 'm/abc/',
|
||||
tokens: [{ startIndex: 0, type: 'regexp.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: 'm/[abc]+/e',
|
||||
tokens: [{ startIndex: 0, type: 'regexp.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
// Operators
|
||||
[
|
||||
{
|
||||
line: '$a + $b',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'variable.predefined.perl' },
|
||||
{
|
||||
startIndex: 2,
|
||||
type: 'white.perl',
|
||||
},
|
||||
{
|
||||
startIndex: 3,
|
||||
type: 'operators.perl',
|
||||
},
|
||||
{ startIndex: 4, type: 'white.perl' },
|
||||
{ startIndex: 5, type: 'variable.predefined.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
// Embedded Doc
|
||||
[
|
||||
{
|
||||
line: '=begin',
|
||||
tokens: [
|
||||
{
|
||||
startIndex: 0,
|
||||
type: 'comment.doc.perl',
|
||||
},
|
||||
],
|
||||
},
|
||||
{
|
||||
line: 'this is my doc',
|
||||
tokens: [
|
||||
{
|
||||
startIndex: 0,
|
||||
type: 'comment.doc.perl',
|
||||
},
|
||||
],
|
||||
},
|
||||
{
|
||||
line: '=cut',
|
||||
tokens: [{ startIndex: 0, type: 'type.identifier.perl' }],
|
||||
},
|
||||
],
|
||||
|
||||
// Here Doc
|
||||
[
|
||||
{
|
||||
line: '<< HTML',
|
||||
tokens: [{ startIndex: 0, type: 'string.heredoc.delimiter.perl' }],
|
||||
},
|
||||
{
|
||||
line: 'test here doc',
|
||||
tokens: [
|
||||
{
|
||||
startIndex: 0,
|
||||
type: 'string.heredoc.perl',
|
||||
},
|
||||
],
|
||||
},
|
||||
{
|
||||
line: 'HTML',
|
||||
tokens: [{ startIndex: 0, type: 'string.heredoc.delimiter.perl' }],
|
||||
},
|
||||
{
|
||||
line: 'my $msg',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'type.identifier.perl' },
|
||||
{
|
||||
startIndex: 2,
|
||||
type: 'white.perl',
|
||||
},
|
||||
{ startIndex: 3, type: 'variable.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
|
||||
[
|
||||
{
|
||||
line: '<<"HTML"',
|
||||
tokens: [{ startIndex: 0, type: 'string.heredoc.delimiter.perl' }],
|
||||
},
|
||||
{
|
||||
line: 'test here doc',
|
||||
tokens: [
|
||||
{
|
||||
startIndex: 0,
|
||||
type: 'string.heredoc.perl',
|
||||
},
|
||||
],
|
||||
},
|
||||
{
|
||||
line: 'HTML',
|
||||
tokens: [{ startIndex: 0, type: 'string.heredoc.delimiter.perl' }],
|
||||
},
|
||||
{
|
||||
line: 'my $msg',
|
||||
tokens: [
|
||||
{ startIndex: 0, type: 'type.identifier.perl' },
|
||||
{
|
||||
startIndex: 2,
|
||||
type: 'white.perl',
|
||||
},
|
||||
{ startIndex: 3, type: 'variable.perl' },
|
||||
],
|
||||
},
|
||||
],
|
||||
]);
|
||||
@ -0,0 +1,591 @@
|
||||
/*---------------------------------------------------------------------------------------------
|
||||
* Copyright (c) Microsoft Corporation. All rights reserved.
|
||||
* Licensed under the MIT License. See License.txt in the project root for license information.
|
||||
*--------------------------------------------------------------------------------------------*/
|
||||
|
||||
'use strict';
|
||||
|
||||
import IRichLanguageConfiguration = monaco.languages.LanguageConfiguration;
|
||||
import ILanguage = monaco.languages.IMonarchLanguage;
|
||||
|
||||
export const conf: IRichLanguageConfiguration = {
|
||||
comments: {
|
||||
lineComment: '#',
|
||||
},
|
||||
brackets: [['{', '}'], ['[', ']'], ['(', ')']],
|
||||
autoClosingPairs: [
|
||||
{ open: '{', close: '}' },
|
||||
{ open: '[', close: ']' },
|
||||
{ open: '(', close: ')' },
|
||||
{ open: '"', close: '"' },
|
||||
{ open: "'", close: "'" },
|
||||
{ open: '`', close: '`' },
|
||||
],
|
||||
surroundingPairs: [
|
||||
{ open: '{', close: '}' },
|
||||
{ open: '[', close: ']' },
|
||||
{ open: '(', close: ')' },
|
||||
{ open: '"', close: '"' },
|
||||
{ open: "'", close: "'" },
|
||||
{ open: '`', close: '`' },
|
||||
],
|
||||
};
|
||||
|
||||
export const language = <ILanguage>{
|
||||
defaultToken: '',
|
||||
tokenPostfix: '.perl',
|
||||
|
||||
brackets: [
|
||||
{ token: 'delimiter.bracket', open: '{', close: '}' },
|
||||
{ token: 'delimiter.parenthesis', open: '(', close: ')' },
|
||||
{ token: 'delimiter.square', open: '[', close: ']' },
|
||||
],
|
||||
|
||||
// https://learn.perl.org/docs/keywords.html
|
||||
|
||||
// Perl syntax
|
||||
keywords: [
|
||||
'__DATA__',
|
||||
'else',
|
||||
'lock',
|
||||
'qw',
|
||||
'__END__',
|
||||
'elsif',
|
||||
'lt',
|
||||
'qx',
|
||||
'__FILE__',
|
||||
'eq',
|
||||
'm',
|
||||
's',
|
||||
'__LINE__',
|
||||
'exp',
|
||||
'ne',
|
||||
'sub',
|
||||
'__PACKAGE__',
|
||||
'for',
|
||||
'no',
|
||||
'tr',
|
||||
'and',
|
||||
'foreach',
|
||||
'or',
|
||||
'unless',
|
||||
'cmp',
|
||||
'ge',
|
||||
'package',
|
||||
'until',
|
||||
'continue',
|
||||
'gt',
|
||||
'q',
|
||||
'while',
|
||||
'CORE',
|
||||
'if',
|
||||
'qq',
|
||||
'xor',
|
||||
'do',
|
||||
'le',
|
||||
'qr',
|
||||
'y',
|
||||
|
||||
'__DIE__',
|
||||
'__WARN__',
|
||||
],
|
||||
|
||||
// Perl functions
|
||||
builtinFunctions: [
|
||||
'-A',
|
||||
'END',
|
||||
'length',
|
||||
'setpgrp',
|
||||
'-B',
|
||||
'endgrent',
|
||||
'link',
|
||||
'setpriority',
|
||||
'-b',
|
||||
'endhostent',
|
||||
'listen',
|
||||
'setprotoent',
|
||||
'-C',
|
||||
'endnetent',
|
||||
'local',
|
||||
'setpwent',
|
||||
'-c',
|
||||
'endprotoent',
|
||||
'localtime',
|
||||
'setservent',
|
||||
'-d',
|
||||
'endpwent',
|
||||
'log',
|
||||
'setsockopt',
|
||||
'-e',
|
||||
'endservent',
|
||||
'lstat',
|
||||
'shift',
|
||||
'-f',
|
||||
'eof',
|
||||
'map',
|
||||
'shmctl',
|
||||
'-g',
|
||||
'eval',
|
||||
'mkdir',
|
||||
'shmget',
|
||||
'-k',
|
||||
'exec',
|
||||
'msgctl',
|
||||
'shmread',
|
||||
'-l',
|
||||
'exists',
|
||||
'msgget',
|
||||
'shmwrite',
|
||||
'-M',
|
||||
'exit',
|
||||
'msgrcv',
|
||||
'shutdown',
|
||||
'-O',
|
||||
'fcntl',
|
||||
'msgsnd',
|
||||
'sin',
|
||||
'-o',
|
||||
'fileno',
|
||||
'my',
|
||||
'sleep',
|
||||
'-p',
|
||||
'flock',
|
||||
'next',
|
||||
'socket',
|
||||
'-r',
|
||||
'fork',
|
||||
'not',
|
||||
'socketpair',
|
||||
'-R',
|
||||
'format',
|
||||
'oct',
|
||||
'sort',
|
||||
'-S',
|
||||
'formline',
|
||||
'open',
|
||||
'splice',
|
||||
'-s',
|
||||
'getc',
|
||||
'opendir',
|
||||
'split',
|
||||
'-T',
|
||||
'getgrent',
|
||||
'ord',
|
||||
'sprintf',
|
||||
'-t',
|
||||
'getgrgid',
|
||||
'our',
|
||||
'sqrt',
|
||||
'-u',
|
||||
'getgrnam',
|
||||
'pack',
|
||||
'srand',
|
||||
'-w',
|
||||
'gethostbyaddr',
|
||||
'pipe',
|
||||
'stat',
|
||||
'-W',
|
||||
'gethostbyname',
|
||||
'pop',
|
||||
'state',
|
||||
'-X',
|
||||
'gethostent',
|
||||
'pos',
|
||||
'study',
|
||||
'-x',
|
||||
'getlogin',
|
||||
'print',
|
||||
'substr',
|
||||
'-z',
|
||||
'getnetbyaddr',
|
||||
'printf',
|
||||
'symlink',
|
||||
'abs',
|
||||
'getnetbyname',
|
||||
'prototype',
|
||||
'syscall',
|
||||
'accept',
|
||||
'getnetent',
|
||||
'push',
|
||||
'sysopen',
|
||||
'alarm',
|
||||
'getpeername',
|
||||
'quotemeta',
|
||||
'sysread',
|
||||
'atan2',
|
||||
'getpgrp',
|
||||
'rand',
|
||||
'sysseek',
|
||||
'AUTOLOAD',
|
||||
'getppid',
|
||||
'read',
|
||||
'system',
|
||||
'BEGIN',
|
||||
'getpriority',
|
||||
'readdir',
|
||||
'syswrite',
|
||||
'bind',
|
||||
'getprotobyname',
|
||||
'readline',
|
||||
'tell',
|
||||
'binmode',
|
||||
'getprotobynumber',
|
||||
'readlink',
|
||||
'telldir',
|
||||
'bless',
|
||||
'getprotoent',
|
||||
'readpipe',
|
||||
'tie',
|
||||
'break',
|
||||
'getpwent',
|
||||
'recv',
|
||||
'tied',
|
||||
'caller',
|
||||
'getpwnam',
|
||||
'redo',
|
||||
'time',
|
||||
'chdir',
|
||||
'getpwuid',
|
||||
'ref',
|
||||
'times',
|
||||
'CHECK',
|
||||
'getservbyname',
|
||||
'rename',
|
||||
'truncate',
|
||||
'chmod',
|
||||
'getservbyport',
|
||||
'require',
|
||||
'uc',
|
||||
'chomp',
|
||||
'getservent',
|
||||
'reset',
|
||||
'ucfirst',
|
||||
'chop',
|
||||
'getsockname',
|
||||
'return',
|
||||
'umask',
|
||||
'chown',
|
||||
'getsockopt',
|
||||
'reverse',
|
||||
'undef',
|
||||
'chr',
|
||||
'glob',
|
||||
'rewinddir',
|
||||
'UNITCHECK',
|
||||
'chroot',
|
||||
'gmtime',
|
||||
'rindex',
|
||||
'unlink',
|
||||
'close',
|
||||
'goto',
|
||||
'rmdir',
|
||||
'unpack',
|
||||
'closedir',
|
||||
'grep',
|
||||
'say',
|
||||
'unshift',
|
||||
'connect',
|
||||
'hex',
|
||||
'scalar',
|
||||
'untie',
|
||||
'cos',
|
||||
'index',
|
||||
'seek',
|
||||
'use',
|
||||
'crypt',
|
||||
'INIT',
|
||||
'seekdir',
|
||||
'utime',
|
||||
'dbmclose',
|
||||
'int',
|
||||
'select',
|
||||
'values',
|
||||
'dbmopen',
|
||||
'ioctl',
|
||||
'semctl',
|
||||
'vec',
|
||||
'defined',
|
||||
'join',
|
||||
'semget',
|
||||
'wait',
|
||||
'delete',
|
||||
'keys',
|
||||
'semop',
|
||||
'waitpid',
|
||||
'DESTROY',
|
||||
'kill',
|
||||
'send',
|
||||
'wantarray',
|
||||
'die',
|
||||
'last',
|
||||
'setgrent',
|
||||
'warn',
|
||||
'dump',
|
||||
'lc',
|
||||
'sethostent',
|
||||
'write',
|
||||
'each',
|
||||
'lcfirst',
|
||||
'setnetent',
|
||||
],
|
||||
|
||||
// File handlers
|
||||
builtinFileHandlers: ['ARGV', 'STDERR', 'STDOUT', 'ARGVOUT', 'STDIN', 'ENV'],
|
||||
|
||||
// Perl variables
|
||||
builtinVariables: [
|
||||
'$!',
|
||||
'$^RE_TRIE_MAXBUF',
|
||||
'$LAST_REGEXP_CODE_RESULT',
|
||||
'$"',
|
||||
'$^S',
|
||||
'$LIST_SEPARATOR',
|
||||
'$#',
|
||||
'$^T',
|
||||
'$MATCH',
|
||||
'$$',
|
||||
'$^TAINT',
|
||||
'$MULTILINE_MATCHING',
|
||||
'$%',
|
||||
'$^UNICODE',
|
||||
'$NR',
|
||||
'$&',
|
||||
'$^UTF8LOCALE',
|
||||
'$OFMT',
|
||||
"$'",
|
||||
'$^V',
|
||||
'$OFS',
|
||||
'$(',
|
||||
'$^W',
|
||||
'$ORS',
|
||||
'$)',
|
||||
'$^WARNING_BITS',
|
||||
'$OS_ERROR',
|
||||
'$*',
|
||||
'$^WIDE_SYSTEM_CALLS',
|
||||
'$OSNAME',
|
||||
'$+',
|
||||
'$^X',
|
||||
'$OUTPUT_AUTO_FLUSH',
|
||||
'$,',
|
||||
'$_',
|
||||
'$OUTPUT_FIELD_SEPARATOR',
|
||||
'$-',
|
||||
'$`',
|
||||
'$OUTPUT_RECORD_SEPARATOR',
|
||||
'$.',
|
||||
'$a',
|
||||
'$PERL_VERSION',
|
||||
'$/',
|
||||
'$ACCUMULATOR',
|
||||
'$PERLDB',
|
||||
'$0',
|
||||
'$ARG',
|
||||
'$PID',
|
||||
'$:',
|
||||
'$ARGV',
|
||||
'$POSTMATCH',
|
||||
'$;',
|
||||
'$b',
|
||||
'$PREMATCH',
|
||||
'$<',
|
||||
'$BASETIME',
|
||||
'$PROCESS_ID',
|
||||
'$=',
|
||||
'$CHILD_ERROR',
|
||||
'$PROGRAM_NAME',
|
||||
'$>',
|
||||
'$COMPILING',
|
||||
'$REAL_GROUP_ID',
|
||||
'$?',
|
||||
'$DEBUGGING',
|
||||
'$REAL_USER_ID',
|
||||
'$@',
|
||||
'$EFFECTIVE_GROUP_ID',
|
||||
'$RS',
|
||||
'$[',
|
||||
'$EFFECTIVE_USER_ID',
|
||||
'$SUBSCRIPT_SEPARATOR',
|
||||
'$\\',
|
||||
'$EGID',
|
||||
'$SUBSEP',
|
||||
'$]',
|
||||
'$ERRNO',
|
||||
'$SYSTEM_FD_MAX',
|
||||
'$^',
|
||||
'$EUID',
|
||||
'$UID',
|
||||
'$^A',
|
||||
'$EVAL_ERROR',
|
||||
'$WARNING',
|
||||
'$^C',
|
||||
'$EXCEPTIONS_BEING_CAUGHT',
|
||||
'$|',
|
||||
'$^CHILD_ERROR_NATIVE',
|
||||
'$EXECUTABLE_NAME',
|
||||
'$~',
|
||||
'$^D',
|
||||
'$EXTENDED_OS_ERROR',
|
||||
'%!',
|
||||
'$^E',
|
||||
'$FORMAT_FORMFEED',
|
||||
'%^H',
|
||||
'$^ENCODING',
|
||||
'$FORMAT_LINE_BREAK_CHARACTERS',
|
||||
'%ENV',
|
||||
'$^F',
|
||||
'$FORMAT_LINES_LEFT',
|
||||
'%INC',
|
||||
'$^H',
|
||||
'$FORMAT_LINES_PER_PAGE',
|
||||
'%OVERLOAD',
|
||||
'$^I',
|
||||
'$FORMAT_NAME',
|
||||
'%SIG',
|
||||
'$^L',
|
||||
'$FORMAT_PAGE_NUMBER',
|
||||
'@+',
|
||||
'$^M',
|
||||
'$FORMAT_TOP_NAME',
|
||||
'@-',
|
||||
'$^N',
|
||||
'$GID',
|
||||
'@_',
|
||||
'$^O',
|
||||
'$INPLACE_EDIT',
|
||||
'@ARGV',
|
||||
'$^OPEN',
|
||||
'$INPUT_LINE_NUMBER',
|
||||
'@INC',
|
||||
'$^P',
|
||||
'$INPUT_RECORD_SEPARATOR',
|
||||
'@LAST_MATCH_START',
|
||||
'$^R',
|
||||
'$LAST_MATCH_END',
|
||||
'$^RE_DEBUG_FLAGS',
|
||||
'$LAST_PAREN_MATCH',
|
||||
],
|
||||
|
||||
// operators
|
||||
symbols: /[:+\-\^*$&%@=<>!?|\/~\.]/,
|
||||
|
||||
escapes: /\\(?:[abfnrtv\\"']|x[0-9A-Fa-f]{1,4}|u[0-9A-Fa-f]{4}|U[0-9A-Fa-f]{8})/,
|
||||
|
||||
// The main tokenizer for our languages
|
||||
tokenizer: {
|
||||
root: [
|
||||
{ include: '@whitespace' },
|
||||
|
||||
[
|
||||
/[a-zA-Z\-_][\w\-_]+/,
|
||||
{
|
||||
cases: {
|
||||
'@keywords': 'keyword',
|
||||
'@builtinFunctions': 'type.identifier',
|
||||
'@builtinFileHandlers': 'variable.predefined',
|
||||
'@default': '',
|
||||
},
|
||||
},
|
||||
],
|
||||
|
||||
// Perl variables
|
||||
[
|
||||
/[\$@%][*@#?\+\-\$!\w\\\^><~:;\.]+/,
|
||||
{
|
||||
cases: {
|
||||
'@builtinVariables': 'variable.predefined',
|
||||
'@default': 'variable',
|
||||
},
|
||||
},
|
||||
],
|
||||
|
||||
{ include: '@strings' },
|
||||
{ include: '@dblStrings' },
|
||||
|
||||
// Perl Doc
|
||||
{ include: '@perldoc' },
|
||||
|
||||
// Here Doc
|
||||
{ include: '@heredoc' },
|
||||
|
||||
[/[{}\[\]()]/, '@brackets'],
|
||||
|
||||
// RegExp
|
||||
[
|
||||
/[goseximacplud]*[\/](?:(?:\[(?:\\]|[^\]])+\])|(?:\\\/|[^\]\/]))*[\/]\w*\s*(?=[).,;]|$)/,
|
||||
'regexp',
|
||||
],
|
||||
|
||||
[/@symbols/, 'operators'],
|
||||
|
||||
{ include: '@numbers' },
|
||||
|
||||
[/[,;]/, 'delimiter'],
|
||||
],
|
||||
|
||||
whitespace: [
|
||||
[/\s+/, 'white'],
|
||||
[/(^#!.*$)/, 'metatag'],
|
||||
[/(^#.*$)/, 'comment'],
|
||||
],
|
||||
|
||||
numbers: [
|
||||
[/\d*\.\d+([eE][\-+]?\d+)?/, 'number.float'],
|
||||
[/0[xX][0-9a-fA-F_]*[0-9a-fA-F]/, 'number.hex'],
|
||||
[/\d+/, 'number'],
|
||||
],
|
||||
|
||||
// Single quote string
|
||||
strings: [[/'/, 'string', '@stringBody']],
|
||||
|
||||
stringBody: [
|
||||
[/'/, 'string', '@popall'],
|
||||
[/\\'/, 'string.escape'],
|
||||
[/./, 'string'],
|
||||
],
|
||||
|
||||
// Double quote string
|
||||
dblStrings: [[/"/, 'string', '@dblStringBody']],
|
||||
|
||||
dblStringBody: [
|
||||
[/"/, 'string', '@popall'],
|
||||
[/@escapes/, 'string.escape'],
|
||||
[/\\./, 'string.escape.invalid'],
|
||||
{ include: '@variables' },
|
||||
[/./, 'string'],
|
||||
],
|
||||
|
||||
heredoc: [
|
||||
[
|
||||
/<<\s*['"`]?([\w\-]+)['"`]?/,
|
||||
{ token: 'string.heredoc.delimiter', next: '@heredocBody.$1' },
|
||||
],
|
||||
],
|
||||
|
||||
heredocBody: [
|
||||
[
|
||||
/^([\w\-]+)$/,
|
||||
{
|
||||
cases: {
|
||||
'$1==$S2': [{ token: 'string.heredoc.delimiter', next: '@popall' }],
|
||||
'@default': 'string.heredoc',
|
||||
},
|
||||
},
|
||||
],
|
||||
[/./, 'string.heredoc'],
|
||||
],
|
||||
|
||||
perldoc: [[/^=\w/, 'comment.doc', '@perldocBody']],
|
||||
|
||||
perldocBody: [
|
||||
[/^=cut\b/, 'type.identifier', '@popall'],
|
||||
[/./, 'comment.doc'],
|
||||
],
|
||||
|
||||
variables: [
|
||||
[/\$\w+/, 'variable'], // scalar
|
||||
[/@\w+/, 'variable'], // array
|
||||
[/%\w+/, 'variable'], // key/value
|
||||
],
|
||||
},
|
||||
};
|
||||
Loading…
Reference in New Issue