! ==================================== ! Syntax Highlighting Patterns for Ada ! ==================================== ! ! Use this pattern by starting NEdit with: ! ! nedit -import Ada.1.0.pats ! ! If you want to keep the patterns permanently, you have to save your ! preferences by choosing 'Save Defaults' from the Preferences menu. ! ! ! Author: Christopher Conrad ! Release: June 20, 2001 ! Version: 1.0 ! ! Contact: ConradCV@ROSES.BNA.Boeing.com ! nedit.highlightPatterns:\ Ada:1:0{\n\ README:"Ada Syntax Highlighting Pattern, Version 1.0, created by Christopher Conrad, ConradCV at ROSES.BNA.Boeing.com":::Flag::D\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:::::: ! Change Log: ! ! 2005-02-07 Thorsten Haude ! - Removed a typo in the Withs use pattern ! - Added README pseudo pattern and set version number to 1.0