Mercurial > hg > RemoteEditor > vim7

comparison runtime/syntax/ibasic.vim @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
1 " Vim syntax file
2 " Language: ibasic
3 " Maintainer: Mark Manning <markem@airmail.net>
4 " Originator: Allan Kelly <Allan.Kelly@ed.ac.uk>
5 " Created: 10/1/2006
6 " Updated: 10/21/2006
7 " Description: A vim file to handle the IBasic file format.
8 " Notes:
9 " Updated by Mark Manning <markem@airmail.net>
10 " Applied IBasic support to the already excellent support for standard
11 " basic syntax (like QB).
12 "
13 " First version based on Micro$soft QBASIC circa 1989, as documented in
14 " 'Learn BASIC Now' by Halvorson&Rygmyr. Microsoft Press 1989.
15 " This syntax file not a complete implementation yet.
16 " Send suggestions to the maintainer.
17 "
18 " This version is based upon the commands found in IBasic (www.pyxia.com).
19 " MEM 10/6/2006
20 "
21 " Quit when a (custom) syntax file was already loaded (Taken from c.vim)
22 "
23 if exists("b:current_syntax")
24 finish
25 endif
26 "
27 " Be sure to turn on the "case ignore" since current versions of basic
28 " support both upper as well as lowercase letters.
29 "
30 syn case ignore
31 "
32 " A bunch of useful BASIC keywords
33 "
34 syn keyword ibasicStatement beep bload bsave call absolute chain chdir circle
35 syn keyword ibasicStatement clear close cls color com common const data
36 syn keyword ibasicStatement loop draw end environ erase error exit field
37 syn keyword ibasicStatement files function get gosub goto
38 syn keyword ibasicStatement input input# ioctl key kill let line locate
39 syn keyword ibasicStatement lock unlock lprint using lset mkdir name
40 syn keyword ibasicStatement on error open option base out paint palette pcopy
41 syn keyword ibasicStatement pen play pmap poke preset print print# using pset
42 syn keyword ibasicStatement put randomize read redim reset restore resume
43 syn keyword ibasicStatement return rmdir rset run seek screen
44 syn keyword ibasicStatement shared shell sleep sound static stop strig sub
45 syn keyword ibasicStatement swap system timer troff tron type unlock
46 syn keyword ibasicStatement view wait width window write
47 syn keyword ibasicStatement date$ mid$ time$
48 "
49 " Do the basic variables names first. This is because it
50 " is the most inclusive of the tests. Later on we change
51 " this so the identifiers are split up into the various
52 " types of identifiers like functions, basic commands and
53 " such. MEM 9/9/2006
54 "
55 syn match ibasicIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
56 syn match ibasicGenericFunction "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1
57 "
58 " Function list
59 "
60 syn keyword ibasicBuiltInFunction abs asc atn cdbl cint clng cos csng csrlin cvd cvdmbf
61 syn keyword ibasicBuiltInFunction cvi cvl cvs cvsmbf eof erdev erl err exp fileattr
62 syn keyword ibasicBuiltInFunction fix fre freefile inp instr lbound len loc lof
63 syn keyword ibasicBuiltInFunction log lpos mod peek pen point pos rnd sadd screen seek
64 syn keyword ibasicBuiltInFunction setmem sgn sin spc sqr stick strig tab tan ubound
65 syn keyword ibasicBuiltInFunction val valptr valseg varptr varseg
66 syn keyword ibasicBuiltInFunction chr\$ command$ date$ environ$ erdev$ hex$ inkey$
67 syn keyword ibasicBuiltInFunction input$ ioctl$ lcases$ laft$ ltrim$ mid$ mkdmbf$ mkd$
68 syn keyword ibasicBuiltInFunction mki$ mkl$ mksmbf$ mks$ oct$ right$ rtrim$ space$
69 syn keyword ibasicBuiltInFunction str$ string$ time$ ucase$ varptr$
70 syn keyword ibasicTodo contained TODO
71 syn cluster ibasicFunctionCluster contains=ibasicBuiltInFunction,ibasicGenericFunction
72
73 syn keyword Conditional if else then elseif endif select case endselect
74 syn keyword Repeat for do while next enddo endwhile wend
75
76 syn keyword ibasicTypeSpecifier single double defdbl defsng
77 syn keyword ibasicTypeSpecifier int integer uint uinteger int64 uint64 defint deflng
78 syn keyword ibasicTypeSpecifier byte char string istring defstr
79 syn keyword ibasicDefine dim def declare
80 "
81 "catch errors caused by wrong parenthesis
82 "
83 syn cluster ibasicParenGroup contains=ibasicParenError,ibasicIncluded,ibasicSpecial,ibasicTodo,ibasicUserCont,ibasicUserLabel,ibasicBitField
84 syn region ibasicParen transparent start='(' end=')' contains=ALLBUT,@bParenGroup
85 syn match ibasicParenError ")"
86 syn match ibasicInParen contained "[{}]"
87 "
88 "integer number, or floating point number without a dot and with "f".
89 "
90 syn region ibasicHex start="&h" end="\W"
91 syn region ibasicHexError start="&h\x*[g-zG-Z]" end="\W"
92 syn match ibasicInteger "\<\d\+\(u\=l\=\|lu\|f\)\>"
93 "
94 "floating point number, with dot, optional exponent
95 "
96 syn match ibasicFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
97 "
98 "floating point number, starting with a dot, optional exponent
99 "
100 syn match ibasicFloat "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
101 "
102 "floating point number, without dot, with exponent
103 "
104 syn match ibasicFloat "\<\d\+e[-+]\=\d\+[fl]\=\>"
105 "
106 "hex number
107 "
108 syn match ibasicIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
109 syn match ibasicFunction "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1
110 syn case match
111 syn match ibasicOctalError "\<0\o*[89]"
112 "
113 " String and Character contstants
114 "
115 syn region ibasicString start='"' end='"' contains=ibasicSpecial,ibasicTodo
116 syn region ibasicString start="'" end="'" contains=ibasicSpecial,ibasicTodo
117 "
118 " Comments
119 "
120 syn match ibasicSpecial contained "\\."
121 syn region ibasicComment start="^rem" end="$" contains=ibasicSpecial,ibasicTodo
122 syn region ibasicComment start=":\s*rem" end="$" contains=ibasicSpecial,ibasicTodo
123 syn region ibasicComment start="\s*'" end="$" contains=ibasicSpecial,ibasicTodo
124 syn region ibasicComment start="^'" end="$" contains=ibasicSpecial,ibasicTodo
125 "
126 " Now do the comments and labels
127 "
128 syn match ibasicLabel "^\d"
129 syn region ibasicLineNumber start="^\d" end="\s"
130 "
131 " Pre-compiler options : FreeBasic
132 "
133 syn region ibasicPreCondit start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=ibasicString,ibasicCharacter,ibasicNumber,ibasicCommentError,ibasicSpaceError
134 syn match ibasicInclude "^\s*#\s*include\s*"
135 "
136 " Create the clusters
137 "
138 syn cluster ibasicNumber contains=ibasicHex,ibasicInteger,ibasicFloat
139 syn cluster ibasicError contains=ibasicHexError
140 "
141 " Used with OPEN statement
142 "
143 syn match ibasicFilenumber "#\d\+"
144 "
145 "syn sync ccomment ibasicComment
146 "
147 syn match ibasicMathOperator "[\+\-\=\|\*\/\>\<\%\()[\]]" contains=ibasicParen
148 "
149 " The default methods for highlighting. Can be overridden later
150 "
151 hi def link ibasicLabel Label
152 hi def link ibasicConditional Conditional
153 hi def link ibasicRepeat Repeat
154 hi def link ibasicHex Number
155 hi def link ibasicInteger Number
156 hi def link ibasicFloat Number
157 hi def link ibasicError Error
158 hi def link ibasicHexError Error
159 hi def link ibasicStatement Statement
160 hi def link ibasicString String
161 hi def link ibasicComment Comment
162 hi def link ibasicLineNumber Comment
163 hi def link ibasicSpecial Special
164 hi def link ibasicTodo Todo
165 hi def link ibasicGenericFunction Function
166 hi def link ibasicBuiltInFunction Function
167 hi def link ibasicTypeSpecifier Type
168 hi def link ibasicDefine Type
169 hi def link ibasicInclude Include
170 hi def link ibasicIdentifier Identifier
171 hi def link ibasicFilenumber ibasicTypeSpecifier
172 hi def link ibasicMathOperator Operator
173
174 let b:current_syntax = "ibasic"
175
176 " vim: ts=8