Mercurial > vim
view runtime/syntax/aflex.vim @ 31527:aa2ec7a12146 v9.0.1096
patch 9.0.1096: reallocating hashtab when the size didn't change
Commit: https://github.com/vim/vim/commit/71d53e7c579b8af44083142ea3894b455947ad81
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Dec 25 20:46:13 2022 +0000
patch 9.0.1096: reallocating hashtab when the size didn't change
Problem: Reallocating hashtab when the size didn't change.
Solution: Bail out when the hashtab is already the desired size.
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sun, 25 Dec 2022 22:00:04 +0100 |
| parents | 46763b01cd9a |
| children |
line wrap: on
line source
" Vim syntax file " Language: AfLex (from Lex syntax file) " Maintainer: Mathieu Clabaut <mathieu.clabaut@free.fr> " LastChange: 02 May 2001 " Original: Lex, maintained by Dr. Charles E. Campbell, Jr. " Comment: Replaced sourcing c.vim file by ada.vim and rename lex* " in aflex* " quit when a syntax file was already loaded if exists("b:current_syntax") finish endif " Read the Ada syntax to start with runtime! syntax/ada.vim unlet b:current_syntax " --- AfLex stuff --- "I'd prefer to use aflex.* , but it doesn't handle forward definitions yet syn cluster aflexListGroup contains=aflexAbbrvBlock,aflexAbbrv,aflexAbbrv,aflexAbbrvRegExp,aflexInclude,aflexPatBlock,aflexPat,aflexBrace,aflexPatString,aflexPatTag,aflexPatTag,aflexPatComment,aflexPatCodeLine,aflexMorePat,aflexPatSep,aflexSlashQuote,aflexPatCode,cInParen,cUserLabel,cOctalZero,cCppSkip,cErrInBracket,cErrInParen,cOctalError,cCppOut2 syn cluster aflexListPatCodeGroup contains=aflexAbbrvBlock,aflexAbbrv,aflexAbbrv,aflexAbbrvRegExp,aflexInclude,aflexPatBlock,aflexPat,aflexBrace,aflexPatTag,aflexPatTag,aflexPatComment,aflexPatCodeLine,aflexMorePat,aflexPatSep,aflexSlashQuote,cInParen,cUserLabel,cOctalZero,cCppSkip,cErrInBracket,cErrInParen,cOctalError,cCppOut2 " Abbreviations Section syn region aflexAbbrvBlock start="^\([a-zA-Z_]\+\t\|%{\)" end="^%%$"me=e-2 skipnl nextgroup=aflexPatBlock contains=aflexAbbrv,aflexInclude,aflexAbbrvComment syn match aflexAbbrv "^\I\i*\s"me=e-1 skipwhite contained nextgroup=aflexAbbrvRegExp syn match aflexAbbrv "^%[sx]" contained syn match aflexAbbrvRegExp "\s\S.*$"lc=1 contained nextgroup=aflexAbbrv,aflexInclude syn region aflexInclude matchgroup=aflexSep start="^%{" end="%}" contained contains=ALLBUT,@aflexListGroup syn region aflexAbbrvComment start="^\s\+/\*" end="\*/" "%% : Patterns {Actions} syn region aflexPatBlock matchgroup=Todo start="^%%$" matchgroup=Todo end="^%%$" skipnl skipwhite contains=aflexPat,aflexPatTag,aflexPatComment syn region aflexPat start=+\S+ skip="\\\\\|\\." end="\s"me=e-1 contained nextgroup=aflexMorePat,aflexPatSep contains=aflexPatString,aflexSlashQuote,aflexBrace syn region aflexBrace start="\[" skip=+\\\\\|\\+ end="]" contained syn region aflexPatString matchgroup=String start=+"+ skip=+\\\\\|\\"+ matchgroup=String end=+"+ contained syn match aflexPatTag "^<\I\i*\(,\I\i*\)*>*" contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep syn match aflexPatTag +^<\I\i*\(,\I\i*\)*>*\(\\\\\)*\\"+ contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep syn region aflexPatComment start="^\s*/\*" end="\*/" skipnl contained contains=cTodo nextgroup=aflexPatComment,aflexPat,aflexPatString,aflexPatTag syn match aflexPatCodeLine ".*$" contained contains=ALLBUT,@aflexListGroup syn match aflexMorePat "\s*|\s*$" skipnl contained nextgroup=aflexPat,aflexPatTag,aflexPatComment syn match aflexPatSep "\s\+" contained nextgroup=aflexMorePat,aflexPatCode,aflexPatCodeLine syn match aflexSlashQuote +\(\\\\\)*\\"+ contained syn region aflexPatCode matchgroup=Delimiter start="{" matchgroup=Delimiter end="}" skipnl contained contains=ALLBUT,@aflexListPatCodeGroup syn keyword aflexCFunctions BEGIN input unput woutput yyleng yylook yytext syn keyword aflexCFunctions ECHO output winput wunput yyless yymore yywrap " <c.vim> includes several ALLBUTs; these have to be treated so as to exclude aflex* groups syn cluster cParenGroup add=aflex.* syn cluster cDefineGroup add=aflex.* syn cluster cPreProcGroup add=aflex.* syn cluster cMultiGroup add=aflex.* " Synchronization syn sync clear syn sync minlines=300 syn sync match aflexSyncPat grouphere aflexPatBlock "^%[a-zA-Z]" syn sync match aflexSyncPat groupthere aflexPatBlock "^<$" syn sync match aflexSyncPat groupthere aflexPatBlock "^%%$" " Define the default highlighting. " Only when an item doesn't have highlighting yet hi def link aflexSlashQuote aflexPat hi def link aflexBrace aflexPat hi def link aflexAbbrvComment aflexPatComment hi def link aflexAbbrv SpecialChar hi def link aflexAbbrvRegExp Macro hi def link aflexCFunctions Function hi def link aflexMorePat SpecialChar hi def link aflexPat Function hi def link aflexPatComment Comment hi def link aflexPatString Function hi def link aflexPatTag Special hi def link aflexSep Delimiter let b:current_syntax = "aflex" " vim:ts=10