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_pbasic extends HFile{
00006 function HFile_pbasic(){
00007 $this->HFile();
00008
00009
00010
00011
00012
00013
00014 $this->nocase = "1";
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 "#Compile" => "1",
00046 "#Debug" => "1",
00047 "#Dim" => "1",
00048 "#Else" => "1",
00049 "#ElseIf" => "1",
00050 "#EndIf" => "1",
00051 "#If" => "1",
00052 "#Include" => "1",
00053 "#Option" => "1",
00054 "#Register" => "1",
00055 "#Resource" => "1",
00056 "#Segment" => "1",
00057 "#Stack" => "1",
00058 "$Compile" => "2",
00059 "$Debug" => "2",
00060 "$Dim" => "2",
00061 "$Else" => "2",
00062 "$ElseIf" => "2",
00063 "$EndIf" => "2",
00064 "$If" => "2",
00065 "$Include" => "2",
00066 "$Option" => "2",
00067 "$Register" => "2",
00068 "$Resource" => "2",
00069 "$Segment" => "2",
00070 "$Stack" => "2",
00071 "%Def" => "3",
00072 "Abs" => "4",
00073 "AcceptAccess" => "4",
00074 "Addr" => "4",
00075 "Alias" => "4",
00076 "All" => "4",
00077 "And" => "4",
00078 "Any" => "4",
00079 "Append" => "4",
00080 "Array" => "4",
00081 "As" => "4",
00082 "Asc" => "4",
00083 "Ascend" => "4",
00084 "Asciiz" => "4",
00085 "Asm" => "4",
00086 "At" => "4",
00087 "Atn" => "4",
00088 "Attach" => "4",
00089 "Attrib" => "4",
00090 "Base" => "4",
00091 "Baud" => "4",
00092 "Bdecl" => "4",
00093 "Beep" => "4",
00094 "Bin$" => "4",
00095 "Binary" => "4",
00096 "Bit" => "4",
00097 "Bits%" => "4",
00098 "Bits&" => "4",
00099 "Bits?" => "4",
00100 "Bits??" => "4",
00101 "Bits???" => "4",
00102 "Break" => "4",
00103 "ByCopy" => "4",
00104 "ByRef" => "4",
00105 "Byte" => "4",
00106 "ByVal" => "4",
00107 "Call" => "4",
00108 "Case" => "4",
00109 "CByt" => "4",
00110 "CCur" => "4",
00111 "CCux" => "4",
00112 "Cd" => "4",
00113 "CDbl" => "4",
00114 "Cdecl" => "4",
00115 "CDwd" => "4",
00116 "Ceil" => "4",
00117 "Cext" => "4",
00118 "ChDir" => "4",
00119 "ChDrive" => "4",
00120 "Chr$" => "4",
00121 "CInt" => "4",
00122 "CLng" => "4",
00123 "Close" => "4",
00124 "Cls" => "4",
00125 "CodePtr" => "4",
00126 "Collate" => "4",
00127 "Color" => "4",
00128 "Comm" => "4",
00129 "Command$" => "4",
00130 "Con" => "4",
00131 "ConsIn" => "4",
00132 "ConsName$" => "4",
00133 "Console" => "4",
00134 "ConsOut" => "4",
00135 "Cos" => "4",
00136 "CQud" => "4",
00137 "Create" => "4",
00138 "CSng" => "4",
00139 "CtsFlow" => "4",
00140 "Cur" => "4",
00141 "CurDir$" => "4",
00142 "Currency" => "4",
00143 "CurrencyX" => "4",
00144 "Cursor" => "4",
00145 "CursorX" => "4",
00146 "CursorY" => "4",
00147 "Cux" => "4",
00148 "CvByt" => "4",
00149 "CvCur" => "4",
00150 "CvCux" => "4",
00151 "Cvd" => "4",
00152 "CvDwd" => "4",
00153 "Cve" => "4",
00154 "Cvi" => "4",
00155 "Cvl" => "4",
00156 "Cvq" => "4",
00157 "Cvs" => "4",
00158 "CvWrd" => "4",
00159 "CWrd" => "4",
00160 "Data" => "4",
00161 "DataCount" => "4",
00162 "Date$" => "4",
00163 "Declare" => "4",
00164 "Decr" => "4",
00165 "Default" => "4",
00166 "DefByt" => "4",
00167 "DefCur" => "4",
00168 "DefCux" => "4",
00169 "DefDbl" => "4",
00170 "DefDwd" => "4",
00171 "DefExt" => "4",
00172 "DefInt" => "4",
00173 "DefLng" => "4",
00174 "DefQud" => "4",
00175 "DefSng" => "4",
00176 "DefStr" => "4",
00177 "DefWrd" => "4",
00178 "Delete" => "4",
00179 "Descend" => "4",
00180 "Dim" => "4",
00181 "Dir$" => "4",
00182 "DiskFree" => "4",
00183 "DiskSize" => "4",
00184 "Dll" => "4",
00185 "Do" => "4",
00186 "Double" => "4",
00187 "Down" => "4",
00188 "DseFlow" => "4",
00189 "DsrSens" => "4",
00190 "DtrFlow" => "4",
00191 "DtrLine" => "4",
00192 "Dword" => "4",
00193 "Else" => "4",
00194 "ElseIf" => "4",
00195 "End" => "4",
00196 "Environ$" => "4",
00197 "Eof" => "4",
00198 "Eqv" => "4",
00199 "Erase" => "4",
00200 "Err" => "4",
00201 "ErrApi" => "4",
00202 "ErrClear" => "4",
00203 "Error" => "4",
00204 "Exe" => "4",
00205 "Exit" => "4",
00206 "Exp" => "4",
00207 "Exp10" => "4",
00208 "Exp2" => "4",
00209 "Explicit" => "4",
00210 "Export" => "4",
00211 "Ext" => "4",
00212 "Extended" => "4",
00213 "Extract$" => "4",
00214 "Far" => "4",
00215 "FileAttr" => "4",
00216 "FileCopy" => "4",
00217 "FileName$" => "4",
00218 "Fix" => "4",
00219 "Flush" => "4",
00220 "For" => "4",
00221 "Format$" => "4",
00222 "FormFeed" => "4",
00223 "Frac" => "4",
00224 "FreeFile" => "4",
00225 "From" => "4",
00226 "Function" => "4",
00227 "Get" => "4",
00228 "Get$" => "4",
00229 "GetAttr" => "4",
00230 "GetStdErr" => "4",
00231 "GetStdIn" => "4",
00232 "GetStdOut" => "4",
00233 "Global" => "4",
00234 "GoSub" => "4",
00235 "GoTo" => "4",
00236 "Handle" => "4",
00237 "Hex$" => "4",
00238 "HiByt" => "4",
00239 "HiWrd" => "4",
00240 "Host" => "4",
00241 "Idn" => "4",
00242 "If" => "4",
00243 "Imp" => "4",
00244 "In" => "4",
00245 "Incr" => "4",
00246 "InKey$" => "4",
00247 "Input" => "4",
00248 "Input#" => "4",
00249 "Input$" => "4",
00250 "Insert" => "4",
00251 "InShift" => "4",
00252 "InStat" => "4",
00253 "Instr" => "4",
00254 "Int" => "4",
00255 "Integer" => "4",
00256 "Inv" => "4",
00257 "IsFalse" => "4",
00258 "IsTrue" => "4",
00259 "Iterate" => "4",
00260 "Kill" => "4",
00261 "LBound" => "4",
00262 "LCase$" => "4",
00263 "Left" => "4",
00264 "Left$" => "4",
00265 "Len" => "4",
00266 "Let" => "4",
00267 "Lib" => "4",
00268 "Line" => "4",
00269 "LoByt" => "4",
00270 "Loc" => "4",
00271 "Local" => "4",
00272 "Locate" => "4",
00273 "Lock" => "4",
00274 "Lof" => "4",
00275 "Log" => "4",
00276 "Log10" => "4",
00277 "Log2" => "4",
00278 "Long" => "4",
00279 "Loop" => "4",
00280 "LoWrd" => "4",
00281 "Lprint" => "4",
00282 "Lprint$" => "4",
00283 "Lset" => "4",
00284 "Ltrim$" => "4",
00285 "MakDwd" => "4",
00286 "MakLng" => "4",
00287 "MakPtr" => "4",
00288 "Mat" => "4",
00289 "Max" => "4",
00290 "Max$" => "4",
00291 "Max%" => "4",
00292 "Max&" => "4",
00293 "MCase$" => "4",
00294 "Mid$" => "4",
00295 "Min" => "4",
00296 "Min$" => "4",
00297 "Min%" => "4",
00298 "Min&" => "4",
00299 "MkByt$" => "4",
00300 "MkCur$" => "4",
00301 "MkCux$" => "4",
00302 "Mkd$" => "4",
00303 "MkDir" => "4",
00304 "MkDwd$" => "4",
00305 "Mke$" => "4",
00306 "Mki$" => "4",
00307 "Mkl$" => "4",
00308 "Mkq$" => "4",
00309 "Mks$" => "4",
00310 "MkWrd$" => "4",
00311 "Mod" => "4",
00312 "Mouse" => "4",
00313 "MouseButtons" => "4",
00314 "MouseStat" => "4",
00315 "MouseX" => "4",
00316 "MouseY" => "4",
00317 "Move" => "4",
00318 "Name" => "4",
00319 "Next" => "4",
00320 "None" => "4",
00321 "Not" => "4",
00322 "Notify" => "4",
00323 "Null" => "4",
00324 "Oct$" => "4",
00325 "Of" => "4",
00326 "Off" => "4",
00327 "On" => "4",
00328 "Open" => "4",
00329 "Option" => "4",
00330 "Or" => "4",
00331 "Output" => "4",
00332 "Page" => "4",
00333 "Parity" => "4",
00334 "ParityChar" => "4",
00335 "ParityRepl" => "4",
00336 "ParityType" => "4",
00337 "Parse$" => "4",
00338 "ParseCount" => "4",
00339 "Pbd" => "4",
00340 "PbDebug" => "4",
00341 "PbMain" => "4",
00342 "Pcopy" => "4",
00343 "Peek" => "4",
00344 "Peek$" => "4",
00345 "Pointer" => "4",
00346 "Poke" => "4",
00347 "Poke$" => "4",
00348 "Port" => "4",
00349 "Preserve" => "4",
00350 "Print" => "4",
00351 "Print#" => "4",
00352 "Private" => "4",
00353 "Ptr" => "4",
00354 "Put" => "4",
00355 "Put$" => "4",
00356 "Quad" => "4",
00357 "Random" => "4",
00358 "Randomize" => "4",
00359 "Read" => "4",
00360 "Read$" => "4",
00361 "Recv" => "4",
00362 "ReDim" => "4",
00363 "RegExpr" => "4",
00364 "Register" => "4",
00365 "RegRepl" => "4",
00366 "Rem" => "4",
00367 "Remain$" => "4",
00368 "Remove$" => "4",
00369 "Repeat$" => "4",
00370 "Replace" => "4",
00371 "Reset" => "4",
00372 "Resume" => "4",
00373 "Ret16" => "4",
00374 "Ret32" => "4",
00375 "Ret87" => "4",
00376 "Retp16" => "4",
00377 "Retp32" => "4",
00378 "RetPrm" => "4",
00379 "Return" => "4",
00380 "Rgb" => "4",
00381 "Right" => "4",
00382 "Right$" => "4",
00383 "Ring" => "4",
00384 "Rlsd" => "4",
00385 "RmDir" => "4",
00386 "Rnd" => "4",
00387 "Rotate" => "4",
00388 "Round" => "4",
00389 "Rset" => "4",
00390 "Rtrim$" => "4",
00391 "RtsFlow" => "4",
00392 "RxBuffer" => "4",
00393 "RxQue" => "4",
00394 "Scan" => "4",
00395 "Screen" => "4",
00396 "ScreenAttr" => "4",
00397 "ScreenX" => "4",
00398 "ScreenY" => "4",
00399 "Scroll" => "4",
00400 "Sdecl" => "4",
00401 "Seek" => "4",
00402 "Select" => "4",
00403 "Send" => "4",
00404 "Set" => "4",
00405 "SetAttr" => "4",
00406 "SetEof" => "4",
00407 "Sgn" => "4",
00408 "Shared" => "4",
00409 "Shell" => "4",
00410 "Shift" => "4",
00411 "Signed" => "4",
00412 "Sin" => "4",
00413 "Single" => "4",
00414 "SizeOf" => "4",
00415 "Sleep" => "4",
00416 "Sort" => "4",
00417 "Space$" => "4",
00418 "Spc" => "4",
00419 "Sqr" => "4",
00420 "Static" => "4",
00421 "Status" => "4",
00422 "StdCall" => "4",
00423 "StdEof" => "4",
00424 "StdErr" => "4",
00425 "StdIn" => "4",
00426 "StdOut" => "4",
00427 "Step" => "4",
00428 "Str$" => "4",
00429 "StrDelete$" => "4",
00430 "String" => "4",
00431 "String$" => "4",
00432 "StrInsert$" => "4",
00433 "Stop" => "4",
00434 "StrPtr" => "4",
00435 "StrReverse$" => "4",
00436 "Sub" => "4",
00437 "Suspend" => "4",
00438 "Swap" => "4",
00439 "Tab" => "4",
00440 "TagArray" => "4",
00441 "Tally" => "4",
00442 "Tan" => "4",
00443 "Tcp" => "4",
00444 "Then" => "4",
00445 "Thread" => "4",
00446 "Time$" => "4",
00447 "TimeOut" => "4",
00448 "Timer" => "4",
00449 "To" => "4",
00450 "Toggle" => "4",
00451 "Trim$" => "4",
00452 "Trn" => "4",
00453 "Type" => "4",
00454 "TxBuffer" => "4",
00455 "TxQue" => "4",
00456 "UBound" => "4",
00457 "Ucase" => "4",
00458 "UCase$" => "4",
00459 "Udp" => "4",
00460 "Union" => "4",
00461 "UnLock" => "4",
00462 "Until" => "4",
00463 "Up" => "4",
00464 "Using" => "4",
00465 "Val" => "4",
00466 "VarPtr" => "4",
00467 "Verify" => "4",
00468 "Version3" => "4",
00469 "Version4" => "4",
00470 "Version5" => "4",
00471 "WaitKey$" => "4",
00472 "WaitStat" => "4",
00473 "Wend" => "4",
00474 "While" => "4",
00475 "Width" => "4",
00476 "With" => "4",
00477 "Word" => "4",
00478 "Write" => "4",
00479 "XinpFlow" => "4",
00480 "XoutFlow" => "4",
00481 "Xor" => "4",
00482 "Zer" => "4");
00483
00484
00485
00486
00487
00488
00489
00490
00491 $this->linkscripts = array(
00492 "1" => "donothing",
00493 "2" => "donothing",
00494 "3" => "donothing",
00495 "4" => "donothing");
00496 }
00497
00498
00499 function donothing($keywordin)
00500 {
00501 return $keywordin;
00502 }
00503
00504 }?>