" Vim syntax file " Language: Perl 6 " Maintainer: Luke Palmer " Last Change: ???? ?? ?? " " This is a big undertaking. Perl 6 is the sort of language that only Perl " can parse. But I'll do my best to get vim to. " " You can associate the extension ".pl" with the filetype "perl6" by setting " autocmd BufNewFile,BufRead *.pl setf perl6 " in your ~/.vimrc. " Die if there's already a defined syntax " if exists("b:current_syntax") " finish " endif " " TODO: (added by Moritz Lenz " * syntax for reading from stdin: =<> or from arbitrary file handles: " =<$fh> " * List initialization via the @a = construct brakes when there " is a newline between '<' and '>' " * The regex regex_name { ... } syntax for regexes/tokens seems to be " unsupported " Recommended formatting options (see pugs::hack) setlocal shiftwidth=4 autoindent expandtab smarttab softtabstop=1 " Billions of keywords syn keyword p6Attn ACHTUNG ATTN ATTENTION FIXME NB contained syn keyword p6Attn todo Todo TODO WTF XXX contained syn keyword p6Module module class role use require package enum grammar syn keyword p6KeyDecl coro sub submethod method is but does trusts multi syn keyword p6KeyDecl rule token regex category syn keyword p6KeyScopeDecl let my our state temp has constant proto syn keyword p6KeyFlow if else elsif unless syn keyword p6KeyFlow for foreach loop while until when next last redo syn keyword p6KeyFlow given not or and err xor return default syn keyword p6KeyFlow exit syn keyword p6ClosureTrait BEGIN CHECK INIT START FIRST ENTER LEAVE KEEP UNDO NEXT LAST syn keyword p6ClosureTrait PRE POST END rw signature returns of parsed cached syn keyword p6ClosureTrait readonly ref copy syn keyword p6ClosureTrait inline tighter looser equiv assoc syn keyword p6KeyException die fail try CATCH CONTROL warn syn keyword p6KeyIO print open read write readline say seek close slurp syn keyword p6KeyIO opendir readdir syn keyword p6KeyProperty constant prec key value irs ofs ors pos export syn keyword p6KeyProperty float int str true false int1 int2 int4 int8 syn keyword p6KeyProperty int16 int32 int64 uint1 uint2 uint4 uint8 uint16 syn keyword p6KeyProperty uint32 uint64 num16 num32 num64 complex16 complex32 syn keyword p6KeyProperty complex64 complex128 buf8 buf16 buf32 buf64 syn keyword p6KeyProperty WHAT HOW syn keyword p6KeyType Array Bool Class Code Hash Int IO Num NumRange syn keyword p6KeyType Str StrRange Sub Role Rule Rat Complex Any syn keyword p6KeyType Scalar List syn keyword p6KeyFunc substr index rindex syn keyword p6KeyFunc grep map sort join split reduce min max reverse truncate zip syn keyword p6KeyFunc cat roundrobin classify first syn keyword p6KeyFunc keys values pairs defined delete exists elems end kv syn keyword p6KeyFunc arity assuming gather take any pick all none syn keyword p6KeyFunc pop push shift splice unshift syn keyword p6KeyFunc abs exp log log10 rand sign sqrt sin cos tan syn keyword p6KeyFunc floor ceiling round srand roots cis unpolar polar syn keyword p6KeyFunc p5chop chop p5chomp chomp lc lcfirst uc ucfirst syn keyword p6KeyFunc capitalize normalize pack unpack quotemeta comb syn keyword p6KeyFunc printf sprintf caller evalfile run runinstead syn keyword p6KeyFunc nothing want bless chr ord list item gmtime syn keyword p6KeyFunc localtime time gethost getpw chroot getlogin kill syn keyword p6KeyFunc fork wait perl context syn keyword p6KeySpecial eval operator undef undefine syn keyword p6KeySpecial infix postfix prefix cirumfix postcircumfix syn keyword p6KeyCompare eq ne lt le gt ge cmp == != < <= > >= syn match p6Normal "\w*::\w\+" " Comments syn match p6Comment "#.*" contains=p6Attn syn region p6CommentMline start="^=begin \z([a-zA-Z0-9_]\+\)\>" end="^=end \z1\>" contains=p6Attn syn region p6CommentPara start="^=for [a-zA-Z0-9_]\+\>" end="^$" contains=p6Attn syn match p6Shebang "^#!.*" " POD " syn region p6POD start="^=$cut$\@!\w\+.\+$" end="^=cut" contains=p6Attn,p6PODVerbatim,p6PODHead,p6PODHeadKwid,p6PODSec,p6PODSecKwid syn match p6PODVerbatim "^\s.*" contained syn match p6PODHeadKwid "^=\{1,2\} " nextgroup=p6PODTitle contained syn match p6PODHead "^=head[12]" nextgroup=p6PODTitle contained syn match p6PODTitle ".*$" contained syn match p6PODSec "^=head[34]" nextgroup=p6PODSecTitle contained syn match p6PODSecKwid "^=\{3,4\} " nextgroup=p6PODSecTitle contained syn match p6PODSecTitle ".*$" contained " Variables, arrays, and hashes with ordinary \w+ names syn match p6KeyType "¢[:\.*^?]\?[a-zA-Z_]\w*" syn match p6VarPlain "$::?\|[$@%][\!\.*^?]\?$[a-zA-Z_]\w*" syn match p6VarException "\$![a-zA-Z]\@!" syn match p6VarCapt "\$[0-9\/]" syn match p6VarPunct "\$\d\+" syn match p6Invoke "$&\|[.:]/$[a-zA-Z_]\w*" syn cluster p6Interp contains=p6VarPlain,p6InterpExpression,p6VarPunct,p6VarException,p6InterpClosure " { ... } construct syn region p6InterpExpression contained matchgroup=p6Variable start=+{+ skip=+\\}+ end=+}+ contains=TOP " FIXME: This ugly hack will show up later on. Once again, don't try to fix it. syn region p6ParenExpression start="$<\s*$\@>+ contains=@p6Interp " \w-delimited strings syn region p6InterpString start="\\)\@=+ end=+>\@+ " \w-delimited strings syn region p6LiteralString start="\ Operator syn match p6InterpString "\w\+\s*=>"he=e-2 " :key syn match p6InterpString ":\w\+$\s*\.$\?$<[^>]*>$\?"hs=s+1 " Sexeger! syn cluster p6Regexen contains=@p6Interp,p6Closure,p6Comment,p6CharClass,p6RuleCall,p6TestExpr,p6RegexSpecial " Here's how we get into regex mode " Standard /.../ syn region p6Regex matchgroup=p6Keyword start="$\w\_s*$\@ syn region p6Regex matchgroup=p6Keyword start="\<$m\|rx$\_s*$\_s*:\_s*[a-zA-Z0-9_()]\+$*\_s*\[" skip="\\]" end="]" contains=@p6Regexen syn region p6Regex matchgroup=p6Keyword start="\<$m\|rx$\_s*$\_s*:\_s*[a-zA-Z0-9_()]\+$*\_s*{" skip="\\}" end="}" contains=@p6Regexen syn region p6Regex matchgroup=p6Keyword start="\<$m\|rx$\_s*$\_s*:\_s*[a-zA-Z0-9_()]\+$*\_s*<"hs=e skip="\\>" end=">" contains=@p6Regexen " rule { } syn region p6Regex start="rule$\_s\+\w\+$\{0,1}\_s*{"hs=e end="}" contains=@p6Regexen " Closure (FIXME: Really icky hack, also doesn't support :blah modifiers) " However, don't do what you might _expect_ would work, because it won't. " And no variant of it will, either. I found this out through 4 hours from " miniscule tweaking to complete redesign. This is the only way I've found! syn region p6Closure start="$\(rule\(\_s\+\w\+$\{0,1}\|s\|rx\)\_s*\)\@" end=">\_s*" nextgroup=p6SubBracket contains=@p6Regexen syn region p6Regex matchgroup=p6Keyword start="\" syn match p6CharClass contained "<\s*!\{0,1}\s*-\{0,1}$alpha\|digit\|sp\|ws\|null$\s*>" syn match p6CharClass contained "\\[HhVvNnTtEeRrFfWwSs]" syn match p6CharClass contained "\\[xX]$\[[0-9a-f;]\+\]\|\x\+$" syn match p6CharClass contained "\\0$\[[0-7;]\+\]\|\o\+$" syn region p6CharClass contained start="\\[QqCc]\[" end="]" skip="\\]" syn match p6RegexSpecial contained "\\\@" "syn match p6RegexSpecial contained "\\\@+ syn region p6TestExpr contained start="<\s*!\{0,1}\s*(" end=")\s*>" contains=TOP " Hash quoting (sortof a hack) " syn match p6InterpString "{\s*\w\+\s*}"ms=s+1,me=e-1 syn match p6Normal "//" hi link p6Shebang PreProc hi link p6Attn Todo hi link p6Normal Normal hi link p6Regex String hi link p6SubNonBracket p6String hi link p6SubBracket p6String hi link p6TransNonBracket p6String hi link p6CharClass Special hi link p6RuleCall Identifier hi link p6RegexSpecial Type hi link p6Error Error hi link p6Module p6Keyword hi link p6KeyCompare p6Keyword hi link p6KeyDecl p6Keyword hi link p6KeyScopeDecl p6Keyword hi link p6KeyFlow p6Keyword hi link p6ClosureTrait PreProc hi link p6KeyException Special hi link p6KeyIO p6Keyword hi link p6KeyProperty Type hi link p6KeyFunc p6Keyword hi link p6KeySpecial Special hi link p6KeyType Type hi link p6Pattern p6Keyword hi link p6VarPlain p6Variable hi link p6VarPunct p6Variable hi link p6VarCapt p6Variable hi link p6Invoke Type hi link p6InterpString p6String hi link p6LiteralString p6String hi link p6Keyword Statement hi link p6Number Number hi link p6Comment Comment hi link p6CommentMline Comment hi link p6CommentPara Comment hi link p6POD Comment hi link p6PODHead Comment hi link p6PODHeadKwid Comment hi link p6PODTitle Title hi link p6PODSec Comment hi link p6PODSecKwid Comment hi link p6PODSecTitle String hi link p6PODVerbatim Special hi link p6Variable Identifier hi link p6VarException Special hi link p6String String let b:current_syntax = "perl6"