Mercurial > vim
view runtime/syntax/elm.vim @ 25786:ec62e0764ffa v8.2.3428
patch 8.2.3428: using freed memory when replacing
Commit: https://github.com/vim/vim/commit/35a9a00afcb20897d462a766793ff45534810dc3
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Sep 11 21:14:20 2021 +0200
patch 8.2.3428: using freed memory when replacing
Problem: Using freed memory when replacing. (Dhiraj Mishra)
Solution: Get the line pointer after calling ins_copychar().
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 11 Sep 2021 21:15:03 +0200 |
parents | 661eb972cb22 |
children |
line wrap: on
line source
" Vim syntax file " Language: Elm " Maintainer: Andreas Scharf <as@99n.de> " Original Author: Joseph Hager <ajhager@gmail.com> " Copyright: Joseph Hager <ajhager@gmail.com> " License: BSD3 " Latest Revision: 2020-05-29 if exists('b:current_syntax') finish endif " Keywords syn keyword elmConditional else if of then case syn keyword elmAlias alias syn keyword elmTypedef contained type port syn keyword elmImport exposing as import module where " Operators " elm/core syn match elmOperator contained "\(<|\||>\|||\|&&\|==\|/=\|<=\|>=\|++\|::\|+\|-\|*\|/\|//\|^\|<>\|>>\|<<\|<\|>\|%\)" " elm/parser syn match elmOperator contained "\(|.\||=\)" " elm/url syn match elmOperator contained "\(</>\|<?>\)" " Types syn match elmType "\<[A-Z][0-9A-Za-z_-]*" syn keyword elmNumberType number " Modules syn match elmModule "\<\([A-Z][0-9A-Za-z_'-\.]*\)\+\.[A-Za-z]"me=e-2 syn match elmModule "^\(module\|import\)\s\+[A-Z][0-9A-Za-z_'-\.]*\(\s\+as\s\+[A-Z][0-9A-Za-z_'-\.]*\)\?\(\s\+exposing\)\?" contains=elmImport " Delimiters syn match elmDelimiter "[,;]" syn match elmBraces "[()[\]{}]" " Functions syn match elmTupleFunction "\((,\+)\)" " Comments syn keyword elmTodo TODO FIXME XXX contained syn match elmLineComment "--.*" contains=elmTodo,@spell syn region elmComment matchgroup=elmComment start="{-|\=" end="-}" contains=elmTodo,elmComment,@spell fold " Strings syn match elmStringEscape "\\u[0-9a-fA-F]\{4}" contained syn match elmStringEscape "\\[nrfvbt\\\"]" contained syn region elmString start="\"" skip="\\\"" end="\"" contains=elmStringEscape,@spell syn region elmTripleString start="\"\"\"" skip="\\\"" end="\"\"\"" contains=elmStringEscape,@spell syn match elmChar "'[^'\\]'\|'\\.'\|'\\u[0-9a-fA-F]\{4}'" " Lambda syn region elmLambdaFunc start="\\"hs=s+1 end="->"he=e-2 " Debug syn match elmDebug "Debug.\(log\|todo\|toString\)" " Numbers syn match elmInt "-\?\<\d\+\>" syn match elmFloat "-\?\(\<\d\+\.\d\+\>\)" " Identifiers syn match elmTopLevelDecl "^\s*[a-zA-Z][a-zA-z0-9_]*\('\)*\s\+:\(\r\n\|\r\|\n\|\s\)\+" contains=elmOperator syn match elmFuncName /^\l\w*/ " Folding syn region elmTopLevelTypedef start="type" end="\n\(\n\n\)\@=" contains=ALL fold syn region elmTopLevelFunction start="^[a-zA-Z].\+\n[a-zA-Z].\+=" end="^\(\n\+\)\@=" contains=ALL fold syn region elmCaseBlock matchgroup=elmCaseBlockDefinition start="^\z\(\s\+\)\<case\>" end="^\z1\@!\W\@=" end="\(\n\n\z1\@!\)\@=" end="\n\z1\@!\(\n\n\)\@=" contains=ALL fold syn region elmCaseItemBlock start="^\z\(\s\+\).\+->$" end="^\z1\@!\W\@=" end="\(\n\n\z1\@!\)\@=" end="\(\n\z1\S\)\@=" contains=ALL fold syn region elmLetBlock matchgroup=elmLetBlockDefinition start="\<let\>" end="\<in\>" contains=ALL fold hi def link elmFuncName Function hi def link elmCaseBlockDefinition Conditional hi def link elmCaseBlockItemDefinition Conditional hi def link elmLetBlockDefinition TypeDef hi def link elmTopLevelDecl Function hi def link elmTupleFunction Normal hi def link elmTodo Todo hi def link elmComment Comment hi def link elmLineComment Comment hi def link elmString String hi def link elmTripleString String hi def link elmChar String hi def link elmStringEscape Special hi def link elmInt Number hi def link elmFloat Float hi def link elmDelimiter Delimiter hi def link elmBraces Delimiter hi def link elmTypedef TypeDef hi def link elmImport Include hi def link elmConditional Conditional hi def link elmAlias Delimiter hi def link elmOperator Operator hi def link elmType Type hi def link elmNumberType Identifier hi def link elmLambdaFunc Function hi def link elmDebug Debug hi def link elmModule Type syn sync minlines=500 let b:current_syntax = 'elm'