Mercurial > vim

comparison runtime/syntax/lisp.vim @ 1125:96cd8222a819

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.1a
author vimboss
date Sat, 05 May 2007 18:24:42 +0000
parents 862863033fdd
children 18ee39301b82
comparison
equal deleted inserted replaced
1124:da2a955f150a 1125:96cd8222a819
1 " Vim syntax file 1 " Vim syntax file
2 " Language: Lisp 2 " Language: Lisp
3 " Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz> 3 " Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
4 " Last Change: Oct 12, 2005 4 " Last Change: Apr 12, 2007
5 " Version: 17a 5 " Version: 19
6 " URL: http://mysite.verizon.net/astronaut/vim/index.html#vimlinks_syntax 6 " URL: http://mysite.verizon.net/astronaut/vim/index.html#vimlinks_syntax
7 " 7 "
8 " Thanks to F Xavier Noria for a list of 978 Common Lisp symbols 8 " Thanks to F Xavier Noria for a list of 978 Common Lisp symbols
9 " taken from the HyperSpec 9 " taken from the HyperSpec
10 10
31 if exists("g:lisp_instring") 31 if exists("g:lisp_instring")
32 syn cluster lispListCluster contains=@lispBaseListCluster,lispString,lispInString,lispInStringString 32 syn cluster lispListCluster contains=@lispBaseListCluster,lispString,lispInString,lispInStringString
33 else 33 else
34 syn cluster lispListCluster contains=@lispBaseListCluster,lispString 34 syn cluster lispListCluster contains=@lispBaseListCluster,lispString
35 endif 35 endif
36
37 syn case ignore
36 38
37 " --------------------------------------------------------------------- 39 " ---------------------------------------------------------------------
38 " Lists: {{{1 40 " Lists: {{{1
39 syn match lispSymbol contained ![^()'`,"; \t]\+! 41 syn match lispSymbol contained ![^()'`,"; \t]\+!
40 syn match lispBarSymbol contained !|..\{-}|! 42 syn match lispBarSymbol contained !|..\{-}|!
434 syn keyword lispVar *features* *print-miser-width* *terminal-io* 436 syn keyword lispVar *features* *print-miser-width* *terminal-io*
435 syn keyword lispVar *gensym-counter* *print-miser-width* *trace-output* 437 syn keyword lispVar *gensym-counter* *print-miser-width* *trace-output*
436 438
437 " --------------------------------------------------------------------- 439 " ---------------------------------------------------------------------
438 " Strings: {{{1 440 " Strings: {{{1
439 syn region lispString start=+"+ skip=+\\\\\|\\"+ end=+"+ 441 syn region lispString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=@Spell
440 if exists("g:lisp_instring") 442 if exists("g:lisp_instring")
441 syn region lispInString keepend matchgroup=Delimiter start=+"(+rs=s+1 skip=+|.\{-}|+ matchgroup=Delimiter end=+)"+ contains=@lispBaseListCluster,lispInStringString 443 syn region lispInString keepend matchgroup=Delimiter start=+"(+rs=s+1 skip=+|.\{-}|+ matchgroup=Delimiter end=+)"+ contains=@lispBaseListCluster,lispInStringString
442 syn region lispInStringString start=+\\"+ skip=+\\\\+ end=+\\"+ contained 444 syn region lispInStringString start=+\\"+ skip=+\\\\+ end=+\\"+ contained
443 endif 445 endif
444 446
452 454
453 " --------------------------------------------------------------------- 455 " ---------------------------------------------------------------------
454 " Numbers: supporting integers and floating point numbers {{{1 456 " Numbers: supporting integers and floating point numbers {{{1
455 syn match lispNumber "-\=\(\.\d\+\|\d\+\(\.\d*\)\=\)\(e[-+]\=\d\+\)\=" 457 syn match lispNumber "-\=\(\.\d\+\|\d\+\(\.\d*\)\=\)\(e[-+]\=\d\+\)\="
456 458
457 syn match lispSpecial "\*[a-zA-Z_][a-zA-Z_0-9-]*\*" 459 syn match lispSpecial "\*\w[a-z_0-9-]*\*"
458 syn match lispSpecial !#|[^()'`,"; \t]\+|#! 460 syn match lispSpecial !#|[^()'`,"; \t]\+|#!
459 syn match lispSpecial !#x[0-9a-fA-F]\+! 461 syn match lispSpecial !#x\x\+!
460 syn match lispSpecial !#o[0-7]\+! 462 syn match lispSpecial !#o\o\+!
461 syn match lispSpecial !#b[01]\+! 463 syn match lispSpecial !#b[01]\+!
462 syn match lispSpecial !#\\[ -\~]! 464 syn match lispSpecial !#\\[ -}\~]!
463 syn match lispSpecial !#[':][^()'`,"; \t]\+! 465 syn match lispSpecial !#[':][^()'`,"; \t]\+!
464 syn match lispSpecial !#([^()'`,"; \t]\+)! 466 syn match lispSpecial !#([^()'`,"; \t]\+)!
467 syn match lispSpecial !#\\\%(Space\|Newline\|Tab\|Page\|Rubout\|Linefeed\|Return\|Backspace\)!
465 468
466 syn match lispConcat "\s\.\s" 469 syn match lispConcat "\s\.\s"
467 syn match lispParenError ")" 470 syn match lispParenError ")"
468 471
469 " --------------------------------------------------------------------- 472 " ---------------------------------------------------------------------
470 " Comments: {{{1 473 " Comments: {{{1
471 syn cluster lispCommentGroup contains=lispTodo,@Spell 474 syn cluster lispCommentGroup contains=lispTodo,@Spell
472 syn match lispComment ";.*$" contains=@lispCommentGroup 475 syn match lispComment ";.*$" contains=@lispCommentGroup
473 syn region lispCommentRegion start="#|" end="|#" contains=lispCommentRegion,@lispCommentGroup 476 syn region lispCommentRegion start="#|" end="|#" contains=lispCommentRegion,@lispCommentGroup
474 syn case ignore
475 syn keyword lispTodo contained combak combak: todo todo: 477 syn keyword lispTodo contained combak combak: todo todo:
476 syn case match
477 478
478 " --------------------------------------------------------------------- 479 " ---------------------------------------------------------------------
479 " Synchronization: {{{1 480 " Synchronization: {{{1
480 syn sync lines=100 481 syn sync lines=100
481 482