Mercurial > vim
annotate runtime/syntax/scheme.vim @ 10051:46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Aug 31 22:22:10 2016 +0200
Updated runtime files. Remove HiLink commands.
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Wed, 31 Aug 2016 22:30:08 +0200 |
| parents | 43efa4f5a8ea |
| children | 167a030448fa |
| rev | line source |
|---|---|
| 7 | 1 " Vim syntax file |
| 2034 | 2 " Language: Scheme (R5RS + some R6RS extras) |
|
9116
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
3 " Last Change: 2016 May 23 |
| 36 | 4 " Maintainer: Sergey Khorev <sergey.khorev@gmail.com> |
| 17 | 5 " Original author: Dirk van Deun <dirk@igwe.vub.ac.be> |
| 7 | 6 |
| 7 " This script incorrectly recognizes some junk input as numerals: | |
| 8 " parsing the complete system of Scheme numerals using the pattern | |
| 9 " language is practically impossible: I did a lax approximation. | |
| 3356 | 10 |
| 17 | 11 " MzScheme extensions can be activated with setting is_mzscheme variable |
| 7 | 12 |
| 13 " Suggestions and bug reports are solicited by the author. | |
| 14 | |
| 15 " Initializing: | |
| 16 | |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
9116
diff
changeset
|
17 " quit when a syntax file was already loaded |
|
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
9116
diff
changeset
|
18 if exists("b:current_syntax") |
| 7 | 19 finish |
| 20 endif | |
| 21 | |
| 3356 | 22 let s:cpo_save = &cpo |
| 23 set cpo&vim | |
| 24 | |
| 7 | 25 syn case ignore |
| 26 | |
| 27 " Fascist highlighting: everything that doesn't fit the rules is an error... | |
| 28 | |
| 2034 | 29 syn match schemeError ![^ \t()\[\]";]*! |
| 30 syn match schemeError ")" | |
| 7 | 31 |
| 32 " Quoted and backquoted stuff | |
| 33 | |
| 17 | 34 syn region schemeQuoted matchgroup=Delimiter start="['`]" end=![ \t()\[\]";]!me=e-1 contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc |
| 7 | 35 |
| 36 syn region schemeQuoted matchgroup=Delimiter start="['`](" matchgroup=Delimiter end=")" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 37 syn region schemeQuoted matchgroup=Delimiter start="['`]#(" matchgroup=Delimiter end=")" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 38 | |
| 39 syn region schemeStrucRestricted matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 40 syn region schemeStrucRestricted matchgroup=Delimiter start="#(" matchgroup=Delimiter end=")" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 41 | |
| 17 | 42 " Popular Scheme extension: |
| 43 " using [] as well as () | |
| 44 syn region schemeStrucRestricted matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 45 syn region schemeStrucRestricted matchgroup=Delimiter start="#\[" matchgroup=Delimiter end="\]" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 7 | 46 |
| 17 | 47 syn region schemeUnquote matchgroup=Delimiter start="," end=![ \t\[\]()";]!me=e-1 contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc |
| 48 syn region schemeUnquote matchgroup=Delimiter start=",@" end=![ \t\[\]()";]!me=e-1 contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 49 | |
| 50 syn region schemeUnquote matchgroup=Delimiter start=",(" end=")" contains=ALL | |
| 51 syn region schemeUnquote matchgroup=Delimiter start=",@(" end=")" contains=ALL | |
| 7 | 52 |
| 53 syn region schemeUnquote matchgroup=Delimiter start=",#(" end=")" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 54 syn region schemeUnquote matchgroup=Delimiter start=",@#(" end=")" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 55 | |
| 17 | 56 syn region schemeUnquote matchgroup=Delimiter start=",\[" end="\]" contains=ALL |
| 57 syn region schemeUnquote matchgroup=Delimiter start=",@\[" end="\]" contains=ALL | |
| 58 | |
| 59 syn region schemeUnquote matchgroup=Delimiter start=",#\[" end="\]" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 60 syn region schemeUnquote matchgroup=Delimiter start=",@#\[" end="\]" contains=ALLBUT,schemeStruc,schemeSyntax,schemeFunc | |
| 61 | |
| 7 | 62 " R5RS Scheme Functions and Syntax: |
| 63 | |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
9116
diff
changeset
|
64 setlocal iskeyword=33,35-39,42-58,60-90,94,95,97-122,126,_ |
| 7 | 65 |
| 66 syn keyword schemeSyntax lambda and or if cond case define let let* letrec | |
| 67 syn keyword schemeSyntax begin do delay set! else => | |
| 68 syn keyword schemeSyntax quote quasiquote unquote unquote-splicing | |
| 69 syn keyword schemeSyntax define-syntax let-syntax letrec-syntax syntax-rules | |
| 2034 | 70 " R6RS |
| 71 syn keyword schemeSyntax define-record-type fields protocol | |
| 7 | 72 |
| 73 syn keyword schemeFunc not boolean? eq? eqv? equal? pair? cons car cdr set-car! | |
| 74 syn keyword schemeFunc set-cdr! caar cadr cdar cddr caaar caadr cadar caddr | |
| 75 syn keyword schemeFunc cdaar cdadr cddar cdddr caaaar caaadr caadar caaddr | |
| 76 syn keyword schemeFunc cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr | |
| 77 syn keyword schemeFunc cddaar cddadr cdddar cddddr null? list? list length | |
| 78 syn keyword schemeFunc append reverse list-ref memq memv member assq assv assoc | |
| 79 syn keyword schemeFunc symbol? symbol->string string->symbol number? complex? | |
| 80 syn keyword schemeFunc real? rational? integer? exact? inexact? = < > <= >= | |
| 81 syn keyword schemeFunc zero? positive? negative? odd? even? max min + * - / abs | |
| 82 syn keyword schemeFunc quotient remainder modulo gcd lcm numerator denominator | |
| 83 syn keyword schemeFunc floor ceiling truncate round rationalize exp log sin cos | |
| 84 syn keyword schemeFunc tan asin acos atan sqrt expt make-rectangular make-polar | |
| 85 syn keyword schemeFunc real-part imag-part magnitude angle exact->inexact | |
| 86 syn keyword schemeFunc inexact->exact number->string string->number char=? | |
| 87 syn keyword schemeFunc char-ci=? char<? char-ci<? char>? char-ci>? char<=? | |
| 88 syn keyword schemeFunc char-ci<=? char>=? char-ci>=? char-alphabetic? char? | |
| 89 syn keyword schemeFunc char-numeric? char-whitespace? char-upper-case? | |
| 90 syn keyword schemeFunc char-lower-case? | |
| 91 syn keyword schemeFunc char->integer integer->char char-upcase char-downcase | |
| 92 syn keyword schemeFunc string? make-string string string-length string-ref | |
| 93 syn keyword schemeFunc string-set! string=? string-ci=? string<? string-ci<? | |
| 94 syn keyword schemeFunc string>? string-ci>? string<=? string-ci<=? string>=? | |
| 95 syn keyword schemeFunc string-ci>=? substring string-append vector? make-vector | |
| 96 syn keyword schemeFunc vector vector-length vector-ref vector-set! procedure? | |
| 97 syn keyword schemeFunc apply map for-each call-with-current-continuation | |
| 98 syn keyword schemeFunc call-with-input-file call-with-output-file input-port? | |
| 99 syn keyword schemeFunc output-port? current-input-port current-output-port | |
| 100 syn keyword schemeFunc open-input-file open-output-file close-input-port | |
| 101 syn keyword schemeFunc close-output-port eof-object? read read-char peek-char | |
| 102 syn keyword schemeFunc write display newline write-char call/cc | |
| 103 syn keyword schemeFunc list-tail string->list list->string string-copy | |
| 104 syn keyword schemeFunc string-fill! vector->list list->vector vector-fill! | |
| 105 syn keyword schemeFunc force with-input-from-file with-output-to-file | |
| 106 syn keyword schemeFunc char-ready? load transcript-on transcript-off eval | |
| 107 syn keyword schemeFunc dynamic-wind port? values call-with-values | |
| 108 syn keyword schemeFunc scheme-report-environment null-environment | |
| 109 syn keyword schemeFunc interaction-environment | |
| 2034 | 110 " R6RS |
| 111 syn keyword schemeFunc make-eq-hashtable make-eqv-hashtable make-hashtable | |
| 112 syn keyword schemeFunc hashtable? hashtable-size hashtable-ref hashtable-set! | |
| 113 syn keyword schemeFunc hashtable-delete! hashtable-contains? hashtable-update! | |
| 114 syn keyword schemeFunc hashtable-copy hashtable-clear! hashtable-keys | |
| 115 syn keyword schemeFunc hashtable-entries hashtable-equivalence-function hashtable-hash-function | |
| 3356 | 116 syn keyword schemeFunc hashtable-mutable? equal-hash string-hash string-ci-hash symbol-hash |
| 2034 | 117 syn keyword schemeFunc find for-all exists filter partition fold-left fold-right |
| 118 syn keyword schemeFunc remp remove remv remq memp assp cons* | |
| 7 | 119 |
| 120 " ... so that a single + or -, inside a quoted context, would not be | |
| 121 " interpreted as a number (outside such contexts, it's a schemeFunc) | |
| 122 | |
| 2034 | 123 syn match schemeDelimiter !\.[ \t\[\]()";]!me=e-1 |
| 124 syn match schemeDelimiter !\.$! | |
| 7 | 125 " ... and a single dot is not a number but a delimiter |
| 126 | |
| 127 " This keeps all other stuff unhighlighted, except *stuff* and <stuff>: | |
| 128 | |
| 2034 | 129 syn match schemeOther ,[a-z!$%&*/:<=>?^_~+@#%-][-a-z!$%&*/:<=>?^_~0-9+.@#%]*, |
| 130 syn match schemeError ,[a-z!$%&*/:<=>?^_~+@#%-][-a-z!$%&*/:<=>?^_~0-9+.@#%]*[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, | |
| 7 | 131 |
| 2034 | 132 syn match schemeOther "\.\.\." |
| 133 syn match schemeError !\.\.\.[^ \t\[\]()";]\+! | |
| 7 | 134 " ... a special identifier |
| 135 | |
| 2034 | 136 syn match schemeConstant ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]\+\*[ \t\[\]()";],me=e-1 |
| 137 syn match schemeConstant ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]\+\*$, | |
| 138 syn match schemeError ,\*[-a-z!$%&*/:<=>?^_~0-9+.@]*\*[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, | |
| 7 | 139 |
| 2034 | 140 syn match schemeConstant ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>[ \t\[\]()";],me=e-1 |
| 141 syn match schemeConstant ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>$, | |
| 142 syn match schemeError ,<[-a-z!$%&*/:<=>?^_~0-9+.@]*>[^-a-z!$%&*/:<=>?^_~0-9+.@ \t\[\]()";]\+[^ \t\[\]()";]*, | |
| 7 | 143 |
| 144 " Non-quoted lists, and strings: | |
| 145 | |
| 146 syn region schemeStruc matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALL | |
| 147 syn region schemeStruc matchgroup=Delimiter start="#(" matchgroup=Delimiter end=")" contains=ALL | |
| 148 | |
| 17 | 149 syn region schemeStruc matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=ALL |
| 150 syn region schemeStruc matchgroup=Delimiter start="#\[" matchgroup=Delimiter end="\]" contains=ALL | |
| 151 | |
| 152 " Simple literals: | |
| 3513 | 153 syn region schemeString start=+\%(\\\)\@<!"+ skip=+\\[\\"]+ end=+"+ contains=@Spell |
| 7 | 154 |
| 155 " Comments: | |
| 156 | |
| 3513 | 157 syn match schemeComment ";.*$" contains=@Spell |
| 7 | 158 |
| 17 | 159 |
| 160 " Writing out the complete description of Scheme numerals without | |
| 161 " using variables is a day's work for a trained secretary... | |
| 162 | |
| 2034 | 163 syn match schemeOther ![+-][ \t\[\]()";]!me=e-1 |
| 164 syn match schemeOther ![+-]$! | |
| 17 | 165 " |
| 166 " This is a useful lax approximation: | |
| 2034 | 167 syn match schemeNumber "[-#+.]\=[0-9][-#+/0-9a-f@i.boxesfdl]*" |
| 168 syn match schemeError ![-#+0-9.][-#+/0-9a-f@i.boxesfdl]*[^-#+/0-9a-f@i.boxesfdl \t\[\]()";][^ \t\[\]()";]*! | |
| 17 | 169 |
| 2034 | 170 syn match schemeBoolean "#[tf]" |
| 171 syn match schemeError !#[tf][^ \t\[\]()";]\+! | |
| 17 | 172 |
| 2034 | 173 syn match schemeCharacter "#\\" |
| 174 syn match schemeCharacter "#\\." | |
| 175 syn match schemeError !#\\.[^ \t\[\]()";]\+! | |
| 176 syn match schemeCharacter "#\\space" | |
| 177 syn match schemeError !#\\space[^ \t\[\]()";]\+! | |
| 178 syn match schemeCharacter "#\\newline" | |
| 179 syn match schemeError !#\\newline[^ \t\[\]()";]\+! | |
| 180 | |
| 181 " R6RS | |
| 182 syn match schemeCharacter "#\\x[0-9a-fA-F]\+" | |
| 183 | |
| 17 | 184 |
| 185 if exists("b:is_mzscheme") || exists("is_mzscheme") | |
| 36 | 186 " MzScheme extensions |
| 17 | 187 " multiline comment |
| 3513 | 188 syn region schemeComment start="#|" end="|#" contains=@Spell |
| 36 | 189 |
| 17 | 190 " #%xxx are the special MzScheme identifiers |
| 2034 | 191 syn match schemeOther "#%[-a-z!$%&*/:<=>?^_~0-9+.@#%]\+" |
| 17 | 192 " anything limited by |'s is identifier |
| 2034 | 193 syn match schemeOther "|[^|]\+|" |
| 17 | 194 |
| 2034 | 195 syn match schemeCharacter "#\\\%(return\|tab\)" |
| 17 | 196 |
| 197 " Modules require stmt | |
| 198 syn keyword schemeExtSyntax module require dynamic-require lib prefix all-except prefix-all-except rename | |
| 199 " modules provide stmt | |
| 200 syn keyword schemeExtSyntax provide struct all-from all-from-except all-defined all-defined-except | |
| 201 " Other from MzScheme | |
| 202 syn keyword schemeExtSyntax with-handlers when unless instantiate define-struct case-lambda syntax-case | |
| 203 syn keyword schemeExtSyntax free-identifier=? bound-identifier=? module-identifier=? syntax-object->datum | |
| 204 syn keyword schemeExtSyntax datum->syntax-object | |
| 205 syn keyword schemeExtSyntax let-values let*-values letrec-values set!-values fluid-let parameterize begin0 | |
| 3356 | 206 syn keyword schemeExtSyntax error raise opt-lambda define-values unit unit/sig define-signature |
| 17 | 207 syn keyword schemeExtSyntax invoke-unit/sig define-values/invoke-unit/sig compound-unit/sig import export |
| 208 syn keyword schemeExtSyntax link syntax quasisyntax unsyntax with-syntax | |
| 209 | |
| 210 syn keyword schemeExtFunc format system-type current-extension-compiler current-extension-linker | |
| 211 syn keyword schemeExtFunc use-standard-linker use-standard-compiler | |
| 212 syn keyword schemeExtFunc find-executable-path append-object-suffix append-extension-suffix | |
| 213 syn keyword schemeExtFunc current-library-collection-paths current-extension-compiler-flags make-parameter | |
| 214 syn keyword schemeExtFunc current-directory build-path normalize-path current-extension-linker-flags | |
| 215 syn keyword schemeExtFunc file-exists? directory-exists? delete-directory/files delete-directory delete-file | |
| 216 syn keyword schemeExtFunc system compile-file system-library-subpath getenv putenv current-standard-link-libraries | |
| 217 syn keyword schemeExtFunc remove* file-size find-files fold-files directory-list shell-execute split-path | |
| 218 syn keyword schemeExtFunc current-error-port process/ports process printf fprintf open-input-string open-output-string | |
| 219 syn keyword schemeExtFunc get-output-string | |
| 220 " exceptions | |
| 221 syn keyword schemeExtFunc exn exn:application:arity exn:application:continuation exn:application:fprintf:mismatch | |
| 222 syn keyword schemeExtFunc exn:application:mismatch exn:application:type exn:application:mismatch exn:break exn:i/o:filesystem exn:i/o:port | |
| 223 syn keyword schemeExtFunc exn:i/o:port:closed exn:i/o:tcp exn:i/o:udp exn:misc exn:misc:application exn:misc:unsupported exn:module exn:read | |
| 224 syn keyword schemeExtFunc exn:read:non-char exn:special-comment exn:syntax exn:thread exn:user exn:variable exn:application:mismatch | |
| 225 syn keyword schemeExtFunc exn? exn:application:arity? exn:application:continuation? exn:application:fprintf:mismatch? exn:application:mismatch? | |
| 226 syn keyword schemeExtFunc exn:application:type? exn:application:mismatch? exn:break? exn:i/o:filesystem? exn:i/o:port? exn:i/o:port:closed? | |
| 227 syn keyword schemeExtFunc exn:i/o:tcp? exn:i/o:udp? exn:misc? exn:misc:application? exn:misc:unsupported? exn:module? exn:read? exn:read:non-char? | |
| 228 syn keyword schemeExtFunc exn:special-comment? exn:syntax? exn:thread? exn:user? exn:variable? exn:application:mismatch? | |
| 229 " Command-line parsing | |
| 3356 | 230 syn keyword schemeExtFunc command-line current-command-line-arguments once-any help-labels multi once-each |
| 17 | 231 |
| 232 " syntax quoting, unquoting and quasiquotation | |
| 233 syn region schemeUnquote matchgroup=Delimiter start="#," end=![ \t\[\]()";]!me=e-1 contains=ALL | |
| 234 syn region schemeUnquote matchgroup=Delimiter start="#,@" end=![ \t\[\]()";]!me=e-1 contains=ALL | |
| 235 syn region schemeUnquote matchgroup=Delimiter start="#,(" end=")" contains=ALL | |
| 236 syn region schemeUnquote matchgroup=Delimiter start="#,@(" end=")" contains=ALL | |
| 237 syn region schemeUnquote matchgroup=Delimiter start="#,\[" end="\]" contains=ALL | |
| 238 syn region schemeUnquote matchgroup=Delimiter start="#,@\[" end="\]" contains=ALL | |
| 239 syn region schemeQuoted matchgroup=Delimiter start="#['`]" end=![ \t()\[\]";]!me=e-1 contains=ALL | |
| 240 syn region schemeQuoted matchgroup=Delimiter start="#['`](" matchgroup=Delimiter end=")" contains=ALL | |
|
9116
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
241 |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
242 " Identifiers are very liberal in MzScheme/Racket |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
243 syn match schemeOther ![^()[\]{}",'`;#|\\ ]\+! |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
244 |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
245 " Language setting |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
246 syn match schemeLang "#lang [-+_/A-Za-z0-9]\+\>" |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
247 |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
248 " Various number forms |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
249 syn match schemeNumber "[-+]\=[0-9]\+\(\.[0-9]*\)\=\(e[-+]\=[0-9]\+\)\=\>" |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
250 syn match schemeNumber "[-+]\=\.[0-9]\+\(e[-+]\=[0-9]\+\)\=\>" |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
251 syn match schemeNumber "[-+]\=[0-9]\+/[0-9]\+\>" |
|
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
252 syn match schemeNumber "\([-+]\=\([0-9]\+\(\.[0-9]*\)\=\(e[-+]\=[0-9]\+\)\=\|\.[0-9]\+\(e[-+]\=[0-9]\+\)\=\|[0-9]\+/[0-9]\+\)\)\=[-+]\([0-9]\+\(\.[0-9]*\)\=\(e[-+]\=[0-9]\+\)\=\|\.[0-9]\+\(e[-+]\=[0-9]\+\)\=\|[0-9]\+/[0-9]\+\)\=i\>" |
| 17 | 253 endif |
| 254 | |
| 26 | 255 |
| 256 if exists("b:is_chicken") || exists("is_chicken") | |
| 36 | 257 " multiline comment |
| 3513 | 258 syntax region schemeMultilineComment start=/#|/ end=/|#/ contains=@Spell,schemeMultilineComment |
| 36 | 259 |
| 2034 | 260 syn match schemeOther "##[-a-z!$%&*/:<=>?^_~0-9+.@#%]\+" |
| 261 syn match schemeExtSyntax "#:[-a-z!$%&*/:<=>?^_~0-9+.@#%]\+" | |
| 26 | 262 |
| 263 syn keyword schemeExtSyntax unit uses declare hide foreign-declare foreign-parse foreign-parse/spec | |
| 36 | 264 syn keyword schemeExtSyntax foreign-lambda foreign-lambda* define-external define-macro load-library |
| 265 syn keyword schemeExtSyntax let-values let*-values letrec-values ->string require-extension | |
| 266 syn keyword schemeExtSyntax let-optionals let-optionals* define-foreign-variable define-record | |
| 267 syn keyword schemeExtSyntax pointer tag-pointer tagged-pointer? define-foreign-type | |
| 268 syn keyword schemeExtSyntax require require-for-syntax cond-expand and-let* receive argc+argv | |
| 269 syn keyword schemeExtSyntax fixnum? fx= fx> fx< fx>= fx<= fxmin fxmax | |
| 26 | 270 syn keyword schemeExtFunc ##core#inline ##sys#error ##sys#update-errno |
| 271 | |
| 272 " here-string | |
| 3513 | 273 syn region schemeString start=+#<<\s*\z(.*\)+ end=+^\z1$+ contains=@Spell |
| 3356 | 274 |
| 26 | 275 if filereadable(expand("<sfile>:p:h")."/cpp.vim") |
| 276 unlet! b:current_syntax | |
| 277 syn include @ChickenC <sfile>:p:h/cpp.vim | |
| 278 syn region ChickenC matchgroup=schemeOther start=+(\@<=foreign-declare "+ end=+")\@=+ contains=@ChickenC | |
| 279 syn region ChickenC matchgroup=schemeComment start=+foreign-declare\s*#<<\z(.*\)$+hs=s+15 end=+^\z1$+ contains=@ChickenC | |
| 280 syn region ChickenC matchgroup=schemeOther start=+(\@<=foreign-parse "+ end=+")\@=+ contains=@ChickenC | |
| 281 syn region ChickenC matchgroup=schemeComment start=+foreign-parse\s*#<<\z(.*\)$+hs=s+13 end=+^\z1$+ contains=@ChickenC | |
| 282 syn region ChickenC matchgroup=schemeOther start=+(\@<=foreign-parse/spec "+ end=+")\@=+ contains=@ChickenC | |
| 283 syn region ChickenC matchgroup=schemeComment start=+foreign-parse/spec\s*#<<\z(.*\)$+hs=s+18 end=+^\z1$+ contains=@ChickenC | |
| 284 syn region ChickenC matchgroup=schemeComment start=+#>+ end=+<#+ contains=@ChickenC | |
| 285 syn region ChickenC matchgroup=schemeComment start=+#>?+ end=+<#+ contains=@ChickenC | |
| 286 syn region ChickenC matchgroup=schemeComment start=+#>!+ end=+<#+ contains=@ChickenC | |
| 287 syn region ChickenC matchgroup=schemeComment start=+#>\$+ end=+<#+ contains=@ChickenC | |
| 288 syn region ChickenC matchgroup=schemeComment start=+#>%+ end=+<#+ contains=@ChickenC | |
| 289 endif | |
| 290 | |
| 1619 | 291 " suggested by Alex Queiroz |
| 2034 | 292 syn match schemeExtSyntax "#![-a-z!$%&*/:<=>?^_~0-9+.@#%]\+" |
| 3513 | 293 syn region schemeString start=+#<#\s*\z(.*\)+ end=+^\z1$+ contains=@Spell |
| 26 | 294 endif |
| 295 | |
| 7 | 296 " Synchronization and the wrapping up... |
| 297 | |
| 298 syn sync match matchPlace grouphere NONE "^[^ \t]" | |
| 299 " ... i.e. synchronize on a line that starts at the left margin | |
| 300 | |
| 301 " Define the default highlighting. | |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
9116
diff
changeset
|
302 " Only when an item doesn't have highlighting yet |
| 7 | 303 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
304 hi def link schemeSyntax Statement |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
305 hi def link schemeFunc Function |
|
10048
43efa4f5a8ea
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5
Christian Brabandt <cb@256bit.org>
parents:
9116
diff
changeset
|
306 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
307 hi def link schemeString String |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
308 hi def link schemeCharacter Character |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
309 hi def link schemeNumber Number |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
310 hi def link schemeBoolean Boolean |
| 7 | 311 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
312 hi def link schemeDelimiter Delimiter |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
313 hi def link schemeConstant Constant |
| 7 | 314 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
315 hi def link schemeComment Comment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
316 hi def link schemeMultilineComment Comment |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
317 hi def link schemeError Error |
| 7 | 318 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
319 hi def link schemeExtSyntax Type |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
320 hi def link schemeExtFunc PreProc |
|
9116
bc38030aec7d
commit https://github.com/vim/vim/commit/26852128a2b713ef49341a0c18daba928444e7eb
Christian Brabandt <cb@256bit.org>
parents:
3513
diff
changeset
|
321 |
|
10051
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
322 hi def link schemeLang PreProc |
|
46763b01cd9a
commit https://github.com/vim/vim/commit/f37506f60f87d52a9e8850e30067645e2b13783c
Christian Brabandt <cb@256bit.org>
parents:
10048
diff
changeset
|
323 |
| 7 | 324 |
| 325 let b:current_syntax = "scheme" | |
| 3356 | 326 |
| 327 let &cpo = s:cpo_save | |
| 328 unlet s:cpo_save |