From ea984b91ae477310ac7226fb56338a40531b07cb Mon Sep 17 00:00:00 2001 From: David Robillard Date: Wed, 1 Dec 2010 06:05:29 +0000 Subject: Update vim support files. git-svn-id: http://svn.drobilla.net/resp/resp@274 ad02d1e2-f140-0410-9f75-f8b11f17cedd --- support/vim/indent/resp.vim | 15 ++++ support/vim/indent/tuplr.vim | 15 ---- support/vim/syntax/resp.vim | 166 +++++++++++++++++++++++++++++++++++++++++++ support/vim/syntax/tuplr.vim | 166 ------------------------------------------- 4 files changed, 181 insertions(+), 181 deletions(-) create mode 100644 support/vim/indent/resp.vim delete mode 100644 support/vim/indent/tuplr.vim create mode 100644 support/vim/syntax/resp.vim delete mode 100644 support/vim/syntax/tuplr.vim (limited to 'support') diff --git a/support/vim/indent/resp.vim b/support/vim/indent/resp.vim new file mode 100644 index 0000000..9121c6c --- /dev/null +++ b/support/vim/indent/resp.vim @@ -0,0 +1,15 @@ +" Vim indent file +" Language: Resp +" Maintainer: Dave Robillard +" Last Change: 2010 Dec 1 + +" Only load this indent file when no other was loaded. +if exists("b:did_indent") + finish +endif + +setlocal lisp +setlocal lispwords=def,fn,match,def-type +setlocal expandtab + +runtime! indent/lisp.vim diff --git a/support/vim/indent/tuplr.vim b/support/vim/indent/tuplr.vim deleted file mode 100644 index 8e0c6e4..0000000 --- a/support/vim/indent/tuplr.vim +++ /dev/null @@ -1,15 +0,0 @@ -" Vim indent file -" Language: Tuplr -" Maintainer: Dave Robillard -" Last Change: 2009 Mar 5 - -" Only load this indent file when no other was loaded. -if exists("b:did_indent") - finish -endif - -setlocal lisp -setlocal lispwords=def,fn,match,type -setlocal expandtab - -runtime! indent/lisp.vim diff --git a/support/vim/syntax/resp.vim b/support/vim/syntax/resp.vim new file mode 100644 index 0000000..c66af0b --- /dev/null +++ b/support/vim/syntax/resp.vim @@ -0,0 +1,166 @@ +" Vim syntax file +" Language: Resp +" Last Change: 2009 Dec 5 +" Maintainer: David Robillard + +if version < 600 + syntax clear +elseif exists("b:current_syntax") + finish +endif + +" Fascist highlighting: everything that doesn't fit the rules is an error... + +"syn match respError oneline ![^ \t()\[\]";]*! +syn match respError oneline ")" + +" Quoted and backquoted stuff + +syn region respQuoted matchgroup=Delimiter start="['`]" end=![ \t()\[\]";]!me=e-1 contains=ALLBUT,respStruc,respSyntax,respFunc + +syn region respQuoted matchgroup=Delimiter start="['`](" matchgroup=Delimiter end=")" contains=ALLBUT,respStruc,respSyntax,respFunc +syn region respQuoted matchgroup=Delimiter start="['`]#(" matchgroup=Delimiter end=")" contains=ALLBUT,respStruc,respSyntax,respFunc + +syn region respStrucRestricted matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,respStruc,respSyntax,respFunc +syn region respStrucRestricted matchgroup=Delimiter start="#(" matchgroup=Delimiter end=")" contains=ALLBUT,respStruc,respSyntax,respFunc + +" Popular Scheme extension: +" using [] as well as () +syn region respStrucRestricted matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=ALLBUT,respStruc,respSyntax,respFunc +syn region respStrucRestricted matchgroup=Delimiter start="#\[" matchgroup=Delimiter end="\]" contains=ALLBUT,respStruc,respSyntax,respFunc + +syn region respUnquote matchgroup=Delimiter start="," end=![ \t\[\]()";]!me=e-1 contains=ALLBUT,respStruc,respSyntax,respFunc +syn region respUnquote matchgroup=Delimiter start=",@" end=![ \t\[\]()";]!me=e-1 contains=ALLBUT,respStruc,respSyntax,respFunc + +syn region respUnquote matchgroup=Delimiter start=",(" end=")" contains=ALL +syn region respUnquote matchgroup=Delimiter start=",@(" end=")" contains=ALL + +syn region respUnquote matchgroup=Delimiter start=",#(" end=")" contains=ALLBUT,respStruc,respSyntax,respFunc +syn region respUnquote matchgroup=Delimiter start=",@#(" end=")" contains=ALLBUT,respStruc,respSyntax,respFunc + +syn region respUnquote matchgroup=Delimiter start=",\[" end="\]" contains=ALL +syn region respUnquote matchgroup=Delimiter start=",@\[" end="\]" contains=ALL + +syn region respUnquote matchgroup=Delimiter start=",#\[" end="\]" contains=ALLBUT,respStruc,respSyntax,respFunc +syn region respUnquote matchgroup=Delimiter start=",@#\[" end="\]" contains=ALLBUT,respStruc,respSyntax,respFunc + +" R5RS Scheme Functions and Syntax: + +if version < 600 + set iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_ +else + setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_ +endif + +syn keyword respSyntax fn def if match def-type +syn keyword respFunc cons car cdr + +syn match respTypeAnnotation ":[A-Z][a-zA-Z\.]*" +syn match respTypeAnnotationExp ":([A-Z][a-zA-Z ]*)" +syn match respType "[A-Z][a-zA-Z\.]*" +syn match respPrefix "[a-z][a-z]*\." + +" ... so that a single + or -, inside a quoted context, would not be +" interpreted as a number (outside such contexts, it's a respFunc) + +syn match respDelimiter oneline !\.[ \t\[\]()";]!me=e-1 +syn match respDelimiter oneline !\.$! +" ... and a single dot is not a number but a delimiter + +" This keeps all other stuff unhighlighted, except *stuff* and : + +syn match respOther oneline ,[a-z!$%&*/<=>?^_~+@#%-][-a-z!$%&*/:<=>?^_~0-9+.@#%]*, +"syn match respError oneline ,[a-z!$%&*/:<=>?^_~+@#%-][-a-z!$%&*/:<=>?^_~0-9+.@#%]*[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, +" +"syn match respOther oneline "\.\.\." +"syn match respError oneline !\.\.\.[^ \t\[\]()";]\+! +"" ... a special identifier +" +"syn match respConstant oneline ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*[ \t\[\]()";],me=e-1 +"syn match respConstant oneline ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*$, +"syn match respError oneline ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, +" +"syn match respConstant oneline ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>[ \t\[\]()";],me=e-1 +"syn match respConstant oneline ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>$, +"syn match respError oneline ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, + +" Non-quoted lists, and strings: + +syn region respStruc matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALL +syn region respStruc matchgroup=Delimiter start="#(" matchgroup=Delimiter end=")" contains=ALL + +syn region respStruc matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=ALL +syn region respStruc matchgroup=Delimiter start="#\[" matchgroup=Delimiter end="\]" contains=ALL + +" Simple literals: +syn region respString start=+\%(\\\)\@= 508 || !exists("did_resp_syntax_inits") + if version < 508 + let did_resp_syntax_inits = 1 + command -nargs=+ HiLink hi link + else + command -nargs=+ HiLink hi def link + endif + + "HiLink respPrefix Identifier + HiLink respSyntax Statement + HiLink respFunc Function + HiLink respTypeAnnotation Type + HiLink respTypeAnnotationExp Type + HiLink respType Type + + HiLink respString String + HiLink respChar Character + HiLink respNumber Number + HiLink respBoolean Boolean + + HiLink respDelimiter Delimiter + HiLink respConstant Constant + + HiLink respComment Comment + HiLink respMultilineComment Comment + HiLink respError Error + + HiLink respExtSyntax Type + HiLink respExtFunc PreProc + delcommand HiLink +endif + +let b:current_syntax = "resp" diff --git a/support/vim/syntax/tuplr.vim b/support/vim/syntax/tuplr.vim deleted file mode 100644 index 7c47662..0000000 --- a/support/vim/syntax/tuplr.vim +++ /dev/null @@ -1,166 +0,0 @@ -" Vim syntax file -" Language: Tuplr -" Last Change: 2009 Apr 18 -" Maintainer: David Robillard - -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -" Fascist highlighting: everything that doesn't fit the rules is an error... - -"syn match tuplrError oneline ![^ \t()\[\]";]*! -syn match tuplrError oneline ")" - -" Quoted and backquoted stuff - -syn region tuplrQuoted matchgroup=Delimiter start="['`]" end=![ \t()\[\]";]!me=e-1 contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -syn region tuplrQuoted matchgroup=Delimiter start="['`](" matchgroup=Delimiter end=")" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc -syn region tuplrQuoted matchgroup=Delimiter start="['`]#(" matchgroup=Delimiter end=")" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -syn region tuplrStrucRestricted matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc -syn region tuplrStrucRestricted matchgroup=Delimiter start="#(" matchgroup=Delimiter end=")" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -" Popular Scheme extension: -" using [] as well as () -syn region tuplrStrucRestricted matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc -syn region tuplrStrucRestricted matchgroup=Delimiter start="#\[" matchgroup=Delimiter end="\]" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -syn region tuplrUnquote matchgroup=Delimiter start="," end=![ \t\[\]()";]!me=e-1 contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc -syn region tuplrUnquote matchgroup=Delimiter start=",@" end=![ \t\[\]()";]!me=e-1 contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -syn region tuplrUnquote matchgroup=Delimiter start=",(" end=")" contains=ALL -syn region tuplrUnquote matchgroup=Delimiter start=",@(" end=")" contains=ALL - -syn region tuplrUnquote matchgroup=Delimiter start=",#(" end=")" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc -syn region tuplrUnquote matchgroup=Delimiter start=",@#(" end=")" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -syn region tuplrUnquote matchgroup=Delimiter start=",\[" end="\]" contains=ALL -syn region tuplrUnquote matchgroup=Delimiter start=",@\[" end="\]" contains=ALL - -syn region tuplrUnquote matchgroup=Delimiter start=",#\[" end="\]" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc -syn region tuplrUnquote matchgroup=Delimiter start=",@#\[" end="\]" contains=ALLBUT,tuplrStruc,tuplrSyntax,tuplrFunc - -" R5RS Scheme Functions and Syntax: - -if version < 600 - set iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_ -else - setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_ -endif - -syn keyword tuplrSyntax fn def if match ns type -syn keyword tuplrFunc cons car cdr - -syn match tuplrTypeAnnotation ":[A-Z][a-zA-Z\.]*" -syn match tuplrTypeAnnotationExp ":([A-Z][a-zA-Z ]*)" -syn match tuplrType "[A-Z][a-zA-Z\.]*" -syn match tuplrPrefix "[a-z][a-z]*\." - -" ... so that a single + or -, inside a quoted context, would not be -" interpreted as a number (outside such contexts, it's a tuplrFunc) - -syn match tuplrDelimiter oneline !\.[ \t\[\]()";]!me=e-1 -syn match tuplrDelimiter oneline !\.$! -" ... and a single dot is not a number but a delimiter - -" This keeps all other stuff unhighlighted, except *stuff* and : - -syn match tuplrOther oneline ,[a-z!$%&*/<=>?^_~+@#%-][-a-z!$%&*/:<=>?^_~0-9+.@#%]*, -"syn match tuplrError oneline ,[a-z!$%&*/:<=>?^_~+@#%-][-a-z!$%&*/:<=>?^_~0-9+.@#%]*[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, -" -"syn match tuplrOther oneline "\.\.\." -"syn match tuplrError oneline !\.\.\.[^ \t\[\]()";]\+! -"" ... a special identifier -" -"syn match tuplrConstant oneline ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*[ \t\[\]()";],me=e-1 -"syn match tuplrConstant oneline ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*$, -"syn match tuplrError oneline ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, -" -"syn match tuplrConstant oneline ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>[ \t\[\]()";],me=e-1 -"syn match tuplrConstant oneline ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>$, -"syn match tuplrError oneline ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, - -" Non-quoted lists, and strings: - -syn region tuplrStruc matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALL -syn region tuplrStruc matchgroup=Delimiter start="#(" matchgroup=Delimiter end=")" contains=ALL - -syn region tuplrStruc matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=ALL -syn region tuplrStruc matchgroup=Delimiter start="#\[" matchgroup=Delimiter end="\]" contains=ALL - -" Simple literals: -syn region tuplrString start=+\%(\\\)\@= 508 || !exists("did_tuplr_syntax_inits") - if version < 508 - let did_tuplr_syntax_inits = 1 - command -nargs=+ HiLink hi link - else - command -nargs=+ HiLink hi def link - endif - - "HiLink tuplrPrefix Identifier - HiLink tuplrSyntax Statement - HiLink tuplrFunc Function - HiLink tuplrTypeAnnotation Type - HiLink tuplrTypeAnnotationExp Type - HiLink tuplrType Type - - HiLink tuplrString String - HiLink tuplrChar Character - HiLink tuplrNumber Number - HiLink tuplrBoolean Boolean - - HiLink tuplrDelimiter Delimiter - HiLink tuplrConstant Constant - - HiLink tuplrComment Comment - HiLink tuplrMultilineComment Comment - HiLink tuplrError Error - - HiLink tuplrExtSyntax Type - HiLink tuplrExtFunc PreProc - delcommand HiLink -endif - -let b:current_syntax = "tuplr" -- cgit v1.2.1