--- /dev/null
+# Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+# This file was generated from the 'bash.xml' file of the syntax highlight
+# engine of the kate text editor (http://www.kate-editor.org
+
+#kate xml version 2.05
+#kate version 2.4
+#kate author Wilbert Berendsen (wilbert@kde.nl)
+#generated: Sun Feb 3 22:02:04 2008, localtime
+
+package Syntax::Highlight::Engine::Kate::Bash;
+
+our $VERSION = '0.06';
+
+use strict;
+use warnings;
+use base('Syntax::Highlight::Engine::Kate::Template');
+
+sub new {
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $self = $class->SUPER::new(@_);
+ $self->attributes({
+ 'Backquote' => 'Keyword',
+ 'Builtin' => 'Reserved',
+ 'Command' => 'BString',
+ 'Comment' => 'Comment',
+ 'Control' => 'Keyword',
+ 'Escape' => 'DataType',
+ 'Expression' => 'Others',
+ 'Function' => 'Char',
+ 'Keyword' => 'Keyword',
+ 'Normal Text' => 'Normal',
+ 'Option' => 'Normal',
+ 'Path' => 'Normal',
+ 'Redirection' => 'Operator',
+ 'String DoubleQ' => 'String',
+ 'String Escape' => 'DataType',
+ 'String SingleQ' => 'String',
+ 'String Transl.' => 'String',
+ 'Variable' => 'Others',
+ });
+ $self->listAdd('builtins',
+ '.',
+ ':',
+ 'alias',
+ 'bg',
+ 'bind',
+ 'break',
+ 'builtin',
+ 'cd',
+ 'command',
+ 'compgen',
+ 'complete',
+ 'continue',
+ 'dirs',
+ 'disown',
+ 'echo',
+ 'enable',
+ 'eval',
+ 'exec',
+ 'exit',
+ 'fc',
+ 'fg',
+ 'getopts',
+ 'hash',
+ 'help',
+ 'history',
+ 'jobs',
+ 'kill',
+ 'let',
+ 'logout',
+ 'popd',
+ 'printf',
+ 'pushd',
+ 'pwd',
+ 'return',
+ 'set',
+ 'shift',
+ 'shopt',
+ 'source',
+ 'suspend',
+ 'test',
+ 'times',
+ 'trap',
+ 'type',
+ 'ulimit',
+ 'umask',
+ 'unalias',
+ 'wait',
+ );
+ $self->listAdd('builtins_var',
+ 'declare',
+ 'export',
+ 'local',
+ 'read',
+ 'readonly',
+ 'typeset',
+ 'unset',
+ );
+ $self->listAdd('keywords',
+ '.',
+ 'elif',
+ 'else',
+ 'for',
+ 'function',
+ 'in',
+ 'select',
+ 'set',
+ 'then',
+ 'until',
+ 'while',
+ );
+ $self->listAdd('unixcommands',
+ 'aclocal',
+ 'aconnect',
+ 'aplay',
+ 'apm',
+ 'apmsleep',
+ 'apropos',
+ 'ar',
+ 'arch',
+ 'arecord',
+ 'as',
+ 'as86',
+ 'autoconf',
+ 'autoheader',
+ 'automake',
+ 'awk',
+ 'awk',
+ 'basename',
+ 'bash',
+ 'bc',
+ 'bison',
+ 'bunzip2',
+ 'bzcat',
+ 'bzcmp',
+ 'bzdiff',
+ 'bzegrep',
+ 'bzfgrep',
+ 'bzgrep',
+ 'bzip2',
+ 'bzip2recover',
+ 'bzless',
+ 'bzmore',
+ 'c++',
+ 'cal',
+ 'cat',
+ 'cat',
+ 'cc',
+ 'cd-read',
+ 'cdda2wav',
+ 'cdparanoia',
+ 'cdrdao',
+ 'cdrecord',
+ 'chattr',
+ 'chfn',
+ 'chgrp',
+ 'chgrp',
+ 'chmod',
+ 'chmod',
+ 'chown',
+ 'chown',
+ 'chroot',
+ 'chsh',
+ 'chvt',
+ 'clear',
+ 'cmp',
+ 'co',
+ 'col',
+ 'comm',
+ 'cp',
+ 'cp',
+ 'cpio',
+ 'cpp',
+ 'cut',
+ 'date',
+ 'dc',
+ 'dcop',
+ 'dd',
+ 'dd',
+ 'deallocvt',
+ 'df',
+ 'df',
+ 'diff',
+ 'diff3',
+ 'dir',
+ 'dir',
+ 'dircolors',
+ 'dircolors',
+ 'directomatic',
+ 'dirname',
+ 'dmesg',
+ 'dnsdomainname',
+ 'domainname',
+ 'du',
+ 'du',
+ 'dumpkeys',
+ 'echo',
+ 'ed',
+ 'egrep',
+ 'env',
+ 'expr',
+ 'false',
+ 'fbset',
+ 'fgconsole',
+ 'fgrep',
+ 'file',
+ 'find',
+ 'flex',
+ 'flex++',
+ 'fmt',
+ 'free',
+ 'ftp',
+ 'funzip',
+ 'fuser',
+ 'fuser',
+ 'g++',
+ 'gawk',
+ 'gawk',
+ 'gc',
+ 'gcc',
+ 'gdb',
+ 'getent',
+ 'getkeycodes',
+ 'getopt',
+ 'gettext',
+ 'gettextize',
+ 'gimp',
+ 'gimp-remote',
+ 'gimptool',
+ 'gmake',
+ 'gocr',
+ 'grep',
+ 'groups',
+ 'gs',
+ 'gunzip',
+ 'gzexe',
+ 'gzip',
+ 'head',
+ 'hexdump',
+ 'hostname',
+ 'id',
+ 'igawk',
+ 'install',
+ 'install',
+ 'join',
+ 'kbd_mode',
+ 'kbdrate',
+ 'kdialog',
+ 'kfile',
+ 'kill',
+ 'killall',
+ 'killall',
+ 'last',
+ 'lastb',
+ 'ld',
+ 'ld86',
+ 'ldd',
+ 'less',
+ 'lex',
+ 'link',
+ 'ln',
+ 'ln',
+ 'loadkeys',
+ 'loadunimap',
+ 'locate',
+ 'lockfile',
+ 'login',
+ 'logname',
+ 'lp',
+ 'lpr',
+ 'ls',
+ 'ls',
+ 'lsattr',
+ 'lsmod',
+ 'lsmod.old',
+ 'lynx',
+ 'm4',
+ 'make',
+ 'man',
+ 'mapscrn',
+ 'mesg',
+ 'mkdir',
+ 'mkdir',
+ 'mkfifo',
+ 'mknod',
+ 'mknod',
+ 'mktemp',
+ 'more',
+ 'mount',
+ 'msgfmt',
+ 'mv',
+ 'mv',
+ 'namei',
+ 'nano',
+ 'nasm',
+ 'nawk',
+ 'netstat',
+ 'nice',
+ 'nisdomainname',
+ 'nl',
+ 'nm',
+ 'nm86',
+ 'nmap',
+ 'nohup',
+ 'nop',
+ 'od',
+ 'openvt',
+ 'passwd',
+ 'patch',
+ 'pcregrep',
+ 'pcretest',
+ 'perl',
+ 'perror',
+ 'pgawk',
+ 'pidof',
+ 'pidof',
+ 'ping',
+ 'pr',
+ 'printf',
+ 'procmail',
+ 'prune',
+ 'ps',
+ 'ps2ascii',
+ 'ps2epsi',
+ 'ps2frag',
+ 'ps2pdf',
+ 'ps2ps',
+ 'psbook',
+ 'psmerge',
+ 'psnup',
+ 'psresize',
+ 'psselect',
+ 'pstops',
+ 'pstree',
+ 'pwd',
+ 'rbash',
+ 'rcs',
+ 'readlink',
+ 'red',
+ 'resizecons',
+ 'rev',
+ 'rm',
+ 'rm',
+ 'rmdir',
+ 'run-parts',
+ 'sash',
+ 'scp',
+ 'sed',
+ 'sed',
+ 'seq',
+ 'setfont',
+ 'setkeycodes',
+ 'setleds',
+ 'setmetamode',
+ 'setserial',
+ 'setterm',
+ 'sh',
+ 'showkey',
+ 'shred',
+ 'shred',
+ 'size',
+ 'size86',
+ 'skill',
+ 'sleep',
+ 'slogin',
+ 'snice',
+ 'sort',
+ 'sox',
+ 'split',
+ 'ssed',
+ 'ssh',
+ 'ssh-add',
+ 'ssh-agent',
+ 'ssh-keygen',
+ 'ssh-keyscan',
+ 'stat',
+ 'stat',
+ 'strings',
+ 'strip',
+ 'stty',
+ 'su',
+ 'sudo',
+ 'suidperl',
+ 'sum',
+ 'sync',
+ 'tac',
+ 'tail',
+ 'tar',
+ 'tee',
+ 'tempfile',
+ 'test',
+ 'touch',
+ 'tr',
+ 'true',
+ 'umount',
+ 'uname',
+ 'unicode_start',
+ 'unicode_stop',
+ 'uniq',
+ 'unlink',
+ 'unlink',
+ 'unzip',
+ 'updatedb',
+ 'updmap',
+ 'uptime',
+ 'users',
+ 'utmpdump',
+ 'uuidgen',
+ 'vdir',
+ 'vmstat',
+ 'w',
+ 'wall',
+ 'wc',
+ 'wc',
+ 'wget',
+ 'whatis',
+ 'whereis',
+ 'which',
+ 'who',
+ 'whoami',
+ 'write',
+ 'xargs',
+ 'xhost',
+ 'xmodmap',
+ 'xset',
+ 'yacc',
+ 'yes',
+ 'ypdomainname',
+ 'zcat',
+ 'zcmp',
+ 'zdiff',
+ 'zegrep',
+ 'zfgrep',
+ 'zforce',
+ 'zgrep',
+ 'zip',
+ 'zless',
+ 'zmore',
+ 'znew',
+ 'zsh',
+ 'zsoelim',
+ );
+ $self->contextdata({
+ 'Assign' => {
+ callback => \&parseAssign,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ fallthrough => '#pop',
+ },
+ 'AssignArray' => {
+ callback => \&parseAssignArray,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ },
+ 'AssignSubscr' => {
+ callback => \&parseAssignSubscr,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ fallthrough => '#pop',
+ },
+ 'Case' => {
+ callback => \&parseCase,
+ attribute => 'Normal Text',
+ },
+ 'CaseExpr' => {
+ callback => \&parseCaseExpr,
+ attribute => 'Normal Text',
+ },
+ 'CaseIn' => {
+ callback => \&parseCaseIn,
+ attribute => 'Normal Text',
+ },
+ 'Comment' => {
+ callback => \&parseComment,
+ attribute => 'Comment',
+ lineending => '#pop',
+ },
+ 'CommentBackq' => {
+ callback => \&parseCommentBackq,
+ attribute => 'Comment',
+ lineending => '#pop',
+ },
+ 'CommentParen' => {
+ callback => \&parseCommentParen,
+ attribute => 'Comment',
+ lineending => '#pop',
+ },
+ 'ExprBracket' => {
+ callback => \&parseExprBracket,
+ attribute => 'Normal Text',
+ },
+ 'ExprDblBracket' => {
+ callback => \&parseExprDblBracket,
+ attribute => 'Normal Text',
+ },
+ 'ExprDblParen' => {
+ callback => \&parseExprDblParen,
+ attribute => 'Normal Text',
+ },
+ 'ExprDblParenSubst' => {
+ callback => \&parseExprDblParenSubst,
+ attribute => 'Normal Text',
+ },
+ 'ExprSubParen' => {
+ callback => \&parseExprSubParen,
+ attribute => 'Normal Text',
+ },
+ 'FindAll' => {
+ callback => \&parseFindAll,
+ attribute => 'Normal Text',
+ },
+ 'FindCommands' => {
+ callback => \&parseFindCommands,
+ attribute => 'Normal Text',
+ },
+ 'FindComments' => {
+ callback => \&parseFindComments,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ },
+ 'FindCommentsBackq' => {
+ callback => \&parseFindCommentsBackq,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ },
+ 'FindCommentsParen' => {
+ callback => \&parseFindCommentsParen,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ },
+ 'FindMost' => {
+ callback => \&parseFindMost,
+ attribute => 'Normal Text',
+ },
+ 'FindOthers' => {
+ callback => \&parseFindOthers,
+ attribute => 'Normal Text',
+ },
+ 'FindStrings' => {
+ callback => \&parseFindStrings,
+ attribute => 'Normal Text',
+ },
+ 'FindSubstitutions' => {
+ callback => \&parseFindSubstitutions,
+ attribute => 'Normal Text',
+ },
+ 'FunctionDef' => {
+ callback => \&parseFunctionDef,
+ attribute => 'Function',
+ lineending => '#pop',
+ fallthrough => '#pop',
+ },
+ 'Group' => {
+ callback => \&parseGroup,
+ attribute => 'Normal Text',
+ },
+ 'HereDoc' => {
+ callback => \&parseHereDoc,
+ attribute => 'Normal Text',
+ },
+ 'HereDocINQ' => {
+ callback => \&parseHereDocINQ,
+ attribute => 'Normal Text',
+ dynamic => 1,
+ },
+ 'HereDocIQ' => {
+ callback => \&parseHereDocIQ,
+ attribute => 'Normal Text',
+ dynamic => 1,
+ },
+ 'HereDocNQ' => {
+ callback => \&parseHereDocNQ,
+ attribute => 'Normal Text',
+ dynamic => 1,
+ },
+ 'HereDocQ' => {
+ callback => \&parseHereDocQ,
+ attribute => 'Normal Text',
+ dynamic => 1,
+ },
+ 'HereDocRemainder' => {
+ callback => \&parseHereDocRemainder,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ },
+ 'ProcessSubst' => {
+ callback => \&parseProcessSubst,
+ attribute => 'Normal Text',
+ },
+ 'Start' => {
+ callback => \&parseStart,
+ attribute => 'Normal Text',
+ },
+ 'StringDQ' => {
+ callback => \&parseStringDQ,
+ attribute => 'String DoubleQ',
+ },
+ 'StringEsc' => {
+ callback => \&parseStringEsc,
+ attribute => 'String SingleQ',
+ },
+ 'StringSQ' => {
+ callback => \&parseStringSQ,
+ attribute => 'String SingleQ',
+ },
+ 'SubShell' => {
+ callback => \&parseSubShell,
+ attribute => 'Normal Text',
+ },
+ 'Subscript' => {
+ callback => \&parseSubscript,
+ attribute => 'Variable',
+ },
+ 'SubstBackq' => {
+ callback => \&parseSubstBackq,
+ attribute => 'Normal Text',
+ },
+ 'SubstCommand' => {
+ callback => \&parseSubstCommand,
+ attribute => 'Normal Text',
+ },
+ 'SubstFile' => {
+ callback => \&parseSubstFile,
+ attribute => 'Normal Text',
+ },
+ 'VarBrace' => {
+ callback => \&parseVarBrace,
+ attribute => 'Variable',
+ },
+ 'VarName' => {
+ callback => \&parseVarName,
+ attribute => 'Normal Text',
+ lineending => '#pop',
+ fallthrough => '#pop',
+ },
+ });
+ $self->deliminators('\\s||\\(|\\)|\\!|\\+|,|<|=|>|\\&|\\*|\\/|;|\\?|\\||\\~|\\\\|\\^|\\%|#|\\[|\\]|\\$|\\.|_|\\{|\\}|:|-');
+ $self->basecontext('Start');
+ $self->keywordscase(0);
+ $self->initialize;
+ bless ($self, $class);
+ return $self;
+}
+
+sub language {
+ return 'Bash';
+}
+
+sub parseAssign {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => '('
+ # context => 'AssignArray'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'AssignArray', 'Variable')) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ # String => '[\w:,+_./-]+'
+ # attribute => 'Normal Text'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[\\w:,+_./-]+', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseAssignArray {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => ')'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Variable'
+ # char => '['
+ # context => 'Subscript'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'Subscript', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Variable'
+ # char => '='
+ # context => 'Assign'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '=', 0, 0, 0, undef, 0, 'Assign', 'Variable')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseAssignSubscr {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => '['
+ # context => 'Subscript'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'Subscript', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Variable'
+ # char => '='
+ # context => 'Assign'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '=', 0, 0, 0, undef, 0, 'Assign', 'Variable')) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseCase {
+ my ($self, $text) = @_;
+ # String => '\sin\b'
+ # attribute => 'Keyword'
+ # context => 'CaseIn'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\sin\\b', 0, 0, 0, undef, 0, 'CaseIn', 'Keyword')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseCaseExpr {
+ my ($self, $text) = @_;
+ # attribute => 'Keyword'
+ # char => ';'
+ # char1 => ';'
+ # context => '#pop'
+ # endRegion => 'caseexpr'
+ # type => 'Detect2Chars'
+ if ($self->testDetect2Chars($text, ';', ';', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # context => 'FindAll'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindAll', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseCaseIn {
+ my ($self, $text) = @_;
+ # String => '\besac(?=$|[\s;)])'
+ # attribute => 'Keyword'
+ # context => '#pop#pop'
+ # endRegion => 'case'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\besac(?=$|[\\s;)])', 0, 0, 0, undef, 0, '#pop#pop', 'Keyword')) {
+ return 1
+ }
+ # attribute => 'Keyword'
+ # beginRegion => 'caseexpr'
+ # char => ')'
+ # context => 'CaseExpr'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, 'CaseExpr', 'Keyword')) {
+ return 1
+ }
+ # String => '(|'
+ # attribute => 'Keyword'
+ # context => '#stay'
+ # type => 'AnyChar'
+ if ($self->testAnyChar($text, '(|', 0, 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseComment {
+ my ($self, $text) = @_;
+ # context => '##Alerts'
+ # type => 'IncludeRules'
+ if ($self->includePlugin('Alerts', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseCommentBackq {
+ my ($self, $text) = @_;
+ # String => '[^`](?=`)'
+ # attribute => 'Comment'
+ # context => '#pop'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[^`](?=`)', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
+ return 1
+ }
+ # context => '##Alerts'
+ # type => 'IncludeRules'
+ if ($self->includePlugin('Alerts', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseCommentParen {
+ my ($self, $text) = @_;
+ # String => '[^)](?=\))'
+ # attribute => 'Comment'
+ # context => '#pop'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[^)](?=\\))', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
+ return 1
+ }
+ # context => '##Alerts'
+ # type => 'IncludeRules'
+ if ($self->includePlugin('Alerts', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseExprBracket {
+ my ($self, $text) = @_;
+ # String => '\s\](?=($|[\s;|&]))'
+ # attribute => 'Builtin'
+ # context => '#pop'
+ # endRegion => 'expression'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s\\](?=($|[\\s;|&]))', 0, 0, 0, undef, 0, '#pop', 'Builtin')) {
+ return 1
+ }
+ # String => '\](?=($|[\s;|&]))'
+ # attribute => 'Builtin'
+ # column => '0'
+ # context => '#pop'
+ # endRegion => 'expression'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\](?=($|[\\s;|&]))', 0, 0, 0, 0, 0, '#pop', 'Builtin')) {
+ return 1
+ }
+ # attribute => 'Normal Text'
+ # char => '('
+ # context => 'ExprSubParen'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'ExprSubParen', 'Normal Text')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseExprDblBracket {
+ my ($self, $text) = @_;
+ # String => '\s\]\](?=($|[\s;|&]))'
+ # attribute => 'Keyword'
+ # context => '#pop'
+ # endRegion => 'expression'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s\\]\\](?=($|[\\s;|&]))', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # String => '\]\](?=($|[\s;|&]))'
+ # attribute => 'Keyword'
+ # column => '0'
+ # context => '#pop'
+ # endRegion => 'expression'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\]\\](?=($|[\\s;|&]))', 0, 0, 0, 0, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # attribute => 'Normal Text'
+ # char => '('
+ # context => 'ExprSubParen'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'ExprSubParen', 'Normal Text')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseExprDblParen {
+ my ($self, $text) = @_;
+ # attribute => 'Keyword'
+ # char => ')'
+ # char1 => ')'
+ # context => '#pop'
+ # endRegion => 'expression'
+ # type => 'Detect2Chars'
+ if ($self->testDetect2Chars($text, ')', ')', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # attribute => 'Normal Text'
+ # char => '('
+ # context => 'ExprSubParen'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'ExprSubParen', 'Normal Text')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseExprDblParenSubst {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => ')'
+ # char1 => ')'
+ # context => '#pop'
+ # endRegion => 'expression'
+ # type => 'Detect2Chars'
+ if ($self->testDetect2Chars($text, ')', ')', 0, 0, 0, undef, 0, '#pop', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Normal Text'
+ # char => '('
+ # context => 'ExprSubParen'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'ExprSubParen', 'Normal Text')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseExprSubParen {
+ my ($self, $text) = @_;
+ # attribute => 'Normal Text'
+ # char => ')'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Normal Text')) {
+ return 1
+ }
+ # attribute => 'Normal Text'
+ # char => '('
+ # context => 'ExprSubParen'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'ExprSubParen', 'Normal Text')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindAll {
+ my ($self, $text) = @_;
+ # context => 'FindComments'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindComments', $text)) {
+ return 1
+ }
+ # context => 'FindCommands'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommands', $text)) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindCommands {
+ my ($self, $text) = @_;
+ # attribute => 'Keyword'
+ # beginRegion => 'expression'
+ # char => '('
+ # char1 => '('
+ # context => 'ExprDblParen'
+ # type => 'Detect2Chars'
+ if ($self->testDetect2Chars($text, '(', '(', 0, 0, 0, undef, 0, 'ExprDblParen', 'Keyword')) {
+ return 1
+ }
+ # String => '\[\[(?=($|\s))'
+ # attribute => 'Keyword'
+ # beginRegion => 'expression'
+ # column => '0'
+ # context => 'ExprDblBracket'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\[\\[(?=($|\\s))', 0, 0, 0, 0, 0, 'ExprDblBracket', 'Keyword')) {
+ return 1
+ }
+ # String => '\s\[\[(?=($|\s))'
+ # attribute => 'Keyword'
+ # beginRegion => 'expression'
+ # context => 'ExprDblBracket'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s\\[\\[(?=($|\\s))', 0, 0, 0, undef, 0, 'ExprDblBracket', 'Keyword')) {
+ return 1
+ }
+ # String => '\[(?=($|\s))'
+ # attribute => 'Builtin'
+ # beginRegion => 'expression'
+ # column => '0'
+ # context => 'ExprBracket'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\[(?=($|\\s))', 0, 0, 0, 0, 0, 'ExprBracket', 'Builtin')) {
+ return 1
+ }
+ # String => '\s\[(?=($|\s))'
+ # attribute => 'Builtin'
+ # beginRegion => 'expression'
+ # context => 'ExprBracket'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s\\[(?=($|\\s))', 0, 0, 0, undef, 0, 'ExprBracket', 'Builtin')) {
+ return 1
+ }
+ # String => '\{(?=($|\s))'
+ # attribute => 'Keyword'
+ # beginRegion => 'group'
+ # context => 'Group'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\{(?=($|\\s))', 0, 0, 0, undef, 0, 'Group', 'Keyword')) {
+ return 1
+ }
+ # attribute => 'Keyword'
+ # beginRegion => 'subshell'
+ # char => '('
+ # context => 'SubShell'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, 'SubShell', 'Keyword')) {
+ return 1
+ }
+ # String => '\bdo(?![\w$+-])'
+ # attribute => 'Keyword'
+ # beginRegion => 'do'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\bdo(?![\\w$+-])', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # String => '\bdone(?![\w$+-])'
+ # attribute => 'Keyword'
+ # context => '#stay'
+ # endRegion => 'do'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\bdone(?![\\w$+-])', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # String => '\bif(?![\w$+-])'
+ # attribute => 'Keyword'
+ # beginRegion => 'if'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\bif(?![\\w$+-])', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # String => '\bfi(?![\w$+-])'
+ # attribute => 'Keyword'
+ # context => '#stay'
+ # endRegion => 'if'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\bfi(?![\\w$+-])', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # String => '\bcase(?![\w$+-])'
+ # attribute => 'Keyword'
+ # beginRegion => 'case'
+ # context => 'Case'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\bcase(?![\\w$+-])', 0, 0, 0, undef, 0, 'Case', 'Keyword')) {
+ return 1
+ }
+ # String => '-[A-Za-z0-9]+'
+ # attribute => 'Option'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '-[A-Za-z0-9]+', 0, 0, 0, undef, 0, '#stay', 'Option')) {
+ return 1
+ }
+ # String => '--[a-z][A-Za-z0-9_-]*'
+ # attribute => 'Option'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '--[a-z][A-Za-z0-9_-]*', 0, 0, 0, undef, 0, '#stay', 'Option')) {
+ return 1
+ }
+ # String => '\b[A-Za-z_][A-Za-z0-9_]*='
+ # attribute => 'Variable'
+ # context => 'Assign'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\b[A-Za-z_][A-Za-z0-9_]*=', 0, 0, 0, undef, 0, 'Assign', 'Variable')) {
+ return 1
+ }
+ # String => '\b[A-Za-z_][A-Za-z0-9_]*(?=\[[^]]+\]=)'
+ # attribute => 'Variable'
+ # context => 'AssignSubscr'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\b[A-Za-z_][A-Za-z0-9_]*(?=\\[[^]]+\\]=)', 0, 0, 0, undef, 0, 'AssignSubscr', 'Variable')) {
+ return 1
+ }
+ # String => ':()'
+ # attribute => 'Function'
+ # context => '#stay'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, ':()', 0, 0, 0, undef, 0, '#stay', 'Function')) {
+ return 1
+ }
+ # String => '\bfunction\b'
+ # attribute => 'Keyword'
+ # context => 'FunctionDef'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\bfunction\\b', 0, 0, 0, undef, 0, 'FunctionDef', 'Keyword')) {
+ return 1
+ }
+ # String => 'keywords'
+ # attribute => 'Keyword'
+ # context => '#stay'
+ # type => 'keyword'
+ if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # String => 'builtins'
+ # attribute => 'Builtin'
+ # context => '#stay'
+ # type => 'keyword'
+ if ($self->testKeyword($text, 'builtins', 0, undef, 0, '#stay', 'Builtin')) {
+ return 1
+ }
+ # String => 'unixcommands'
+ # attribute => 'Command'
+ # context => '#stay'
+ # type => 'keyword'
+ if ($self->testKeyword($text, 'unixcommands', 0, undef, 0, '#stay', 'Command')) {
+ return 1
+ }
+ # String => 'builtins_var'
+ # attribute => 'Builtin'
+ # context => 'VarName'
+ # type => 'keyword'
+ if ($self->testKeyword($text, 'builtins_var', 0, undef, 0, 'VarName', 'Builtin')) {
+ return 1
+ }
+ # String => '<<<'
+ # attribute => 'Redirection'
+ # context => '#stay'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, '<<<', 0, 0, 0, undef, 0, '#stay', 'Redirection')) {
+ return 1
+ }
+ # String => '<<'
+ # attribute => 'Redirection'
+ # context => 'HereDoc'
+ # lookAhead => 'true'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, '<<', 0, 0, 1, undef, 0, 'HereDoc', 'Redirection')) {
+ return 1
+ }
+ # String => '[<>]\('
+ # attribute => 'Redirection'
+ # context => 'ProcessSubst'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[<>]\\(', 0, 0, 0, undef, 0, 'ProcessSubst', 'Redirection')) {
+ return 1
+ }
+ # String => '([0-9]*(>{1,2}|<)(&[0-9]+-?)?|&>|>&|[0-9]*<>)'
+ # attribute => 'Redirection'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '([0-9]*(>{1,2}|<)(&[0-9]+-?)?|&>|>&|[0-9]*<>)', 0, 0, 0, undef, 0, '#stay', 'Redirection')) {
+ return 1
+ }
+ # String => '([|&])\1?'
+ # attribute => 'Control'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '([|&])\\1?', 0, 0, 0, undef, 0, '#stay', 'Control')) {
+ return 1
+ }
+ # String => '[A-Za-z_:][A-Za-z0-9_:#%@-]*\s*\(\)'
+ # attribute => 'Function'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[A-Za-z_:][A-Za-z0-9_:#%@-]*\\s*\\(\\)', 0, 0, 0, undef, 0, '#stay', 'Function')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindComments {
+ my ($self, $text) = @_;
+ # attribute => 'Comment'
+ # char => '#'
+ # context => 'Comment'
+ # firstNonSpace => 'true'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 1, 'Comment', 'Comment')) {
+ return 1
+ }
+ # String => '[\s;](?=#)'
+ # attribute => 'Normal Text'
+ # context => 'Comment'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[\\s;](?=#)', 0, 0, 0, undef, 0, 'Comment', 'Normal Text')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindCommentsBackq {
+ my ($self, $text) = @_;
+ # attribute => 'Comment'
+ # char => '#'
+ # context => 'CommentBackq'
+ # firstNonSpace => 'true'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 1, 'CommentBackq', 'Comment')) {
+ return 1
+ }
+ # String => '[\s;](?=#)'
+ # attribute => 'Normal Text'
+ # context => 'CommentBackq'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[\\s;](?=#)', 0, 0, 0, undef, 0, 'CommentBackq', 'Normal Text')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindCommentsParen {
+ my ($self, $text) = @_;
+ # attribute => 'Comment'
+ # char => '#'
+ # context => 'CommentParen'
+ # firstNonSpace => 'true'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '#', 0, 0, 0, undef, 1, 'CommentParen', 'Comment')) {
+ return 1
+ }
+ # String => '[\s;](?=#)'
+ # attribute => 'Normal Text'
+ # context => 'CommentParen'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[\\s;](?=#)', 0, 0, 0, undef, 0, 'CommentParen', 'Normal Text')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindMost {
+ my ($self, $text) = @_;
+ # context => 'FindComments'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindComments', $text)) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindOthers {
+ my ($self, $text) = @_;
+ # String => '\\[][;"\\'$`{}()|&<>* ]'
+ # attribute => 'Escape'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\\\[][;"\\\\\'$`{}()|&<>* ]', 0, 0, 0, undef, 0, '#stay', 'Escape')) {
+ return 1
+ }
+ # String => '\\$'
+ # attribute => 'Keyword'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\\\$', 0, 0, 0, undef, 0, '#stay', 'Keyword')) {
+ return 1
+ }
+ # String => '\{(?!(\s|$))\S*\}'
+ # attribute => 'Escape'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\{(?!(\\s|$))\\S*\\}', 0, 0, 0, undef, 0, '#stay', 'Escape')) {
+ return 1
+ }
+ # String => '\.?/[\w_@.+-]+(?=([\s/):]|$))'
+ # attribute => 'Path'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\.?/[\\w_@.+-]+(?=([\\s/):]|$))', 0, 0, 0, undef, 0, '#stay', 'Path')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindStrings {
+ my ($self, $text) = @_;
+ # attribute => 'String SingleQ'
+ # char => '''
+ # context => 'StringSQ'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'StringSQ', 'String SingleQ')) {
+ return 1
+ }
+ # attribute => 'String DoubleQ'
+ # char => '"'
+ # context => 'StringDQ'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'StringDQ', 'String DoubleQ')) {
+ return 1
+ }
+ # attribute => 'String SingleQ'
+ # char => '$'
+ # char1 => '''
+ # context => 'StringEsc'
+ # type => 'Detect2Chars'
+ if ($self->testDetect2Chars($text, '$', '\'', 0, 0, 0, undef, 0, 'StringEsc', 'String SingleQ')) {
+ return 1
+ }
+ # attribute => 'String Transl.'
+ # char => '$'
+ # char1 => '"'
+ # context => 'StringDQ'
+ # type => 'Detect2Chars'
+ if ($self->testDetect2Chars($text, '$', '"', 0, 0, 0, undef, 0, 'StringDQ', 'String Transl.')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFindSubstitutions {
+ my ($self, $text) = @_;
+ # String => '\$[*@#?$!_0-9-]'
+ # attribute => 'Variable'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$[*@#?$!_0-9-]', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
+ return 1
+ }
+ # String => '\$[A-Za-z_][A-Za-z0-9_]*\['
+ # attribute => 'Variable'
+ # context => 'Subscript'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$[A-Za-z_][A-Za-z0-9_]*\\[', 0, 0, 0, undef, 0, 'Subscript', 'Variable')) {
+ return 1
+ }
+ # String => '\$[A-Za-z_][A-Za-z0-9_]*'
+ # attribute => 'Variable'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$[A-Za-z_][A-Za-z0-9_]*', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
+ return 1
+ }
+ # String => '\$\{[*@#?$!_0-9-]\}'
+ # attribute => 'Variable'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$\\{[*@#?$!_0-9-]\\}', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
+ return 1
+ }
+ # String => '\$\{#[A-Za-z_][A-Za-z0-9_]*\}'
+ # attribute => 'Variable'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$\\{#[A-Za-z_][A-Za-z0-9_]*\\}', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
+ return 1
+ }
+ # String => '\$\{![A-Za-z_][A-Za-z0-9_]*\*?\}'
+ # attribute => 'Variable'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$\\{![A-Za-z_][A-Za-z0-9_]*\\*?\\}', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
+ return 1
+ }
+ # String => '\$\{[A-Za-z_][A-Za-z0-9_]*'
+ # attribute => 'Variable'
+ # context => 'VarBrace'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$\\{[A-Za-z_][A-Za-z0-9_]*', 0, 0, 0, undef, 0, 'VarBrace', 'Variable')) {
+ return 1
+ }
+ # String => '\$\{[*@#?$!_0-9-](?=[:#%/])'
+ # attribute => 'Variable'
+ # context => 'VarBrace'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\$\\{[*@#?$!_0-9-](?=[:#%/])', 0, 0, 0, undef, 0, 'VarBrace', 'Variable')) {
+ return 1
+ }
+ # String => '$(('
+ # attribute => 'Variable'
+ # beginRegion => 'expression'
+ # context => 'ExprDblParenSubst'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, '$((', 0, 0, 0, undef, 0, 'ExprDblParenSubst', 'Variable')) {
+ return 1
+ }
+ # String => '$(<'
+ # attribute => 'Redirection'
+ # context => 'SubstFile'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, '$(<', 0, 0, 0, undef, 0, 'SubstFile', 'Redirection')) {
+ return 1
+ }
+ # String => '$('
+ # attribute => 'Variable'
+ # context => 'SubstCommand'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, '$(', 0, 0, 0, undef, 0, 'SubstCommand', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Backquote'
+ # char => '`'
+ # context => 'SubstBackq'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, 'SubstBackq', 'Backquote')) {
+ return 1
+ }
+ # String => '\\[`$\\]'
+ # attribute => 'Escape'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\\\[`$\\\\]', 0, 0, 0, undef, 0, '#stay', 'Escape')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseFunctionDef {
+ my ($self, $text) = @_;
+ # String => '\s+[A-Za-z_:][A-Za-z0-9_:#%@-]*(\s*\(\))?'
+ # attribute => 'Function'
+ # context => '#pop'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s+[A-Za-z_:][A-Za-z0-9_:#%@-]*(\\s*\\(\\))?', 0, 0, 0, undef, 0, '#pop', 'Function')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseGroup {
+ my ($self, $text) = @_;
+ # attribute => 'Keyword'
+ # char => '}'
+ # context => '#pop'
+ # endRegion => 'group'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # context => 'FindAll'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindAll', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseHereDoc {
+ my ($self, $text) = @_;
+ # String => '(<<\s*"([^|&;()<>\s]+)")'
+ # attribute => 'Redirection'
+ # context => 'HereDocQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<\\s*"([^|&;()<>\\s]+)")', 0, 0, 1, undef, 0, 'HereDocQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<\s*'([^|&;()<>\s]+)')'
+ # attribute => 'Redirection'
+ # context => 'HereDocQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<\\s*\'([^|&;()<>\\s]+)\')', 0, 0, 1, undef, 0, 'HereDocQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<\s*\\([^|&;()<>\s]+))'
+ # attribute => 'Redirection'
+ # context => 'HereDocQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<\\s*\\\\([^|&;()<>\\s]+))', 0, 0, 1, undef, 0, 'HereDocQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<\s*([^|&;()<>\s]+))'
+ # attribute => 'Redirection'
+ # context => 'HereDocNQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<\\s*([^|&;()<>\\s]+))', 0, 0, 1, undef, 0, 'HereDocNQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<-\s*"([^|&;()<>\s]+)")'
+ # attribute => 'Redirection'
+ # context => 'HereDocIQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<-\\s*"([^|&;()<>\\s]+)")', 0, 0, 1, undef, 0, 'HereDocIQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<-\s*'([^|&;()<>\s]+)')'
+ # attribute => 'Redirection'
+ # context => 'HereDocIQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<-\\s*\'([^|&;()<>\\s]+)\')', 0, 0, 1, undef, 0, 'HereDocIQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<-\s*\\([^|&;()<>\s]+))'
+ # attribute => 'Redirection'
+ # context => 'HereDocIQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<-\\s*\\\\([^|&;()<>\\s]+))', 0, 0, 1, undef, 0, 'HereDocIQ', 'Redirection')) {
+ return 1
+ }
+ # String => '(<<-\s*([^|&;()<>\s]+))'
+ # attribute => 'Redirection'
+ # context => 'HereDocINQ'
+ # lookAhead => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '(<<-\\s*([^|&;()<>\\s]+))', 0, 0, 1, undef, 0, 'HereDocINQ', 'Redirection')) {
+ return 1
+ }
+ # String => '<<'
+ # attribute => 'Redirection'
+ # context => '#pop'
+ # type => 'StringDetect'
+ if ($self->testStringDetect($text, '<<', 0, 0, 0, undef, 0, '#pop', 'Redirection')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseHereDocINQ {
+ my ($self, $text) = @_;
+ # String => '%1'
+ # attribute => 'Redirection'
+ # context => 'HereDocRemainder'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '%1', 0, 1, 0, undef, 0, 'HereDocRemainder', 'Redirection')) {
+ return 1
+ }
+ # String => '\s*%2[\s;]*$'
+ # attribute => 'Redirection'
+ # column => '0'
+ # context => '#pop#pop'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s*%2[\\s;]*$', 0, 1, 0, 0, 0, '#pop#pop', 'Redirection')) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseHereDocIQ {
+ my ($self, $text) = @_;
+ # String => '%1'
+ # attribute => 'Redirection'
+ # context => 'HereDocRemainder'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '%1', 0, 1, 0, undef, 0, 'HereDocRemainder', 'Redirection')) {
+ return 1
+ }
+ # String => '\s*%2[\s;]*$'
+ # attribute => 'Redirection'
+ # column => '0'
+ # context => '#pop#pop'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\s*%2[\\s;]*$', 0, 1, 0, 0, 0, '#pop#pop', 'Redirection')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseHereDocNQ {
+ my ($self, $text) = @_;
+ # String => '%1'
+ # attribute => 'Redirection'
+ # context => 'HereDocRemainder'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '%1', 0, 1, 0, undef, 0, 'HereDocRemainder', 'Redirection')) {
+ return 1
+ }
+ # String => '%2[\s;]*$'
+ # attribute => 'Redirection'
+ # column => '0'
+ # context => '#pop#pop'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '%2[\\s;]*$', 0, 1, 0, 0, 0, '#pop#pop', 'Redirection')) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseHereDocQ {
+ my ($self, $text) = @_;
+ # String => '%1'
+ # attribute => 'Redirection'
+ # context => 'HereDocRemainder'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '%1', 0, 1, 0, undef, 0, 'HereDocRemainder', 'Redirection')) {
+ return 1
+ }
+ # String => '%2[\s;]*$'
+ # attribute => 'Redirection'
+ # column => '0'
+ # context => '#pop#pop'
+ # dynamic => 'true'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '%2[\\s;]*$', 0, 1, 0, 0, 0, '#pop#pop', 'Redirection')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseHereDocRemainder {
+ my ($self, $text) = @_;
+ # context => 'FindAll'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindAll', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseProcessSubst {
+ my ($self, $text) = @_;
+ # attribute => 'Redirection'
+ # char => ')'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Redirection')) {
+ return 1
+ }
+ # context => 'FindCommentsParen'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommentsParen', $text)) {
+ return 1
+ }
+ # context => 'FindCommands'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommands', $text)) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseStart {
+ my ($self, $text) = @_;
+ # context => 'FindAll'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindAll', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseStringDQ {
+ my ($self, $text) = @_;
+ # attribute => 'String DoubleQ'
+ # char => '"'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'String DoubleQ')) {
+ return 1
+ }
+ # String => '\\[`"\\$\n]'
+ # attribute => 'String Escape'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\\\[`"\\\\$\\n]', 0, 0, 0, undef, 0, '#stay', 'String Escape')) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseStringEsc {
+ my ($self, $text) = @_;
+ # attribute => 'String SingleQ'
+ # char => '''
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, '#pop', 'String SingleQ')) {
+ return 1
+ }
+ # String => '\\[abefnrtv\\']'
+ # attribute => 'String Escape'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\\\[abefnrtv\\\\\']', 0, 0, 0, undef, 0, '#stay', 'String Escape')) {
+ return 1
+ }
+ # String => '\\([0-7]{1,3}|x[A-Fa-f0-9]{1,2}|c.)'
+ # attribute => 'String Escape'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\\\([0-7]{1,3}|x[A-Fa-f0-9]{1,2}|c.)', 0, 0, 0, undef, 0, '#stay', 'String Escape')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseStringSQ {
+ my ($self, $text) = @_;
+ # attribute => 'String SingleQ'
+ # char => '''
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, '#pop', 'String SingleQ')) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseSubShell {
+ my ($self, $text) = @_;
+ # attribute => 'Keyword'
+ # char => ')'
+ # context => '#pop'
+ # endRegion => 'subshell'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # context => 'FindAll'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindAll', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseSubscript {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => ']'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#pop', 'Variable')) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseSubstBackq {
+ my ($self, $text) = @_;
+ # attribute => 'Keyword'
+ # char => '`'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '`', 0, 0, 0, undef, 0, '#pop', 'Keyword')) {
+ return 1
+ }
+ # context => 'FindCommentsBackq'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommentsBackq', $text)) {
+ return 1
+ }
+ # context => 'FindCommands'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommands', $text)) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseSubstCommand {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => ')'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Variable')) {
+ return 1
+ }
+ # context => 'FindCommentsParen'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommentsParen', $text)) {
+ return 1
+ }
+ # context => 'FindCommands'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommands', $text)) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseSubstFile {
+ my ($self, $text) = @_;
+ # attribute => 'Redirection'
+ # char => ')'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#pop', 'Redirection')) {
+ return 1
+ }
+ # context => 'FindCommentsParen'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindCommentsParen', $text)) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ # context => 'FindOthers'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindOthers', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseVarBrace {
+ my ($self, $text) = @_;
+ # attribute => 'Variable'
+ # char => '}'
+ # context => '#pop'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Variable'
+ # char => '['
+ # context => 'Subscript'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'Subscript', 'Variable')) {
+ return 1
+ }
+ # context => 'FindStrings'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindStrings', $text)) {
+ return 1
+ }
+ # context => 'FindSubstitutions'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindSubstitutions', $text)) {
+ return 1
+ }
+ return 0;
+};
+
+sub parseVarName {
+ my ($self, $text) = @_;
+ # String => '-[A-Za-z0-9]+'
+ # attribute => 'Option'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '-[A-Za-z0-9]+', 0, 0, 0, undef, 0, '#stay', 'Option')) {
+ return 1
+ }
+ # String => '--[a-z][A-Za-z0-9_-]*'
+ # attribute => 'Option'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '--[a-z][A-Za-z0-9_-]*', 0, 0, 0, undef, 0, '#stay', 'Option')) {
+ return 1
+ }
+ # String => '\b[A-Za-z_][A-Za-z0-9_]*'
+ # attribute => 'Variable'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '\\b[A-Za-z_][A-Za-z0-9_]*', 0, 0, 0, undef, 0, '#stay', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Variable'
+ # char => '['
+ # context => 'Subscript'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, 'Subscript', 'Variable')) {
+ return 1
+ }
+ # attribute => 'Variable'
+ # char => '='
+ # context => 'Assign'
+ # type => 'DetectChar'
+ if ($self->testDetectChar($text, '=', 0, 0, 0, undef, 0, 'Assign', 'Variable')) {
+ return 1
+ }
+ # context => 'FindMost'
+ # type => 'IncludeRules'
+ if ($self->includeRules('FindMost', $text)) {
+ return 1
+ }
+ # String => '[^]})|;`&><]'
+ # attribute => 'Normal Text'
+ # context => '#stay'
+ # type => 'RegExpr'
+ if ($self->testRegExpr($text, '[^]})|;`&><]', 0, 0, 0, undef, 0, '#stay', 'Normal Text')) {
+ return 1
+ }
+ return 0;
+};
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Syntax::Highlight::Engine::Kate::Bash - a Plugin for Bash syntax highlighting
+
+=head1 SYNOPSIS
+
+ require Syntax::Highlight::Engine::Kate::Bash;
+ my $sh = new Syntax::Highlight::Engine::Kate::Bash([
+ ]);
+
+=head1 DESCRIPTION
+
+Syntax::Highlight::Engine::Kate::Bash is a plugin module that provides syntax highlighting
+for Bash to the Syntax::Haghlight::Engine::Kate highlighting engine.
+
+This code is generated from the syntax definition files used
+by the Kate project.
+It works quite fine, but can use refinement and optimization.
+
+It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
+
+=cut
+
+=head1 AUTHOR
+
+Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
+
+=cut
+
+=head1 BUGS
+
+Unknown. If you find any, please contact the author
+
+=cut
+
projects / catagits/Gitalist.git / blobdiff