1 <?php 2 /************************************************************************************* 3 * vb.php 4 * ------ 5 * Author: Roberto Rossi (rsoftware (at) altervista.org) 6 * Copyright: (c) 2004 Roberto Rossi (http://rsoftware.altervista.org), 7 * Nigel McNie (http://qbnz.com/highlighter) 8 * Release Version: 1.0.8.3 9 * Date Started: 2004/08/30 10 * 11 * Visual Basic language file for GeSHi. 12 * 13 * CHANGES 14 * ------- 15 * 2008/08/27 (1.0.8.1) 16 * - changed keyword list for better Visual Studio compliance 17 * 2008/08/26 (1.0.8.1) 18 * - Fixed multiline comments 19 * 2004/11/27 (1.0.1) 20 * - Added support for multiple object splitters 21 * 2004/08/30 (1.0.0) 22 * - First Release 23 * 24 * TODO (updated 2004/11/27) 25 * ------------------------- 26 * 27 ************************************************************************************* 28 * 29 * This file is part of GeSHi. 30 * 31 * GeSHi is free software; you can redistribute it and/or modify 32 * it under the terms of the GNU General Public License as published by 33 * the Free Software Foundation; either version 2 of the License, or 34 * (at your option) any later version. 35 * 36 * GeSHi is distributed in the hope that it will be useful, 37 * but WITHOUT ANY WARRANTY; without even the implied warranty of 38 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 39 * GNU General Public License for more details. 40 * 41 * You should have received a copy of the GNU General Public License 42 * along with GeSHi; if not, write to the Free Software 43 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 44 * 45 ************************************************************************************/ 46 47 $language_data = array ( 48 'LANG_NAME' => 'Visual Basic', 49 'COMMENT_SINGLE' => array(), 50 'COMMENT_MULTI' => array(), 51 'COMMENT_REGEXP' => array( 52 // Comments (either single or multiline with _ 53 1 => '/\'.*(?<! _)\n/sU', 54 ), 55 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, 56 'QUOTEMARKS' => array('"'), 57 'ESCAPE_CHAR' => '', 58 'KEYWORDS' => array( 59 1 => array( 60 'AddressOf', 'Alias', 'And', 'Append', 'As', 'BF', 'Binary', 61 'Boolean', 'ByRef', 'Byte', 'ByVal', 'Call', 'Case', 'CBool', 62 'CByte', 'CCur', 'CDate', 'CDbl', 'CDec', 'CInt', 'CLng', 63 'Close', 'Collection', 'Const', 'Control', 'CSng', 'CStr', 64 'Currency', 'CVar', 'Date', 'Declare', 'Dim', 'Do', 'Double', 65 'Each', 'Else', 'ElseIf', 'End', 'Enum', 'Erase', 'Error', 66 'Event', 'Exit', 'Explicit', 'False', 'For', 'Friend', 67 'Function', 'Get', 'GoSub', 'Goto', 'If', 'Implements', 'In', 68 'Input', 'Integer', 'Is', 'LBound', 'Let', 'Lib', 'Like', 69 'Line', 'Long', 'Loop', 'Mod', 'New', 'Next', 'Not', 70 'Nothing', 'Object', 'On', 'Open', 'Option', 'Optional', 71 'Or', 'Output', 'ParamArray', 'Preserve', 'Print', 'Private', 72 'Property', 'Public', 'RaiseEvent', 'Random', 'ReDim', 73 'Resume', 'Select', 'Set', 'Single', 'Static', 'Step', 74 'Stop', 'String', 'Sub', 'Then', 'To', 'True', 'Type', 75 'TypeOf', 'UBound', 'Until', 'Variant', 'While', 'With', 76 'WithEvents', 'Xor' 77 ) 78 ), 79 'SYMBOLS' => array( 80 ), 81 'CASE_SENSITIVE' => array( 82 GESHI_COMMENTS => false, 83 1 => false 84 ), 85 'STYLES' => array( 86 'KEYWORDS' => array( 87 1 => 'color: #000080;' 88 ), 89 'COMMENTS' => array( 90 1 => 'color: #008000;' 91 ), 92 'BRACKETS' => array( 93 ), 94 'STRINGS' => array( 95 0 => 'color: #800000;' 96 ), 97 'NUMBERS' => array( 98 ), 99 'METHODS' => array( 100 ), 101 'SYMBOLS' => array( 102 ), 103 'ESCAPE_CHAR' => array( 104 0 => 'color: #800000; font-weight: bold;' 105 ), 106 'SCRIPT' => array( 107 ), 108 'REGEXPS' => array( 109 ) 110 ), 111 'URLS' => array( 112 1 => '' 113 ), 114 'OOLANG' => false, 115 'OBJECT_SPLITTERS' => array( 116 ), 117 'REGEXPS' => array( 118 ), 119 'STRICT_MODE_APPLIES' => GESHI_NEVER, 120 'SCRIPT_DELIMITERS' => array( 121 ), 122 'HIGHLIGHT_STRICT_BLOCK' => array( 123 ), 124 'PARSER_CONTROL' => array( 125 'ENABLE_FLAGS' => array( 126 'BRACKETS' => GESHI_NEVER, 127 'SYMBOLS' => GESHI_NEVER, 128 'NUMBERS' => GESHI_NEVER 129 ) 130 ) 131 ); 132 133 ?>
