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