" Vim syntax file
" Language: R (GNU S)
" Maintainer: Vaidotas Zemlys <zemlys@gmail.com>
" Maintainer2 rwxrwx phiendster@gmail.com
" Last Change: 2006 Apr 30
" Filenames: *.R *.Rout *.r *.Rhistory *.Rt *.Rout.save *.Rout.fail
" URL:
http://uosis.mif.vu.lt/~zemlys/vim-syntax/r.vim
" First maintainer Tom Payne <tom@tompayne.org>
" Modified to make syntax less colourful and added the highlighting of
" R assignment arrow
" ---------------------------------------------------------------------
" Load Once: {{{1
" For vim-version 5.x: Clear all syntax items
" For vim-version 6.x: Quit when a syntax file was already loaded
if version < 600
syntax clear
elseif exists("b:current_syntax")
finish
endif
if version >= 600
setlocal iskeyword=@,48-57,_,.
else
set iskeyword=@,48-57,_,.
endif
" ---------------------------------------------------------------------
" Clusters: {{{1
" syn cluster rPackageCluster contains=/rPackage\w*/
" ---------------------------------------------------------------------
" Comment: {{{1
syn match rComment /\#.*/
" ---------------------------------------------------------------------
" Constant: {{{1
" string enclosed in double quotes
syn region rString start=/"/ skip=/\\\\\|\\"/ end=/"/
" string enclosed in single quotes
syn region rString start=/'/ skip=/\\\\\|\\'/ end=/'/
" number with no fractional part or exponent
syn match rNumber /\d\+/
" floating point number with integer and fractional parts and optional exponent
syn match rFloat /\d\+\.\d*\([Ee][-+]\=\d\+\)\=/
" floating point number with no integer part and optional exponent
syn match rFloat /\.\d\+\([Ee][-+]\=\d\+\)\=/
" floating point number with no fractional part and optional exponent
syn match rFloat /\d\+[Ee][-+]\=\d\+/
syn keyword rBuiltInConstant LETTERS letters month.abb pi
syn keyword rConstant NULL
syn keyword rBoolean FALSE TRUE
syn keyword rNumber NA
" ---------------------------------------------------------------------
" Identifier: {{{1
" identifier with leading letter and optional following keyword characters
syn match rNormal /\a\k*/
" identifier with leading period, one or more digits, and at least one non-digit keyword character
syn match rNormal /\.\d*\K\k*/
" function
syn match rFunction /\<as\.array\>/
syn match rFunction /\<as\.call\>/
syn match rFunction /\<as\.complex\>/
syn match rFunction /\<as\.Date\>/
syn match rFunction /\<as\.difftime\>/
syn match rFunction /\<as\.environment\>/
syn match rFunction /\<as\.expression\>/
syn match rFunction /\<as\.factor\>/
syn match rFunction /\<as\.function\>/
syn match rFunction /\<as\.hexmode\>/
syn match rFunction /\<as\.integer\>/
syn match rFunction /\<as\.logical\>/
syn match rFunction /\<as\.name\>/
syn match rFunction /\<as\.null\>/
syn match rFunction /\<as\.numeric\>/
syn match rFunction /\<as\.numeric_version\>/
syn match rFunction /\<as\.octmode\>/
syn match rFunction /\<as\.ordered\>/
syn match rFunction /\<as\.package_version\>/
syn match rFunction /\<as\.pairlist\>/
syn match rFunction /\<as\.POSIXct\>/
syn match rFunction /\<as\.POSIXlt\>/
syn match rFunction /\<as\.qr\>/
syn match rFunction /\<as\.raw\>/
syn match rFunction /\<as\.real\>/
syn match rFunction /\<as\.single\>/
syn match rFunction /\<as\.symbol\>/
syn match rFunction /\<as\.table\>/
syn match rFunction /\<as\.vector\>/
syn region rNormal matchgroup=rFunction start=/\<abbreviate(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<abs(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<acos(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<acosh(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<addNA(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<agrep(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<alist(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<asin(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<asinh(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<atan(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<atan2(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<atanh(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/\<[dpqr]\(unif\|binom\|cauchy\|chisq\|exp\|f\|gamma\|geom\|hyper\|logis\|lnorm\|nbinom\|norm\|pois\|signrank\|t\|weibull\|wilcox\)(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/[dr]multinom(/ end=/)/ contains=ALL
syn region rNormal matchgroup=rFunction start=/[pq]tukey(/ end=/)/ contains=ALL
syn keyword rFunctionArgument x q p n m nn k size prob mean min max lower.tail log.p log sd location scale df ncp rate df1 df2 shape meanlog sdlog lambda names.arg minlength use.classes dot strict method ifany pattern ignore.case value max.distance useBytes contained
syn keyword rFunction alist asin asinh atan atan2 atanh
syn keyword rFunction numeric_version package_version R_system_version getRversion
" ---------------------------------------------------------------------
" Statement: {{{1
syn keyword rStatement break next return
syn keyword rConditional if else
syn keyword rRepeat for in repeat while
syn match rOperator /[\*\!\$\%\&\+\-\<\>\=\^\|\~\`/:@]/
syn match rOperator /%o%\|%x%\|xor\|isTRUE/
" ---------------------------------------------------------------------
" PreProc: {{{1
syn keyword rPreProc library require
if !exists("g:r_base_only")
endif
" ---------------------------------------------------------------------
" Type: {{{1
syn keyword rType symbol pairlist closure environment promise language special builtin char logical integer double complex character ... any expression list bytecode externalptr weakref raw S4
" ---------------------------------------------------------------------
" Special: {{{1
syn match rDelimiter /[,;]/
" ---------------------------------------------------------------------
" Error: {{{1
"syn region rRegion matchgroup=Delimiter start=/(/ matchgroup=Delimiter end=/)/ transparent contains=ALLBUT,rError,rBraceError,rCurlyError
"syn region rRegion matchgroup=Delimiter start=/{/ matchgroup=Delimiter end=/}/ transparent contains=ALLBUT,rError,rBraceError,rParenError
"syn region rRegion matchgroup=Delimiter start=/\[/ matchgroup=Delimiter end=/]/ transparent contains=ALLBUT,rError,rCurlyError,rParenError
"syn match rError /[)\]}]/
"syn match rBraceError /[)}]/ contained
"syn match rCurlyError /[)\]]/ contained
"syn match rParenError /[\]}]/ contained
" ---------------------------------------------------------------------
" Define The Default Highlighting: {{{1
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_r_syn_inits")
if version < 508
let did_r_syn_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
HiLink rNormal Normal
HiLink rComment Comment
HiLink rBuiltInConstant Constant
HiLink rString String
HiLink rNumber Number
HiLink rBoolean Boolean
HiLink rFloat Float
"HiLink rHeuristic PreProc
HiLink rFunction Function
HiLink rStatement Statement
HiLink rPackageRODBC Statement
HiLink rPackageRODBC2 Function
HiLink rPackageChron Statement
HiLink rPackagerjson Statement
HiLink rConditional Conditional
HiLink rRepeat Repeat
HiLink rIdentifier Identifier
HiLink rOperator Operator
HiLink rConstant Constant
HiLink rFunctionArgument Special
HiLink rArithmeticOperator Operator
HiLink rRelationalOperator Operator
HiLink rAssignmentOperator Operator
HiLink rLogicalOperator Operator
HiLink rType Type
HiLink rDelimiter Delimiter
HiLink rError Error
HiLink rBraceError Error
HiLink rCurlyError Error
HiLink rParenError Error
HiLink rPreProc PreProc
delcommand HiLink
endif
let b:current_syntax="r"
" ---------------------------------------------------------------------
" vim: ts=8 fdm=marker
