36 * You should have received a copy of the GNU General Public License |
41 * You should have received a copy of the GNU General Public License |
37 * along with GeSHi; if not, write to the Free Software |
42 * along with GeSHi; if not, write to the Free Software |
38 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
43 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
39 * |
44 * |
40 ************************************************************************************/ |
45 ************************************************************************************/ |
41 $language_data = array ( |
46 |
42 'LANG_NAME' => 'Visual Basic', |
47 $language_data = array ( |
43 'COMMENT_SINGLE' => array(1 => "'"), |
48 'LANG_NAME' => 'Visual Basic', |
44 'COMMENT_MULTI' => array(), |
49 'COMMENT_SINGLE' => array(), |
45 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, |
50 'COMMENT_MULTI' => array(), |
46 'QUOTEMARKS' => array('"'), |
51 'COMMENT_REGEXP' => array( |
47 'ESCAPE_CHAR' => '', |
52 // Comments (either single or multiline with _ |
48 'KEYWORDS' => array( |
53 1 => '/\'.*(?<! _)\n/sU', |
49 1 => array( |
54 ), |
50 'as', 'err', 'boolean', 'and', 'or', 'recordset', 'unload', 'to', |
55 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, |
51 'integer','long','single','new','database','nothing','set','close', |
56 'QUOTEMARKS' => array(), |
52 'open','print','split','line','field','querydef','instrrev', |
57 'ESCAPE_CHAR' => '', |
53 'abs','array','asc','ascb','ascw','atn','avg','me', |
58 'KEYWORDS' => array( |
54 'cbool','cbyte','ccur','cdate','cdbl','cdec','choose','chr','chrb','chrw','cint','clng', |
59 1 => array( |
55 'command','cos','count','createobject','csng','cstr','curdir','cvar','cvdate','cverr', |
60 'AddressOf', 'Alias', 'And', 'Append', 'As', 'BF', 'Binary', |
56 'date','dateadd','datediff','datepart','dateserial','datevalue','day','ddb','dir','doevents', |
61 'Boolean', 'ByRef', 'Byte', 'ByVal', 'Call', 'Case', 'CBool', |
57 'environ','eof','error','exp', |
62 'CByte', 'CCur', 'CDate', 'CDbl', 'CDec', 'CInt', 'CLng', |
58 'fileattr','filedatetime','filelen','fix','format','freefile','fv', |
63 'Close', 'Collection', 'Const', 'Control', 'CSng', 'CStr', |
59 'getallstrings','getattr','getautoserversettings','getobject','getsetting', |
64 'Currency', 'CVar', 'Date', 'Declare', 'Dim', 'Do', 'Double', |
60 'hex','hour','iif','imestatus','input','inputb','inputbox','instr','instb','int','ipmt', |
65 'Each', 'Else', 'ElseIf', 'End', 'Enum', 'Erase', 'Error', |
61 'isarray','isdate','isempty','iserror','ismissing','isnull','isnumeric','isobject', |
66 'Event', 'Exit', 'Explicit', 'False', 'For', 'Friend', |
62 'lbound','lcase','left','leftb','len','lenb','loadpicture','loc','lof','log','ltrim', |
67 'Function', 'Get', 'GoSub', 'Goto', 'If', 'Implements', 'In', |
63 'max','mid','midb','min','minute','mirr','month','msgbox', |
68 'Input', 'Integer', 'Is', 'LBound', 'Let', 'Lib', 'Like', |
64 'now','nper','npv','oct','partition','pmt','ppmt','pv','qbcolor', |
69 'Line', 'Long', 'Loop', 'Mod', 'New', 'Next', 'Not', |
65 'rate','rgb','right','rightb','rnd','rtrim', |
70 'Nothing', 'Object', 'On', 'Open', 'Option', 'Optional', |
66 'second','seek','sgn','shell','sin','sln','space','spc','sqr','stdev','stdevp','str', |
71 'Or', 'Output', 'ParamArray', 'Preserve', 'Print', 'Private', |
67 'strcomp','strconv','string','switch','sum','syd', |
72 'Property', 'Public', 'RaiseEvent', 'Random', 'ReDim', |
68 'tab','tan','time','timer','timeserial','timevalue','trim','typename', |
73 'Resume', 'Select', 'Set', 'Single', 'Static', 'Step', |
69 'ubound','ucase','val','var','varp','vartype','weekday','year', |
74 'Stop', 'String', 'Sub', 'Then', 'To', 'True', 'Type', |
70 'appactivate','base','beep','call','case','chdir','chdrive','const', |
75 'TypeOf', 'UBound', 'Until', 'Variant', 'While', 'With', |
71 'declare','defbool','defbyte','defcur','defdate','defdbl','defdec','defint', |
76 'WithEvents', 'Xor' |
72 'deflng','defobj','defsng','defstr','deftype','defvar','deletesetting','dim','do', |
77 ) |
73 'else','elseif','end','enum','erase','event','exit','explicit', |
78 ), |
74 'false','filecopy','for','foreach','friend','function','get','gosub','goto', |
79 'SYMBOLS' => array( |
75 'if','implements','kill','let','lineinput','lock','loop','lset','mkdir','name','next','not', |
80 ), |
76 'onerror','on','option','private','property','public','put','raiseevent','randomize', |
81 'CASE_SENSITIVE' => array( |
77 'redim','rem','reset','resume','return','rmdir','rset', |
82 GESHI_COMMENTS => false, |
78 'savepicture','savesetting','sendkeys','setattr','static','sub', |
83 1 => false |
79 'then','true','type','unlock','wend','while','width','with','write', |
84 ), |
80 'vbabort','vbabortretryignore','vbapplicationmodal','vbarray', |
85 'STYLES' => array( |
81 'vbbinarycompare','vbblack','vbblue','vbboolean','vbbyte','vbcancel', |
86 'KEYWORDS' => array( |
82 'vbcr','vbcritical','vbcrlf','vbcurrency','vbcyan','vbdataobject', |
87 1 => 'color: #000080;' |
83 'vbdate','vbdecimal','vbdefaultbutton1','vbdefaultbutton2', |
88 ), |
84 'vbdefaultbutton3','vbdefaultbutton4','vbdouble','vbempty', |
89 'COMMENTS' => array( |
85 'vberror','vbexclamation','vbfirstfourdays','vbfirstfullweek', |
90 1 => 'color: #008000;' |
86 'vbfirstjan1','vbformfeed','vbfriday','vbgeneraldate','vbgreen', |
91 ), |
87 'vbignore','vbinformation','vbinteger','vblf','vblong','vblongdate', |
92 'BRACKETS' => array( |
88 'vblongtime','vbmagenta','vbmonday','vbnewline','vbno','vbnull', |
93 ), |
89 'vbnullchar','vbnullstring','vbobject','vbobjecterror','vbok','vbokcancel', |
94 'STRINGS' => array( |
90 'vbokonly','vbquestion','vbred','vbretry','vbretrycancel','vbsaturday', |
95 ), |
91 'vbshortdate','vbshorttime','vbsingle','vbstring','vbsunday', |
96 'NUMBERS' => array( |
92 'vbsystemmodal','vbtab','vbtextcompare','vbthursday','vbtuesday', |
97 ), |
93 'vbusesystem','vbusesystemdayofweek','vbvariant','vbverticaltab', |
98 'METHODS' => array( |
94 'vbwednesday','vbwhite','vbyellow','vbyes','vbyesno','vbyesnocancel', |
99 ), |
95 'vbnormal','vbdirectory' |
100 'SYMBOLS' => array( |
96 ) |
101 ), |
97 ), |
102 'ESCAPE_CHAR' => array( |
98 'SYMBOLS' => array( |
103 ), |
99 '(', ')' |
104 'SCRIPT' => array( |
100 ), |
105 ), |
101 'CASE_SENSITIVE' => array( |
106 'REGEXPS' => array( |
102 GESHI_COMMENTS => false, |
107 ) |
103 1 => false |
108 ), |
104 ), |
109 'URLS' => array( |
105 'STYLES' => array( |
110 1 => '' |
106 'KEYWORDS' => array( |
111 ), |
107 1 => 'color: #b1b100;' |
112 'OOLANG' => false, |
108 ), |
113 'OBJECT_SPLITTERS' => array( |
109 'COMMENTS' => array( |
114 ), |
110 1 => 'color: #808080;' |
115 'REGEXPS' => array( |
111 ), |
116 ), |
112 'BRACKETS' => array( |
117 'STRICT_MODE_APPLIES' => GESHI_NEVER, |
113 0 => 'color: #66cc66;' |
118 'SCRIPT_DELIMITERS' => array( |
114 ), |
119 ), |
115 'STRINGS' => array( |
120 'HIGHLIGHT_STRICT_BLOCK' => array( |
116 0 => 'color: #ff0000;' |
121 ), |
117 ), |
122 'PARSER_CONTROL' => array( |
118 'NUMBERS' => array( |
123 'ENABLE_FLAGS' => array( |
119 0 => 'color: #cc66cc;' |
124 'STRINGS' => GESHI_NEVER, |
120 ), |
125 'BRACKETS' => GESHI_NEVER, |
121 'METHODS' => array( |
126 'SYMBOLS' => GESHI_NEVER, |
122 1 => 'color: #66cc66;' |
127 'NUMBERS' => GESHI_NEVER |
123 ), |
128 ) |
124 'SYMBOLS' => array( |
129 ) |
125 0 => 'color: #66cc66;' |
|
126 ), |
|
127 'ESCAPE_CHAR' => array( |
|
128 0 => 'color: #000099;' |
|
129 ), |
|
130 'SCRIPT' => array( |
|
131 ), |
|
132 'REGEXPS' => array( |
|
133 ) |
|
134 ), |
|
135 'OOLANG' => true, |
|
136 'OBJECT_SPLITTERS' => array( |
|
137 1 => '.' |
|
138 ), |
|
139 'REGEXPS' => array( |
|
140 ), |
|
141 'STRICT_MODE_APPLIES' => GESHI_NEVER, |
|
142 'SCRIPT_DELIMITERS' => array( |
|
143 ), |
|
144 'HIGHLIGHT_STRICT_BLOCK' => array( |
|
145 ) |
|
146 ); |
130 ); |
147 |
131 |
148 ?> |
132 ?> |