Update vim support files.

git-svn-id: http://svn.drobilla.net/resp/resp@274 ad02d1e2-f140-0410-9f75-f8b11f17cedd

3 files changed, 170 insertions, 170 deletions

diff --git a/support/vim/indent/tuplr.vim b/support/vim/indent/resp.vim
index 8e0c6e4..9121c6c 100644
--- a/support/vim/indent/tuplr.vim
+++ b/support/vim/indent/resp.vim
@@ -1,7 +1,7 @@
 " Vim indent file
-" Language:	Tuplr
-" Maintainer:	Dave Robillard <dave@drobilla.net>
-" Last Change:	2009 Mar 5
+" Language:	Resp
+" Maintainer:	Dave Robillard <d@drobilla.net>
+" Last Change:	2010 Dec 1
 
 " Only load this indent file when no other was loaded.
 if exists("b:did_indent")
@@ -9,7 +9,7 @@ if exists("b:did_indent")
 endif
 
 setlocal lisp
-setlocal lispwords=def,fn,match,type
+setlocal lispwords=def,fn,match,def-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 <d@drobilla.net>
+
+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 <stuff>:
+
+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=+\%(\\\)\@<!"+ skip=+\\[\\"]+ end=+"+
+
+" Comments:
+
+syn match	respComment	";.*$"
+
+
+" Writing out the complete description of Scheme numerals without
+" using variables is a day's work for a trained secretary...
+
+syn match	respOther	oneline    ![+-][ \t\[\]()";]!me=e-1
+syn match	respOther	oneline    ![+-]$!
+"
+" This is a useful lax approximation:
+syn match	respNumber	oneline    "[-#+0-9.][-#+/0-9a-f@i.boxesfdl]*"
+syn match	respError	oneline    ![-#+0-9.][-#+/0-9a-f@i.boxesfdl]*[^-#+/0-9a-f@i.boxesfdl \t\[\]()";][^ \t\[\]()";]*!
+
+syn match	respBoolean	oneline    "#[tf]"
+syn match	respError	oneline    !#[tf][^ \t\[\]()";]\+!
+
+syn match	respChar	oneline    "#\\"
+syn match	respChar	oneline    "#\\."
+syn match	respError	oneline    !#\\.[^ \t\[\]()";]\+!
+syn match	respChar	oneline    "#\\space"
+syn match	respError	oneline    !#\\space[^ \t\[\]()";]\+!
+syn match	respChar	oneline    "#\\newline"
+syn match	respError	oneline    !#\\newline[^ \t\[\]()";]\+!
+
+syn region	respComment start="#|" end="|#"
+
+" Synchronization and the wrapping up...
+
+syn sync match matchPlace grouphere NONE "^[^ \t]"
+" ... i.e. synchronize on a line that starts at the left margin
+
+" Define the default highlighting.
+" 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_resp_syntax_inits")
+  if version < 508
+    let did_resp_syntax_inits = 1
+    command -nargs=+ HiLink hi link <args>
+  else
+    command -nargs=+ HiLink hi def link <args>
+  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 <dave@drobilla.net>
-
-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 <stuff>:
-
-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=+\%(\\\)\@<!"+ skip=+\\[\\"]+ end=+"+
-
-" Comments:
-
-syn match	tuplrComment	";.*$"
-
-
-" Writing out the complete description of Scheme numerals without
-" using variables is a day's work for a trained secretary...
-
-syn match	tuplrOther	oneline    ![+-][ \t\[\]()";]!me=e-1
-syn match	tuplrOther	oneline    ![+-]$!
-"
-" This is a useful lax approximation:
-syn match	tuplrNumber	oneline    "[-#+0-9.][-#+/0-9a-f@i.boxesfdl]*"
-syn match	tuplrError	oneline    ![-#+0-9.][-#+/0-9a-f@i.boxesfdl]*[^-#+/0-9a-f@i.boxesfdl \t\[\]()";][^ \t\[\]()";]*!
-
-syn match	tuplrBoolean	oneline    "#[tf]"
-syn match	tuplrError	oneline    !#[tf][^ \t\[\]()";]\+!
-
-syn match	tuplrChar	oneline    "#\\"
-syn match	tuplrChar	oneline    "#\\."
-syn match	tuplrError	oneline    !#\\.[^ \t\[\]()";]\+!
-syn match	tuplrChar	oneline    "#\\space"
-syn match	tuplrError	oneline    !#\\space[^ \t\[\]()";]\+!
-syn match	tuplrChar	oneline    "#\\newline"
-syn match	tuplrError	oneline    !#\\newline[^ \t\[\]()";]\+!
-
-syn region	tuplrComment start="#|" end="|#"
-
-" Synchronization and the wrapping up...
-
-syn sync match matchPlace grouphere NONE "^[^ \t]"
-" ... i.e. synchronize on a line that starts at the left margin
-
-" Define the default highlighting.
-" 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_tuplr_syntax_inits")
-  if version < 508
-    let did_tuplr_syntax_inits = 1
-    command -nargs=+ HiLink hi link <args>
-  else
-    command -nargs=+ HiLink hi def link <args>
-  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"