]>
src.bluestatic.org Git - viewsvn.git/blob - includes/geshi/geshi/qbasic.php
2 /*************************************************************************************
5 * Author: Nigel McNie (oracle.shinoda@gmail.com)
6 * Copyright: (c) 2004 Nigel McNie (http://qbnz.com/highlighter/)
7 * Release Version: 1.0.7.5
8 * CVS Revision Version: $Revision: 1.6 $
9 * Date Started: 2004/06/20
10 * Last Modified: $Date: 2005/10/22 07:52:59 $
12 * QBasic/QuickBASIC language file for GeSHi.
17 * - Added support for multiple object splitters
19 * - Added support for URLs
21 * - Added support for symbols
22 * - Removed unnessecary slashes from some keywords
26 * TODO (updated 2004/11/27)
27 * -------------------------
28 * * Make sure all possible combinations of keywords with
29 * a space in them (EXIT FOR, END SELECT) are added
30 * to the first keyword group
31 * * Update colours, especially for the first keyword group
33 *************************************************************************************
35 * This file is part of GeSHi.
37 * GeSHi is free software; you can redistribute it and/or modify
38 * it under the terms of the GNU General Public License as published by
39 * the Free Software Foundation; either version 2 of the License, or
40 * (at your option) any later version.
42 * GeSHi is distributed in the hope that it will be useful,
43 * but WITHOUT ANY WARRANTY; without even the implied warranty of
44 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
45 * GNU General Public License for more details.
47 * You should have received a copy of the GNU General Public License
48 * along with GeSHi; if not, write to the Free Software
49 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
51 ************************************************************************************/
52 $language_data = array (
53 'LANG_NAME' => 'QBasic/QuickBASIC',
54 'COMMENT_SINGLE' => array(1 => "'", 2 => ' REM', 3 => "\tREM"),
55 'COMMENT_MULTI' => array(),
56 'CASE_KEYWORDS' => GESHI_CAPS_UPPER
,
57 'QUOTEMARKS' => array('"'),
61 'DO', 'LOOP', 'WHILE', 'WEND', 'THEN', 'ELSE', 'ELSEIF', 'IF',
62 'FOR', 'TO', 'NEXT', 'STEP', 'GOTO', 'GOSUB', 'RETURN', 'RESUME', 'SELECT',
66 'ABS', 'ABSOLUTE', 'ACCESS', 'ALIAS', 'AND', 'ANY', 'APPEND', 'AS', 'ASC', 'ATN',
67 'BASE', 'BEEP', 'BINARY', 'BLOAD', 'BSAVE', 'BYVAL', 'CALL', 'CALLS', 'CASE',
68 'CDBL', 'CDECL', 'CHAIN', 'CHDIR', 'CHDIR', 'CHR$', 'CINT
', 'CIRCLE
', 'CLEAR
',
69 'CLNG
', 'CLOSE
', 'CLS
', 'COM
', 'COMMAND
$', 'COMMON', 'CONST', 'COS', 'CSNG',
70 'CSRLIN', 'CVD', 'CVDMBF', 'CVI', 'CVL', 'CVS', 'CVSMDF', 'DATA', 'DATE$',
71 'DECLARE', 'DEF
', 'FN
', 'SEG
', 'DEFDBL
', 'DEFINT
', 'DEFLNG
', 'DEFSNG
', 'DEFSTR
',
72 'DIM
', 'DOUBLE', 'DRAW
', 'END
', 'ENVIRON
', 'ENVIRON
$', 'EOF', 'EQV', 'ERASE',
73 'ERDEV', 'ERDEV$', 'ERL
', 'ERR
', 'ERROR
', 'EXIT', 'EXP
', 'FIELD
', 'FILEATTR
',
74 'FILES
', 'FIX
', 'FRE
', 'FREEFILE
', 'FUNCTION', 'GET
', 'HEX
$', 'IMP', 'INKEY$',
75 'INP
', 'INPUT
', 'INPUT
$', 'INSTR', 'INT', 'INTEGER', 'IOCTL', 'IOCTL$', 'IS
',
76 'KEY
', 'KILL
', 'LBOUND
', 'LCASE
$', 'LEFT$', 'LEN
', 'LET
', 'LINE
', 'LIST', 'LOC
',
77 'LOCAL
', 'LOCATE
', 'LOCK
', 'LOF
', 'LOG
', 'UNLOCK
', 'LONG
', 'LPOS
', 'LPRINT
',
78 'LSET
', 'LTRIM
$', 'MID$', 'MKD
$', 'MKDIR', 'MKDMBF$', 'MKI
$', 'MKL$',
79 'MKS
$', 'MKSMBF$', 'MOD
', 'NAME
', 'NOT
', 'OCT
$', 'OFF', 'ON', 'PEN', 'PLAY',
80 'STRIG', 'TIMER', 'UEVENT', 'OPEN', 'OPTION', 'BASE', 'OR', 'OUT', 'OUTPUT',
81 'PAINT', 'PALETTE', 'PCOPY', 'PEEK', 'PMAP', 'POINT', 'POKE', 'POS', 'PRESET',
82 'PRINT', 'USING', 'PSET', 'PUT', 'RANDOM', 'RANDOMIZE', 'READ', 'REDIM', 'RESET',
83 'RESTORE', 'RIGHT$', 'RMDIR
', 'RND
', 'RSET
', 'RTRIM
$', 'RUN', 'SADD', 'SCREEN',
84 'SEEK', 'SETMEM', 'SGN', 'SHARED', 'SHELL', 'SIGNAL', 'SIN', 'SINGLE', 'SLEEP',
85 'SOUND', 'SPACE$', 'SPC
', 'SQR
', 'STATIC', 'STICK
', 'STOP
', 'STR
$', 'STRIG',
86 'STRING', 'STRING$', 'SUB
', 'SWAP
', 'SYSTEM
', 'TAB
', 'TAN
', 'TIME
$', 'TIMER',
87 'TROFF', 'TRON', 'TYPE', 'UBOUND', 'UCASE$', 'UEVENT
', 'UNLOCK
', 'USING
', 'VAL
',
88 'VARPTR
', 'VARPTR
$', 'VARSEG', 'VIEW', 'WAIT', 'WIDTH', 'WINDOW', 'WRITE', 'XOR'
94 'CASE_SENSITIVE' => array(
95 GESHI_COMMENTS
=> false,
101 1 => 'color: #a1a100;',
102 3 => 'color: #000066;'
105 1 => 'color: #808080;',
106 2 => 'color: #808080;',
107 3 => 'color: #808080;'
110 0 => 'color: #66cc66;'
113 0 => 'color: #ff0000;'
116 0 => 'color: #cc66cc;'
121 0 => 'color: #66cc66;'
123 'ESCAPE_CHAR' => array(
124 0 => 'color: #000099;'
133 3 => 'http://www.qbasicnews.com/qboho/qck{FNAME}.shtml'
136 'OBJECT_SPLITTERS' => array(
140 'STRICT_MODE_APPLIES' => GESHI_NEVER
,
141 'SCRIPT_DELIMITERS' => array(
143 'HIGHLIGHT_STRICT_BLOCK' => array(