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_qbasic extends HFile{
00006 function HFile_qbasic(){
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");
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 "$DYNAMIC" => "1",
00046 "$INCLUDE" => "1",
00047 "$STATIC" => "1",
00048 "BLOAD" => "1",
00049 "BSAVE" => "1",
00050 "BYVAL" => "1",
00051 "CALL" => "1",
00052 "CASE" => "1",
00053 "CDECL" => "1",
00054 "CHAIN" => "1",
00055 "CHR$" => "1",
00056 "CIRCLE" => "1",
00057 "CLOSE" => "1",
00058 "CLS" => "1",
00059 "COLOR" => "1",
00060 "COM" => "1",
00061 "COMMAND" => "1",
00062 "COMMAND$" => "1",
00063 "COMMON" => "1",
00064 "CONST" => "1",
00065 "CTRL" => "1",
00066 "DAT" => "1",
00067 "DATA" => "1",
00068 "DATE$" => "1",
00069 "DECLARE" => "1",
00070 "DEF" => "1",
00071 "DEFINT" => "1",
00072 "DEFtype" => "1",
00073 "DGROUP" => "1",
00074 "DIM" => "1",
00075 "DOS" => "1",
00076 "DOUBLE" => "1",
00077 "DRAW" => "1",
00078 "EGA" => "1",
00079 "ELSE" => "1",
00080 "ELSEIF" => "1",
00081 "END" => "1",
00082 "ENVIRON$" => "1",
00083 "ERASE" => "1",
00084 "ERDEV" => "1",
00085 "ERDEV$" => "1",
00086 "ERROR" => "1",
00087 "EXIT" => "1",
00088 "FIELD" => "1",
00089 "FILEATTR" => "1",
00090 "FOR" => "1",
00091 "FUNCTION" => "1",
00092 "GET" => "1",
00093 "GOSUB" => "1",
00094 "GOTO" => "1",
00095 "IBM" => "1",
00096 "INKEY$" => "1",
00097 "INPUT" => "1",
00098 "INPUT$" => "1",
00099 "INSTR" => "1",
00100 "INTEGER" => "1",
00101 "INTERRUPT" => "1",
00102 "IOCTL" => "1",
00103 "IOCTL$" => "1",
00104 "LBOUND" => "1",
00105 "LEFT" => "1",
00106 "LEN" => "1",
00107 "LINE" => "1",
00108 "LOCATE" => "1",
00109 "LOCK" => "1",
00110 "LONG" => "1",
00111 "LOOP" => "1",
00112 "LPRINT" => "1",
00113 "LSET" => "1",
00114 "MCGA" => "1",
00115 "MID$" => "1",
00116 "NAME" => "1",
00117 "NEXT" => "1",
00118 "NOT" => "1",
00119 "OFF" => "1",
00120 "OPEN" => "1",
00121 "OPTION" => "1",
00122 "OUTPUT" => "1",
00123 "PALETTE" => "1",
00124 "PEN" => "1",
00125 "PLAY" => "1",
00126 "PRINT" => "1",
00127 "PSET" => "1",
00128 "PUT" => "1",
00129 "RANDOM" => "1",
00130 "RANDOMIZE" => "1",
00131 "READ" => "1",
00132 "README" => "1",
00133 "REDIM" => "1",
00134 "RESTORE" => "1",
00135 "RESUME" => "1",
00136 "RETURN" => "1",
00137 "RIGHT" => "1",
00138 "RIGHT$" => "1",
00139 "RSET" => "1",
00140 "SCREEN" => "1",
00141 "SEEK" => "1",
00142 "SEG" => "1",
00143 "SELECT" => "1",
00144 "SETMEM" => "1",
00145 "SHARED" => "1",
00146 "SHIFT" => "1",
00147 "SINGLE" => "1",
00148 "STATIC" => "1",
00149 "STEP" => "1",
00150 "STICK" => "1",
00151 "STOP" => "1",
00152 "STRIG" => "1",
00153 "STRING" => "1",
00154 "STRING$" => "1",
00155 "SUB" => "1",
00156 "THEN" => "1",
00157 "TIME$" => "1",
00158 "TIMER" => "1",
00159 "TYPE" => "1",
00160 "UBOUND" => "1",
00161 "UCASE$" => "1",
00162 "UEVENT" => "1",
00163 "UNLOCK" => "1",
00164 "UNTIL" => "1",
00165 "USING" => "1",
00166 "VARPTR" => "1",
00167 "VARPTR$" => "1",
00168 "VARSEG" => "1",
00169 "VGA" => "1",
00170 "VIEW" => "1",
00171 "WEND" => "1",
00172 "WHILE" => "1",
00173 "WIDTH" => "1",
00174 "WINDOW" => "1",
00175 "WRITE" => "1");
00176
00177
00178
00179
00180
00181
00182
00183
00184 $this->linkscripts = array(
00185 "1" => "donothing");
00186 }
00187
00188
00189 function donothing($keywordin)
00190 {
00191 return $keywordin;
00192 }
00193
00194 }?>