"----------------------------------------------------------------------------"  Description: Vim Ada syntax file"     Language: Ada (2005)"	   $Id: ada.vim,v 1.2 2007/05/05 18:22:26 vimboss Exp $"    Copyright: Copyright (C) 2006 Martin Krischik"   Maintainer: Martin Krischik"		David A. Wheeler <dwheeler@dwheeler.com>"		Simon Bradley <simon.bradley@pitechnology.com>" Contributors: Preben Randhol."      $Author: vimboss $"	 $Date: 2007/05/05 18:22:26 $"      Version: 4.2"    $Revision: 1.2 $"     $HeadURL: https://svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/syntax/ada.vim $"		http://www.dwheeler.com/vim"      History: 24.05.2006 MK Unified Headers"		26.05.2006 MK ' should not be in iskeyword."		16.07.2006 MK Ada-Mode as vim-ball"		02.10.2006 MK Better folding."		15.10.2006 MK Bram's suggestion for runtime integration"		05.11.2006 MK Spell check for comments and strings only"		05.11.2006 MK Bram suggested to save on spaces"    Help Page: help ft-ada-syntax"------------------------------------------------------------------------------" The formal spec of Ada 2005 (ARM) is the "Ada 2005 Reference Manual"." For more Ada 2005 info, see http://www.gnuada.org and http://www.adapower.com."" This vim syntax file works on vim 7.0 only and makes use of most of Voim 7.0 " advanced features."------------------------------------------------------------------------------ if exists("b:current_syntax") || version < 700    finishendif let b:current_syntax = "ada" " Section: Ada is entirely case-insensitive. {{{1"syntax   case ignoresetlocal nosmartcasesetlocal ignorecase " Section: Highlighting commands {{{1"" There are 72 reserved words in total in Ada2005. Some keywords are" used in more than one way. For example:" 1. "end" is a general keyword, but "end if" ends a Conditional." 2. "then" is a conditional, but "and then" is an operator."for b:Item in g:ada#Keywords   " Standard Exceptions (including I/O).   " We'll highlight the standard exceptions, similar to vim's Python mode.   " It's possible to redefine the standard exceptions as something else,   " but doing so is very bad practice, so simply highlighting them makes sense.   if b:Item['kind'] == "x"      execute "syntax keyword adaException " . b:Item['word']   endif   if b:Item['kind'] == "a"      execute 'syntax match adaAttribute "\V' . b:Item['word'] . '"'   endif   " We don't normally highlight types in package Standard   " (Integer, Character, Float, etc.).  I don't think it looks good   " with the other type keywords, and many Ada programs define   " so many of their own types that it looks inconsistent.   " However, if you want this highlighting, turn on "ada_standard_types".   " For package Standard's definition, see ARM section A.1.   if b:Item['kind'] == "t" && exists ("g:ada_standard_types")      execute "syntax keyword adaBuiltinType " . b:Item['word']   endifendfor " Section: others {{{1"syntax keyword  adaLabel	others " Section: Operatoren {{{1"syntax keyword  adaOperator abs mod not rem xorsyntax match    adaOperator "\<and\>"syntax match    adaOperator "\<and\s\+then\>"syntax match    adaOperator "\<or\>"syntax match    adaOperator "\<or\s\+else\>"syntax match    adaOperator "[-+*/<>&]"syntax keyword  adaOperator **syntax match    adaOperator "[/<>]="syntax keyword  adaOperator =>syntax match    adaOperator "\.\."syntax match    adaOperator "=" " Section: <> {{{1"" Handle the box, <>, specially:"syntax keyword  adaSpecial	    <> " Section: rainbow color {{{1"if exists("g:ada_rainbow_color")    syntax match	adaSpecial	 "[:;.,]"    runtime plugin/Rainbow_Parenthsis.vimelse    syntax match	adaSpecial	 "[:;().,]"endif " Section: := {{{1"" We won't map "adaAssignment" by default, but we need to map ":=" to" something or the "=" inside it will be mislabelled as an operator." Note that in Ada, assignment (:=) is not considered an operator."syntax match adaAssignment		":=" " Section: Numbers, including floating point, exponents, and alternate bases. {{{1"syntax match   adaNumber		"\<\d[0-9_]*\(\.\d[0-9_]*\)\=\([Ee][+-]\=\d[0-9_]*\)\=\>"syntax match   adaNumber		"\<\d\d\=#\x[0-9A-Fa-f_]*\(\.\x[0-9A-Fa-f_]*\)\=#\([Ee][+-]\=\d[0-9_]*\)\=" " Section: Identify leading numeric signs {{{1"" In "A-5" the "-" is an operator, " but in "A:=-5" the "-" is a sign. This" handles "A3+-5" (etc.) correctly.  " This assumes that if you put a" don't put a space after +/- when it's used " as an operator, you won't" put a space before it either -- which is true " in code I've seen."syntax match adaSign "[[:space:]<>=(,|:;&*/+-][+-]\d"lc=1,hs=s+1,he=e-1,me=e-1 " Section: Labels for the goto statement. {{{1"syntax region  adaLabel		start="<<"  end=">>" " Section: Boolean Constants {{{1" Boolean Constants.syntax keyword adaBoolean	true false " Section: Warn C/C++ {{{1"" Warn people who try to use C/C++ notation erroneously:"syntax match adaError "//"syntax match adaError "/\*"syntax match adaError "=="  " Section: Space Errors {{{1"if exists("g:ada_space_errors")   if !exists("g:ada_no_trail_space_error")       syntax match   adaSpaceError	 excludenl "\s\+$"   endif   if !exists("g:ada_no_tab_space_error")      syntax match   adaSpaceError	 " \+\t"me=e-1   endif   if !exists("g:ada_all_tab_usage")      syntax match   adaSpecial	 "\t"   endifendif " Section: end {{{1" Unless special ("end loop", "end if", etc.), "end" marks the end of a" begin, package, task etc. Assiging it to adaEnd.syntax match    adaEnd	"\<end\>" syntax keyword  adaPreproc		 pragma syntax keyword  adaRepeat	 exit for loop reverse whilesyntax match    adaRepeat		   "\<end\s\+loop\>" syntax keyword  adaStatement accept delay goto raise requeue returnsyntax keyword  adaStatement terminatesyntax match    adaStatement  "\<abort\>" " Section: Handle Ada's record keywords. {{{1"" 'record' usually starts a structure, but "with null record;" does not," and 'end record;' ends a structure.  The ordering here is critical -" 'record;' matches a "with null record", so make it a keyword (this can" match when the 'with' or 'null' is on a previous line)." We see the "end" in "end record" before the word record, so we match that" pattern as adaStructure (and it won't match the "record;" pattern)."syntax match adaStructure   "\<record\>"	contains=adaRecordsyntax match adaStructure   "\<end\s\+record\>"	contains=adaRecordsyntax match adaKeyword	    "\<record;"me=e-1 " Section: type classes {{{1"syntax keyword adaStorageClass	abstract access aliased array at constant deltasyntax keyword adaStorageClass	digits limited of private range taggedsyntax keyword adaStorageClass	interface synchronizedsyntax keyword adaTypedef	subtype type " Section: Conditionals {{{1"" "abort" after "then" is a conditional of its own."syntax match    adaConditional  "\<then\>"syntax match    adaConditional	"\<then\s\+abort\>"syntax match    adaConditional	"\<else\>"syntax match    adaConditional	"\<end\s\+if\>"syntax match    adaConditional	"\<end\s\+case\>"syntax match    adaConditional	"\<end\s\+select\>"syntax keyword  adaConditional	if case selectsyntax keyword  adaConditional	elsif when " Section: other keywords {{{1syntax match    adaKeyword	    "\<is\>" contains=adaRecordsyntax keyword  adaKeyword	    all do exception in new null outsyntax keyword  adaKeyword	    separate until overriding " Section: begin keywords {{{1"" These keywords begin various constructs, and you _might_ want to" highlight them differently."syntax keyword  adaBegin	begin body declare entry genericsyntax keyword  adaBegin	protected renames task syntax match    adaBegin	"\<function\>" contains=adaFunctionsyntax match    adaBegin	"\<procedure\>" contains=adaProceduresyntax match    adaBegin	"\<package\>" contains=adaPackage if exists("ada_with_gnat_project_files")   syntax keyword adaBegin	projectendif " Section: with, use {{{1"if exists("ada_withuse_ordinary")   " Don't be fancy. Display "with" and "use" as ordinary keywords in all cases.   syntax keyword adaKeyword		with useelse   " Highlight "with" and "use" clauses like C's "#include" when they're used   " to reference other compilation units; otherwise they're ordinary keywords.   " If we have vim 6.0 or later, we'll use its advanced pattern-matching   " capabilities so that we won't match leading spaces.   syntax match adaKeyword	"\<with\>"   syntax match adaKeyword	"\<use\>"   syntax match adaBeginWith	"^\s*\zs\(\(with\(\s\+type\)\=\)\|\(use\)\)\>" contains=adaInc   syntax match adaSemiWith	";\s*\zs\(\(with\(\s\+type\)\=\)\|\(use\)\)\>" contains=adaInc   syntax match adaInc		"\<with\>" contained contains=NONE   syntax match adaInc		"\<with\s\+type\>" contained contains=NONE   syntax match adaInc		"\<use\>" contained contains=NONE   " Recognize "with null record" as a keyword (even the "record").   syntax match adaKeyword	"\<with\s\+null\s\+record\>"   " Consider generic formal parameters of subprograms and packages as keywords.   syntax match adaKeyword	";\s*\zswith\s\+\(function\|procedure\|package\)\>"   syntax match adaKeyword	"^\s*\zswith\s\+\(function\|procedure\|package\)\>"endif " Section: String and character constants. {{{1"syntax region  adaString	contains=@Spell start=+"+ skip=+""+ end=+"+ syntax match   adaCharacter "'.'" " Section: Todo (only highlighted in comments) {{{1"syntax keyword adaTodo contained TODO FIXME XXX NOTE " Section: Comments. {{{1"syntax region  adaComment     \ oneline     \ contains=adaTodo,adaLineError,@Spell    \ start="--"     \ end="$" " Section: line errors {{{1"" Note: Line errors have become quite slow with Vim 7.0"if exists("g:ada_line_errors")    syntax match adaLineError "\(^.\{79}\)\@<=."  contains=ALL containedin=ALLendif " Section: syntax folding {{{1""	Syntax folding is very tricky - for now I still suggest to use"	indent folding"if exists("g:ada_folding") && g:ada_folding[0] == 's'   if stridx (g:ada_folding, 'p') >= 0      syntax region adaPackage         \ start="\(\<package\s\+body\>\|\<package\>\)\s*\z(\k*\)"         \ end="end\s\+\z1\s*;"         \ keepend extend transparent fold contains=ALL   endif   if stridx (g:ada_folding, 'f') >= 0      syntax region adaProcedure         \ start="\<procedure\>\s*\z(\k*\)"         \ end="\<end\>\s\+\z1\s*;"         \ keepend extend transparent fold contains=ALL      syntax region adaFunction         \ start="\<procedure\>\s*\z(\k*\)"         \ end="end\s\+\z1\s*;"         \ keepend extend transparent fold contains=ALL   endif   if stridx (g:ada_folding, 'f') >= 0      syntax region adaRecord         \ start="\<is\s\+record\>"         \ end="\<end\s\+record\>"         \ keepend extend transparent fold contains=ALL   endifendif " Section: The default methods for highlighting. Can be overridden later. {{{1"highlight def link adaCharacter	    Characterhighlight def link adaComment	    Commenthighlight def link adaConditional   Conditionalhighlight def link adaKeyword	    Keywordhighlight def link adaLabel	    Labelhighlight def link adaNumber	    Numberhighlight def link adaSign	    Numberhighlight def link adaOperator	    Operatorhighlight def link adaPreproc	    PreProchighlight def link adaRepeat	    Repeathighlight def link adaSpecial	    Specialhighlight def link adaStatement	    Statementhighlight def link adaString	    Stringhighlight def link adaStructure	    Structurehighlight def link adaTodo	    Todohighlight def link adaType	    Typehighlight def link adaTypedef	    Typedefhighlight def link adaStorageClass  StorageClasshighlight def link adaBoolean	    Booleanhighlight def link adaException	    Exceptionhighlight def link adaAttribute	    Taghighlight def link adaInc	    Includehighlight def link adaError	    Errorhighlight def link adaSpaceError    Errorhighlight def link adaLineError	    Errorhighlight def link adaBuiltinType   Typehighlight def link adaAssignment    Special " Subsection: Begin, End {{{2"if exists ("ada_begin_preproc")   " This is the old default display:   highlight def link adaBegin   PreProc   highlight def link adaEnd     PreProcelse   " This is the new default display:   highlight def link adaBegin   Keyword   highlight def link adaEnd     Keywordendif  " Section: formatoptions {{{1"setlocal formatoptions+=ron " Section: sync {{{1"" We don't need to look backwards to highlight correctly;" this speeds things up greatly.syntax sync minlines=1 maxlines=1 finish " 1}}} "------------------------------------------------------------------------------"   Copyright (C) 2006	Martin Krischik""   Vim is Charityware - see ":help license" or uganda.txt for licence details."------------------------------------------------------------------------------"vim: textwidth=78 nowrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab"vim: foldmethod=marker