codekingpro/portable-devtools

1" Vim syntax file2" Language:	OPL3" Maintainer:	Czo <Olivier.Sirol@lip6.fr>4" Last Change:	2012 Feb 03 by Thilo Six5" $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 loaded10if exists("b:current_syntax")11  finish12endif13 14let s:cpo_save = &cpo15set cpo&vim16 17" case is not significant18syn case ignore19 20" A bunch of useful OPL keywords21syn keyword OPLStatement proc endp abs acos addr adjustalloc alert alloc app22syn keyword OPLStatement append appendsprite asc asin at atan back beep23syn keyword OPLStatement begintrans bookmark break busy byref cache24syn keyword OPLStatement cachehdr cacherec cachetidy call cancel caption25syn keyword OPLStatement changesprite chr$ clearflags close closesprite cls26syn keyword OPLStatement cmd$ committrans compact compress const continue27syn keyword OPLStatement copy cos count create createsprite cursor28syn keyword OPLStatement datetosecs datim$ day dayname$ days daystodate29syn keyword OPLStatement dbuttons dcheckbox dchoice ddate declare dedit30syn keyword OPLStatement deditmulti defaultwin deg delete dfile dfloat31syn keyword OPLStatement dialog diaminit diampos dinit dir$ dlong do dow32syn keyword OPLStatement dposition drawsprite dtext dtime dxinput edit else33syn keyword OPLStatement elseif enda endif endv endwh entersend entersend034syn keyword OPLStatement eof erase err err$ errx$ escape eval exist exp ext35syn keyword OPLStatement external find findfield findlib first fix$ flags36syn keyword OPLStatement flt font freealloc gat gborder gbox gbutton37syn keyword OPLStatement gcircle gclock gclose gcls gcolor gcopy gcreate38syn keyword OPLStatement gcreatebit gdrawobject gellipse gen$ get get$39syn keyword OPLStatement getcmd$ getdoc$ getevent getevent32 geteventa3240syn keyword OPLStatement geteventc getlibh gfill gfont ggmode ggrey gheight41syn keyword OPLStatement gidentity ginfo ginfo32 ginvert giprint glineby42syn keyword OPLStatement glineto gloadbit gloadfont global gmove gorder43syn keyword OPLStatement goriginx goriginy goto gotomark gpatt gpeekline44syn keyword OPLStatement gpoly gprint gprintb gprintclip grank gsavebit45syn keyword OPLStatement gscroll gsetpenwidth gsetwin gstyle gtmode gtwidth46syn keyword OPLStatement gunloadfont gupdate guse gvisible gwidth gx47syn keyword OPLStatement gxborder gxprint gy hex$ hour iabs icon if include48syn keyword OPLStatement input insert int intf intrans key key$ keya keyc49syn keyword OPLStatement killmark kmod last lclose left$ len lenalloc50syn keyword OPLStatement linklib ln loadlib loadm loc local lock log lopen51syn keyword OPLStatement lower$ lprint max mcard mcasc mean menu mid$ min52syn keyword OPLStatement minit minute mkdir modify month month$ mpopup53syn keyword OPLStatement newobj newobjh next notes num$ odbinfo off onerr54syn keyword OPLStatement open openr opx os parse$ path pause peek pi55syn keyword OPLStatement pointerfilter poke pos position possprite print56syn keyword OPLStatement put rad raise randomize realloc recsize rename57syn keyword OPLStatement rept$ return right$ rmdir rnd rollback sci$ screen58syn keyword OPLStatement screeninfo second secstodate send setdoc setflags59syn keyword OPLStatement setname setpath sin space sqr statuswin60syn keyword OPLStatement statwininfo std stop style sum tan testevent trap61syn keyword OPLStatement type uadd unloadlib unloadm until update upper$62syn keyword OPLStatement use usr usr$ usub val var vector week while year63" syn keyword OPLStatement rem64 65 66syn match  OPLNumber		"\<\d\+\>"67syn match  OPLNumber		"\<\d\+\.\d*\>"68syn match  OPLNumber		"\.\d\+\>"69 70syn region  OPLString		start=+"+   end=+"+71syn region  OPLComment		start="REM[\t ]" end="$"72syn match   OPLMathsOperator    "-\|=\|[:<>+\*^/\\]"73 74" Define the default highlighting.75" Only when an item doesn't have highlighting yet76 77hi def link OPLStatement		Statement78hi def link OPLNumber		Number79hi def link OPLString		String80hi def link OPLComment		Comment81hi def link OPLMathsOperator	Conditional82"  hi def link OPLError		Error83 84 85let b:current_syntax = "opl"86 87let &cpo = s:cpo_save88unlet s:cpo_save89" vim: ts=890