1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
|
with Ada.Characters.Handling,
Ada.Strings.Fixed;
package body ARM_Format.Data is
--
-- Ada reference manual formatter (ARM_Form).
--
-- This package contains various data used by the input file parser.
--
-- ---------------------------------------
-- Copyright 2011, 2012 AXE Consultants. All rights reserved.
-- P.O. Box 1512, Madison WI 53701
-- E-Mail: randy@rrsoftware.com
--
-- ARM_Form is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License version 3
-- as published by the Free Software Foundation.
--
-- AXE CONSULTANTS MAKES THIS TOOL AND SOURCE CODE AVAILABLE ON AN "AS IS"
-- BASIS AND MAKES NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE ACCURACY,
-- CAPABILITY, EFFICIENCY, MERCHANTABILITY, OR FUNCTIONING OF THIS TOOL.
-- IN NO EVENT WILL AXE CONSULTANTS BE LIABLE FOR ANY GENERAL,
-- CONSEQUENTIAL, INDIRECT, INCIDENTAL, EXEMPLARY, OR SPECIAL DAMAGES,
-- EVEN IF AXE CONSULTANTS HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
-- DAMAGES.
--
-- A copy of the GNU General Public License is available in the file
-- gpl-3-0.txt in the standard distribution of the ARM_Form tool.
-- Otherwise, see <http://www.gnu.org/licenses/>.
--
-- If the GPLv3 license is not satisfactory for your needs, a commercial
-- use license is available for this tool. Contact Randy at AXE Consultants
-- for more information.
--
-- ---------------------------------------
--
-- Edit History:
--
-- 8/ 8/11 - RLB - Split from base package, mainly to reduce the
-- size of that package.
-- - RLB - Added aspect index commands.
-- 10/18/11 - RLB - Changed to GPLv3 license.
-- 10/19/11 - RLB - Added AspectDefn command.
-- 10/20/11 - RLB - Added DeletedPragmaSyn command.
-- 10/26/11 - RLB - Added versioned break commands.
-- 3/27/12 - RLB - Added more versioned break commands.
-- 12/17/12 - RLB - Added Ada 2012 AARM headings.
function Command (Name : in ARM_Input.Command_Name_Type) return Command_Type is
-- Return the command value for a particular command name:
Canonical_Name : constant String :=
Ada.Characters.Handling.To_Lower (Ada.Strings.Fixed.Trim (Name, Ada.Strings.Right));
begin
if Canonical_Name = "begin" then
return Text_Begin;
elsif Canonical_Name = "end" then
return Text_End;
elsif Canonical_Name = "redundant" then
return Redundant;
elsif Canonical_Name = "comment" then
return Comment;
elsif Canonical_Name = "noprefix" then
return No_Prefix;
elsif Canonical_Name = "noparanum" then
return No_Para_Num;
elsif Canonical_Name = "keepnext" then
return Keep_with_Next;
elsif Canonical_Name = "leading" then
return Leading;
elsif Canonical_Name = "trailing" then
return Trailing;
elsif Canonical_Name = "+" then -- Can't happen directly, but can happen through stacking.
return Up;
elsif Canonical_Name = "-" then -- Can't happen directly, but can happen through stacking.
return Down;
elsif Canonical_Name = "thinline" then
return Thin_Line;
elsif Canonical_Name = "thickline" then
return Thick_Line;
elsif Canonical_Name = "tabclear" then
return Tab_Clear;
elsif Canonical_Name = "tabset" then
return Tab_Set;
elsif Canonical_Name = "table" then
return Table;
elsif Canonical_Name = "picturealone" then
return Picture_Alone;
elsif Canonical_Name = "pictureinline" then
return Picture_Inline;
elsif Canonical_Name = "last" then
return Table_Last;
elsif Canonical_Name = "part" then
return Part;
elsif Canonical_Name = "newpage" then
return New_Page;
elsif Canonical_Name = "rmnewpage" then
return RM_New_Page;
elsif Canonical_Name = "softpage" then
return Soft_Page;
elsif Canonical_Name = "newcolumn" then
return New_Column;
elsif Canonical_Name = "newpagever" then
return New_Page_for_Version;
elsif Canonical_Name = "rmnewpagever" then
return RM_New_Page_for_Version;
elsif Canonical_Name = "notisormnewpagever" then
return Not_Iso_RM_New_Page_for_Version;
elsif Canonical_Name = "isoonlyrmnewpagever" then
return Iso_Only_RM_New_Page_for_Version;
elsif Canonical_Name = "newcolumnver" then
return New_Column_for_Version;
elsif Canonical_Name = "b" or else Canonical_Name = "bold" then
return Bold;
elsif Canonical_Name = "i" or else Canonical_Name = "italics" then
return Italic;
elsif Canonical_Name = "r" or else Canonical_Name = "roman" then
return Roman;
elsif Canonical_Name = "s" or else Canonical_Name = "swiss" then
return Swiss;
elsif Canonical_Name = "f" or else Canonical_Name = "fixed" then
return Fixed;
elsif Canonical_Name = "ri" then
return Roman_Italic;
elsif Canonical_Name = "shrink" then
return Shrink;
elsif Canonical_Name = "grow" then
return Grow;
elsif Canonical_Name = "black" then
return Black;
elsif Canonical_Name = "red" then
return Red;
elsif Canonical_Name = "green" then
return Green;
elsif Canonical_Name = "blue" then
return Blue;
elsif Canonical_Name = "key" then
return Keyword;
elsif Canonical_Name = "nt" then
return Non_Terminal;
elsif Canonical_Name = "ntf" then
return Non_Terminal_Format;
elsif Canonical_Name = "exam" then
return Example_Text;
elsif Canonical_Name = "examcom" then
return Example_Comment;
elsif Canonical_Name = "indexlist" then
return Index_List;
elsif Canonical_Name = "defn" then
return Defn;
elsif Canonical_Name = "defn2" then
return Defn2;
elsif Canonical_Name = "rootdefn" then
return RootDefn;
elsif Canonical_Name = "rootdefn2" then
return RootDefn2;
elsif Canonical_Name = "pdefn" then
return PDefn;
elsif Canonical_Name = "pdefn2" then
return PDefn2;
elsif Canonical_Name = "indexsee" then
return Index_See;
elsif Canonical_Name = "indexseealso" then
return Index_See_Also;
elsif Canonical_Name = "seeother" then
return See_Other;
elsif Canonical_Name = "seealso" then
return See_Also;
elsif Canonical_Name = "rootlibunit" then
return Index_Root_Unit;
elsif Canonical_Name = "childunit" then
return Index_Child_Unit;
elsif Canonical_Name = "subchildunit" then
return Index_Subprogram_Child_Unit;
elsif Canonical_Name = "adatypedefn" then
return Index_Type;
elsif Canonical_Name = "adasubtypedefn" then
return Index_Subtype;
elsif Canonical_Name = "adasubdefn" then
return Index_Subprogram;
elsif Canonical_Name = "adaexcdefn" then
return Index_Exception;
elsif Canonical_Name = "adaobjdefn" then
return Index_Object;
elsif Canonical_Name = "adapackdefn" then
return Index_Package;
elsif Canonical_Name = "adadefn" then
return Index_Other;
elsif Canonical_Name = "indexcheck" then
return Index_Check;
elsif Canonical_Name = "attr" then
return Index_Attr;
elsif Canonical_Name = "prag" then
return Index_Pragma;
elsif Canonical_Name = "aspectdefn" then
return Index_Aspect;
elsif Canonical_Name = "syn" then
return Syntax_Rule;
elsif Canonical_Name = "syn2" then
return Syntax_Term;
elsif Canonical_Name = "synf" then
return Syntax_Term_Undefined;
elsif Canonical_Name = "syni" then
return Syntax_Prefix;
elsif Canonical_Name = "syntaxsummary" then
return Syntax_Summary;
elsif Canonical_Name = "syntaxxref" then
return Syntax_Xref;
elsif Canonical_Name = "addedsyn" then
return Added_Syntax_Rule;
elsif Canonical_Name = "deletedsyn" then
return Deleted_Syntax_Rule;
elsif Canonical_Name = "toglossary" then
return To_Glossary;
elsif Canonical_Name = "toglossaryalso" then
return To_Glossary_Also;
elsif Canonical_Name = "chgtoglossary" then
return Change_To_Glossary;
elsif Canonical_Name = "chgtoglossaryalso" then
return Change_To_Glossary_Also;
elsif Canonical_Name = "glossarylist" then
return Glossary_List;
elsif Canonical_Name = "prefixtype" then
return Prefix_Type;
elsif Canonical_Name = "chgprefixtype" then
return Change_Prefix_Type;
elsif Canonical_Name = "endprefixtype" then
return Reset_Prefix_Type;
elsif Canonical_Name = "attribute" then
return Attribute;
elsif Canonical_Name = "attributeleading" then
return Attribute_Leading;
elsif Canonical_Name = "chgattribute" then
return Change_Attribute;
elsif Canonical_Name = "attributelist" then
return Attribute_List;
elsif Canonical_Name = "pragmasyn" then
return Pragma_Syntax;
elsif Canonical_Name = "pragmalist" then
return Pragma_List;
elsif Canonical_Name = "addedpragmasyn" then
return Added_Pragma_Syntax;
elsif Canonical_Name = "deletedpragmasyn" then
return Deleted_Pragma_Syntax;
elsif Canonical_Name = "impldef" then
return Implementation_Defined;
elsif Canonical_Name = "chgimpldef" then
return Change_Implementation_Defined;
elsif Canonical_Name = "impldeflist" then
return Implementation_Defined_List;
elsif Canonical_Name = "chgimpladvice" then
return Change_Implementation_Advice;
elsif Canonical_Name = "addedimpladvicelist" then
return Added_Implementation_Advice_List;
elsif Canonical_Name = "chgdocreq" then
return Change_Documentation_Requirement;
elsif Canonical_Name = "addeddocreqlist" then
return Added_Documentation_Requirements_List;
elsif Canonical_Name = "chgaspectdesc" then
return Change_Aspect_Description;
elsif Canonical_Name = "addedaspectlist" then
return Added_Aspect_Description_List;
elsif Canonical_Name = "packagelist" then
return Package_List;
elsif Canonical_Name = "typelist" then
return Type_List;
elsif Canonical_Name = "subprogramlist" then
return Subprogram_List;
elsif Canonical_Name = "exceptionlist" then
return Exception_List;
elsif Canonical_Name = "objectlist" then
return Object_List;
elsif Canonical_Name = "labeledsection" then
return Labeled_Section;
elsif Canonical_Name = "labeledsectionnobreak" then
return Labeled_Section_No_Break;
elsif Canonical_Name = "labeledclause" then
return Labeled_Clause;
elsif Canonical_Name = "labeledsubclause" then
return Labeled_Subclause;
elsif Canonical_Name = "labeledsubsubclause" then
return Labeled_Subsubclause;
elsif Canonical_Name = "labeledannex" then
return Labeled_Annex;
elsif Canonical_Name = "labeledinformativeannex" then
return Labeled_Informative_Annex;
elsif Canonical_Name = "labelednormativeannex" then
return Labeled_Normative_Annex;
elsif Canonical_Name = "unnumberedsection" then
return Unnumbered_Section;
elsif Canonical_Name = "labeledrevisedannex" then
return Labeled_Revised_Annex;
elsif Canonical_Name = "labeledrevisedinformativeannex" then
return Labeled_Revised_Informative_Annex;
elsif Canonical_Name = "labeledrevisednormativeannex" then
return Labeled_Revised_Normative_Annex;
elsif Canonical_Name = "labeledaddedannex" then
return Labeled_Added_Annex;
elsif Canonical_Name = "labeledaddedinformativeannex" then
return Labeled_Added_Informative_Annex;
elsif Canonical_Name = "labeledaddednormativeannex" then
return Labeled_Added_Normative_Annex;
elsif Canonical_Name = "labeledrevisedsection" then
return Labeled_Revised_Section;
elsif Canonical_Name = "labeledrevisedclause" then
return Labeled_Revised_Clause;
elsif Canonical_Name = "labeledrevisedsubclause" then
return Labeled_Revised_Subclause;
elsif Canonical_Name = "labeledrevisedsubsubclause" then
return Labeled_Revised_Subsubclause;
elsif Canonical_Name = "labeledaddedsection" then
return Labeled_Added_Section;
elsif Canonical_Name = "labeledaddedclause" then
return Labeled_Added_Clause;
elsif Canonical_Name = "labeledaddedsubclause" then
return Labeled_Added_Subclause;
elsif Canonical_Name = "labeledaddedsubsubclause" then
return Labeled_Added_Subsubclause;
elsif Canonical_Name = "labeleddeletedclause" then
return Labeled_Deleted_Clause;
elsif Canonical_Name = "labeleddeletedsubclause" then
return Labeled_Deleted_Subclause;
elsif Canonical_Name = "labeleddeletedsubsubclause" then
return Labeled_Deleted_Subsubclause;
elsif Canonical_Name = "subheading" then
return Subheading;
elsif Canonical_Name = "addedsubheading" then
return Added_Subheading;
elsif Canonical_Name = "heading" then
return Heading;
elsif Canonical_Name = "center" then
return Center;
elsif Canonical_Name = "right" then
return Right;
elsif Canonical_Name = "prefacesection" then
return Preface_Section;
elsif Canonical_Name = "refsec" then
return Ref_Section;
elsif Canonical_Name = "refsecnum" then
return Ref_Section_Number;
elsif Canonical_Name = "refsecbynum" then
return Ref_Section_By_Number;
elsif Canonical_Name = "locallink" then
return Local_Link;
elsif Canonical_Name = "localtarget" then
return Local_Target;
elsif Canonical_Name = "urllink" then
return URL_Link;
elsif Canonical_Name = "ailink" then
return AI_Link;
elsif Canonical_Name = "chg" then
return Change;
elsif Canonical_Name = "chgadded" then
return Change_Added;
elsif Canonical_Name = "chgdeleted" then
return Change_Deleted;
elsif Canonical_Name = "chgref" then
return Change_Reference;
elsif Canonical_Name = "chgnote" then
return Change_Note;
elsif Canonical_Name = "introname" then
return Intro_Name;
elsif Canonical_Name = "syntaxname" then
return Syntax_Name;
elsif Canonical_Name = "resolutionname" then
return Resolution_Name;
elsif Canonical_Name = "legalityname" then
return Legality_Name;
elsif Canonical_Name = "staticsemname" then
return Static_Name;
elsif Canonical_Name = "linktimename" then
return Link_Name;
elsif Canonical_Name = "runtimename" then
return Run_Name;
elsif Canonical_Name = "boundedname" then
return Bounded_Name;
elsif Canonical_Name = "erronname" then
return Erroneous_Name;
elsif Canonical_Name = "implreqname" then
return Req_Name;
elsif Canonical_Name = "docreqname" then
return Doc_Name;
elsif Canonical_Name = "metricsname" then
return Metrics_Name;
elsif Canonical_Name = "implpermname" then
return Permission_Name;
elsif Canonical_Name = "impladvicename" then
return Advice_Name;
elsif Canonical_Name = "notesname" then
return Notes_Name;
elsif Canonical_Name = "singlenotename" then
return Single_Note_Name;
elsif Canonical_Name = "examplesname" then
return Examples_Name;
elsif Canonical_Name = "metarulesname" then
return Meta_Name;
elsif Canonical_Name = "inconsistent83name" then
return Inconsistent83_Name;
elsif Canonical_Name = "incompatible83name" then
return Incompatible83_Name;
elsif Canonical_Name = "extend83name" then
return Extend83_Name;
elsif Canonical_Name = "diffword83name" then
return Wording83_Name;
elsif Canonical_Name = "inconsistent95name" then
return Inconsistent95_Name;
elsif Canonical_Name = "incompatible95name" then
return Incompatible95_Name;
elsif Canonical_Name = "extend95name" then
return Extend95_Name;
elsif Canonical_Name = "diffword95name" then
return Wording95_Name;
elsif Canonical_Name = "inconsistent2005name" then
return Inconsistent2005_Name;
elsif Canonical_Name = "incompatible2005name" then
return Incompatible2005_Name;
elsif Canonical_Name = "extend2005name" then
return Extend2005_Name;
elsif Canonical_Name = "diffword2005name" then
return Wording2005_Name;
elsif Canonical_Name = "inconsistent2012name" then
return Inconsistent2012_Name;
elsif Canonical_Name = "incompatible2012name" then
return Incompatible2012_Name;
elsif Canonical_Name = "extend2012name" then
return Extend2012_Name;
elsif Canonical_Name = "diffword2012name" then
return Wording2012_Name;
elsif Canonical_Name = "syntaxtitle" then
return Syntax_Title;
elsif Canonical_Name = "resolutiontitle" then
return Resolution_Title;
elsif Canonical_Name = "legalitytitle" then
return Legality_Title;
elsif Canonical_Name = "staticsemtitle" then
return Static_Title;
elsif Canonical_Name = "linktimetitle" then
return Link_Title;
elsif Canonical_Name = "runtimetitle" then
return Run_Title;
elsif Canonical_Name = "boundedtitle" then
return Bounded_Title;
elsif Canonical_Name = "errontitle" then
return Erroneous_Title;
elsif Canonical_Name = "implreqtitle" then
return Req_Title;
elsif Canonical_Name = "docreqtitle" then
return Doc_Title;
elsif Canonical_Name = "metricstitle" then
return Metrics_Title;
elsif Canonical_Name = "implpermtitle" then
return Permission_Title;
elsif Canonical_Name = "impladvicetitle" then
return Advice_Title;
elsif Canonical_Name = "notestitle" then
return Notes_Title;
elsif Canonical_Name = "singlenotetitle" then
return Single_Note_Title;
elsif Canonical_Name = "examplestitle" then
return Examples_Title;
elsif Canonical_Name = "metarulestitle" then
return Meta_Title;
elsif Canonical_Name = "inconsistent83title" then
return Inconsistent83_Title;
elsif Canonical_Name = "incompatible83title" then
return Incompatible83_Title;
elsif Canonical_Name = "extend83title" then
return Extend83_Title;
elsif Canonical_Name = "diffword83title" then
return Wording83_Title;
elsif Canonical_Name = "inconsistent95title" then
return Inconsistent95_Title;
elsif Canonical_Name = "incompatible95title" then
return Incompatible95_Title;
elsif Canonical_Name = "extend95title" then
return Extend95_Title;
elsif Canonical_Name = "diffword95title" then
return Wording95_Title;
elsif Canonical_Name = "inconsistent2005title" then
return Inconsistent2005_Title;
elsif Canonical_Name = "incompatible2005title" then
return Incompatible2005_Title;
elsif Canonical_Name = "extend2005title" then
return Extend2005_Title;
elsif Canonical_Name = "diffword2005title" then
return Wording2005_Title;
elsif Canonical_Name = "inconsistent2012title" then
return Inconsistent2012_Title;
elsif Canonical_Name = "incompatible2012title" then
return Incompatible2012_Title;
elsif Canonical_Name = "extend2012title" then
return Extend2012_Title;
elsif Canonical_Name = "diffword2012title" then
return Wording2012_Title;
elsif Canonical_Name = "em" then
return EM_Dash;
elsif Canonical_Name = "en" then
return EN_Dash;
elsif Canonical_Name = "lt" then
return LT;
elsif Canonical_Name = "leq" then
return LE;
elsif Canonical_Name = "gt" then
return GT;
elsif Canonical_Name = "geq" then
return GE;
elsif Canonical_Name = "neq" then
return NE;
elsif Canonical_Name = "pi" then
return PI;
elsif Canonical_Name = "times" then
return Times;
elsif Canonical_Name = "porm" then
return PorM;
elsif Canonical_Name = "singlequote" then
return Single_Quote;
elsif Canonical_Name = "latin1" then
return LATIN_1;
elsif Canonical_Name = "unicode" then
return Unicode;
elsif Canonical_Name = "ceiling" then
return Ceiling;
elsif Canonical_Name = "floor" then
return Floor;
elsif Canonical_Name = "abs" then
return Absolute;
elsif Canonical_Name = "log" then
return Log;
elsif Canonical_Name = "thin" then
return Thin_Space;
elsif Canonical_Name = "lquote" then
return Left_Quote;
elsif Canonical_Name = "lquotes" then
return Left_Quote_Pair;
elsif Canonical_Name = "ldquote" then
return Left_Double_Quote;
elsif Canonical_Name = "rquote" then
return Right_Quote;
elsif Canonical_Name = "rquotes" then
return Right_Quote_Pair;
elsif Canonical_Name = "rdquote" then
return Right_Double_Quote;
elsif Canonical_Name = "smldotlessi" then
return Small_Dotless_I;
elsif Canonical_Name = "capdottedi" then
return Capital_Dotted_I;
else
return Unknown;
end if;
end Command;
end ARM_Format.Data;
|
