3
<!-- This file adds support for AdaControl -->
10
<Name>AdaControl Rules File</Name>
11
<Extension>.aru</Extension>
12
<Keywords>^(check|search)\b</Keywords>
15
<New_Line_Comment_Start>--</New_Line_Comment_Start>
16
<String_Delimiter>"</String_Delimiter>
17
<Constant_Character>'</Constant_Character>
18
<Can_Indent>False</Can_Indent>
19
<Syntax_Highlighting>True</Syntax_Highlighting>
20
<Case_Sensitive>False</Case_Sensitive>
26
<Pattern>^[ \t]*(\w+)[ \t]*:</Pattern>
30
<Name>namespace</Name>
31
<Pattern>(check|search)[ \t]+(\w+)</Pattern>
36
<Pattern>(check|search)</Pattern>
44
<tool name="AdaControl">
45
<language>Ada</language>
46
<initial-cmd-line>-v</initial-cmd-line>
47
<switches lines="3" columns="1">
48
<title line="1" column="1">
51
<field label="Rules list" switch="-l" separator=" "/>
52
<field label="Rules file" switch="-f" separator=" " as-file="true"/>
54
<title line="2" column="1">
57
<field label="Project file" switch="-p" separator=" " line="2" column="1" as-file="true"
58
tip="Emacs style project file (.adp)"/>
59
<check label="Recursive mode" switch="-r" line="2" column="1"
60
tip="Process recursively all units the given units depend on"/>
61
<check label="Ignore local deactivation" switch="-i" line="2" column="1"
62
tip="Ignore local deactivation tags in source file"/>
63
<check label="Process spec only" switch="-s" line="2" column="2"/>
64
<check label="Compilation unit mode" switch="-u" line="2" column="2"
65
tip="Treat all source names as compilation units even if they look like file names"/>
67
<title line="3" column="1">
70
<check label="Verbose mode" switch="-v" line="3" column="1"
71
tip="Displays more information, such as unit name, nil units, ..."/>
72
<check label="Debug mode" switch="-d" line="3" column="1"
73
tip="Displays debug information, such as output file name, ..."/>
74
<field label="Output file" switch="-o" line="3" column="1" separator=" "
75
as-file="true" tip="Output file name"/>
76
<check label="Overwrite mode" switch="-w" line="3" column="1"
77
tip="Overwrite output file if it exists"/>
84
<action name="Check_Rules" show-command="false" output="none">
85
<shell>Project %P</shell>
86
<shell>Project.get_tool_switches_as_string %1 AdaControl</shell>
87
<external show-command="true" output="">adactl %1 %Ps</external>
88
<shell>Locations.parse """%1 """ run</shell>
93
<menu action="Check_Rules">
94
<title>Tools/AdaControl</title>