bt-source/panel/BTPanel/static/editor/mode-perl.js

ace.define(
	'ace/mode/perl_highlight_rules',
	['require', 'exports', 'module', 'ace/lib/oop', 'ace/mode/text_highlight_rules'],
	function (e, t, n) {
		'use strict'
		var r = e('../lib/oop'),
			i = e('./text_highlight_rules').TextHighlightRules,
			s = function () {
				var e =
						'base|constant|continue|else|elsif|for|foreach|format|goto|if|last|local|my|next|no|package|parent|redo|require|scalar|sub|unless|until|while|use|vars',
					t = 'ARGV|ENV|INC|SIG',
					n =
						'getprotobynumber|getprotobyname|getservbyname|gethostbyaddr|gethostbyname|getservbyport|getnetbyaddr|getnetbyname|getsockname|getpeername|setpriority|getprotoent|setprotoent|getpriority|endprotoent|getservent|setservent|endservent|sethostent|socketpair|getsockopt|gethostent|endhostent|setsockopt|setnetent|quotemeta|localtime|prototype|getnetent|endnetent|rewinddir|wantarray|getpwuid|closedir|getlogin|readlink|endgrent|getgrgid|getgrnam|shmwrite|shutdown|readline|endpwent|setgrent|readpipe|formline|truncate|dbmclose|syswrite|setpwent|getpwnam|getgrent|getpwent|ucfirst|sysread|setpgrp|shmread|sysseek|sysopen|telldir|defined|opendir|connect|lcfirst|getppid|binmode|syscall|sprintf|getpgrp|readdir|seekdir|waitpid|reverse|unshift|symlink|dbmopen|semget|msgrcv|rename|listen|chroot|msgsnd|shmctl|accept|unpack|exists|fileno|shmget|system|unlink|printf|gmtime|msgctl|semctl|values|rindex|substr|splice|length|msgget|select|socket|return|caller|delete|alarm|ioctl|index|undef|lstat|times|srand|chown|fcntl|close|write|umask|rmdir|study|sleep|chomp|untie|print|utime|mkdir|atan2|split|crypt|flock|chmod|BEGIN|bless|chdir|semop|shift|reset|link|stat|chop|grep|fork|dump|join|open|tell|pipe|exit|glob|warn|each|bind|sort|pack|eval|push|keys|getc|kill|seek|sqrt|send|wait|rand|tied|read|time|exec|recv|eof|chr|int|ord|exp|pos|pop|sin|log|abs|oct|hex|tie|cos|vec|END|ref|map|die|uc|lc|do',
					r = this.createKeywordMapper(
						{ keyword: e, 'constant.language': t, 'support.function': n },
						'identifier'
					)
				this.$rules = {
					start: [
						{ token: 'comment.doc', regex: '^=(?:begin|item)\\b', next: 'block_comment' },
						{
							token: 'string.regexp',
							regex: '[/](?:(?:\\[(?:\\\\]|[^\\]])+\\])|(?:\\\\/|[^\\]/]))*[/]\\w*\\s*(?=[).,;]|$)',
						},
						{ token: 'string', regex: '["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]' },
						{ token: 'string', regex: '["].*\\\\$', next: 'qqstring' },
						{ token: 'string', regex: "['](?:(?:\\\\.)|(?:[^'\\\\]))*?[']" },
						{ token: 'string', regex: "['].*\\\\$", next: 'qstring' },
						{ token: 'constant.numeric', regex: '0x[0-9a-fA-F]+\\b' },
						{ token: 'constant.numeric', regex: '[+-]?\\d+(?:(?:\\.\\d*)?(?:[eE][+-]?\\d+)?)?\\b' },
						{ token: r, regex: '[a-zA-Z_$][a-zA-Z0-9_$]*\\b' },
						{
							token: 'keyword.operator',
							regex:
								'%#|\\$#|\\.\\.\\.|\\|\\|=|>>=|<<=|<=>|&&=|=>|!~|\\^=|&=|\\|=|\\.=|x=|%=|\\/=|\\*=|\\-=|\\+=|=~|\\*\\*|\\-\\-|\\.\\.|\\|\\||&&|\\+\\+|\\->|!=|==|>=|<=|>>|<<|,|=|\\?\\:|\\^|\\||x|%|\\/|\\*|<|&|\\\\|~|!|>|\\.|\\-|\\+|\\-C|\\-b|\\-S|\\-u|\\-t|\\-p|\\-l|\\-d|\\-f|\\-g|\\-s|\\-z|\\-k|\\-e|\\-O|\\-T|\\-B|\\-M|\\-A|\\-X|\\-W|\\-c|\\-R|\\-o|\\-x|\\-w|\\-r|\\b(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|xor)',
						},
						{ token: 'comment', regex: '#.*$' },
						{ token: 'lparen', regex: '[[({]' },
						{ token: 'rparen', regex: '[\\])}]' },
						{ token: 'text', regex: '\\s+' },
					],
					qqstring: [
						{ token: 'string', regex: '(?:(?:\\\\.)|(?:[^"\\\\]))*?"', next: 'start' },
						{ token: 'string', regex: '.+' },
					],
					qstring: [
						{ token: 'string', regex: "(?:(?:\\\\.)|(?:[^'\\\\]))*?'", next: 'start' },
						{ token: 'string', regex: '.+' },
					],
					block_comment: [
						{ token: 'comment.doc', regex: '^=cut\\b', next: 'start' },
						{ defaultToken: 'comment.doc' },
					],
				}
			}
		r.inherits(s, i), (t.PerlHighlightRules = s)
	}
),
	ace.define(
		'ace/mode/matching_brace_outdent',
		['require', 'exports', 'module', 'ace/range'],
		function (e, t, n) {
			'use strict'
			var r = e('../range').Range,
				i = function () {}
			;(function () {
				;(this.checkOutdent = function (e, t) {
					return /^\s+$/.test(e) ? /^\s*\}/.test(t) : !1
				}),
					(this.autoOutdent = function (e, t) {
						var n = e.getLine(t),
							i = n.match(/^(\s*\})/)
						if (!i) return 0
						var s = i[1].length,
							o = e.findMatchingBracket({ row: t, column: s })
						if (!o || o.row == t) return 0
						var u = this.$getIndent(e.getLine(o.row))
						e.replace(new r(t, 0, t, s - 1), u)
					}),
					(this.$getIndent = function (e) {
						return e.match(/^\s*/)[0]
					})
			}).call(i.prototype),
				(t.MatchingBraceOutdent = i)
		}
	),
	ace.define(
		'ace/mode/folding/cstyle',
		['require', 'exports', 'module', 'ace/lib/oop', 'ace/range', 'ace/mode/folding/fold_mode'],
		function (e, t, n) {
			'use strict'
			var r = e('../../lib/oop'),
				i = e('../../range').Range,
				s = e('./fold_mode').FoldMode,
				o = (t.FoldMode = function (e) {
					e &&
						((this.foldingStartMarker = new RegExp(
							this.foldingStartMarker.source.replace(/\|[^|]*?$/, '|' + e.start)
						)),
						(this.foldingStopMarker = new RegExp(
							this.foldingStopMarker.source.replace(/\|[^|]*?$/, '|' + e.end)
						)))
				})
			r.inherits(o, s),
				function () {
					;(this.foldingStartMarker = /([\{\[\(])[^\}\]\)]*$|^\s*(\/\*)/),
						(this.foldingStopMarker = /^[^\[\{\(]*([\}\]\)])|^[\s\*]*(\*\/)/),
						(this.singleLineBlockCommentRe = /^\s*(\/\*).*\*\/\s*$/),
						(this.tripleStarBlockCommentRe = /^\s*(\/\*\*\*).*\*\/\s*$/),
						(this.startRegionRe = /^\s*(\/\*|\/\/)#?region\b/),
						(this._getFoldWidgetBase = this.getFoldWidget),
						(this.getFoldWidget = function (e, t, n) {
							var r = e.getLine(n)
							if (
								this.singleLineBlockCommentRe.test(r) &&
								!this.startRegionRe.test(r) &&
								!this.tripleStarBlockCommentRe.test(r)
							)
								return ''
							var i = this._getFoldWidgetBase(e, t, n)
							return !i && this.startRegionRe.test(r) ? 'start' : i
						}),
						(this.getFoldWidgetRange = function (e, t, n, r) {
							var i = e.getLine(n)
							if (this.startRegionRe.test(i)) return this.getCommentRegionBlock(e, i, n)
							var s = i.match(this.foldingStartMarker)
							if (s) {
								var o = s.index
								if (s[1]) return this.openingBracketBlock(e, s[1], n, o)
								var u = e.getCommentFoldRange(n, o + s[0].length, 1)
								return (
									u &&
										!u.isMultiLine() &&
										(r ? (u = this.getSectionRange(e, n)) : t != 'all' && (u = null)),
									u
								)
							}
							if (t === 'markbegin') return
							var s = i.match(this.foldingStopMarker)
							if (s) {
								var o = s.index + s[0].length
								return s[1]
									? this.closingBracketBlock(e, s[1], n, o)
									: e.getCommentFoldRange(n, o, -1)
							}
						}),
						(this.getSectionRange = function (e, t) {
							var n = e.getLine(t),
								r = n.search(/\S/),
								s = t,
								o = n.length
							t += 1
							var u = t,
								a = e.getLength()
							while (++t < a) {
								n = e.getLine(t)
								var f = n.search(/\S/)
								if (f === -1) continue
								if (r > f) break
								var l = this.getFoldWidgetRange(e, 'all', t)
								if (l) {
									if (l.start.row <= s) break
									if (l.isMultiLine()) t = l.end.row
									else if (r == f) break
								}
								u = t
							}
							return new i(s, o, u, e.getLine(u).length)
						}),
						(this.getCommentRegionBlock = function (e, t, n) {
							var r = t.search(/\s*$/),
								s = e.getLength(),
								o = n,
								u = /^\s*(?:\/\*|\/\/|--)#?(end)?region\b/,
								a = 1
							while (++n < s) {
								t = e.getLine(n)
								var f = u.exec(t)
								if (!f) continue
								f[1] ? a-- : a++
								if (!a) break
							}
							var l = n
							if (l > o) return new i(o, r, l, t.length)
						})
				}.call(o.prototype)
		}
	),
	ace.define(
		'ace/mode/perl',
		[
			'require',
			'exports',
			'module',
			'ace/lib/oop',
			'ace/mode/text',
			'ace/mode/perl_highlight_rules',
			'ace/mode/matching_brace_outdent',
			'ace/mode/folding/cstyle',
		],
		function (e, t, n) {
			'use strict'
			var r = e('../lib/oop'),
				i = e('./text').Mode,
				s = e('./perl_highlight_rules').PerlHighlightRules,
				o = e('./matching_brace_outdent').MatchingBraceOutdent,
				u = e('./folding/cstyle').FoldMode,
				a = function () {
					;(this.HighlightRules = s),
						(this.$outdent = new o()),
						(this.foldingRules = new u({ start: '^=(begin|item)\\b', end: '^=(cut)\\b' })),
						(this.$behaviour = this.$defaultBehaviour)
				}
			r.inherits(a, i),
				function () {
					;(this.lineCommentStart = '#'),
						(this.blockComment = [
							{ start: '=begin', end: '=cut', lineStartOnly: !0 },
							{ start: '=item', end: '=cut', lineStartOnly: !0 },
						]),
						(this.getNextLineIndent = function (e, t, n) {
							var r = this.$getIndent(t),
								i = this.getTokenizer().getLineTokens(t, e),
								s = i.tokens
							if (s.length && s[s.length - 1].type == 'comment') return r
							if (e == 'start') {
								var o = t.match(/^.*[\{\(\[:]\s*$/)
								o && (r += n)
							}
							return r
						}),
						(this.checkOutdent = function (e, t, n) {
							return this.$outdent.checkOutdent(t, n)
						}),
						(this.autoOutdent = function (e, t, n) {
							this.$outdent.autoOutdent(t, n)
						}),
						(this.$id = 'ace/mode/perl'),
						(this.snippetFileId = 'ace/snippets/perl')
				}.call(a.prototype),
				(t.Mode = a)
		}
	)
;(function () {
	ace.require(['ace/mode/perl'], function (m) {
		if (typeof module == 'object' && typeof exports == 'object' && module) {
			module.exports = m
		}
	})
})()