diff options
| -rw-r--r-- | paste/COPYING | 31 | ||||
| -rw-r--r-- | paste/INSTALL | 35 | ||||
| -rw-r--r-- | paste/config.php | 54 | ||||
| -rw-r--r-- | paste/include/createpage.inc | 76 | ||||
| -rw-r--r-- | paste/include/highlight.inc | 1122 | ||||
| -rw-r--r-- | paste/include/pastify.inc | 89 | ||||
| -rw-r--r-- | paste/index.html | 52 | ||||
| -rw-r--r-- | paste/paste.css | 13 | ||||
| -rw-r--r-- | paste/paste.php | 107 | ||||
| -rw-r--r-- | paste/remove.php | 77 |
10 files changed, 1656 insertions, 0 deletions
diff --git a/paste/COPYING b/paste/COPYING new file mode 100644 index 0000000..da4ff3a --- /dev/null +++ b/paste/COPYING @@ -0,0 +1,31 @@ +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + diff --git a/paste/INSTALL b/paste/INSTALL new file mode 100644 index 0000000..ce8412b --- /dev/null +++ b/paste/INSTALL @@ -0,0 +1,35 @@ +INSTALLATION INSTRUCTIONS + +Making your own Pastebin + +================================ + +Files: + +index.html - Presents the HTML form for pasting text. +paste.php - Form handler that drives the rest of the process. +include/highlight.inc - Syntax highlighting routines. +include/pastify.inc - Takes syntax highlighted text and turns it into + HTML to be served when the paste is viewed. +include/createpage.inc - Handles writing the HTML page to disk and + returning the resulting file path. + +================================ + +Set up this directory structure more or less the way it comes out of +source control. + +Update the config.php file to reflect your server and setup. + +You may also want to make sure your web server has permissions to +write files into the results output directory (which is results/ by +default) + +It is also a good idea to implement some sort of upload rate throttling. +This can be done by keeping track of pastes per IP address and shedding +load if it passes a certain threshold. + +Additionally, if you wish pastes to expire after a given amount of time, +you will need to write a housekeeping script or cron job that periodically +cleans out expired pastes. + diff --git a/paste/config.php b/paste/config.php new file mode 100644 index 0000000..2a41d7b --- /dev/null +++ b/paste/config.php @@ -0,0 +1,54 @@ +<? +/* +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + + $Config = array( + # This is the domain where this pastebin is running + 'site_domain' => 'www.example.net', + + # This is the part after the domain where this pastebin will be found. + 'site_path' => '/paste/', + + # This is the directory where pastes will be stored + 'results_dir' => 'results', + + # This is the path of the URL that will be generated for sharing (allows + # shorter URLs to be used if you've set something up on your web server + # to support this. + #'short_results_path' => 'http://www.example.net/p/' + + # Change this to a unique value + 'token_salt' => 'saltsaltsalt', + ); + +?> diff --git a/paste/include/createpage.inc b/paste/include/createpage.inc new file mode 100644 index 0000000..b881deb --- /dev/null +++ b/paste/include/createpage.inc @@ -0,0 +1,76 @@ +<? +/* +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +function CreatePage($input) +{ + list($text) = $input; + + $result_dir = $Config['results_dir']; + $tmpfname = tempnam ("$result_dir/", ""); + + # I can't remember why I tacked on 2 random digits. + $outbase = $tmpfname . rand(10, 99); + $outfile = $outbase . ".html"; + + $ipAddr = $_SERVER["REMOTE_ADDR"]; + $pasteID = basename($outbase); + + $token = sha1($pasteID . $ipAddr . $Config['token_salt']); + + # There is probably a better way to do this. tempnam() creates the + # temporary file in the results directory, but we then need to strip + # this off the front of the filename to make a shorter url. + $rawout = $outfile; + $rawout = preg_replace("/$result_dir\//", "", $rawout); + + if ($Config['short_results_path']) { + $urlbase = $Config['short_results_path']; + } else { + $urlbase = $Config['site_domain'] . $Config['site_path'] . '/' $Config['results_dir']; + } + $pasteUrl = $urlbase . $rawout; + + $text = preg_replace("/=\{this-paste-url\}/", $pasteUrl, $text); + $text = preg_replace("/=\{remove-paste-url\}/", $Config['site_domain'] . $Config['site_path'] . "remove.php?p=$pasteID&t=$token", $text); + + $fp = fopen($outfile, "w"); + fwrite($fp, $text); + fclose($fp); + + unlink($tmpfname); + + return $pasteUrl; +} + +?> diff --git a/paste/include/highlight.inc b/paste/include/highlight.inc new file mode 100644 index 0000000..32491d7 --- /dev/null +++ b/paste/include/highlight.inc @@ -0,0 +1,1122 @@ +<? +/* +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +*/ + +/* + +Special thanks to E.J. Brocklesby for providing PL/I language support. +Special thanks to F.R. for the XML language support. + +*/ + +function keyword_replace($keywords, $text, $ncs = false) +{ + $cm = ($ncs)? "i" : ""; + foreach ($keywords as $keyword) + { + $search[] = "/(\\b$keyword\\b)/" . $cm; + $replace[] = '<span class="keyword">\\0</span>'; + } + + $search[] = "/(\\bclass\s)/"; + $replace[] = '<span class="keyword">\\0</span>'; + + return preg_replace($search, $replace, $text); +} + + +function preproc_replace($preproc, $text) +{ + foreach ($preproc as $proc) + { + $search[] = "/(\\s*#\s*$proc\\b)/"; + $replace[] = '<span class="keyword">\\0</span>'; + } + + return preg_replace($search, $replace, $text); +} + + +function sch_syntax_helper($text) +{ + return $text; +} + + +function syntax_highlight_helper($text, $language) +{ + $preproc = array(); + $preproc["C++"] = array( + "if", "ifdef", "ifndef", "elif", "else", + "endif", "include", "define", "undef", "line", + "error", "pragma"); + $preproc["C89"] = & $preproc["C++"]; + $preproc["C"] = & $preproc["C89"]; + + $keywords = array( + "C++" => array( + "asm", "auto", "bool", "break", "case", + "catch", "char", /*class*/ "const", "const_cast", + "continue", "default", "delete", "do", "double", + "dynamic_cast", "else", "enum", "explicit", "export", + "extern", "false", "float", "for", "friend", + "goto", "if", "inline", "int", "long", + "mutable", "namespace", "new", "operator", "private", + "protected", "public", "register", "reinterpret_cast", "return", + "short", "signed", "sizeof", "static", "static_cast", + "struct", "switch", "template", "this", "throw", + "true", "try", "typedef", "typeid", "typename", + "union", "unsigned", "using", "virtual", "void", + "volatile", "wchar_t", "while"), + + "C89" => array( + "auto", "break", "case", "char", "const", + "continue", "default", "do", "double", "else", + "enum", "extern", "float", "for", "goto", + "if", "int", "long", "register", "return", + "short", "signed", "sizeof", "static", "struct", + "switch", "typedef", "union", "unsigned", "void", + "volatile", "while"), + + "C" => array( + "auto", "break", "case", "char", "const", + "continue", "default", "do", "double", "else", + "enum", "extern", "float", "for", "goto", + "if", "int", "long", "register", "return", + "short", "signed", "sizeof", "static", "struct", + "switch", "typedef", "union", "unsigned", "void", + "volatile", "while", "__restrict","_Bool"), + + "PHP" => array( + "and", "or", "xor", "__FILE__", "__LINE__", + "array", "as", "break", "case", "cfunction", + /*class*/ "const", "continue", "declare", "default", + "die", "do", "echo", "else", "elseif", + "empty", "enddeclare", "endfor", "endforeach", "endif", + "endswitch", "endwhile", "eval", "exit", "extends", + "for", "foreach", "function", "global", "if", + "include", "include_once", "isset", "list", "new", + "old_function", "print", "require", "require_once", "return", + "static", "switch", "unset", "use", "var", + "while", "__FUNCTION__", "__CLASS__"), + + "Perl" => array( + "-A", "-B", "-C", "-M", "-O", + "-R", "-S", "-T", "-W", "-X", + "-b", "-c", "-d", "-e", "-f", + "-g", "-k", "-l", "-o", "-p", + "-r", "-s", "-t", "-u", "-w", + "-x", "-z", "ARGV", "DATA", "ENV", + "SIG", "STDERR", "STDIN", "STDOUT", "atan2", + "bind", "binmode", "bless", "caller", "chdir", + "chmod", "chomp", "chop", "chown", "chr", + "chroot", "close", "closedir", "cmp", "connect", + "continue", "cos", "crypt", "dbmclose", "dbmopen", + "defined", "delete", "die", "do", "dump", + "each", "else", "elsif", "endgrent", "endhostent", + "endnetent", "endprotent", "endpwent", "endservent", "eof", + "eq", "eval", "exec", "exists", "exit", + "exp", "fcntl", "fileno", "flock", "for", + "foreach", "fork", "format", "formline", "ge", + "getc", "getgrent", "getgrid", "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", "goto", "grep", + /*gt*/ "hex", "if", "import", "index", + "int", "ioctl", "join", "keys", "kill", + "last", "lc", "lcfirst", "le", "length", + "link", "listen", "local", "localtime", "log", + "lstat", /*lt*/ "m", "map", "mkdir", + "msgctl", "msgget", "msgrcv", "msgsnd", "my", + "ne", "next", "no", "oct", "open", + "opendir", "ord", "pack", "package", "pipe", + "pop", "pos", "print", "printf", "push", + "q", "qq", "quotemeta","qw", "qx", + "rand", "read", "readdir", "readlink", "recv", + "redo", "ref", "refname", "require", "reset", + "return", "reverse", "rewinddir","rindex", "rmdir", + "s", "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", "sub", "substr", "symlink", "syscall", + "sysopen", "sysread", "system", "syswrite", "tell", + "telldir", "tie", "tied", "time", "times", + "tr", "truncate", "uc", "ucfirst", "umask", + "undef", "unless", "unlink", "unpack", "unshift", + "untie", "until", "use", "utime", "values", + "vec", "wait", "waitpid", "wantarray", "warn", + "while", "write", "y", "or", "and", + "not"), + + "Java" => array( + "abstract", "boolean", "break", "byte", "case", + "catch", "char", /*class*/ "const", "continue", + "default", "do", "double", "else", "extends", + "final", "finally", "float", "for", "goto", + "if", "implements", "import", "instanceof", "int", + "interface", "long", "native", "new", "package", + "private", "protected", "public", "return", "short", + "static", "strictfp", "super", "switch", "synchronized", + "this", "throw", "throws", "transient", "try", + "void", "volatile", "while"), + + "VB" => array( + "AddressOf", "Alias", "And", "Any", "As", + "Binary", "Boolean", "ByRef", "Byte", "ByVal", + "Call", "Case", "CBool", "CByte", "CCur", + "CDate", "CDbl", "CInt", "CLng", "Close", + "Const", "CSng", "CStr", "Currency", "CVar", + "CVErr", "Date", "Debug", "Declare", "DefBool", + "DefByte", "DefCur", "DefDate", "DefDbl", "DefInt", + "DefLng", "DefObj", "DefSng", "DefStr", "DefVar", + "Dim", "Do", "Double", "Each", "Else", + "End", "Enum", "Eqv", "Erase", "Error", + "Event", "Exit", "For", "Friend", "Function", + "Get", "Get", "Global", "GoSub", "GoTo", + "If", "Imp", "Implements","In", "Input", + "Integer", "Is", "LBound", "Len", "Let", + "Lib", "Like", "Line", "Lock", "Long", + "Loop", "LSet", "Mod", "Name", "Next", + "Not", "Nothing", "Null", "Object", "On", + "Open", "Option Base 1","Option Compare Binary", + "Option Compare Database", "Option Compare Text", "Option Explicit", + "Option Private Module", "Optional", "Or", "Output", + "ParamArray", "Preserve", "Print", "Private", "Property", + "Public", "Put", "RaiseEvent","Random", "Read", + "ReDim", "Resume", "Return", "RSet", "Seek", + "Select", "Set", "Single", "Spc", "Static", + "Step", "Stop", "String", "Sub", "Tab", + "Then", "To", "Type", "UBound", "Unlock", + "Variant", "Wend", "While", "With", "WithEvents", + "Write", "Xor"), + + "C#" => array( + "abstract", "as", "base", "bool", "break", + "byte", "case", "catch", "char", "checked", + /*class*/ "const", "continue", "decimal", "default", + "delegate", "do", "double", "else", "enum", + "event", "explicit", "extern", "false", "finally", + "fixed", "float", "for", "foreach", "goto", + "if", "implicit", "in", "int", "interface", + "internal", "is", "lock", "long", "namespace", + "new", "null", "object", "operator", "out", + "override", "params", "private", "protected", "public", + "readonly", "ref", "return", "sbyte", "sealed", + "short", "sizeof", "stackalloc","static", "string", + "struct", "switch", "this", "throw", "true", + "try", "typeof", "uint", "ulong", "unchecked", + "unsafe", "ushort", "using", "virtual", "volatile", + "void", "while"), + + "Ruby" => array( + "alias", "and", "begin", "break", "case", + /*class*/ "def", "defined", "do", "else", + "elsif", "end", "ensure", "false", "for", + "if", "in", "module", "next", "module", + "next", "nil", "not", "or", "redo", + "rescue", "retry", "return", "self", "super", + "then", "true", "undef", "unless", "until", + "when", "while", "yield"), + + "Python" => array( + "and", "assert", "break", /*"class",*/ "continue", + "def", "del", "elif", "else", "except", + "exec", "finally", "for", "from", "global", + "if", "import", "in", "is", "lambda", + "not", "or", "pass", "print", "raise", + "return", "try", "while", "yield"), + + "Pascal" => array( + "Absolute", "Abstract", "All", "And", "And_then", + "Array", "Asm", "Begin", "Bindable", "Case", + /*"Class",*/ "Const", "Constructor","Destructor", "Div", + "Do", "Downto", "Else", "End", "Export", + "File", "For", "Function", "Goto", "If", + "Import", "Implementation","Inherited","In", "Inline", + "Interface", "Is", "Label", "Mod", "Module", + "Nil", "Not", "Object", "Of", "Only", + "Operator", "Or", "Or_else", "Otherwise", "Packed", + "Pow", "Procedure", "Program", "Property", "Protected", + "Qualified", "Record", "Repeat", "Restricted", "Set", + "Shl", "Shr", "Then", "To", "Type", + "Unit", "Until", "Uses", "Value", "Var", + "View", "Virtual", "While", "With", "Xor"), + + "mIRC" => array( + ), + + "PL/I" => array( + "A", "ABS", "ACOS", "%ACTIVATE", "ACTUALCOUNT", + "ADD", "ADDR", "ADDREL", "ALIGNED", "ALLOCATE", + "ALLOC", "ALLOCATION", "ALLOCN", "ANY", "ANYCONDITION", + "APPEND", "AREA", "ASIN", "ATAN", "ATAND", + "ATANH", "AUTOMATIC", "AUTO", "B", "B1", + "B2", "B3", "B4", "BACKUP_DATE", "BASED", + "BATCH", "BEGIN", "BINARY", "BIN", "BIT", + "BLOCK_BOUNDARY_FORMAT", "BLOCK_IO", "BLOCK_SIZE", "BOOL", + "BUCKET_SIZE", "BUILTIN", "BY", "BYTE", "BYTESIZE", + "CALL", "CANCEL_CONTROL_O", "CARRIAGE_RETURN_FORMAT", + "CEIL", "CHAR", "CHARACTER", "CLOSE", "COLLATE", "COLUMN", + "CONDITION", "CONTIGUOUS", "CONTIGUOUS_BEST_TRY", "CONTROLLED", + "CONVERSION", "COPY", "COS", "COSD", "COSH", + "CREATION_DATE", "CURRENT_POSITION", "DATE", + "DATETIME", "%DEACTIVATE", "DECIMAL", "DEC", "%DECLARE", + "%DCL", "DECLARE", "DCL", "DECODE", "DEFAULT_FILE_NAME", + "DEFERRED_WRITE", "DEFINED", "DEF", "DELETE", + "DESCRIPTOR", "%DICTIONARY", "DIMENSION","DIM", "DIRECT", + "DISPLAY", "DIVIDE", "%DO", "DO", "E", + "EDIT", "%ELSE", "ELSE", "EMPTY", "ENCODE", + "%END", "END", "ENDFILE", "ENDPAGE", "ENTRY", + "ENVIRONMENT", "ENV", "%ERROR", "ERROR", "EVERY", + "EXP", "EXPIRATION_DATE", "EXTEND", "EXTENSION_SIZE", + "EXTERNAL", "EXT", "F", "FAST_DELETE", "%FATAL", + "FILE", "FILE_ID", "FILE_ID_TO", "FILE_SIZE", + "FINISH", "FIXED", "FIXEDOVERFLOW", "FOFL", + "FIXED_CONTROL_FROM", "FIXED_CONTROL_SIZE", "FIXED_CONTROL_SIZE_TO", + "FIXED_CONTROL_TO", "FIXED_LENGTH_RECORDS", "FLOAT", + "FLOOR", "FLUSH", "FORMAT", "FREE", "FROM", + "GET", "GLOBALDEF", "GLOBALREF", "%GOTO", + "GOTO", "GO", "TO", "GROUP_PROTETION", "HBOUND", + "HIGH", "INDENT", "%IF", "IF", "IGNORE_LINE_MARKS", + "IN", "%INCLUDE", "INDEX", "INDEXED", "INDEX_NUMBER", + "%INFORM", "INFORM", "INITIAL", "INIT", "INITIAL_FILL", + "INPUT", "INT", "INTERNAL", "INTO", "KEY", + "KEYED", "KEYFROM", "KEYTO", "LABEL", "LBOUND", + "LEAVE", "LENGTH", "LIKE", "LINE", "LINENO", + "LINESIZE", "%LIST", "LIST", "LOCK_ON_READ", "LOCK_ON_WRITE", + "LOG", "LOG10", "LOG2", "LOW", "LTRIM", + "MAIN", "MANUAL_UNLOCKING", "MATCH_GREATER", + "MATCH_GREATER_EQUAL", "MATCH_NEXT", "MATCH_NEXT_EQUAL", + "MAX", "MAXIMUM_RECORD_NUMBER", "MAXIMUM_RECORD_SIZE", + "MAXLENGTH", "MEMBER", "MIN", "MOD", "MULTIBLOCK_COUNT", + "MULTIBUFFER_COUNT", "MULTIPLY", "NEXT_VOLUME", "%NOLIST", + "NOLOCK", "NONEXISTENT_RECORD", "NONRECURSIVE", "NONVARYING", + "NONVAR", "NORESCAN", "NO_ECHO", "NO_FILTER", "NO_SHARE", + "NULL", "OFFSET", "ON", "ONARGSLIST", "ONCHAR", + "ONCODE", "ONFILE", "ONKEY", "ONSOURCE", "OPEN", + "OPTIONAL", "OPTIONS", "OTHERWISE","OTHER", "OUTPUT", + "OVERFLOW", "OFL", "OWNER_GROUP", "OWNER_ID", + "OWNER_MEMBER", "OWNER_PROTECTION", "P", "%PAGE", + "PAGE", "PAGENO", "PAGESIZE", "PARAMETER", "PARM", + "PICTURE", "PIC", "POINTER", "PTR", "POSINT", + "POSITION", "POS", "PRECISION","PREC", "PRESENT", + "PRINT", "PRINTER_FORMAT", "%PROCEDURE", "%PROC", + "PROCEDURE", "PROC", "PROD", "PROMPT", "PURGE_TYPE_AHEAD", + "PUT", "R", "RANK", "READ", "READONLY", + "READ_AHEAD", "READ_CHECK", "READ_REGARDLESS", "RECORD", + "RECORD_ID", "RECORD_ID_ACCESS", "RECORD_ID_TO", "RECURSIVE", + "REFER", "REFERENCE", "RELEASE", "REPEAT", "%REPLACE", + "RESCAN", "RESIGNAL", "RETRIEVAL_POINTERS", "%RETURN", + "RETURN", "RETURNS", "REVERSE", "REVERT", "REVISION_DATE", + "REWIND", "REWIND_ON_CLOSE", "REWIND_ON_OPEN", + "REWRITE", "ROUND", "RTRIM", "%SBTTL", "SCALARVARYING", + "SEARCH", "SELECT", "SEQUENTIAL", "SEQL", + "SET", "SHARED_READ", "SHARED_WRITE", "SIGN", + "SIGNAL", "SIN", "SIND", "SINH", "SIZE", + "SKIP", "SNAP", "SOME", "SPACEBLOCK", "SPOOL", + "SQRT", "STATEMENT", "STATIC", "STOP", "STORAGE", + "STREAM", "STRING", "STRINGRANGE", "STRG", + "STRUCTURE", "SUBSCRIPTRANGE", "SUBRG", "SUBSTR", + "SUBTRACT", "SUM", "SUPERCEDE","SYSIN", "SYSPRINT", + "SYSTEM", "SYSTEM_PROTECTION", "TAB", "TAN", + "TAND", "TANH", "TEMPORARY","%THEN", "THEN", + "TIME", "TIMEOUT_PERIOD", "%TITLE", "TITLE", + "TO", "TRANSLATE", "TRIM", "TRUNC", "TRUNCATE", + "UNALIGNED", "UNAL", "UNDEFINED","UNDF", "UNDERFLOW", + "UFL", "UNION", "UNSPEC", "UNTIL", "UPDATE", + "USER_OPEN", "VALID", "VALUE", "VAL", "VARIABLE", + "VARIANT", "VARYING", "VAR", "VAXCONDITION", "VERIFY", + "WAIT_FOR_RECORD", "%WARN", "WARN", "WHEN", + "WHILE", "WORLD_PROTECTION", "WRITE", "WRITE_BEHIND", + "WRITE_CHECK", "X", "ZERODIVIDE"), + + "SQL" => array( + "abort", "abs", "absolute", "access", + "action", "ada", "add", "admin", + "after", "aggregate", "alias", "all", + "allocate", "alter", "analyse", "analyze", + "and", "any", "are", "array", + "as", "asc", "asensitive", "assertion", + "assignment", "asymmetric", "at", "atomic", + "authorization", "avg", "backward", "before", + "begin", "between", "bigint", "binary", + "bit", "bitvar", "bit_length", "blob", + "boolean", "both", "breadth", "by", + "c", "cache", "call", "called", + "cardinality", "cascade", "cascaded", "case", + "cast", "catalog", "catalog_name", "chain", + "char", "character", "characteristics", "character_length", + "character_set_catalog", "character_set_name", "character_set_schema", "char_length", + "check", "checked", "checkpoint", /* "class", */ + "class_origin", "clob", "close", "cluster", + "coalesce", "cobol", "collate", "collation", + "collation_catalog", "collation_name", "collation_schema", "column", + "column_name", "command_function", "command_function_code", "comment", + "commit", "committed", "completion", "condition_number", + "connect", "connection", "connection_name", "constraint", + "constraints", "constraint_catalog", "constraint_name", "constraint_schema", + "constructor", "contains", "continue", "conversion", + "convert", "copy", "corresponding", "count", + "create", "createdb", "createuser", "cross", + "cube", "current", "current_date", "current_path", + "current_role", "current_time", "current_timestamp", "current_user", + "cursor", "cursor_name", "cycle", "data", + "database", "date", "datetime_interval_code", "datetime_interval_precision", + "day", "deallocate", "dec", "decimal", + "declare", "default", "defaults", "deferrable", + "deferred", "defined", "definer", "delete", + "delimiter", "delimiters", "depth", "deref", + "desc", "describe", "descriptor", "destroy", + "destructor", "deterministic", "diagnostics", "dictionary", + "disconnect", "dispatch", "distinct", "do", + "domain", "double", "drop", "dynamic", + "dynamic_function", "dynamic_function_code", "each", "else", + "encoding", "encrypted", "end", "end-exec", + "equals", "escape", "every", "except", + "exception", "excluding", "exclusive", "exec", + "execute", "existing", "exists", "explain", + "external", "extract", "false", "fetch", + "final", "first", "float", "for", + "force", "foreign", "fortran", "forward", + "found", "free", "freeze", "from", + "full", "function", "g", "general", + "generated", "get", "global", "go", + "goto", "grant", "granted", "group", + "grouping", "handler", "having", "hierarchy", + "hold", "host", "hour", "identity", + "ignore", "ilike", "immediate", "immutable", + "implementation", "implicit", "in", "including", + "increment", "index", "indicator", "infix", + "inherits", "initialize", "initially", "inner", + "inout", "input", "insensitive", "insert", + "instance", "instantiable", "instead", "int", + "integer", "intersect", "interval", "into", + "invoker", "is", "isnull", "isolation", + "iterate", "join", "k", "key", + "key_member", "key_type", "lancompiler", "language", + "large", "last", "lateral", "leading", + "left", "length", "less", "level", + "like", "limit", "listen", "load", + "local", "localtime", "localtimestamp", "location", + "locator", "lock", "lower", "m", + "map", "match", "max", "maxvalue", + "message_length", "message_octet_length", "message_text", "method", + "min", "minute", "minvalue", "mod", + "mode", "modifies", "modify", "module", + "month", "more", "move", "mumps", + "name", "names", "national", "natural", + "nchar", "nclob", "new", "next", + "no", "nocreatedb", "nocreateuser", "none", + "not", "nothing", "notify", "notnull", + "null", "nullable", "nullif", "number", + "numeric", "object", "octet_length", "of", + "off", "offset", "oids", "old", + "on", "only", "open", "operation", + "operator", "option", "options", "or", + "order", "ordinality", "out", "outer", + "output", "overlaps", "overlay", "overriding", + "owner", "pad", "parameter", "parameters", + "parameter_mode", "parameter_name", "parameter_ordinal_position", "parameter_specific_catalog", + "parameter_specific_name", "parameter_specific_schema", "partial", "pascal", + "password", "path", "pendant", "placing", + "pli", "position", "postfix", "precision", + "prefix", "preorder", "prepare", "preserve", + "primary", "prior", "privileges", "procedural", + "procedure", "public", "read", "reads", + "real", "recheck", "recursive", "ref", + "references", "referencing", "reindex", "relative", + "rename", "repeatable", "replace", "reset", + "restart", "restrict", "result", "return", + "returned_length", "returned_octet_length", "returned_sqlstate", "returns", + "revoke", "right", "role", "rollback", + "rollup", "routine", "routine_catalog", "routine_name", + "routine_schema", "row", "rows", "row_count", + "rule", "savepoint", "scale", "schema", + "schema_name", "scope", "scroll", "search", + "second", "section", "security", "select", + "self", "sensitive", "sequence", "serializable", + "server_name", "session", "session_user", "set", + "setof", "sets", "share", "show", + "similar", "simple", "size", "smallint", + "some", "source", "space", "specific", + "specifictype", "specific_name", "sql", "sqlcode", + "sqlerror", "sqlexception", "sqlstate", "sqlwarning", + "stable", "start", "state", "statement", + "static", "statistics", "stdin", "stdout", + "storage", "strict", "structure", "style", + "subclass_origin", "sublist", "substring", "sum", + "symmetric", "sysid", "system", "system_user", + "table", "table_name", "temp", "template", + "temporary", "terminate", "text", "than", "then", + "time", "timestamp", "timezone_hour", "timezone_minute", + "to", "toast", "trailing", "transaction", + "transactions_committed", "transactions_rolled_back", "transaction_active", "transform", + "transforms", "translate", "translation", "treat", + "trigger", "trigger_catalog", "trigger_name", "trigger_schema", + "trim", "true", "truncate", "trusted", + "type", "uncommitted", "under", "unencrypted", + "union", "unique", "unknown", "unlisten", + "unnamed", "unnest", "until", "update", + "upper", "usage", "user", "user_defined_type_catalog", + "user_defined_type_name", "user_defined_type_schema", "using", "vacuum", + "valid", "validator", "value", "values", + "varchar", "variable", "varying", "verbose", + "version", "view", "volatile", "when", + "whenever", "where", "with", "without", + "work", "write", "year", "zone") + + ); + + $case_insensitive = array( + "VB" => true, + "Pascal" => true, + "PL/I" => true, + "SQL" => true + ); + $ncs = false; + if (array_key_exists($language, $case_insensitive)) + $ncs = true; + + $text = (array_key_exists($language, $preproc))? + preproc_replace($preproc[$language], $text) : + $text; + $text = (array_key_exists($language, $keywords))? + keyword_replace($keywords[$language], $text, $ncs) : + $text; + + return $text; +} + + +function rtrim1($span, $lang, $ch) +{ + return syntax_highlight_helper(substr($span, 0, -1), $lang); +} + + +function rtrim1_htmlesc($span, $lang, $ch) +{ + return htmlspecialchars(substr($span, 0, -1)); +} + + +function sch_rtrim1($span, $lang, $ch) +{ + return sch_syntax_helper(substr($span, 0, -1)); +} + + +function rtrim2($span, $lang, $ch) +{ + return substr($span, 0, -2); +} + + +function syn_proc($span, $lang, $ch) +{ + return syntax_highlight_helper($span, $lang); +} + +function dash_putback($span, $lang, $ch) +{ + return syntax_highlight_helper('-' . $span, $lang); +} + +function slash_putback($span, $lang, $ch) +{ + return syntax_highlight_helper('/' . $span, $lang); +} + +function slash_putback_rtrim1($span, $lang, $ch) +{ + return rtrim1('/' . $span, $lang, $ch); +} + +function lparen_putback($span, $lang, $ch) +{ + return syntax_highlight_helper('(' . $span, $lang); +} + +function lparen_putback_rtrim1($span, $lang, $ch) +{ + return rtrim1('(' . $span, $lang, $ch); +} + +function prepend_xml_opentag($span, $lang, $ch) +{ + return '<span class="xml_tag"><' . $span; +} + +function proc_void($span, $lang, $ch) +{ + return $span; +} + + +/** + * Syntax highlight function + * Does the bulk of the syntax highlighting by lexing the input + * string, then calling the helper function to highlight keywords. + */ +function SyntaxHighlight($text, $language) +{ + if ($language == "Plain Text") return $text; + + define("normal_text", 1, true); + define("dq_literal", 2, true); + define("dq_escape", 3, true); + define("sq_literal", 4, true); + define("sq_escape", 5, true); + define("slash_begin", 6, true); + define("star_comment", 7, true); + define("star_end", 8, true); + define("line_comment", 9, true); + define("html_entity", 10, true); + define("lc_escape", 11, true); + define("block_comment",12, true); + define("paren_begin", 13, true); + define("dash_begin", 14, true); + define("bt_literal", 15, true); + define("bt_escape", 16, true); + define("xml_tag_begin",17, true); + define("xml_tag", 18, true); + define("xml_pi", 19, true); + define("sch_normal", 20, true); + define("sch_stresc", 21, true); + define("sch_idexpr", 22, true); + define("sch_numlit", 23, true); + define("sch_chrlit", 24, true); + define("sch_strlit", 25, true); + + $initial_state["Scheme"] = sch_normal; + + $sch[sch_normal][0] = sch_normal; + $sch[sch_normal]['"'] = sch_strlit; + $sch[sch_normal]["#"] = sch_chrlit; + $sch[sch_normal]["0"] = sch_numlit; + $sch[sch_normal]["1"] = sch_numlit; + $sch[sch_normal]["2"] = sch_numlit; + $sch[sch_normal]["3"] = sch_numlit; + $sch[sch_normal]["4"] = sch_numlit; + $sch[sch_normal]["5"] = sch_numlit; + $sch[sch_normal]["6"] = sch_numlit; + $sch[sch_normal]["7"] = sch_numlit; + $sch[sch_normal]["8"] = sch_numlit; + $sch[sch_normal]["9"] = sch_numlit; + + $sch[sch_strlit]['"'] = sch_normal; + $sch[sch_strlit]["\n"] = sch_normal; + $sch[sch_strlit]["\\"] = sch_stresc; + $sch[sch_strlit][0] = sch_strlit; + + $sch[sch_chrlit][" "] = sch_normal; + $sch[sch_chrlit]["\t"] = sch_normal; + $sch[sch_chrlit]["\n"] = sch_normal; + $sch[sch_chrlit]["\r"] = sch_normal; + $sch[sch_chrlit][0] = sch_chrlit; + + $sch[sch_numlit][" "] = sch_normal; + $sch[sch_numlit]["\t"] = sch_normal; + $sch[sch_numlit]["\n"] = sch_normal; + $sch[sch_numlit]["\r"] = sch_normal; + $sch[sch_numlit][0] = sch_numlit; + + // + // State transitions for C + // + $c89[normal_text]["\""] = dq_literal; + $c89[normal_text]["'"] = sq_literal; + $c89[normal_text]["/"] = slash_begin; + $c89[normal_text][0] = normal_text; + + $c89[dq_literal]["\""] = normal_text; + $c89[dq_literal]["\n"] = normal_text; + $c89[dq_literal]["\\"] = dq_escape; + $c89[dq_literal][0] = dq_literal; + + $c89[dq_escape][0] = dq_literal; + + $c89[sq_literal]["'"] = normal_text; + $c89[sq_literal]["\n"] = normal_text; + $c89[sq_literal]["\\"] = sq_escape; + $c89[sq_literal][0] = sq_literal; + + $c89[sq_escape][0] = sq_literal; + + $c89[slash_begin]["*"] = star_comment; + $c89[slash_begin][0] = normal_text; + + $c89[star_comment]["*"] = star_end; + $c89[star_comment][0] = star_comment; + + $c89[star_end]["/"] = normal_text; + $c89[star_end]["*"] = star_end; + $c89[star_end][0] = star_comment; + + // + // State transitions for C++ + // Inherit transitions from C, and add line comment support + // + $cpp = $c89; + $cpp[slash_begin]["/"] = line_comment; + $cpp[line_comment]["\n"] = normal_text; + $cpp[line_comment]["\\"] = lc_escape; + $cpp[line_comment][0] = line_comment; + + $cpp[lc_escape]["\r"] = lc_escape; + $cpp[lc_escape][0] = line_comment; + + // + // State transitions for C99. + // C99 supports line comments like C++ + // + $c99 = $cpp; + + // State transitions for PL/I + // Kinda like C + $pli = $c89; + + // + // State transitions for PHP + // Inherit transitions from C++, and add perl-style line comment support + $php = $cpp; + $php[normal_text]["#"] = line_comment; + $php[sq_literal]["\n"] = sq_literal; + $php[dq_literal]["\n"] = dq_literal; + + // + // State transitions for Perl + $perl[normal_text]["#"] = line_comment; + $perl[normal_text]["\""] = dq_literal; + $perl[normal_text]["'"] = sq_literal; + $perl[normal_text][0] = normal_text; + + $perl[dq_literal]["\""] = normal_text; + $perl[dq_literal]["\\"] = dq_escape; + $perl[dq_literal][0] = dq_literal; + + $perl[dq_escape][0] = dq_literal; + + $perl[sq_literal]["'"] = normal_text; + $perl[sq_literal]["\\"] = sq_escape; + $perl[sq_literal][0] = sq_literal; + + $perl[sq_escape][0] = sq_literal; + + $perl[line_comment]["\n"] = normal_text; + $perl[line_comment][0] = line_comment; + + $mirc[normal_text]["\""] = dq_literal; + $mirc[normal_text][";"] = line_comment; + $mirc[normal_text][0] = normal_text; + + $mirc[dq_literal]["\""] = normal_text; + $mirc[dq_literal]["\\"] = dq_escape; + $mirc[dq_literal][0] = dq_literal; + + $mirc[dq_escape][0] = dq_literal; + + $mirc[line_comment]["\n"] = normal_text; + $mirc[line_comment][0] = line_comment; + + $ruby = $perl; + + $python = $perl; + + $java = $cpp; + + $vb = $perl; + $vb[normal_text]["#"] = normal_text; + $vb[normal_text]["'"] = line_comment; + + $cs = $java; + + $pascal = $c89; + $pascal[normal_text]["("] = paren_begin; + $pascal[normal_text]["/"] = slash_begin; + $pascal[normal_text]["{"] = block_comment; + + $pascal[paren_begin]["*"] = star_comment; + $pascal[paren_begin]["'"] = sq_literal; + $pascal[paren_begin]['"'] = dq_literal; + $pascal[paren_begin][0] = normal_text; + + $pascal[slash_begin]["'"] = sq_literal; + $pascal[slash_begin]['"'] = dq_literal; + $pascal[slash_begin]['/'] = line_comment; + $pascal[slash_begin][0] = normal_text; + + $pascal[star_comment]["*"] = star_end; + $pascal[star_comment][0] = star_comment; + + $pascal[block_comment]["}"] = normal_text; + $pascal[block_comment][0] = block_comment; + + $pascal[line_comment]["\n"] = normal_text; + $pascal[line_comment][0] = line_comment; + + $pascal[star_end][")"] = normal_text; + $pascal[star_end]["*"] = star_end; + $pascal[star_end][0] = star_comment; + + $sql[normal_text]['"'] = dq_literal; + $sql[normal_text]["'"] = sq_literal; + $sql[normal_text]['`'] = bt_literal; + $sql[normal_text]['-'] = dash_begin; + $sql[normal_text][0] = normal_text; + + $sql[dq_literal]['"'] = normal_text; + $sql[dq_literal]['\\'] = dq_escape; + $sql[dq_literal][0] = dq_literal; + + $sql[sq_literal]["'"] = normal_text; + $sql[sq_literal]['\\'] = sq_escape; + $sql[sq_literal][0] = sq_literal; + + $sql[bt_literal]['`'] = normal_text; + $sql[bt_literal]['\\'] = bt_escape; + $sql[bt_literal][0] = bt_literal; + + $sql[dq_escape][0] = dq_literal; + $sql[sq_escape][0] = sq_literal; + $sql[bt_escape][0] = bt_literal; + + $sql[dash_begin]["-"] = line_comment; + $sql[dash_begin][0] = normal_text; + + $sql[line_comment]["\n"] = normal_text; + $sql[line_comment]["\\"] = lc_escape; + $sql[line_comment][0] = line_comment; + + $sql[lc_escape]["\r"] = lc_escape; + $sql[lc_escape][0] = line_comment; + + $xml[normal_text]["<"] = xml_tag_begin; + $xml[normal_text]["&"] = html_entity; + $xml[normal_text][0] = normal_text; + $xml[html_entity][";"] = normal_text; + $xml[html_entity]["<"] = xml_tag_begin; + $xml[html_entity][0] = html_entity; + $xml[xml_tag_begin]["?"] = xml_pi; + $xml[xml_tag_begin]["!"] = line_comment; + $xml[xml_tag_begin][0] = xml_tag; + $xml[xml_tag][">"] = normal_text; + $xml[xml_tag]["\""] = dq_literal; + $xml[xml_tag]["'"] = sq_literal; + $xml[xml_tag][0] = xml_tag; + $xml[xml_pi][">"] = normal_text; + $xml[xml_pi][0] = xml_tag; + $xml[line_comment][">"] = normal_text; + $xml[line_comment][0] = line_comment; + $xml[dq_literal]["\""] = xml_tag; + $xml[dq_literal]["&"] = dq_escape; + $xml[dq_literal][0] = dq_literal; + $xml[sq_literal]["'"] = xml_tag; + $xml[sq_literal]["&"] = sq_escape; + $xml[sq_literal][0] = sq_literal; + $xml[dq_escape][";"] = dq_literal; + $xml[dq_escape][0] = dq_escape; + + // + // Main state transition table + // + $states = array( + "C89" => $c89, + "C" => $c99, + "C++" => $cpp, + "PHP" => $php, + "Perl" => $perl, + "Java" => $java, + "VB" => $vb, + "C#" => $cs, + "Ruby" => $ruby, + "Python" => $python, + "Pascal" => $pascal, + "mIRC" => $mirc, + "PL/I" => $pli, + "SQL" => $sql, + "XML" => $xml, + "Scheme" => $sch + ); + + + // + // Process functions + // + $process["C89"][normal_text][sq_literal] = "rtrim1"; + $process["C89"][normal_text][dq_literal] = "rtrim1"; + $process["C89"][normal_text][slash_begin] = "rtrim1"; + $process["C89"][normal_text][0] = "syn_proc"; + + $process["C89"][slash_begin][star_comment] = "rtrim1"; + $process["C89"][slash_begin][0] = "slash_putback"; + + $process["Scheme"][sch_normal][sch_strlit] = "sch_rtrim1"; + $process["Scheme"][sch_normal][sch_chrlit] = "sch_rtrim1"; + $process["Scheme"][sch_normal][sch_numlit] = "sch_rtrim1"; + + $process["SQL"][normal_text][sq_literal] = "rtrim1"; + $process["SQL"][normal_text][dq_literal] = "rtrim1"; + $process["SQL"][normal_text][bt_literal] = "rtrim1"; + $process["SQL"][normal_text][dash_begin] = "rtrim1"; + $process["SQL"][normal_text][0] = "syn_proc"; + + $process["SQL"][dash_begin][line_comment] = "rtrim1"; + $process["SQL"][dash_begin][0] = "dash_putback"; + + $process["PL/I"] = $process["C89"]; + + $process["C++"] = $process["C89"]; + $process["C++"][slash_begin][line_comment] = "rtrim1"; + + $process["C"] = $process["C++"]; + + $process["PHP"] = $process["C++"]; + $process["PHP"][normal_text][line_comment] = "rtrim1"; + + $process["Perl"][normal_text][sq_literal] = "rtrim1"; + $process["Perl"][normal_text][dq_literal] = "rtrim1"; + $process["Perl"][normal_text][line_comment] = "rtrim1"; + $process["Perl"][normal_text][0] = "syn_proc"; + + $process["Ruby"] = $process["Perl"]; + $process["Python"] = $process["Perl"]; + + $process["mIRC"][normal_text][dq_literal] = "rtrim1"; + $process["mIRC"][normal_text][line_comment] = "rtrim1"; + $process["mIRC"][normal_text][0] = "syn_proc"; + + $process["VB"] = $process["Perl"]; + + $process["Java"] = $process["C++"]; + + $process["C#"] = $process["Java"]; + + $process["Pascal"] = $process["C++"]; + $process["Pascal"][normal_text][line_comment] = "rtrim1"; + $process["Pascal"][normal_text][block_comment] = "rtrim1"; + $process["Pascal"][normal_text][paren_begin] = "rtrim1"; + $process["Pascal"][slash_begin][sq_literal] = "slash_putback_rtrim1"; + $process["Pascal"][slash_begin][dq_literal] = "slash_putback_rtrim1"; + $process["Pascal"][slash_begin][0] = "slash_putback"; + $process["Pascal"][paren_begin][sq_literal] = "lparen_putback_rtrim1"; + $process["Pascal"][paren_begin][dq_literal] = "lparen_putback_rtrim1"; + $process["Pascal"][paren_begin][star_comment] = "rtrim1"; + $process["Pascal"][paren_begin][0] = "lparen_putback"; + + $process["XML"][normal_text][xml_tag_begin] = "rtrim1"; + $process["XML"][normal_text][html_entity] = "rtrim1"; + $process["XML"][html_entity][xml_tag_begin] = "rtrim1"; + $process["XML"][html_entity][0] = "proc_void"; + $process["XML"][xml_tag_begin][xml_tag] = "prepend_xml_opentag"; + $process["XML"][xml_tag_begin][xml_pi] = "rtrim1"; + $process["XML"][xml_tag_begin][line_comment] = "rtrim1"; + $process["XML"][line_comment][normal_text] = "rtrim1_htmlesc"; + $process["XML"][xml_tag][normal_text] = "rtrim1"; + $process["XML"][xml_tag][dq_literal] = "rtrim1"; + $process["XML"][dq_literal][xml_tag] = "rtrim1"; + $process["XML"][dq_literal][dq_escape] = "rtrim1"; + + $process_end["C89"] = "syntax_highlight_helper"; + $process_end["C++"] = $process_end["C89"]; + $process_end["C"] = $process_end["C89"]; + $process_end["PHP"] = $process_end["C89"]; + $process_end["Perl"] = $process_end["C89"]; + $process_end["Java"] = $process_end["C89"]; + $process_end["VB"] = $process_end["C89"]; + $process_end["C#"] = $process_end["C89"]; + $process_end["Ruby"] = $process_end["C89"]; + $process_end["Python"] = $process_end["C89"]; + $process_end["Pascal"] = $process_end["C89"]; + $process_end["mIRC"] = $process_end["C89"]; + $process_end["PL/I"] = $process_end["C89"]; + $process_end["SQL"] = $process_end["C89"]; + $process_end["Scheme"] = "sch_syntax_helper"; + + + $edges["C89"][normal_text .",". dq_literal] = '<span class="literal">"'; + $edges["C89"][normal_text .",". sq_literal] = '<span class="literal">\''; + $edges["C89"][slash_begin .",". star_comment] = '<span class="comment">/*'; + $edges["C89"][dq_literal .",". normal_text] = '</span>'; + $edges["C89"][sq_literal .",". normal_text] = '</span>'; + $edges["C89"][star_end .",". normal_text] = '</span>'; + + $edges["Scheme"][sch_normal .",". sch_strlit] = '<span class="sch_str">"'; + $edges["Scheme"][sch_normal .",". sch_numlit] = '<span class="sch_num">'; + $edges["Scheme"][sch_normal .",". sch_chrlit] = '<span class="sch_chr">#'; + $edges["Scheme"][sch_strlit .",". sch_normal] = '</span>'; + $edges["Scheme"][sch_numlit .",". sch_normal] = '</span>'; + $edges["Scheme"][sch_chrlit .",". sch_normal] = '</span>'; + + $edges["SQL"][normal_text .",". dq_literal] = '<span class="literal">"'; + $edges["SQL"][normal_text .",". sq_literal] = '<span class="literal">\''; + $edges["SQL"][dash_begin .",". line_comment] = '<span class="comment">--'; + $edges["SQL"][normal_text .",". bt_literal] = '`'; + $edges["SQL"][dq_literal .",". normal_text] = '</span>'; + $edges["SQL"][sq_literal .",". normal_text] = '</span>'; + $edges["SQL"][line_comment .",". normal_text] = '</span>'; + + $edges["PL/I"] = $edges["C89"]; + + $edges["C++"] = $edges["C89"]; + $edges["C++"][slash_begin .",". line_comment] = '<span class="comment">//'; + $edges["C++"][line_comment .",". normal_text] = '</span>'; + + $edges["C"] = $edges["C++"]; + + $edges["PHP"] = $edges["C++"]; + $edges["PHP"][normal_text .",". line_comment] = '<span class="comment">#'; + + $edges["Perl"][normal_text .",". dq_literal] = '<span class="literal">"'; + $edges["Perl"][normal_text .",". sq_literal] = '<span class="literal">\''; + $edges["Perl"][dq_literal .",". normal_text] = '</span>'; + $edges["Perl"][sq_literal .",". normal_text] = '</span>'; + $edges["Perl"][normal_text .",". line_comment] = '<span class="comment">#'; + $edges["Perl"][line_comment .",". normal_text] = '</span>'; + + $edges["Ruby"] = $edges["Perl"]; + + $edges["Python"] = $edges["Perl"]; + + $edges["mIRC"][normal_text .",". dq_literal] = '<span class="literal">"'; + $edges["mIRC"][normal_text .",". line_comment] = '<span class="comment">;'; + $edges["mIRC"][dq_literal .",". normal_text] = '</span>'; + $edges["mIRC"][line_comment .",". normal_text] = '</span>'; + + $edges["VB"] = $edges["Perl"]; + $edges["VB"][normal_text .",". line_comment] = '<span class="comment">\''; + + $edges["Java"] = $edges["C++"]; + + $edges["C#"] = $edges["Java"]; + + $edges["Pascal"] = $edges["C89"]; + $edges["Pascal"][paren_begin .",". star_comment] = '<span class="comment">(*'; + $edges["Pascal"][paren_begin .",". dq_literal] = '<span class="literal">"'; + $edges["Pascal"][paren_begin .",". sq_literal] = '<span class="literal">\''; + $edges["Pascal"][slash_begin .",". dq_literal] = '<span class="literal">"'; + $edges["Pascal"][slash_begin .",". sq_literal] = '<span class="literal">\''; + $edges["Pascal"][slash_begin .",". line_comment] = '<span class="comment">//'; + $edges["Pascal"][normal_text . "," . block_comment] = '<span class="comment">{'; + $edges["Pascal"][line_comment . "," . normal_text] = '</span>'; + $edges["Pascal"][block_comment . "," . normal_text] = '</span>'; + + $edges["XML"][normal_text . "," . html_entity] = '<span class="html_entity">&'; + $edges["XML"][html_entity . "," . normal_text] = '</span>'; + $edges["XML"][html_entity . "," . xml_tag_begin] = '</span>'; + $edges["XML"][xml_tag . "," . normal_text] = '></span>'; + $edges["XML"][xml_tag_begin . "," . xml_pi] = '<span class="xml_pi"><?'; + $edges["XML"][xml_tag_begin . "," . line_comment] = '<span class="comment"><!'; + $edges["XML"][line_comment . "," . normal_text] = '></span>'; + $edges["XML"][xml_tag .",". dq_literal] = '<span class="literal">"'; + $edges["XML"][dq_literal . "," . xml_tag] = '"</span>'; + $edges["XML"][dq_literal . "," . dq_escape] = '<span class="html_entity">&'; + $edges["XML"][dq_escape . "," . dq_literal] = '</span>'; + $edges["XML"][xml_tag .",". sq_literal] = '<span class="literal">\''; + $edges["XML"][sq_literal . "," . xml_tag] = '\'</span>'; + $edges["XML"][sq_literal . "," . sq_escape] = '<span class="html_entity">&'; + $edges["XML"][sq_escape . "," . sq_literal] = '</span>'; + + // + // The State Machine + // + if (array_key_exists($language, $initial_state)) + $state = $initial_state[$language]; + else + $state = normal_text; + $output = ""; + $span = ""; + while (strlen($text) > 0) + { + $ch = substr($text, 0, 1); + $text = substr($text, 1); + + $oldstate = $state; + $state = (array_key_exists($ch, $states[$language][$state]))? + $states[$language][$state][$ch] : + $states[$language][$state][0]; + + $span .= $ch; + + if ($oldstate != $state) + { + if (array_key_exists($language, $process) && + array_key_exists($oldstate, $process[$language])) + { + if (array_key_exists($state, $process[$language][$oldstate])) + { + $pf = $process[$language][$oldstate][$state]; + $output .= $pf($span, $language, $ch); + } + else + { + $pf = $process[$language][$oldstate][0]; + $output .= $pf($span, $language, $ch); + } + } + else + { + $output .= $span; + } + + if (array_key_exists($language, $edges) && + array_key_exists("$oldstate,$state", $edges[$language])) + $output .= $edges[$language]["$oldstate,$state"]; + + $span = ""; + } + } + + if (array_key_exists($language, $process_end) && $state == normal_text) + $output .= $process_end[$language]($span, $language); + else + $output .= $span; + + if ($state != normal_text) + { + if (array_key_exists($language, $edges) && + array_key_exists("$state," . normal_text, $edges[$language])) + $output .= $edges[$language]["$state," . normal_text]; + } + + return $output; +} + +?> diff --git a/paste/include/pastify.inc b/paste/include/pastify.inc new file mode 100644 index 0000000..321fe51 --- /dev/null +++ b/paste/include/pastify.inc @@ -0,0 +1,89 @@ +<? +/* +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +require_once("highlight.inc"); + +function PastifyText($text, $language, $desc) +{ + $plaintext = $text; + + $text = ereg_replace("(&)", "&", $text); + $text = ereg_replace("(<)", "<", $text); + $text = preg_replace("/^[ \\t\\r]*$/ms", " ", $text); + + $lines = explode("\n", $text); + $nlines = count($lines); + $lineout = ""; + + # Do the actual syntax highlighting + $output = SyntaxHighlight($text, $language); + + for ($i = 1; $i < $nlines; ++$i) + $lineout .= "$i\n"; + $lineout .= "$i"; + + $html = <<<EOH +<html> +<head> +<link rel="stylesheet" type="text/css" href="paste.css"/> +<meta name="robots" content="noarchive"/> +<title>Pasted code - $desc</title> +</head> +<div style="border-bottom: 2px solid gray;"> +<table border="0" cellpadding="1" cellspacing="2" width="100%"> +<tr> + <td><small>Pasted as <b>$language</b> <span id="controls">[<a href="={remove-paste-url}">Remove this paste</a> ]</span></small></td> +</tr> +<tr> + <td><small>Description: $desc</small></td> +</tr> +<tr> + <td><small>URL: ={this-paste-url}</small></td> +</tr> +</table> +</div> + +<table border="0" cellpadding="1" cellspacing="2"> +<tr> + <td><pre class="code">$lineout</pre></td> + <td width="100%"><pre class="code" id="codemain">$output</pre></td> +</tr> +</table> +</html> +EOH; + + return $html; +} + +?> diff --git a/paste/index.html b/paste/index.html new file mode 100644 index 0000000..e4e2005 --- /dev/null +++ b/paste/index.html @@ -0,0 +1,52 @@ +<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> + +<html> + +<head> + <title>Paste your code</title> +</head> + +<body> + + <form action="paste.php" method="post"> + + <table border="0" cellpadding="0" cellspacing="1"> + <tr> + <td style="padding-left: 0px; padding-right: 5px;">Language:</td> + <td><select name="lang" id="lang"> + <option value="C89">C (C89)</option> + <option value="C">C (C99)</option> + <option value="C++" selected="">C++</option> + <option value="C#">C#</option> + <option value="Java">Java</option> + <option value="Pascal">Pascal</option> + <option value="Perl">Perl</option> + <option value="PHP">PHP</option> + <option value="PL/I">PL/I</option> + <option value="Python">Python</option> + <option value="Ruby">Ruby</option> + <option value="SQL">SQL</option> + <option value="VB">Visual Basic</option> + <option value="Plain Text">Plain Text</option> + </select></td> + </tr> + <tr> + <td style="padding-left: 0px; padding-right: 5px;">Description:</td> + <td><input type="text" size="50" maxlength="50" name="desc" id="desc"/></td> + </tr> + </table> + + <table border="0" cellpadding="0"> + <tr> + <td><textarea name="text" cols="80" rows="20" wrap="off"></textarea></td> + </tr> + <tr> + <td><input type="submit" value="Paste"/></td> + </tr> + </table> + + </form> + +</body> + +</html> diff --git a/paste/paste.css b/paste/paste.css new file mode 100644 index 0000000..d119ae1 --- /dev/null +++ b/paste/paste.css @@ -0,0 +1,13 @@ + +.keyword { + color: mediumblue; + } + +.comment { + color: green; + } + +.literal { + color: purple; + } + diff --git a/paste/paste.php b/paste/paste.php new file mode 100644 index 0000000..17cec80 --- /dev/null +++ b/paste/paste.php @@ -0,0 +1,107 @@ +<? +/* +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +require_once("include/pastify.inc"); +require_once("include/createpage.inc"); + +$refererurl = $_SERVER['HTTP_REFERER']; +$refererurl = preg_replace("/\/[^\/]*$/", "", $refererurl); +$thisurl = "http://" . $_SERVER['HTTP_HOST']; +$thisurl .= $_SERVER['PHP_SELF']; +$thisurl = preg_replace("/\/[^\/]*$/", "", $thisurl); + + +if (isset($_POST['text']) && "" != ($ttemp = rtrim($_POST['text']))) +{ + $url = ""; + $baseurl = $_SERVER['PHP_SELF']; + $baseurl = preg_replace("/\/[^\/]*$/", "", $baseurl); + + $text = $ttemp; + + # Figure out if the post specified a syntax highlighting language + if (isset($_POST['lang']) && "" != ($ltemp = rtrim($_POST['lang']))) + { + $language = $ltemp; + if (strlen($language) > 20) + $language = substr($language, 0, 20); + $language = stripslashes($language); + $language = strip_tags($language); + $language = htmlspecialchars($language, ENT_QUOTES); + } + else + { + $language = "Plain Text"; + } + + + # Add a description if available + if (isset($_POST['desc']) && "" != ($dtemp = rtrim($_POST['desc']))) + { + $desc = stripslashes($dtemp); + if (strlen($desc) > 80) + { + $desc = substr($desc, 0, 76); + $desc .= " ..."; + } + $desc = strip_tags($desc); + $desc = htmlspecialchars($desc, ENT_QUOTES); + if ("" == $desc) + $desc = "No description"; + } + else + $desc = "No description"; + + + if (get_magic_quotes_gpc()) + $text = stripslashes($text); + + $finalText = PastifyText($text, $language, $desc); + $url = CreatePage($finalText); + + # Note: this function was pretty specific to my implementation. It stored + # paste metadata about the language used, description, and URL, as well as + # a timestamp (but the raw pastes were never preserved - they always expired + # as promised after 24 hours) + #add_to_db($desc, $language, $url); + + Header("Location: $url"); +} +else +{ + header("Location: " . $_SERVER['HTTP_REFERER']); + exit; +} + +?> diff --git a/paste/remove.php b/paste/remove.php new file mode 100644 index 0000000..80e8bd6 --- /dev/null +++ b/paste/remove.php @@ -0,0 +1,77 @@ +<? +/* +This software is licensed through a BSD-style License. +http://www.opensource.org/licenses/bsd-license.php + +Copyright (c) 2002 - 2009 Jacob D. Cohen +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +Redistributions of source code must retain the above copyright notice, +this list of conditions and the following disclaimer. +Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +Neither the name of Jacob D. Cohen nor the names of his contributors +may be used to endorse or promote products derived from this software +without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + + require('config.php'); + + function removePaste($pasteID) { + $errOld = error_reporting(0); + $return = 1; + + $resultDir = $_SERVER['DOCUMENT_ROOT'] . $Config['site_path'] . $Config['results_dir']; + + $filenameHTML = "$resultDir/$pasteID.html"; + + if (file_exists($filenameHTML)) { + + if (unlink($filenameHTML)) { + } else { + print "Failed to remove $filenameHTML<br/>\n"; + $return = 0; + } + } + error_reporting($errOld); + return $return; + } + + print "<title>Admin - Remove a paste</title>\n"; + + $ipAddr = $_SERVER["REMOTE_ADDR"]; + if (isset($_REQUEST["p"]) && isset($_REQUEST["t"])) { + $pasteID = $_REQUEST["p"]; + $token = $_REQUEST["t"]; + $tokenMatch = sha1($pasteID . $ipAddr . $Config['token_salt']); + if ($token == $tokenMatch) { + $result = removePaste($pasteID); + if ($result) { + print "Your paste has been removed."; + } else { + print "Sorry, we encountered a problem trying to remove this paste."; + } + } else { + print "Sorry, you are not authorized to remove this paste."; + } + } + + +?> |