Mercurial > vim
comparison runtime/syntax/opl.vim @ 7:3fc0f57ecb91 v7.0001
updated for version 7.0001
author | vimboss |
---|---|
date | Sun, 13 Jun 2004 20:20:40 +0000 |
parents | |
children | 7bc41231fbc7 |
comparison
equal
deleted
inserted
replaced
6:c2daee826b8f | 7:3fc0f57ecb91 |
---|---|
1 " Vim syntax file | |
2 " Language: OPL | |
3 " Maintainer: Czo <Olivier.Sirol@lip6.fr> | |
4 " $Id$ | |
5 | |
6 " Open Psion Language... (EPOC16/EPOC32) | |
7 | |
8 " For version 5.x: Clear all syntax items | |
9 " For version 6.x: Quit when a syntax file was already loaded | |
10 if version < 600 | |
11 syntax clear | |
12 elseif exists("b:current_syntax") | |
13 finish | |
14 endif | |
15 | |
16 " case is not significant | |
17 syn case ignore | |
18 | |
19 " A bunch of useful OPL keywords | |
20 syn keyword OPLStatement proc endp abs acos addr adjustalloc alert alloc app | |
21 syn keyword OPLStatement append appendsprite asc asin at atan back beep | |
22 syn keyword OPLStatement begintrans bookmark break busy byref cache | |
23 syn keyword OPLStatement cachehdr cacherec cachetidy call cancel caption | |
24 syn keyword OPLStatement changesprite chr$ clearflags close closesprite cls | |
25 syn keyword OPLStatement cmd$ committrans compact compress const continue | |
26 syn keyword OPLStatement copy cos count create createsprite cursor | |
27 syn keyword OPLStatement datetosecs datim$ day dayname$ days daystodate | |
28 syn keyword OPLStatement dbuttons dcheckbox dchoice ddate declare dedit | |
29 syn keyword OPLStatement deditmulti defaultwin deg delete dfile dfloat | |
30 syn keyword OPLStatement dialog diaminit diampos dinit dir$ dlong do dow | |
31 syn keyword OPLStatement dposition drawsprite dtext dtime dxinput edit else | |
32 syn keyword OPLStatement elseif enda endif endv endwh entersend entersend0 | |
33 syn keyword OPLStatement eof erase err err$ errx$ escape eval exist exp ext | |
34 syn keyword OPLStatement external find findfield findlib first fix$ flags | |
35 syn keyword OPLStatement flt font freealloc gat gborder gbox gbutton | |
36 syn keyword OPLStatement gcircle gclock gclose gcls gcolor gcopy gcreate | |
37 syn keyword OPLStatement gcreatebit gdrawobject gellipse gen$ get get$ | |
38 syn keyword OPLStatement getcmd$ getdoc$ getevent getevent32 geteventa32 | |
39 syn keyword OPLStatement geteventc getlibh gfill gfont ggmode ggrey gheight | |
40 syn keyword OPLStatement gidentity ginfo ginfo32 ginvert giprint glineby | |
41 syn keyword OPLStatement glineto gloadbit gloadfont global gmove gorder | |
42 syn keyword OPLStatement goriginx goriginy goto gotomark gpatt gpeekline | |
43 syn keyword OPLStatement gpoly gprint gprintb gprintclip grank gsavebit | |
44 syn keyword OPLStatement gscroll gsetpenwidth gsetwin gstyle gtmode gtwidth | |
45 syn keyword OPLStatement gunloadfont gupdate guse gvisible gwidth gx | |
46 syn keyword OPLStatement gxborder gxprint gy hex$ hour iabs icon if include | |
47 syn keyword OPLStatement input insert int intf intrans key key$ keya keyc | |
48 syn keyword OPLStatement killmark kmod last lclose left$ len lenalloc | |
49 syn keyword OPLStatement linklib ln loadlib loadm loc local lock log lopen | |
50 syn keyword OPLStatement lower$ lprint max mcard mcasc mean menu mid$ min | |
51 syn keyword OPLStatement minit minute mkdir modify month month$ mpopup | |
52 syn keyword OPLStatement newobj newobjh next notes num$ odbinfo off onerr | |
53 syn keyword OPLStatement open openr opx os parse$ path pause peek pi | |
54 syn keyword OPLStatement pointerfilter poke pos position possprite print | |
55 syn keyword OPLStatement put rad raise randomize realloc recsize rename | |
56 syn keyword OPLStatement rept$ return right$ rmdir rnd rollback sci$ screen | |
57 syn keyword OPLStatement screeninfo second secstodate send setdoc setflags | |
58 syn keyword OPLStatement setname setpath sin space sqr statuswin | |
59 syn keyword OPLStatement statwininfo std stop style sum tan testevent trap | |
60 syn keyword OPLStatement type uadd unloadlib unloadm until update upper$ | |
61 syn keyword OPLStatement use usr usr$ usub val var vector week while year | |
62 " syn keyword OPLStatement rem | |
63 | |
64 | |
65 syn match OPLNumber "\<\d\+\>" | |
66 syn match OPLNumber "\<\d\+\.\d*\>" | |
67 syn match OPLNumber "\.\d\+\>" | |
68 | |
69 syn region OPLString start=+"+ end=+"+ | |
70 syn region OPLComment start="REM[\t ]" end="$" | |
71 syn match OPLMathsOperator "-\|=\|[:<>+\*^/\\]" | |
72 | |
73 " Define the default highlighting. | |
74 " For version 5.7 and earlier: only when not done already | |
75 " For version 5.8 and later: only when an item doesn't have highlighting yet | |
76 if version >= 508 || !exists("did_OPL_syntax_inits") | |
77 if version < 508 | |
78 let did_OPL_syntax_inits = 1 | |
79 command -nargs=+ HiLink hi link <args> | |
80 else | |
81 command -nargs=+ HiLink hi def link <args> | |
82 endif | |
83 | |
84 HiLink OPLStatement Statement | |
85 HiLink OPLNumber Number | |
86 HiLink OPLString String | |
87 HiLink OPLComment Comment | |
88 HiLink OPLMathsOperator Conditional | |
89 " HiLink OPLError Error | |
90 | |
91 delcommand HiLink | |
92 endif | |
93 | |
94 let b:current_syntax = "opl" | |
95 | |
96 " vim: ts=8 |