! ====================================
! Syntax Highlighting Patterns for Ada
! ====================================
!
! Author:    Christopher Conrad
! Release:   June 20, 2001
!
! Contact:   ConradCV@ROSES.BNA.Boeing.com
!
nedit.highlightPatterns:\
	Ada:1:0{\n\
		Comments:"--":"$"::Comment::\n\
		String Literals:"""":"""":"\\n":String::\n\
		Character Literals:"'(?:[^\\\\]|\\\\.)'":::Character Const::\n\
		Ada Attributes:"(?i'size\\s+(use)>)|'\\l[\\l\\d]*(?:_[\\l\\d]+)*":::Ada Attributes::\n\
		Size Attribute:"\\1":""::Keyword:Ada Attributes:C\n\
		Based Numeric Literals:"<(?:\\d+(?:_\\d+)*)#(?:[\\da-fA-F]+(?:_[\\da-fA-F]+)*)(?:\\.[\\da-fA-F]+(?:_[\\da-fA-F]+)*)?#(?iE[+\\-]?(?:\\d+(?:_\\d+)*))?>":::Numeric Const::\n\
		Numeric Literals:"<(?:\\d+(?:_\\d+)*)(?:\\.\\d+(?:_\\d+)*)?(?iE[+\\-]?(?:\\d+(?:_\\d+)*))?>":::Numeric Const::\n\
		Pragma:"(?n(?ipragma)\\s+\\l[\\l\\d]*(?:_\\l[\\l\\d]*)*\\s*\\([^)]*\\)\\s*;)":::Preprocessor::\n\
		Withs Use:"(?#\n\Make \\s work across newlines)(?n(?iwith|use)(?#\n\Leading W/S)\\s+(?#\n\First package name)(?:\\l[\\l\\d]*(?:(_|\\.\\l)[\\l\\d]+)*)(?#\n\Additional package names [optional])(?:\\s*,\\s*(?:\\l[\\l\\d]*(?:(_|\\.\\l)[\\l\\d]+)*))*(?#\n\Trailing W/S)\\s*;)+":::Preprocessor::\n\
		Predefined Types:"(?i(?=[bcdfilps]))<(?iboolean|character|count|duration|float|integer|long_float|long_integer|priority|short_float|short_integer|string)>":::Storage Type::D\n\
		Predefined Subtypes:"(?i(?=[fnp]))<(?ifield|natural|number_base|positive|priority)>":::Storage Type::D\n\
		Reserved Words:"(?i(?=[a-gil-pr-uwx]))<(?iabort|abs|accept|access|and|array|at|begin|body|case|constant|declare|delay|delta|digits|do|else|elsif|end|entry|exception|exit|for|function|generic|goto|if|in|is|limited|loop|mod|new|not|null|of|or|others|out|package|pragma|private|procedure|raise|range|record|rem|renames|return|reverse|select|separate|subtype|task|terminate|then|type|use|when|while|with|xor)>":::Keyword::D\n\
		Dot All:"\\.(?iall)>":::Storage Type::\n\
		Ada 95 Only:"(?i(?=[aprtu]))<(?iabstract|tagged|all|protected|aliased|requeue|until)>":::Keyword::\n\
		Labels Parent:"<(\\l[\\l\\d]*(?:_[\\l\\d]+)*)(?n\\s*:\\s*)(?ifor|while|loop|declare|begin)>":::Keyword::D\n\
		Labels subpattern:"\\1":""::Label:Labels Parent:DC\n\
		Endloop labels:"<(?nend\\s+loop\\s+(\\l[\\l\\d]*(?:_[\\l\\d]+)*\\s*));":::Keyword::\n\
		Endloop labels subpattern:"\\1":""::Label:Endloop labels:C\n\
		Goto labels:"\\<\\<\\l[\\l\\d]*(?:_[\\l\\d]+)*\\>\\>":::Flag::\n\
		Exit parent:"((?iexit))\\s+(\\l\\w*)(?i\\s+when>)?":::Keyword::\n\
		Exit subpattern:"\\2":""::Label:Exit parent:C\n\
		Identifiers:"<(?:\\l[\\l\\d]*(?:_[\\l\\d]+)*)>":::Identifier::D\n\
	}
nedit.languageModes: 	Ada:.ada .ad .ads .adb .a::::::