JezK
Edit File: lua.vim
" Vim syntax file " Language: Lua 4.0, Lua 5.0, Lua 5.1 and Lua 5.2 " Maintainer: Marcus Aurelius Farias <masserahguard-lua 'at' yahoo com> " First Author: Carlos Augusto Teixeira Mendes <cmendes 'at' inf puc-rio br> " Last Change: 2012 Aug 12 " Options: lua_version = 4 or 5 " lua_subversion = 0 (4.0, 5.0) or 1 (5.1) or 2 (5.2) " default 5.2 " quit when a syntax file was already loaded if exists("b:current_syntax") finish endif let s:cpo_save = &cpo set cpo&vim if !exists("lua_version") " Default is lua 5.2 let lua_version = 5 let lua_subversion = 2 elseif !exists("lua_subversion") " lua_version exists, but lua_subversion doesn't. So, set it to 0 let lua_subversion = 0 endif syn case match " syncing method syn sync minlines=100 " Comments syn keyword luaTodo contained TODO FIXME XXX syn match luaComment "--.*$" contains=luaTodo,@Spell if lua_version == 5 && lua_subversion == 0 syn region luaComment matchgroup=luaComment start="--\[\[" end="\]\]" contains=luaTodo,luaInnerComment,@Spell syn region luaInnerComment contained transparent start="\[\[" end="\]\]" elseif lua_version > 5 || (lua_version == 5 && lua_subversion >= 1) " Comments in Lua 5.1: --[[ ... ]], [=[ ... ]=], [===[ ... ]===], etc. syn region luaComment matchgroup=luaComment start="--\[\z(=*\)\[" end="\]\z1\]" contains=luaTodo,@Spell endif " First line may start with #! syn match luaComment "\%^#!.*" " catch errors caused by wrong parenthesis and wrong curly brackets or " keywords placed outside their respective blocks syn region luaParen transparent start='(' end=')' contains=ALLBUT,luaParenError,luaTodo,luaSpecial,luaIfThen,luaElseifThen,luaElse,luaThenEnd,luaBlock,luaLoopBlock,luaIn,luaStatement syn region luaTableBlock transparent matchgroup=luaTable start="{" end="}" contains=ALLBUT,luaBraceError,luaTodo,luaSpecial,luaIfThen,luaElseifThen,luaElse,luaThenEnd,luaBlock,luaLoopBlock,luaIn,luaStatement syn match luaParenError ")" syn match luaBraceError "}" syn match luaError "\<\%(end\|else\|elseif\|then\|until\|in\)\>" " function ... end syn region luaFunctionBlock transparent matchgroup=luaFunction start="\<function\>" end="\<end\>" contains=ALLBUT,luaTodo,luaSpecial,luaElseifThen,luaElse,luaThenEnd,luaIn " if ... then syn region luaIfThen transparent matchgroup=luaCond start="\<if\>" end="\<then\>"me=e-4 contains=ALLBUT,luaTodo,luaSpecial,luaElseifThen,luaElse,luaIn nextgroup=luaThenEnd skipwhite skipempty " then ... end syn region luaThenEnd contained transparent matchgroup=luaCond start="\<then\>" end="\<end\>" contains=ALLBUT,luaTodo,luaSpecial,luaThenEnd,luaIn " elseif ... then syn region luaElseifThen contained transparent matchgroup=luaCond start="\<elseif\>" end="\<then\>" contains=ALLBUT,luaTodo,luaSpecial,luaElseifThen,luaElse,luaThenEnd,luaIn " else syn keyword luaElse contained else " do ... end syn region luaBlock transparent matchgroup=luaStatement start="\<do\>" end="\<end\>" contains=ALLBUT,luaTodo,luaSpecial,luaElseifThen,luaElse,luaThenEnd,luaIn " repeat ... until syn region luaLoopBlock transparent matchgroup=luaRepeat start="\<repeat\>" end="\<until\>" contains=ALLBUT,luaTodo,luaSpecial,luaElseifThen,luaElse,luaThenEnd,luaIn " while ... do syn region luaLoopBlock transparent matchgroup=luaRepeat start="\<while\>" end="\<do\>"me=e-2 contains=ALLBUT,luaTodo,luaSpecial,luaIfThen,luaElseifThen,luaElse,luaThenEnd,luaIn nextgroup=luaBlock skipwhite skipempty " for ... do and for ... in ... do syn region luaLoopBlock transparent matchgroup=luaRepeat start="\<for\>" end="\<do\>"me=e-2 contains=ALLBUT,luaTodo,luaSpecial,luaIfThen,luaElseifThen,luaElse,luaThenEnd nextgroup=luaBlock skipwhite skipempty syn keyword luaIn contained in " other keywords syn keyword luaStatement return local break if lua_version > 5 || (lua_version == 5 && lua_subversion >= 2) syn keyword luaStatement goto syn match luaLabel "::\I\i*::" endif syn keyword luaOperator and or not syn keyword luaConstant nil if lua_version > 4 syn keyword luaConstant true false endif " Strings if lua_version < 5 syn match luaSpecial contained "\\[\\abfnrtv\'\"]\|\\[[:digit:]]\{,3}" elseif lua_version == 5 if lua_subversion == 0 syn match luaSpecial contained #\\[\\abfnrtv'"[\]]\|\\[[:digit:]]\{,3}# syn region luaString2 matchgroup=luaString start=+\[\[+ end=+\]\]+ contains=luaString2,@Spell else if lua_subversion == 1 syn match luaSpecial contained #\\[\\abfnrtv'"]\|\\[[:digit:]]\{,3}# else " Lua 5.2 syn match luaSpecial contained #\\[\\abfnrtvz'"]\|\\x[[:xdigit:]]\{2}\|\\[[:digit:]]\{,3}# endif syn region luaString2 matchgroup=luaString start="\[\z(=*\)\[" end="\]\z1\]" contains=@Spell endif endif syn region luaString start=+'+ end=+'+ skip=+\\\\\|\\'+ contains=luaSpecial,@Spell syn region luaString start=+"+ end=+"+ skip=+\\\\\|\\"+ contains=luaSpecial,@Spell " integer number syn match luaNumber "\<\d\+\>" " floating point number, with dot, optional exponent syn match luaNumber "\<\d\+\.\d*\%([eE][-+]\=\d\+\)\=\>" " floating point number, starting with a dot, optional exponent syn match luaNumber "\.\d\+\%([eE][-+]\=\d\+\)\=\>" " floating point number, without dot, with exponent syn match luaNumber "\<\d\+[eE][-+]\=\d\+\>" " hex numbers if lua_version >= 5 if lua_subversion == 1 syn match luaNumber "\<0[xX]\x\+\>" elseif lua_subversion >= 2 syn match luaNumber "\<0[xX][[:xdigit:].]\+\%([pP][-+]\=\d\+\)\=\>" endif endif syn keyword luaFunc assert collectgarbage dofile error next syn keyword luaFunc print rawget rawset tonumber tostring type _VERSION if lua_version == 4 syn keyword luaFunc _ALERT _ERRORMESSAGE gcinfo syn keyword luaFunc call copytagmethods dostring syn keyword luaFunc foreach foreachi getglobal getn syn keyword luaFunc gettagmethod globals newtag syn keyword luaFunc setglobal settag settagmethod sort syn keyword luaFunc tag tinsert tremove syn keyword luaFunc _INPUT _OUTPUT _STDIN _STDOUT _STDERR syn keyword luaFunc openfile closefile flush seek syn keyword luaFunc setlocale execute remove rename tmpname syn keyword luaFunc getenv date clock exit syn keyword luaFunc readfrom writeto appendto read write syn keyword luaFunc PI abs sin cos tan asin syn keyword luaFunc acos atan atan2 ceil floor syn keyword luaFunc mod frexp ldexp sqrt min max log syn keyword luaFunc log10 exp deg rad random syn keyword luaFunc randomseed strlen strsub strlower strupper syn keyword luaFunc strchar strrep ascii strbyte syn keyword luaFunc format strfind gsub syn keyword luaFunc getinfo getlocal setlocal setcallhook setlinehook elseif lua_version == 5 syn keyword luaFunc getmetatable setmetatable syn keyword luaFunc ipairs pairs syn keyword luaFunc pcall xpcall syn keyword luaFunc _G loadfile rawequal require if lua_subversion == 0 syn keyword luaFunc getfenv setfenv syn keyword luaFunc loadstring unpack syn keyword luaFunc gcinfo loadlib LUA_PATH _LOADED _REQUIREDNAME else syn keyword luaFunc load select syn match luaFunc /\<package\.cpath\>/ syn match luaFunc /\<package\.loaded\>/ syn match luaFunc /\<package\.loadlib\>/ syn match luaFunc /\<package\.path\>/ if lua_subversion == 1 syn keyword luaFunc getfenv setfenv syn keyword luaFunc loadstring module unpack syn match luaFunc /\<package\.loaders\>/ syn match luaFunc /\<package\.preload\>/ syn match luaFunc /\<package\.seeall\>/ elseif lua_subversion == 2 syn keyword luaFunc _ENV rawlen syn match luaFunc /\<package\.config\>/ syn match luaFunc /\<package\.preload\>/ syn match luaFunc /\<package\.searchers\>/ syn match luaFunc /\<package\.searchpath\>/ syn match luaFunc /\<bit32\.arshift\>/ syn match luaFunc /\<bit32\.band\>/ syn match luaFunc /\<bit32\.bnot\>/ syn match luaFunc /\<bit32\.bor\>/ syn match luaFunc /\<bit32\.btest\>/ syn match luaFunc /\<bit32\.bxor\>/ syn match luaFunc /\<bit32\.extract\>/ syn match luaFunc /\<bit32\.lrotate\>/ syn match luaFunc /\<bit32\.lshift\>/ syn match luaFunc /\<bit32\.replace\>/ syn match luaFunc /\<bit32\.rrotate\>/ syn match luaFunc /\<bit32\.rshift\>/ endif syn match luaFunc /\<coroutine\.running\>/ endif syn match luaFunc /\<coroutine\.create\>/ syn match luaFunc /\<coroutine\.resume\>/ syn match luaFunc /\<coroutine\.status\>/ syn match luaFunc /\<coroutine\.wrap\>/ syn match luaFunc /\<coroutine\.yield\>/ syn match luaFunc /\<string\.byte\>/ syn match luaFunc /\<string\.char\>/ syn match luaFunc /\<string\.dump\>/ syn match luaFunc /\<string\.find\>/ syn match luaFunc /\<string\.format\>/ syn match luaFunc /\<string\.gsub\>/ syn match luaFunc /\<string\.len\>/ syn match luaFunc /\<string\.lower\>/ syn match luaFunc /\<string\.rep\>/ syn match luaFunc /\<string\.sub\>/ syn match luaFunc /\<string\.upper\>/ if lua_subversion == 0 syn match luaFunc /\<string\.gfind\>/ else syn match luaFunc /\<string\.gmatch\>/ syn match luaFunc /\<string\.match\>/ syn match luaFunc /\<string\.reverse\>/ endif if lua_subversion == 0 syn match luaFunc /\<table\.getn\>/ syn match luaFunc /\<table\.setn\>/ syn match luaFunc /\<table\.foreach\>/ syn match luaFunc /\<table\.foreachi\>/ elseif lua_subversion == 1 syn match luaFunc /\<table\.maxn\>/ elseif lua_subversion == 2 syn match luaFunc /\<table\.pack\>/ syn match luaFunc /\<table\.unpack\>/ endif syn match luaFunc /\<table\.concat\>/ syn match luaFunc /\<table\.sort\>/ syn match luaFunc /\<table\.insert\>/ syn match luaFunc /\<table\.remove\>/ syn match luaFunc /\<math\.abs\>/ syn match luaFunc /\<math\.acos\>/ syn match luaFunc /\<math\.asin\>/ syn match luaFunc /\<math\.atan\>/ syn match luaFunc /\<math\.atan2\>/ syn match luaFunc /\<math\.ceil\>/ syn match luaFunc /\<math\.sin\>/ syn match luaFunc /\<math\.cos\>/ syn match luaFunc /\<math\.tan\>/ syn match luaFunc /\<math\.deg\>/ syn match luaFunc /\<math\.exp\>/ syn match luaFunc /\<math\.floor\>/ syn match luaFunc /\<math\.log\>/ syn match luaFunc /\<math\.max\>/ syn match luaFunc /\<math\.min\>/ if lua_subversion == 0 syn match luaFunc /\<math\.mod\>/ syn match luaFunc /\<math\.log10\>/ else if lua_subversion == 1 syn match luaFunc /\<math\.log10\>/ endif syn match luaFunc /\<math\.huge\>/ syn match luaFunc /\<math\.fmod\>/ syn match luaFunc /\<math\.modf\>/ syn match luaFunc /\<math\.cosh\>/ syn match luaFunc /\<math\.sinh\>/ syn match luaFunc /\<math\.tanh\>/ endif syn match luaFunc /\<math\.pow\>/ syn match luaFunc /\<math\.rad\>/ syn match luaFunc /\<math\.sqrt\>/ syn match luaFunc /\<math\.frexp\>/ syn match luaFunc /\<math\.ldexp\>/ syn match luaFunc /\<math\.random\>/ syn match luaFunc /\<math\.randomseed\>/ syn match luaFunc /\<math\.pi\>/ syn match luaFunc /\<io\.close\>/ syn match luaFunc /\<io\.flush\>/ syn match luaFunc /\<io\.input\>/ syn match luaFunc /\<io\.lines\>/ syn match luaFunc /\<io\.open\>/ syn match luaFunc /\<io\.output\>/ syn match luaFunc /\<io\.popen\>/ syn match luaFunc /\<io\.read\>/ syn match luaFunc /\<io\.stderr\>/ syn match luaFunc /\<io\.stdin\>/ syn match luaFunc /\<io\.stdout\>/ syn match luaFunc /\<io\.tmpfile\>/ syn match luaFunc /\<io\.type\>/ syn match luaFunc /\<io\.write\>/ syn match luaFunc /\<os\.clock\>/ syn match luaFunc /\<os\.date\>/ syn match luaFunc /\<os\.difftime\>/ syn match luaFunc /\<os\.execute\>/ syn match luaFunc /\<os\.exit\>/ syn match luaFunc /\<os\.getenv\>/ syn match luaFunc /\<os\.remove\>/ syn match luaFunc /\<os\.rename\>/ syn match luaFunc /\<os\.setlocale\>/ syn match luaFunc /\<os\.time\>/ syn match luaFunc /\<os\.tmpname\>/ syn match luaFunc /\<debug\.debug\>/ syn match luaFunc /\<debug\.gethook\>/ syn match luaFunc /\<debug\.getinfo\>/ syn match luaFunc /\<debug\.getlocal\>/ syn match luaFunc /\<debug\.getupvalue\>/ syn match luaFunc /\<debug\.setlocal\>/ syn match luaFunc /\<debug\.setupvalue\>/ syn match luaFunc /\<debug\.sethook\>/ syn match luaFunc /\<debug\.traceback\>/ if lua_subversion == 1 syn match luaFunc /\<debug\.getfenv\>/ syn match luaFunc /\<debug\.setfenv\>/ syn match luaFunc /\<debug\.getmetatable\>/ syn match luaFunc /\<debug\.setmetatable\>/ syn match luaFunc /\<debug\.getregistry\>/ elseif lua_subversion == 2 syn match luaFunc /\<debug\.getmetatable\>/ syn match luaFunc /\<debug\.setmetatable\>/ syn match luaFunc /\<debug\.getregistry\>/ syn match luaFunc /\<debug\.getuservalue\>/ syn match luaFunc /\<debug\.setuservalue\>/ syn match luaFunc /\<debug\.upvalueid\>/ syn match luaFunc /\<debug\.upvaluejoin\>/ endif endif " Define the default highlighting. " Only when an item doesn't have highlighting yet hi def link luaStatement Statement hi def link luaRepeat Repeat hi def link luaFor Repeat hi def link luaString String hi def link luaString2 String hi def link luaNumber Number hi def link luaOperator Operator hi def link luaIn Operator hi def link luaConstant Constant hi def link luaCond Conditional hi def link luaElse Conditional hi def link luaFunction Function hi def link luaComment Comment hi def link luaTodo Todo hi def link luaTable Structure hi def link luaError Error hi def link luaParenError Error hi def link luaBraceError Error hi def link luaSpecial SpecialChar hi def link luaFunc Identifier hi def link luaLabel Label let b:current_syntax = "lua" let &cpo = s:cpo_save unlet s:cpo_save " vim: et ts=8 sw=2