mirror of
https://github.com/neovim/neovim.git
synced 2026-01-03 01:46:31 +10:00
ab20681c52
This reverts commits:
- 6b652a785033fd4164e049492a7327c1ed7c3e5f
- 2f689d5abde0ccddca9e20d8c93a0299bd054e32
- a025a46d4169587145fb54f04af349cd05cb6122
Several email addresses that are known to be valid caused bounces
due to an issue with my email setup. The previous commits incorrectly
marked these addresses as invalid. So revert the whole thing again.
62d8f3dab5
N/A patch:
vim-patch:2f689d5: runtime: mark more invalid email addresses
Co-authored-by: Christian Brabandt <cb@256bit.org>
202 lines
6.8 KiB
VimL
202 lines
6.8 KiB
VimL
" Vim syntax file
|
|
"
|
|
" Language: NATURAL
|
|
" Version: 2.1.0.5
|
|
" Maintainer: Marko von Oppen <marko@von-oppen.com>
|
|
" Last Changed: 2012-02-05 18:50:43
|
|
" Support: http://www.von-oppen.com/
|
|
|
|
" quit when a syntax file was already loaded
|
|
if exists("b:current_syntax")
|
|
finish
|
|
endif
|
|
setlocal iskeyword+=-,*,#,+,_,/
|
|
|
|
let s:cpo_save = &cpo
|
|
set cpo&vim
|
|
|
|
" NATURAL is case insensitive
|
|
syntax case ignore
|
|
|
|
" preprocessor
|
|
syn keyword naturalInclude include nextgroup=naturalObjName skipwhite
|
|
|
|
" define data
|
|
syn keyword naturalKeyword define data end-define
|
|
syn keyword naturalKeyword independent global parameter local redefine view
|
|
syn keyword naturalKeyword const[ant] init initial
|
|
|
|
" loops
|
|
syn keyword naturalLoop read end-read end-work find end-find histogram end-histogram
|
|
syn keyword naturalLoop end-all sort end-sort sorted descending ascending
|
|
syn keyword naturalRepeat repeat end-repeat while until for step end-for
|
|
syn keyword naturalKeyword in file with field starting from ending at thru by isn where
|
|
syn keyword naturalError on error end-error
|
|
syn keyword naturalKeyword accept reject end-enddata number unique retain as release
|
|
syn keyword naturalKeyword start end-start break end-break physical page top sequence
|
|
syn keyword naturalKeyword end-toppage end-endpage end-endfile before processing
|
|
syn keyword naturalKeyword end-before
|
|
|
|
" conditionals
|
|
syn keyword naturalConditional if then else end-if end-norec
|
|
syn keyword naturalConditional decide end-decide value when condition none any
|
|
|
|
" assignment / calculation
|
|
syn keyword naturalKeyword reset assign move left right justified compress to into edited
|
|
syn keyword naturalKeyword add subtract multiply divide compute name
|
|
syn keyword naturalKeyword all giving remainder rounded leaving space numeric
|
|
syn keyword naturalKeyword examine full replace giving separate delimiter modified
|
|
syn keyword naturalKeyword suspend identical suppress
|
|
|
|
" program flow
|
|
syn keyword naturalFlow callnat fetch return enter escape bottom top stack formatted
|
|
syn keyword naturalFlow command call
|
|
syn keyword naturalflow end-subroutine routine
|
|
|
|
" file operations
|
|
syn keyword naturalKeyword update store get delete end transaction work once close
|
|
|
|
" other keywords
|
|
syn keyword naturalKeyword first every of no record[s] found ignore immediate
|
|
syn keyword naturalKeyword set settime key control stop terminate
|
|
|
|
" in-/output
|
|
syn keyword naturalKeyword write display input reinput notitle nohdr map newpage
|
|
syn keyword naturalKeyword alarm text help eject index window base size
|
|
syn keyword naturalKeyword format printer skip lines
|
|
|
|
" functions
|
|
syn keyword naturalKeyword abs atn cos exp frac int log sgn sin sqrt tan val old
|
|
syn keyword naturalKeyword pos
|
|
|
|
" report mode keywords
|
|
syn keyword naturalRMKeyword same loop obtain indexed do doend
|
|
|
|
" Subroutine name
|
|
syn keyword naturalFlow perform subroutine nextgroup=naturalFunction skipwhite
|
|
syn match naturalFunction "\<[a-z][-_a-z0-9]*\>"
|
|
|
|
syn keyword naturalFlow using nextgroup=naturalKeyword,naturalObjName skipwhite
|
|
syn match naturalObjName "\<[a-z][-_a-z0-9]\{,7}\>"
|
|
|
|
" Labels
|
|
syn match naturalLabel "\<[+#a-z][-_#a-z0-9]*\."
|
|
syn match naturalRef "\<[+#a-z][-_#a-z0-9]*\>\.\<[+#a-z][*]\=[-_#a-z0-9]*\>"
|
|
|
|
" mark keyword special handling
|
|
syn keyword naturalKeyword mark nextgroup=naturalMark skipwhite
|
|
syn match naturalMark "\<\*[a-z][-_#.a-z0-9]*\>"
|
|
|
|
" System variables
|
|
syn match naturalSysVar "\<\*[a-z][-a-z0-9]*\>"
|
|
|
|
"integer number, or floating point number without a dot.
|
|
syn match naturalNumber "\<-\=\d\+\>"
|
|
"floating point number, with dot
|
|
syn match naturalNumber "\<-\=\d\+\.\d\+\>"
|
|
"floating point number, starting with a dot
|
|
syn match naturalNumber "\.\d\+"
|
|
|
|
" Formats in write statement
|
|
syn match naturalFormat "\<\d\+[TX]\>"
|
|
|
|
" String and Character contstants
|
|
syn match naturalString "H'\x\+'"
|
|
syn region naturalString start=+"+ end=+"+
|
|
syn region naturalString start=+'+ end=+'+
|
|
|
|
" Type definition
|
|
syn match naturalAttribute "\<[-a-z][a-z]=[-a-z0-9_\.,]\+\>"
|
|
syn match naturalType contained "\<[ABINP]\d\+\(,\d\+\)\=\>"
|
|
syn match naturalType contained "\<[CL]\>"
|
|
|
|
" "TODO" / other comments
|
|
syn keyword naturalTodo contained todo test
|
|
syn match naturalCommentMark contained "[a-z][^ \t/:|]*\(\s[^ \t/:'"|]\+\)*:\s"he=e-1
|
|
|
|
" comments
|
|
syn region naturalComment start="/\*" end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
|
|
syn region naturalComment start="^\*[ *]" end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
|
|
syn region naturalComment start="^\d\{4} \*[\ \*]"lc=5 end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
|
|
syn match naturalComment "^\*$"
|
|
syn match naturalComment "^\d\{4} \*$"lc=5
|
|
" /* is legal syntax in parentheses e.g. "#ident(label./*)"
|
|
syn region naturalPComment contained start="/\*\s*[^),]" end="$" contains=naturalTodo,naturalLineRef,naturalCommentMark
|
|
|
|
" operators
|
|
syn keyword naturalOperator and or not eq ne gt lt ge le mask scan modified
|
|
|
|
" constants
|
|
syn keyword naturalBoolean true false
|
|
syn match naturalLineNo "^\d\{4}"
|
|
|
|
" identifiers
|
|
syn match naturalIdent "\<[+#a-z][-_#a-z0-9]*\>[^\.']"me=e-1
|
|
syn match naturalIdent "\<[+#a-z][-_#a-z0-9]*$"
|
|
syn match naturalLegalIdent "[+#a-z][-_#a-z0-9]*/[-_#a-z0-9]*"
|
|
|
|
" parentheses
|
|
syn region naturalPar matchgroup=naturalParGui start="(" end=")" contains=naturalLabel,naturalRef,naturalOperator,@naturalConstant,naturalType,naturalSysVar,naturalPar,naturalLineNo,naturalPComment
|
|
syn match naturalLineRef "(\d\{4})"
|
|
|
|
" build syntax groups
|
|
syntax cluster naturalConstant contains=naturalString,naturalNumber,naturalAttribute,naturalBoolean
|
|
|
|
" folding
|
|
if v:version >= 600
|
|
set foldignore=*
|
|
endif
|
|
|
|
|
|
" The default methods for highlighting. Can be overridden later
|
|
|
|
" Constants
|
|
hi def link naturalFormat Constant
|
|
hi def link naturalAttribute Constant
|
|
hi def link naturalNumber Number
|
|
hi def link naturalString String
|
|
hi def link naturalBoolean Boolean
|
|
|
|
" All kinds of keywords
|
|
hi def link naturalConditional Conditional
|
|
hi def link naturalRepeat Repeat
|
|
hi def link naturalLoop Repeat
|
|
hi def link naturalFlow Keyword
|
|
hi def link naturalError Keyword
|
|
hi def link naturalKeyword Keyword
|
|
hi def link naturalOperator Operator
|
|
hi def link naturalParGui Operator
|
|
|
|
" Labels
|
|
hi def link naturalLabel Label
|
|
hi def link naturalRefLabel Label
|
|
|
|
" Comments
|
|
hi def link naturalPComment Comment
|
|
hi def link naturalComment Comment
|
|
hi def link naturalTodo Todo
|
|
hi def link naturalCommentMark PreProc
|
|
|
|
hi def link naturalInclude Include
|
|
hi def link naturalSysVar Identifier
|
|
hi def link naturalLineNo LineNr
|
|
hi def link naturalLineRef Error
|
|
hi def link naturalSpecial Special
|
|
hi def link naturalComKey Todo
|
|
|
|
" illegal things
|
|
hi def link naturalRMKeyword Error
|
|
hi def link naturalLegalIdent Error
|
|
|
|
hi def link naturalType Type
|
|
hi def link naturalFunction Function
|
|
hi def link naturalObjName PreProc
|
|
|
|
|
|
let b:current_syntax = "natural"
|
|
|
|
let &cpo = s:cpo_save
|
|
unlet s:cpo_save
|
|
|
|
" vim:set ts=8 sw=8 noet ft=vim list:
|