mirror of
https://github.com/leporello-js/leporello-js
synced 2026-01-13 21:14:28 -08:00
deploy: leporello-js/app@63a4281071
This commit is contained in:
dmitry-vsl
660
lib/monaco/vs/basic-languages/perl/perl.js
Normal file
660
lib/monaco/vs/basic-languages/perl/perl.js
Normal file
@@ -0,0 +1,660 @@
|
||||
/*!-----------------------------------------------------------------------------
|
||||
* Copyright (c) Microsoft Corporation. All rights reserved.
|
||||
* Version: 0.52.2(404545bded1df6ffa41ea0af4e8ddb219018c6c1)
|
||||
* Released under the MIT license
|
||||
* https://github.com/microsoft/monaco-editor/blob/main/LICENSE.txt
|
||||
*-----------------------------------------------------------------------------*/
|
||||
define("vs/basic-languages/perl/perl", ["require"],(require)=>{
|
||||
"use strict";
|
||||
var moduleExports = (() => {
|
||||
var __defProp = Object.defineProperty;
|
||||
var __getOwnPropDesc = Object.getOwnPropertyDescriptor;
|
||||
var __getOwnPropNames = Object.getOwnPropertyNames;
|
||||
var __hasOwnProp = Object.prototype.hasOwnProperty;
|
||||
var __export = (target, all) => {
|
||||
for (var name in all)
|
||||
__defProp(target, name, { get: all[name], enumerable: true });
|
||||
};
|
||||
var __copyProps = (to, from, except, desc) => {
|
||||
if (from && typeof from === "object" || typeof from === "function") {
|
||||
for (let key of __getOwnPropNames(from))
|
||||
if (!__hasOwnProp.call(to, key) && key !== except)
|
||||
__defProp(to, key, { get: () => from[key], enumerable: !(desc = __getOwnPropDesc(from, key)) || desc.enumerable });
|
||||
}
|
||||
return to;
|
||||
};
|
||||
var __toCommonJS = (mod) => __copyProps(__defProp({}, "__esModule", { value: true }), mod);
|
||||
|
||||
// src/basic-languages/perl/perl.ts
|
||||
var perl_exports = {};
|
||||
__export(perl_exports, {
|
||||
conf: () => conf,
|
||||
language: () => language
|
||||
});
|
||||
var conf = {
|
||||
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: "`" }
|
||||
]
|
||||
};
|
||||
var language = {
|
||||
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",
|
||||
"__END__",
|
||||
"elsif",
|
||||
"lt",
|
||||
"__FILE__",
|
||||
"eq",
|
||||
"__LINE__",
|
||||
"exp",
|
||||
"ne",
|
||||
"sub",
|
||||
"__PACKAGE__",
|
||||
"for",
|
||||
"no",
|
||||
"and",
|
||||
"foreach",
|
||||
"or",
|
||||
"unless",
|
||||
"cmp",
|
||||
"ge",
|
||||
"package",
|
||||
"until",
|
||||
"continue",
|
||||
"gt",
|
||||
"while",
|
||||
"CORE",
|
||||
"if",
|
||||
"xor",
|
||||
"do",
|
||||
"le",
|
||||
"__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: /[:+\-\^*$&%@=<>!?|\/~\.]/,
|
||||
quoteLikeOps: ["qr", "m", "s", "q", "qq", "qx", "qw", "tr", "y"],
|
||||
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",
|
||||
"@quoteLikeOps": {
|
||||
token: "@rematch",
|
||||
next: "quotedConstructs"
|
||||
},
|
||||
"@default": ""
|
||||
}
|
||||
}
|
||||
],
|
||||
// Perl variables
|
||||
[
|
||||
/[\$@%][*@#?\+\-\$!\w\\\^><~:;\.]+/,
|
||||
{
|
||||
cases: {
|
||||
"@builtinVariables": "variable.predefined",
|
||||
"@default": "variable"
|
||||
}
|
||||
}
|
||||
],
|
||||
{ include: "@strings" },
|
||||
{ include: "@dblStrings" },
|
||||
// Perl Doc
|
||||
{ include: "@perldoc" },
|
||||
// Here Doc
|
||||
{ include: "@heredoc" },
|
||||
[/[{}\[\]()]/, "@brackets"],
|
||||
// RegExp
|
||||
[/[\/](?:(?:\[(?:\\]|[^\]])+\])|(?:\\\/|[^\]\/]))*[\/]\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"]
|
||||
],
|
||||
// Quoted constructs
|
||||
// Percent strings in Ruby are similar to quote-like operators in Perl.
|
||||
// This is adapted from pstrings in ../ruby/ruby.ts.
|
||||
quotedConstructs: [
|
||||
[/(q|qw|tr|y)\s*\(/, { token: "string.delim", switchTo: "@qstring.(.)" }],
|
||||
[/(q|qw|tr|y)\s*\[/, { token: "string.delim", switchTo: "@qstring.[.]" }],
|
||||
[/(q|qw|tr|y)\s*\{/, { token: "string.delim", switchTo: "@qstring.{.}" }],
|
||||
[/(q|qw|tr|y)\s*</, { token: "string.delim", switchTo: "@qstring.<.>" }],
|
||||
[/(q|qw|tr|y)#/, { token: "string.delim", switchTo: "@qstring.#.#" }],
|
||||
[/(q|qw|tr|y)\s*([^A-Za-z0-9#\s])/, { token: "string.delim", switchTo: "@qstring.$2.$2" }],
|
||||
[/(q|qw|tr|y)\s+(\w)/, { token: "string.delim", switchTo: "@qstring.$2.$2" }],
|
||||
[/(qr|m|s)\s*\(/, { token: "regexp.delim", switchTo: "@qregexp.(.)" }],
|
||||
[/(qr|m|s)\s*\[/, { token: "regexp.delim", switchTo: "@qregexp.[.]" }],
|
||||
[/(qr|m|s)\s*\{/, { token: "regexp.delim", switchTo: "@qregexp.{.}" }],
|
||||
[/(qr|m|s)\s*</, { token: "regexp.delim", switchTo: "@qregexp.<.>" }],
|
||||
[/(qr|m|s)#/, { token: "regexp.delim", switchTo: "@qregexp.#.#" }],
|
||||
[/(qr|m|s)\s*([^A-Za-z0-9_#\s])/, { token: "regexp.delim", switchTo: "@qregexp.$2.$2" }],
|
||||
[/(qr|m|s)\s+(\w)/, { token: "regexp.delim", switchTo: "@qregexp.$2.$2" }],
|
||||
[/(qq|qx)\s*\(/, { token: "string.delim", switchTo: "@qqstring.(.)" }],
|
||||
[/(qq|qx)\s*\[/, { token: "string.delim", switchTo: "@qqstring.[.]" }],
|
||||
[/(qq|qx)\s*\{/, { token: "string.delim", switchTo: "@qqstring.{.}" }],
|
||||
[/(qq|qx)\s*</, { token: "string.delim", switchTo: "@qqstring.<.>" }],
|
||||
[/(qq|qx)#/, { token: "string.delim", switchTo: "@qqstring.#.#" }],
|
||||
[/(qq|qx)\s*([^A-Za-z0-9#\s])/, { token: "string.delim", switchTo: "@qqstring.$2.$2" }],
|
||||
[/(qq|qx)\s+(\w)/, { token: "string.delim", switchTo: "@qqstring.$2.$2" }]
|
||||
],
|
||||
// Non-expanded quoted string
|
||||
// qstring<open>.<close>
|
||||
// open = open delimiter
|
||||
// close = close delimiter
|
||||
qstring: [
|
||||
[/\\./, "string.escape"],
|
||||
[
|
||||
/./,
|
||||
{
|
||||
cases: {
|
||||
"$#==$S3": { token: "string.delim", next: "@pop" },
|
||||
"$#==$S2": { token: "string.delim", next: "@push" },
|
||||
// nested delimiters
|
||||
"@default": "string"
|
||||
}
|
||||
}
|
||||
]
|
||||
],
|
||||
// Quoted regexp
|
||||
// qregexp.<open>.<close>
|
||||
// open = open delimiter
|
||||
// close = close delimiter
|
||||
qregexp: [
|
||||
{ include: "@variables" },
|
||||
[/\\./, "regexp.escape"],
|
||||
[
|
||||
/./,
|
||||
{
|
||||
cases: {
|
||||
"$#==$S3": {
|
||||
token: "regexp.delim",
|
||||
next: "@regexpModifiers"
|
||||
},
|
||||
"$#==$S2": { token: "regexp.delim", next: "@push" },
|
||||
// nested delimiters
|
||||
"@default": "regexp"
|
||||
}
|
||||
}
|
||||
]
|
||||
],
|
||||
regexpModifiers: [[/[msixpodualngcer]+/, { token: "regexp.modifier", next: "@popall" }]],
|
||||
// Expanded quoted string
|
||||
// qqstring.<open>.<close>
|
||||
// open = open delimiter
|
||||
// close = close delimiter
|
||||
qqstring: [{ include: "@variables" }, { include: "@qstring" }],
|
||||
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
|
||||
]
|
||||
}
|
||||
};
|
||||
return __toCommonJS(perl_exports);
|
||||
})();
|
||||
return moduleExports;
|
||||
});
|
||||
Reference in New Issue
Block a user