HFile_perl.php

Go to the documentation of this file.

<?php

$BEAUT_PATH = realpath(".") . "/Services/COPage/syntax_highlight/php";
if (!isset($BEAUT_PATH)) {
    return;
}
require_once("$BEAUT_PATH/Beautifier/HFile.php");
  class HFile_perl extends HFile
  {
      public function HFile_perl()
      {
          $this->HFile();

          /*************************************/
          // Beautifier Highlighting Configuration File
          // Perl
          /*************************************/
          // Flags

          $this->nocase                 = "0";
          $this->notrim                 = "0";
          $this->perl                   = "1";

          // Colours

          $this->colours                = array("blue", "purple", "gray", "brown");
          $this->quotecolour            = "blue";
          $this->blockcommentcolour     = "green";
          $this->linecommentcolour      = "green";

          // Indent Strings

          $this->indent                 = array("{");
          $this->unindent               = array("}");

          // String characters and delimiters

          $this->stringchars            = array();
          $this->delimiters             = array("~", "!", "@", "$", "%", "^", "&", "*", "(", ")", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", "   ", ",", ".", "?", "/", "        ");
          $this->escchar                = "";

          // Comment settings

          $this->linecommenton          = array("#");
          $this->blockcommenton         = array("");
          $this->blockcommentoff        = array("");

          // Keywords (keyword mapping to colour number)

          $this->keywords               = array(
            "-A" => "1",
            "-B" => "1",
            "-C" => "1",
            "-M" => "1",
            "-O" => "1",
            "-R" => "1",
            "-S" => "1",
            "-T" => "1",
            "-W" => "1",
            "-X" => "1",
            "-b" => "1",
            "-c" => "1",
            "-d" => "1",
            "-e" => "1",
            "-f" => "1",
            "-g" => "1",
            "-k" => "1",
            "-l" => "1",
            "-o" => "1",
            "-p" => "1",
            "-r" => "1",
            "-s" => "1",
            "-t" => "1",
            "-u" => "1",
            "-w" => "1",
            "-x" => "1",
            "-z" => "1",
            "__DATA__" => "1",
            "__END__" => "1",
            "__FILE__" => "1",
            "__LINE__" => "1",
            "continue" => "1",
            "do" => "1",
            "else" => "1",
            "elsif" => "1",
            "for" => "1",
            "foreach" => "1",
            "goto" => "1",
            "if" => "1",
            "last" => "1",
            "local" => "1",
            "my" => "1",
            "next" => "1",
            "no" => "1",
            "package" => "1",
            "redo" => "1",
            "return" => "1",
            "require" => "1",
            "sub" => "1",
            "until" => "1",
            "unless" => "1",
            "use" => "1",
            "while" => "1",
            "accept" => "2",
            "alarm" => "2",
            "atan2" => "2",
            "bind" => "2",
            "binmode" => "2",
            "bless" => "2",
            "caller" => "2",
            "chdir" => "2",
            "chmod" => "2",
            "chomp" => "2",
            "chop" => "2",
            "chown" => "2",
            "chr" => "2",
            "chroot" => "2",
            "close" => "2",
            "closedir" => "2",
            "connect" => "2",
            "cos" => "2",
            "crypt" => "2",
            "dbmclose" => "2",
            "dbmopen" => "2",
            "defined" => "2",
            "delete" => "2",
            "die" => "2",
            "dump" => "2",
            "each" => "2",
            "endgrent" => "2",
            "endhostent" => "2",
            "endnetent" => "2",
            "endprotoent" => "2",
            "endpwent" => "2",
            "endservent" => "2",
            "eof" => "2",
            "eval" => "2",
            "exec" => "2",
            "exit" => "2",
            "exp" => "2",
            "exists" => "2",
            "fcntl" => "2",
            "fileno" => "2",
            "flock" => "2",
            "fork" => "2",
            "formline" => "2",
            "format" => "2",
            "getc" => "2",
            "getgrent" => "2",
            "getgrgid" => "2",
            "getgrname" => "2",
            "gethostbyaddr" => "2",
            "gethostbyname" => "2",
            "gethostent" => "2",
            "getlogin" => "2",
            "getnetbyaddr" => "2",
            "getnetbyname" => "2",
            "getnetent" => "2",
            "getpeername" => "2",
            "getpgrp" => "2",
            "getppid" => "2",
            "getpriority" => "2",
            "getprotobyname" => "2",
            "getprotobynumber" => "2",
            "getprotoent" => "2",
            "getpwent" => "2",
            "getpwnam" => "2",
            "getpwuid" => "2",
            "getservbyname" => "2",
            "getservbyport" => "2",
            "getservent" => "2",
            "getsockname" => "2",
            "getsockopt" => "2",
            "glob" => "2",
            "gmtime" => "2",
            "grep" => "2",
            "hex" => "2",
            "index" => "2",
            "int" => "2",
            "ioctl" => "2",
            "join" => "2",
            "keys" => "2",
            "kill" => "2",
            "lc" => "2",
            "lcfirst" => "2",
            "length" => "2",
            "link" => "2",
            "listen" => "2",
            "localtime" => "2",
            "log" => "2",
            "lstat" => "2",
            "map" => "2",
            "mkdir" => "2",
            "msgctl" => "2",
            "msgget" => "2",
            "msgrcv" => "2",
            "msgsnd" => "2",
            "oct" => "2",
            "open" => "2",
            "opendir" => "2",
            "ord" => "2",
            "pack" => "2",
            "pipe" => "2",
            "pop" => "2",
            "pos" => "2",
            "print" => "2",
            "printf" => "2",
            "push" => "2",
            "quotemeta" => "2",
            "rand" => "2",
            "read" => "2",
            "readdir" => "2",
            "readline" => "2",
            "readlink" => "2",
            "recv" => "2",
            "ref" => "2",
            "rename" => "2",
            "reset" => "2",
            "reverse" => "2",
            "rewinddir" => "2",
            "rindex" => "2",
            "rmdir" => "2",
            "scalar" => "2",
            "seek" => "2",
            "seekdir" => "2",
            "select" => "2",
            "semctl" => "2",
            "semgett" => "2",
            "semop" => "2",
            "send" => "2",
            "setgrent" => "2",
            "sethostent" => "2",
            "setnetent" => "2",
            "setpgrp" => "2",
            "setpriority" => "2",
            "setprotoent" => "2",
            "setpwent" => "2",
            "setservent" => "2",
            "setsockopt" => "2",
            "shift" => "2",
            "shmctl" => "2",
            "shmget" => "2",
            "shmread" => "2",
            "shmwrite" => "2",
            "shutdown" => "2",
            "sin" => "2",
            "sleep" => "2",
            "socket" => "2",
            "socketpair" => "2",
            "sort" => "2",
            "splice" => "2",
            "split" => "2",
            "sprintf" => "2",
            "sqrt" => "2",
            "srand" => "2",
            "stat" => "2",
            "study" => "2",
            "substr" => "2",
            "symlink" => "2",
            "syscall" => "2",
            "sysopen" => "2",
            "sysread" => "2",
            "system" => "2",
            "syswrite" => "2",
            "tell" => "2",
            "telldir" => "2",
            "tie" => "2",
            "tied" => "2",
            "time" => "2",
            "times" => "2",
            "truncate" => "2",
            "uc" => "2",
            "ucfirst" => "2",
            "umask" => "2",
            "undef" => "2",
            "unlink" => "2",
            "unpack" => "2",
            "unshift" => "2",
            "utime" => "2",
            "untie" => "2",
            "values" => "2",
            "vec" => "2",
            "wait" => "2",
            "waitpid" => "2",
            "wantarray" => "2",
            "warn" => "2",
            "write" => "2",
            "AUTOLOAD" => "3",
            "and" => "3",
            "BEGIN" => "3",
            "CORE" => "3",
            "cmp" => "3",
            "DESTROY" => "3",
            "eq" => "3",
            "END" => "3",
            "ge" => "3",
            "gt" => "3",
            "le" => "3",
            "lt" => "3",
            "ne" => "3",
            "not" => "3",
            "m" => "3",
            "or" => "3",
            "q" => "3",
            "qq" => "3",
            "qw" => "3",
            "qx" => "3",
            "SUPER" => "3",
            "s" => "3",
            "tr" => "3",
            "UNIVERSAL" => "3",
            "x" => "3",
            "xor" => "3",
            "y" => "3",
            "$@" => "4",
            "@" => "4");

          // Special extensions

          // Each category can specify a PHP function that returns an altered
          // version of the keyword.



          $this->linkscripts            = array(
            "2" => "dofunction",
            "1" => "donothing",
            "3" => "donothing",
            "4" => "donothing");
      }

      public function donothing($keywordin)
      {
          return $keywordin;
      }

      public function dofunction($keywordin)
      {
          $outlink = "http://perldoc.perl.org/functions/" . $keywordin . ".html";
          return "<a href=\"$outlink\">$keywordin</a>";
      }
  }