Mercurial > vim
view runtime/syntax/mgl.vim @ 20534:ae758aa4ee5e v8.2.0821
patch 8.2.0821: Vim9: memory leak in expr test
Commit: https://github.com/vim/vim/commit/45a1508a229b1d1d2eb79cabe55a183dc18fd040
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon May 25 00:28:33 2020 +0200
patch 8.2.0821: Vim9: memory leak in expr test
Problem: Vim9: memory leak in expr test.
Solution: Do not decrement the length of the list of functions if the
current function is not at the end.
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Mon, 25 May 2020 00:30:03 +0200 |
| parents | 46763b01cd9a |
| children |
line wrap: on
line source
" Vim syntax file " Language: MGL " Version: 1.0 " Last Change: 2006 Feb 21 " Maintainer: Gero Kuhlmann <gero@gkminix.han.de> " " $Id: mgl.vim,v 1.1 2006/02/21 22:08:20 vimboss Exp $ " " quit when a syntax file was already loaded if exists("b:current_syntax") finish endif syn sync lines=250 syn keyword mglBoolean true false syn keyword mglConditional if else then syn keyword mglConstant nil syn keyword mglPredefined maxint syn keyword mglLabel case goto label syn keyword mglOperator to downto in of with syn keyword mglOperator and not or xor div mod syn keyword mglRepeat do for repeat while to until syn keyword mglStatement procedure function break continue return restart syn keyword mglStatement program begin end const var type syn keyword mglStruct record syn keyword mglType integer string char boolean char ipaddr array " String if !exists("mgl_one_line_string") syn region mglString matchgroup=mglString start=+'+ end=+'+ contains=mglStringEscape syn region mglString matchgroup=mglString start=+"+ end=+"+ contains=mglStringEscapeGPC else "wrong strings syn region mglStringError matchgroup=mglStringError start=+'+ end=+'+ end=+$+ contains=mglStringEscape syn region mglStringError matchgroup=mglStringError start=+"+ end=+"+ end=+$+ contains=mglStringEscapeGPC "right strings syn region mglString matchgroup=mglString start=+'+ end=+'+ oneline contains=mglStringEscape syn region mglString matchgroup=mglString start=+"+ end=+"+ oneline contains=mglStringEscapeGPC end syn match mglStringEscape contained "''" syn match mglStringEscapeGPC contained '""' if exists("mgl_symbol_operator") syn match mglSymbolOperator "[+\-/*=\%]" syn match mglSymbolOperator "[<>]=\=" syn match mglSymbolOperator "<>" syn match mglSymbolOperator ":=" syn match mglSymbolOperator "[()]" syn match mglSymbolOperator "\.\." syn match mglMatrixDelimiter "(." syn match mglMatrixDelimiter ".)" syn match mglMatrixDelimiter "[][]" endif syn match mglNumber "-\=\<\d\+\>" syn match mglHexNumber "\$[0-9a-fA-F]\+\>" syn match mglCharacter "\#[0-9]\+\>" syn match mglIpAddr "[0-9]\+\.[0-9]\+\.[0-9]\+\.[0-9]\+\>" syn region mglComment start="(\*" end="\*)" syn region mglComment start="{" end="}" syn region mglComment start="//" end="$" if !exists("mgl_no_functions") syn keyword mglFunction dispose new syn keyword mglFunction get load print select syn keyword mglFunction odd pred succ syn keyword mglFunction chr ord abs sqr syn keyword mglFunction exit syn keyword mglOperator at timeout endif syn region mglPreProc start="(\*\$" end="\*)" syn region mglPreProc start="{\$" end="}" syn keyword mglException try except raise syn keyword mglPredefined exception " Define the default highlighting. " Only when an item doesn't have highlighting yet hi def link mglBoolean Boolean hi def link mglComment Comment hi def link mglConditional Conditional hi def link mglConstant Constant hi def link mglException Exception hi def link mglFunction Function hi def link mglLabel Label hi def link mglMatrixDelimiter Identifier hi def link mglNumber Number hi def link mglHexNumber Number hi def link mglCharacter Number hi def link mglIpAddr Number hi def link mglOperator Operator hi def link mglPredefined mglFunction hi def link mglPreProc PreProc hi def link mglRepeat Repeat hi def link mglStatement Statement hi def link mglString String hi def link mglStringEscape Special hi def link mglStringEscapeGPC Special hi def link mglStringError Error hi def link mglStruct mglStatement hi def link mglSymbolOperator mglOperator hi def link mglType Type let b:current_syntax = "mgl" " vim: ts=8 sw=2