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_vbdotnet extends HFile{
00007 function HFile_vbdotnet(){
00008 $this->HFile();
00009
00010
00011
00012
00013
00014
00015
00016 $this->nocase = "1";
00017 $this->notrim = "0";
00018 $this->perl = "0";
00019
00020
00021
00022 $this->colours = array("blue", "gray", "purple", "gray", "brown", "blue", "purple", "brown");
00023 $this->quotecolour = "blue";
00024 $this->blockcommentcolour = "green";
00025 $this->linecommentcolour = "green";
00026
00027
00028
00029 $this->indent = array("Public Sub", "Private Sub", "Sub", "Public Class", "Private Class", "Public Module", "Try");
00030 $this->unindent = array("End Sub", "End Class", "End Module", "End Try");
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 "3DDKSHADOW" => "1",
00048 "3DHIGHLIGHT" => "1",
00049 "3DLIGHT" => "1",
00050 "ABORT" => "1",
00051 "ABORTRETRYIGNORE" => "1",
00052 "ACTIVEBORDER" => "1",
00053 "ACTIVETITLEBAR" => "1",
00054 "ALIAS" => "1",
00055 "APPLICATIONMODAL" => "1",
00056 "APPLICATIONWORKSPACE" => "1",
00057 "ARCHIVE" => "1",
00058 "BACK" => "1",
00059 "BINARYCOMPARE" => "1",
00060 "BLACK" => "1",
00061 "BLUE" => "1",
00062 "BUTTONFACE" => "1",
00063 "BUTTONSHADOW" => "1",
00064 "BUTTONTEXT" => "1",
00065 "CANCEL" => "1",
00066 "CDROM" => "1",
00067 "CR" => "1",
00068 "CRITICAL" => "1",
00069 "CRLF" => "1",
00070 "CYAN" => "1",
00071 "DEFAULT" => "1",
00072 "DEFAULTBUTTON1" => "1",
00073 "DEFAULTBUTTON2" => "1",
00074 "DEFAULTBUTTON3" => "1",
00075 "DESKTOP" => "1",
00076 "DIRECTORY" => "1",
00077 "EXCLAMATION" => "1",
00078 "FALSE" => "1",
00079 "FIXED" => "1",
00080 "FORAPPENDING" => "1",
00081 "FORMFEED" => "1",
00082 "FORREADING" => "1",
00083 "FORWRITING" => "1",
00084 "FROMUNICODE" => "1",
00085 "GRAYTEXT" => "1",
00086 "GREEN" => "1",
00087 "HIDDEN" => "1",
00088 "HIDE" => "1",
00089 "HIGHLIGHT" => "1",
00090 "HIGHLIGHTTEXT" => "1",
00091 "HIRAGANA" => "1",
00092 "IGNORE" => "1",
00093 "INACTIVEBORDER" => "1",
00094 "INACTIVECAPTIONTEXT" => "1",
00095 "INACTIVETITLEBAR" => "1",
00096 "INFOBACKGROUND" => "1",
00097 "INFORMATION" => "1",
00098 "INFOTEXT" => "1",
00099 "KATAKANA" => "1",
00100 "LF" => "1",
00101 "LOWERCASE" => "1",
00102 "MAGENTA" => "1",
00103 "MAXIMIZEDFOCUS" => "1",
00104 "MENUBAR" => "1",
00105 "MENUTEXT" => "1",
00106 "METHOD" => "1",
00107 "MINIMIZEDFOCUS" => "1",
00108 "MINIMIZEDNOFOCUS" => "1",
00109 "MSGBOXRIGHT" => "1",
00110 "MSGBOXRTLREADING" => "1",
00111 "MSGBOXSETFOREGROUND" => "1",
00112 "NARROW" => "1",
00113 "NEWLINE" => "1",
00114 "NO" => "1",
00115 "NORMAL" => "1",
00116 "NORMALFOCUS" => "1",
00117 "NORMALNOFOCUS" => "1",
00118 "NULLSTRING" => "1",
00119 "OBJECTERROR" => "1",
00120 "OK" => "1",
00121 "OKCANCEL" => "1",
00122 "OKONLY" => "1",
00123 "PROPERCASE" => "1",
00124 "QUESTION" => "1",
00125 "RAMDISK" => "1",
00126 "READONLY" => "1",
00127 "RED" => "1",
00128 "REMOTE" => "1",
00129 "REMOVABLE" => "1",
00130 "RETRY" => "1",
00131 "RETRYCANCEL" => "1",
00132 "SCROLLBARS" => "1",
00133 "SYSTEMFOLDER" => "1",
00134 "SYSTEMMODAL" => "1",
00135 "TAB" => "7",
00136 "TEMPORARYFOLDER" => "1",
00137 "TEXTCOMPARE" => "1",
00138 "TITLEBARTEXT" => "1",
00139 "TRUE" => "1",
00140 "UNICODE" => "1",
00141 "UNKNOWN" => "1",
00142 "UPPERCASE" => "1",
00143 "VERTICALTAB" => "1",
00144 "VOLUME" => "1",
00145 "WHITE" => "1",
00146 "WIDE" => "1",
00147 "WIN16" => "1",
00148 "WIN32" => "1",
00149 "WINDOWBACKGROUND" => "1",
00150 "WINDOWFRAME" => "1",
00151 "WINDOWSFOLDER" => "1",
00152 "WINDOWTEXT" => "1",
00153 "YELLOW" => "1",
00154 "YES" => "1",
00155 "YESNO" => "1",
00156 "YESNOCANCEL" => "1",
00157 "BOOLEAN" => "2",
00158 "BYTE" => "2",
00159 "DATE" => "2",
00160 "DECIMIAL" => "2",
00161 "DOUBLE" => "2",
00162 "INTEGER" => "2",
00163 "LONG" => "2",
00164 "OBJECT" => "2",
00165 "SINGLE" => "2",
00166 "STRING" => "2",
00167 "As" => "3",
00168 "ADDHANDLER" => "3",
00169 "ASSEMBLY" => "3",
00170 "AUTO" => "3",
00171 "Binary" => "3",
00172 "ByRef" => "3",
00173 "ByVal" => "3",
00174 "BEGINEPILOGUE" => "3",
00175 "Else" => "3",
00176 "Empty" => "3",
00177 "Error" => "3",
00178 "ENDPROLOGUE" => "3",
00179 "EXTERNALSOURCE" => "3",
00180 "ENVIRON" => "3",
00181 "For" => "3",
00182 "Friend" => "3",
00183 "GET" => "3",
00184 "HANDLES" => "3",
00185 "Input" => "3",
00186 "Is" => "3",
00187 "Len" => "3",
00188 "Lock" => "3",
00189 "Me" => "3",
00190 "Mid" => "3",
00191 "MUSTINHERIT" => "3",
00192 "MYBASE" => "3",
00193 "MYCLASS" => "3",
00194 "New" => "3",
00195 "Next" => "3",
00196 "Nothing" => "3",
00197 "Null" => "3",
00198 "NOTINHERITABLE" => "3",
00199 "NOTOVERRIDABLE" => "3",
00200 "OFF" => "3",
00201 "On" => "3",
00202 "Option" => "3",
00203 "Optional" => "3",
00204 "OVERRIDABLE" => "3",
00205 "ParamArray" => "3",
00206 "Print" => "3",
00207 "Private" => "3",
00208 "Property" => "3",
00209 "Public" => "3",
00210 "Resume" => "3",
00211 "Seek" => "3",
00212 "Static" => "3",
00213 "Step" => "3",
00214 "String" => "3",
00215 "SHELL" => "3",
00216 "SENDKEYS" => "3",
00217 "SET" => "3",
00218 "Then" => "3",
00219 "Time" => "3",
00220 "To" => "3",
00221 "THROW" => "3",
00222 "WithEvents" => "3",
00223 "COLLECTION" => "4",
00224 "DEBUG" => "4",
00225 "DICTIONARY" => "4",
00226 "DRIVE" => "4",
00227 "DRIVES" => "4",
00228 "ERR" => "4",
00229 "FILE" => "4",
00230 "FILES" => "4",
00231 "FILESYSTEMOBJECT" => "4",
00232 "FOLDER" => "4",
00233 "FOLDERS" => "4",
00234 "TEXTSTREAM" => "4",
00235 "&" => "5",
00236 "&=" => "5",
00237 "*" => "5",
00238 "*=" => "5",
00239 "+" => "5",
00240 "+=" => "5",
00241 "-" => "5",
00242 "-=" => "5",
00243 "//" => "5",
00244 "/" => "5",
00245 "/=" => "5",
00246 "=" => "5",
00247 "\\" => "5",
00248 "\\=" => "5",
00249 "^" => "5",
00250 "^=" => "5",
00251 "ADDRESSOF" => "5",
00252 "AND" => "5",
00253 "BITAND" => "5",
00254 "BITNOT" => "5",
00255 "BITOR" => "5",
00256 "BITXOR" => "5",
00257 "GETTYPE" => "5",
00258 "LIKE" => "5",
00259 "MOD" => "5",
00260 "NOT" => "5",
00261 "OR" => "5",
00262 "XOR" => "5",
00263 "APPACTIVATE" => "6",
00264 "BEEP" => "6",
00265 "CALL" => "6",
00266 "CHDIR" => "6",
00267 "CHDRIVE" => "6",
00268 "CLASS" => "6",
00269 "CASE" => "6",
00270 "CATCH" => "6",
00271 "DECLARE" => "6",
00272 "DELEGATE" => "6",
00273 "DELETESETTING" => "6",
00274 "DIM" => "6",
00275 "DO" => "6",
00276 "DOEVENTS" => "6",
00277 "END" => "6",
00278 "ENUM" => "6",
00279 "EVENT" => "6",
00280 "EXIT" => "6",
00281 "EACH" => "6",
00282 "FUNCTION" => "6",
00283 "FINALLY" => "6",
00284 "IF" => "6",
00285 "IMPORTS" => "6",
00286 "INHERITS" => "6",
00287 "INTERFACE" => "6",
00288 "IMPLEMENTS" => "6",
00289 "KILL" => "6",
00290 "LOOP" => "6",
00291 "MIDB" => "7",
00292 "MODULE" => "6",
00293 "NAMESPACE" => "6",
00294 "OPEN" => "6",
00295 "PUT" => "6",
00296 "RAISEEVENT" => "6",
00297 "RANDOMIZE" => "6",
00298 "REDIM" => "6",
00299 "REM" => "6",
00300 "RESET" => "6",
00301 "SAVESETTING" => "6",
00302 "SELECT" => "6",
00303 "SETATTR" => "6",
00304 "STOP" => "6",
00305 "SUB" => "6",
00306 "SYNCLOCK" => "6",
00307 "STRUCTURE" => "6",
00308 "SHADOWS" => "6",
00309 "SWITCH" => "6",
00310 "TIMEOFDAY" => "7",
00311 "TODAY" => "7",
00312 "TRY" => "6",
00313 "WIDTH" => "6",
00314 "WITH" => "6",
00315 "WRITE" => "6",
00316 "WHILE" => "6",
00317 "ABS" => "7",
00318 "ARRAY" => "7",
00319 "ASC" => "7",
00320 "ASCB" => "7",
00321 "ASCW" => "7",
00322 "CALLBYNAME" => "7",
00323 "CBOOL" => "7",
00324 "CBYTE" => "7",
00325 "CCHAR" => "7",
00326 "CCHR" => "7",
00327 "CDATE" => "7",
00328 "CDBL" => "7",
00329 "CDEC" => "7",
00330 "CHOOSE" => "7",
00331 "CHR" => "7",
00332 "CHR$" => "7",
00333 "CHRB" => "7",
00334 "CHRB$" => "7",
00335 "CHRW" => "7",
00336 "CINT" => "7",
00337 "CLNG" => "7",
00338 "CLNG8" => "7",
00339 "CLOSE" => "7",
00340 "COBJ" => "7",
00341 "COMMAND" => "7",
00342 "COMMAND$" => "7",
00343 "CONVERSION" => "7",
00344 "COS" => "7",
00345 "CREATEOBJECT" => "7",
00346 "CSHORT" => "7",
00347 "CSTR" => "7",
00348 "CURDIR" => "7",
00349 "CTYPE" => "7",
00350 "CVDATE" => "7",
00351 "DATEADD" => "7",
00352 "DATEDIFF" => "7",
00353 "DATEPART" => "7",
00354 "DATESERIAL" => "7",
00355 "DATEVALUE" => "7",
00356 "DAY" => "7",
00357 "DDB" => "7",
00358 "DIR" => "7",
00359 "DIR$" => "7",
00360 "EOF" => "7",
00361 "ERROR$" => "7",
00362 "EXP" => "7",
00363 "FILEATTR" => "7",
00364 "FILECOPY" => "7",
00365 "FILEDATATIME" => "7",
00366 "FILELEN" => "7",
00367 "FILTER" => "7",
00368 "FIX" => "7",
00369 "FORMAT" => "7",
00370 "FORMAT$" => "7",
00371 "FORMATCURRENCY" => "7",
00372 "FORMATDATETIME" => "7",
00373 "FORMATNUMBER" => "7",
00374 "FORMATPERCENT" => "7",
00375 "FREEFILE" => "7",
00376 "FV" => "7",
00377 "GETALLSETTINGS" => "7",
00378 "GETATTRGETOBJECT" => "7",
00379 "GETSETTING" => "7",
00380 "HEX" => "7",
00381 "HEX$" => "7",
00382 "HOUR" => "7",
00383 "IIF" => "7",
00384 "IMESTATUS" => "7",
00385 "INPUT$" => "7",
00386 "INPUTB" => "7",
00387 "INPUTB$" => "7",
00388 "INPUTBOX" => "7",
00389 "INSTR" => "7",
00390 "INSTRB" => "7",
00391 "INSTRREV" => "7",
00392 "INT" => "7",
00393 "IPMT" => "7",
00394 "IRR" => "7",
00395 "ISARRAY" => "7",
00396 "ISDATE" => "7",
00397 "ISEMPTY" => "7",
00398 "ISERROR" => "7",
00399 "ISNULL" => "7",
00400 "ISNUMERIC" => "7",
00401 "ISOBJECT" => "7",
00402 "JOIN" => "7",
00403 "LBOUND" => "7",
00404 "LCASE" => "7",
00405 "LCASE$" => "7",
00406 "LEFT" => "7",
00407 "LEFT$" => "7",
00408 "LEFTB" => "7",
00409 "LEFTB$" => "7",
00410 "LENB" => "7",
00411 "LINEINPUT" => "7",
00412 "LOC" => "7",
00413 "LOF" => "7",
00414 "LOG" => "7",
00415 "LTRIM" => "7",
00416 "LTRIM$" => "7",
00417 "MID$" => "7",
00418 "MIDB$" => "7",
00419 "MINUTE" => "7",
00420 "MIRR" => "7",
00421 "MKDIR" => "7",
00422 "MONTH" => "7",
00423 "MONTHNAME" => "7",
00424 "MSGBOX" => "7",
00425 "NOW" => "7",
00426 "NPER" => "7",
00427 "NPV" => "7",
00428 "OCT" => "7",
00429 "OCT$" => "7",
00430 "PARTITION" => "7",
00431 "PMT" => "7",
00432 "PPMT" => "7",
00433 "PV" => "7",
00434 "RATE" => "7",
00435 "REPLACE" => "7",
00436 "RIGHT" => "7",
00437 "RIGHT$" => "7",
00438 "RIGHTB" => "7",
00439 "RIGHTB$" => "7",
00440 "RMDIR" => "7",
00441 "RND" => "7",
00442 "RTRIM" => "7",
00443 "RTRIM$" => "7",
00444 "SECOND" => "7",
00445 "SIN" => "7",
00446 "SLN" => "7",
00447 "SPACE" => "7",
00448 "SPACE$" => "7",
00449 "SPC" => "7",
00450 "SPLIT" => "7",
00451 "STR" => "7",
00452 "STR$" => "7",
00453 "STRCOMP" => "7",
00454 "STRCONV" => "7",
00455 "STRING$" => "7",
00456 "STRREVERSE" => "7",
00457 "SYD" => "7",
00458 "TAN" => "7",
00459 "TIMER" => "7",
00460 "TIMESERIAL" => "7",
00461 "TIMEVALUE" => "7",
00462 "TRIM" => "7",
00463 "TRIM$" => "7",
00464 "TYPENAME" => "7",
00465 "UBOUND" => "7",
00466 "UCASE" => "7",
00467 "UCASE$" => "7",
00468 "VAL" => "7",
00469 "WEEKDAY" => "7",
00470 "WEEKDAYNAME" => "7",
00471 "YEAR" => "7",
00472 "ANY" => "8",
00473 "ATN" => "8",
00474 "CALENDAR" => "8",
00475 "CIRCLE" => "8",
00476 "CURRENCY" => "8",
00477 "DEFBOOL" => "8",
00478 "DEFBYTE" => "8",
00479 "DEFCUR" => "8",
00480 "DEFDATE" => "8",
00481 "DEFDBL" => "8",
00482 "DEFDEC" => "8",
00483 "DEFINT" => "8",
00484 "DEFLNG" => "8",
00485 "DEFOBJ" => "8",
00486 "DEFSNG" => "8",
00487 "DEFSTR" => "8",
00488 "DEFVAR" => "8",
00489 "EQV" => "8",
00490 "GOSUB" => "8",
00491 "IMP" => "8",
00492 "INITIALIZE" => "8",
00493 "ISMISSING" => "8",
00494 "LET" => "8",
00495 "LINE" => "8",
00496 "LSET" => "8",
00497 "RSET" => "8",
00498 "SGN" => "8",
00499 "SQR" => "8",
00500 "TERMINATE" => "8",
00501 "VARIANT" => "8",
00502 "VARTYPE" => "8",
00503 "WEND" => "8");
00504
00505
00506
00507
00508
00509
00510
00511
00512 $this->linkscripts = array(
00513 "1" => "donothing",
00514 "7" => "donothing",
00515 "2" => "donothing",
00516 "3" => "donothing",
00517 "4" => "donothing",
00518 "5" => "donothing",
00519 "6" => "donothing",
00520 "8" => "donothing");
00521 }
00522
00523
00524
00525 function donothing($keywordin)
00526 {
00527 return $keywordin;
00528 }
00529
00530 }
00531
00532 ?>