00001 <?php
00002
00003 $BEAUT_PATH = realpath(".")."/syntax_highlight/php";
00004 if (!isset ($BEAUT_PATH)) return;
00005 require_once("$BEAUT_PATH/Beautifier/HFile.php");
00006 class HFile_perl extends HFile{
00007 function HFile_perl(){
00008 $this->HFile();
00009
00010
00011
00012
00013
00014
00015
00016 $this->nocase = "0";
00017 $this->notrim = "0";
00018 $this->perl = "1";
00019
00020
00021
00022 $this->colours = array("blue", "purple", "gray", "brown");
00023 $this->quotecolour = "blue";
00024 $this->blockcommentcolour = "green";
00025 $this->linecommentcolour = "green";
00026
00027
00028
00029 $this->indent = array("{");
00030 $this->unindent = array("}");
00031
00032
00033
00034 $this->stringchars = array();
00035 $this->delimiters = array("~", "!", "@", "$", "%", "^", "&", "*", "(", ")", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", " ", ",", ".", "?", "/", " ");
00036 $this->escchar = "";
00037
00038
00039
00040 $this->linecommenton = array("#");
00041 $this->blockcommenton = array("");
00042 $this->blockcommentoff = array("");
00043
00044
00045
00046 $this->keywords = array(
00047 "-A" => "1",
00048 "-B" => "1",
00049 "-C" => "1",
00050 "-M" => "1",
00051 "-O" => "1",
00052 "-R" => "1",
00053 "-S" => "1",
00054 "-T" => "1",
00055 "-W" => "1",
00056 "-X" => "1",
00057 "-b" => "1",
00058 "-c" => "1",
00059 "-d" => "1",
00060 "-e" => "1",
00061 "-f" => "1",
00062 "-g" => "1",
00063 "-k" => "1",
00064 "-l" => "1",
00065 "-o" => "1",
00066 "-p" => "1",
00067 "-r" => "1",
00068 "-s" => "1",
00069 "-t" => "1",
00070 "-u" => "1",
00071 "-w" => "1",
00072 "-x" => "1",
00073 "-z" => "1",
00074 "__DATA__" => "1",
00075 "__END__" => "1",
00076 "__FILE__" => "1",
00077 "__LINE__" => "1",
00078 "continue" => "1",
00079 "do" => "1",
00080 "else" => "1",
00081 "elsif" => "1",
00082 "for" => "1",
00083 "foreach" => "1",
00084 "goto" => "1",
00085 "if" => "1",
00086 "last" => "1",
00087 "local" => "1",
00088 "my" => "1",
00089 "next" => "1",
00090 "no" => "1",
00091 "package" => "1",
00092 "redo" => "1",
00093 "return" => "1",
00094 "require" => "1",
00095 "sub" => "1",
00096 "until" => "1",
00097 "unless" => "1",
00098 "use" => "1",
00099 "while" => "1",
00100 "accept" => "2",
00101 "alarm" => "2",
00102 "atan2" => "2",
00103 "bind" => "2",
00104 "binmode" => "2",
00105 "bless" => "2",
00106 "caller" => "2",
00107 "chdir" => "2",
00108 "chmod" => "2",
00109 "chomp" => "2",
00110 "chop" => "2",
00111 "chown" => "2",
00112 "chr" => "2",
00113 "chroot" => "2",
00114 "close" => "2",
00115 "closedir" => "2",
00116 "connect" => "2",
00117 "cos" => "2",
00118 "crypt" => "2",
00119 "dbmclose" => "2",
00120 "dbmopen" => "2",
00121 "defined" => "2",
00122 "delete" => "2",
00123 "die" => "2",
00124 "dump" => "2",
00125 "each" => "2",
00126 "endgrent" => "2",
00127 "endhostent" => "2",
00128 "endnetent" => "2",
00129 "endprotoent" => "2",
00130 "endpwent" => "2",
00131 "endservent" => "2",
00132 "eof" => "2",
00133 "eval" => "2",
00134 "exec" => "2",
00135 "exit" => "2",
00136 "exp" => "2",
00137 "exists" => "2",
00138 "fcntl" => "2",
00139 "fileno" => "2",
00140 "flock" => "2",
00141 "fork" => "2",
00142 "formline" => "2",
00143 "format" => "2",
00144 "getc" => "2",
00145 "getgrent" => "2",
00146 "getgrgid" => "2",
00147 "getgrname" => "2",
00148 "gethostbyaddr" => "2",
00149 "gethostbyname" => "2",
00150 "gethostent" => "2",
00151 "getlogin" => "2",
00152 "getnetbyaddr" => "2",
00153 "getnetbyname" => "2",
00154 "getnetent" => "2",
00155 "getpeername" => "2",
00156 "getpgrp" => "2",
00157 "getppid" => "2",
00158 "getpriority" => "2",
00159 "getprotobyname" => "2",
00160 "getprotobynumber" => "2",
00161 "getprotoent" => "2",
00162 "getpwent" => "2",
00163 "getpwnam" => "2",
00164 "getpwuid" => "2",
00165 "getservbyname" => "2",
00166 "getservbyport" => "2",
00167 "getservent" => "2",
00168 "getsockname" => "2",
00169 "getsockopt" => "2",
00170 "glob" => "2",
00171 "gmtime" => "2",
00172 "grep" => "2",
00173 "hex" => "2",
00174 "index" => "2",
00175 "int" => "2",
00176 "ioctl" => "2",
00177 "join" => "2",
00178 "keys" => "2",
00179 "kill" => "2",
00180 "lc" => "2",
00181 "lcfirst" => "2",
00182 "length" => "2",
00183 "link" => "2",
00184 "listen" => "2",
00185 "localtime" => "2",
00186 "log" => "2",
00187 "lstat" => "2",
00188 "map" => "2",
00189 "mkdir" => "2",
00190 "msgctl" => "2",
00191 "msgget" => "2",
00192 "msgrcv" => "2",
00193 "msgsnd" => "2",
00194 "oct" => "2",
00195 "open" => "2",
00196 "opendir" => "2",
00197 "ord" => "2",
00198 "pack" => "2",
00199 "pipe" => "2",
00200 "pop" => "2",
00201 "pos" => "2",
00202 "print" => "2",
00203 "printf" => "2",
00204 "push" => "2",
00205 "quotemeta" => "2",
00206 "rand" => "2",
00207 "read" => "2",
00208 "readdir" => "2",
00209 "readline" => "2",
00210 "readlink" => "2",
00211 "recv" => "2",
00212 "ref" => "2",
00213 "rename" => "2",
00214 "reset" => "2",
00215 "reverse" => "2",
00216 "rewinddir" => "2",
00217 "rindex" => "2",
00218 "rmdir" => "2",
00219 "scalar" => "2",
00220 "seek" => "2",
00221 "seekdir" => "2",
00222 "select" => "2",
00223 "semctl" => "2",
00224 "semgett" => "2",
00225 "semop" => "2",
00226 "send" => "2",
00227 "setgrent" => "2",
00228 "sethostent" => "2",
00229 "setnetent" => "2",
00230 "setpgrp" => "2",
00231 "setpriority" => "2",
00232 "setprotoent" => "2",
00233 "setpwent" => "2",
00234 "setservent" => "2",
00235 "setsockopt" => "2",
00236 "shift" => "2",
00237 "shmctl" => "2",
00238 "shmget" => "2",
00239 "shmread" => "2",
00240 "shmwrite" => "2",
00241 "shutdown" => "2",
00242 "sin" => "2",
00243 "sleep" => "2",
00244 "socket" => "2",
00245 "socketpair" => "2",
00246 "sort" => "2",
00247 "splice" => "2",
00248 "split" => "2",
00249 "sprintf" => "2",
00250 "sqrt" => "2",
00251 "srand" => "2",
00252 "stat" => "2",
00253 "study" => "2",
00254 "substr" => "2",
00255 "symlink" => "2",
00256 "syscall" => "2",
00257 "sysopen" => "2",
00258 "sysread" => "2",
00259 "system" => "2",
00260 "syswrite" => "2",
00261 "tell" => "2",
00262 "telldir" => "2",
00263 "tie" => "2",
00264 "tied" => "2",
00265 "time" => "2",
00266 "times" => "2",
00267 "truncate" => "2",
00268 "uc" => "2",
00269 "ucfirst" => "2",
00270 "umask" => "2",
00271 "undef" => "2",
00272 "unlink" => "2",
00273 "unpack" => "2",
00274 "unshift" => "2",
00275 "utime" => "2",
00276 "untie" => "2",
00277 "values" => "2",
00278 "vec" => "2",
00279 "wait" => "2",
00280 "waitpid" => "2",
00281 "wantarray" => "2",
00282 "warn" => "2",
00283 "write" => "2",
00284 "AUTOLOAD" => "3",
00285 "and" => "3",
00286 "BEGIN" => "3",
00287 "CORE" => "3",
00288 "cmp" => "3",
00289 "DESTROY" => "3",
00290 "eq" => "3",
00291 "END" => "3",
00292 "ge" => "3",
00293 "gt" => "3",
00294 "le" => "3",
00295 "lt" => "3",
00296 "ne" => "3",
00297 "not" => "3",
00298 "m" => "3",
00299 "or" => "3",
00300 "q" => "3",
00301 "qq" => "3",
00302 "qw" => "3",
00303 "qx" => "3",
00304 "SUPER" => "3",
00305 "s" => "3",
00306 "tr" => "3",
00307 "UNIVERSAL" => "3",
00308 "x" => "3",
00309 "xor" => "3",
00310 "y" => "3",
00311 "$@" => "4",
00312 "@" => "4");
00313
00314
00315
00316
00317
00318
00319
00320
00321 $this->linkscripts = array(
00322 "1" => "donothing",
00323 "2" => "donothing",
00324 "3" => "donothing",
00325 "4" => "donothing");
00326
00327 }
00328
00329
00330
00331 function donothing($keywordin)
00332 {
00333 return $keywordin;
00334 }
00335
00336 }
00337
00338 ?>