00001 <?php
00002 $BEAUT_PATH = realpath(".")."/syntax_highlight/php";
00003 if (!isset ($BEAUT_PATH)) return;
00004 require_once("$BEAUT_PATH/Beautifier/HFile.php");
00005 class HFile_tcltk extends HFile{
00006 function HFile_tcltk(){
00007 $this->HFile();
00008
00009
00010
00011
00012
00013
00014 $this->nocase = "0";
00015 $this->notrim = "0";
00016 $this->perl = "0";
00017
00018
00019
00020 $this->colours = array("blue", "purple", "gray", "brown");
00021 $this->quotecolour = "blue";
00022 $this->blockcommentcolour = "green";
00023 $this->linecommentcolour = "green";
00024
00025
00026
00027 $this->indent = array();
00028 $this->unindent = array();
00029
00030
00031
00032 $this->stringchars = array();
00033 $this->delimiters = array("~", "!", "@", "%", "^", "&", "*", "(", ")", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",", " ", "?");
00034 $this->escchar = "";
00035
00036
00037
00038 $this->linecommenton = array("#");
00039 $this->blockcommenton = array("");
00040 $this->blockcommentoff = array("");
00041
00042
00043
00044 $this->keywords = array(
00045 "after" => "1",
00046 "append" => "1",
00047 "array" => "1",
00048 "auto_execok" => "1",
00049 "auto_load" => "1",
00050 "auto_mkindex" => "1",
00051 "auto_reset" => "1",
00052 "bgerror" => "1",
00053 "break" => "1",
00054 "case" => "1",
00055 "catch" => "1",
00056 "cd" => "1",
00057 "clock" => "1",
00058 "close" => "1",
00059 "concat" => "1",
00060 "continue" => "1",
00061 "eof" => "1",
00062 "error" => "1",
00063 "eval" => "1",
00064 "exec" => "1",
00065 "exit" => "1",
00066 "expr" => "1",
00067 "else" => "1",
00068 "elseif" => "1",
00069 "fblocked" => "1",
00070 "fconfigure" => "1",
00071 "file" => "1",
00072 "fileevent" => "1",
00073 "flush" => "1",
00074 "for" => "1",
00075 "foreach" => "1",
00076 "format" => "1",
00077 "gets" => "1",
00078 "glob" => "1",
00079 "global" => "1",
00080 "history" => "1",
00081 "if" => "1",
00082 "incr" => "1",
00083 "info" => "1",
00084 "interp" => "1",
00085 "join" => "1",
00086 "lappend" => "1",
00087 "lindex" => "1",
00088 "linsert" => "1",
00089 "list" => "1",
00090 "llength" => "1",
00091 "load" => "1",
00092 "lrange" => "1",
00093 "lreplace" => "1",
00094 "lsearch" => "1",
00095 "lsort" => "1",
00096 "open" => "1",
00097 "package" => "1",
00098 "parray" => "1",
00099 "pid" => "1",
00100 "proc" => "1",
00101 "puts" => "1",
00102 "pwd" => "1",
00103 "read" => "1",
00104 "regexp" => "1",
00105 "regsub" => "1",
00106 "rename" => "1",
00107 "return" => "1",
00108 "scan" => "1",
00109 "seek" => "1",
00110 "set" => "1",
00111 "socket" => "1",
00112 "source" => "1",
00113 "split" => "1",
00114 "string" => "1",
00115 "subst" => "1",
00116 "switch" => "1",
00117 "tell" => "1",
00118 "time" => "1",
00119 "trace" => "1",
00120 "tcl_endOfWord" => "1",
00121 "tcl_startOfNextWord" => "1",
00122 "tcl_startOfPreviousWord" => "1",
00123 "tcl_wordBreakAfter" => "1",
00124 "tcl_wordBreakBefore" => "1",
00125 "unknown" => "1",
00126 "unset" => "1",
00127 "update" => "1",
00128 "uplevel" => "1",
00129 "upvar" => "1",
00130 "vwait" => "1",
00131 "while" => "1",
00132 "auto_execs" => "2",
00133 "auto_index" => "2",
00134 "auto_noexec" => "2",
00135 "auto_noload" => "2",
00136 "auto_path" => "2",
00137 "env" => "2",
00138 "ErrorCode" => "2",
00139 "ErrorInfo" => "2",
00140 "tcl_library" => "2",
00141 "tcl_patchLevel" => "2",
00142 "tcl_pkgPath" => "2",
00143 "tcl_platform" => "2",
00144 "tcl_precision" => "2",
00145 "tcl_rcFileName" => "2",
00146 "tcl_rcRsrcName" => "2",
00147 "tcl_version" => "2",
00148 "tcl_nonwordchars" => "2",
00149 "tcl_wordchars" => "2",
00150 "unknown_active" => "2",
00151 "bell" => "3",
00152 "bind" => "3",
00153 "bindtags" => "3",
00154 "bitmap" => "3",
00155 "button" => "3",
00156 "canvas" => "3",
00157 "checkbutton" => "3",
00158 "clipboard" => "3",
00159 "destroy" => "3",
00160 "entry" => "3",
00161 "event" => "3",
00162 "focus" => "3",
00163 "frame" => "3",
00164 "grab" => "3",
00165 "grid" => "3",
00166 "image" => "3",
00167 "label" => "3",
00168 "listbox" => "3",
00169 "lower" => "3",
00170 "menu" => "3",
00171 "menubutton" => "3",
00172 "message" => "3",
00173 "option" => "3",
00174 "pack" => "3",
00175 "photo" => "3",
00176 "place" => "3",
00177 "radiobutton" => "3",
00178 "raise" => "3",
00179 "scale" => "3",
00180 "scrollbar" => "3",
00181 "selection" => "3",
00182 "send" => "3",
00183 "text" => "3",
00184 "tk" => "3",
00185 "tk_bindForTraversal" => "3",
00186 "tk_bisque" => "3",
00187 "tk_chooseColor" => "3",
00188 "tk_dialog" => "3",
00189 "tk_focusFollowsMouse" => "3",
00190 "tk_focusNext" => "3",
00191 "tk_focusPrev" => "3",
00192 "tk_getOpenFile" => "3",
00193 "tk_getSaveFile" => "3",
00194 "tk_menuBar" => "3",
00195 "tk_messageBox" => "3",
00196 "tk_optionMenu" => "3",
00197 "tk_popup" => "3",
00198 "tk_setPalette" => "3",
00199 "tkerror" => "3",
00200 "tkvars" => "3",
00201 "tkwait" => "3",
00202 "toplevel" => "3",
00203 "winfo" => "3",
00204 "wm" => "3",
00205 "**" => "4",
00206 "$" => "4");
00207
00208
00209
00210
00211
00212
00213
00214
00215 $this->linkscripts = array(
00216 "1" => "donothing",
00217 "2" => "donothing",
00218 "3" => "donothing",
00219 "4" => "donothing");
00220 }
00221
00222
00223 function donothing($keywordin)
00224 {
00225 return $keywordin;
00226 }
00227
00228 }?>