74 lines
3.6 KiB
JavaScript
74 lines
3.6 KiB
JavaScript
/**
|
|
* SyntaxHighlighter
|
|
* http://alexgorbatchev.com/
|
|
*
|
|
* SyntaxHighlighter is donationware. If you are using it, please donate.
|
|
* http://alexgorbatchev.com/wiki/SyntaxHighlighter:Donate
|
|
*
|
|
* @version
|
|
* 2.1.364 (October 15 2009)
|
|
*
|
|
* @copyright
|
|
* Copyright (C) 2004-2009 Alex Gorbatchev.
|
|
*
|
|
* @license
|
|
* This file is part of SyntaxHighlighter.
|
|
*
|
|
* SyntaxHighlighter is free software: you can redistribute it and/or modify
|
|
* it under the terms of the GNU Lesser General Public License as published by
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* SyntaxHighlighter is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with SyntaxHighlighter. If not, see <http://www.gnu.org/copyleft/lesser.html>.
|
|
*/
|
|
SyntaxHighlighter.brushes.Perl = function()
|
|
{
|
|
// Contributed by David Simmons-Duffin and Marty Kube
|
|
|
|
var funcs =
|
|
'abs accept alarm atan2 bind binmode chdir chmod chomp chop chown chr ' +
|
|
'chroot close closedir connect cos crypt defined delete each endgrent ' +
|
|
'endhostent endnetent endprotoent endpwent endservent eof exec exists ' +
|
|
'exp fcntl fileno flock fork format formline getc getgrent getgrgid ' +
|
|
'getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr ' +
|
|
'getnetbyname getnetent getpeername getpgrp getppid getpriority ' +
|
|
'getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid ' +
|
|
'getservbyname getservbyport getservent getsockname getsockopt glob ' +
|
|
'gmtime grep hex index int ioctl join keys kill lc lcfirst length link ' +
|
|
'listen localtime lock log lstat map mkdir msgctl msgget msgrcv msgsnd ' +
|
|
'oct open opendir ord pack pipe pop pos print printf prototype push ' +
|
|
'quotemeta rand read readdir readline readlink readpipe recv rename ' +
|
|
'reset reverse rewinddir rindex rmdir scalar seek seekdir select semctl ' +
|
|
'semget semop send setgrent sethostent setnetent setpgrp setpriority ' +
|
|
'setprotoent setpwent setservent setsockopt shift shmctl shmget shmread ' +
|
|
'shmwrite shutdown sin sleep socket socketpair sort splice split sprintf ' +
|
|
'sqrt srand stat study substr symlink syscall sysopen sysread sysseek ' +
|
|
'system syswrite tell telldir time times tr truncate uc ucfirst umask ' +
|
|
'undef unlink unpack unshift utime values vec wait waitpid warn write';
|
|
|
|
var keywords =
|
|
'bless caller continue dbmclose dbmopen die do dump else elsif eval exit ' +
|
|
'for foreach goto if import last local my next no our package redo ref ' +
|
|
'require return sub tie tied unless untie until use wantarray while';
|
|
|
|
this.regexList = [
|
|
{ regex: new RegExp('#[^!].*$', 'gm'), css: 'comments' },
|
|
{ regex: new RegExp('^\\s*#!.*$', 'gm'), css: 'preprocessor' }, // shebang
|
|
{ regex: SyntaxHighlighter.regexLib.doubleQuotedString, css: 'string' },
|
|
{ regex: SyntaxHighlighter.regexLib.singleQuotedString, css: 'string' },
|
|
{ regex: new RegExp('(\\$|@|%)\\w+', 'g'), css: 'variable' },
|
|
{ regex: new RegExp(this.getKeywords(funcs), 'gmi'), css: 'functions' },
|
|
{ regex: new RegExp(this.getKeywords(keywords), 'gm'), css: 'keyword' }
|
|
];
|
|
|
|
this.forHtmlScript(SyntaxHighlighter.regexLib.phpScriptTags);
|
|
}
|
|
|
|
SyntaxHighlighter.brushes.Perl.prototype = new SyntaxHighlighter.Highlighter();
|
|
SyntaxHighlighter.brushes.Perl.aliases = ['perl', 'Perl', 'pl']; |