gcc/ada/usage.adb

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --                               U S A G E                                  --
   6 --                                                                          --
   7 --                                B o d y                                   --
   8 --                                                                          --
   9 --          Copyright (C) 1992-2018, Free Software Foundation, Inc.         --
  10 --                                                                          --
  11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  12 -- terms of the  GNU General Public License as published  by the Free Soft- --
  13 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  16 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  17 -- for  more details.  You should have  received  a copy of the GNU General --
  18 -- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
  19 -- http://www.gnu.org/licenses for a complete copy of the license.          --
  20 --                                                                          --
  21 -- GNAT was originally developed  by the GNAT team at  New York University. --
  22 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  23 --                                                                          --
  24 ------------------------------------------------------------------------------
  25
  26 --  Warning: the output of this usage for warnings is duplicated in the GNAT
  27 --  reference manual. Be sure to update that if you change the warning list.
  28
  29 with Namet;    use Namet;
  30 with Opt;      use Opt;
  31 with Osint;    use Osint;
  32 with Output;   use Output;
  33
  34 with System.WCh_Con; use System.WCh_Con;
  35
  36 procedure Usage is
  37
  38    procedure Write_Switch_Char (Sw : String; Prefix : String := "gnat");
  39    --  Output two spaces followed by the switch character minus followed
  40    --  Prefix, followed by the string given as the argument, and then enough
  41    --  blanks to tab to column 13, i.e. assuming Sw is not longer than 5
  42    --  characters, the maximum allowed, Write_Switch_Char will always output
  43    --  exactly 12 characters.
  44
  45    -----------------------
  46    -- Write_Switch_Char --
  47    -----------------------
  48
  49    procedure Write_Switch_Char (Sw : String; Prefix : String := "gnat") is
  50    begin
  51       Write_Str ("  -");
  52       Write_Str (Prefix);
  53       Write_Str (Sw);
  54
  55       for J in 1 .. 12 - 3 - Prefix'Length - Sw'Length loop
  56          Write_Char (' ');
  57       end loop;
  58    end Write_Switch_Char;
  59
  60 --  Start of processing for Usage
  61
  62 begin
  63    Find_Program_Name;
  64
  65    --  For gnatmake, we are appending this information to the end of
  66    --  the normal gnatmake output, so generate appropriate header
  67
  68    if Name_Len >= 8
  69      and then (Name_Buffer (Name_Len - 7 .. Name_Len) = "gnatmake"
  70                  or else
  71                Name_Buffer (Name_Len - 7 .. Name_Len) = "GNATMAKE")
  72    then
  73       Write_Eol;
  74       Write_Line ("Compiler switches (passed to the compiler by gnatmake):");
  75
  76    else
  77       --  Usage line
  78
  79       Write_Str ("Usage: ");
  80       Write_Program_Name;
  81       Write_Char (' ');
  82       Write_Str ("switches sfile");
  83       Write_Eol;
  84       Write_Eol;
  85
  86       --  Line for sfile
  87
  88       Write_Line ("  sfile     Source file name");
  89    end if;
  90
  91    Write_Eol;
  92
  93    --  Common switches available everywhere
  94
  95    Write_Switch_Char ("g            ", "");
  96    Write_Line ("Generate debugging information");
  97
  98    Write_Switch_Char ("Idir         ", "");
  99    Write_Line ("Specify source files search path");
 100
 101    Write_Switch_Char ("I-           ", "");
 102    Write_Line ("Do not look for sources in current directory");
 103
 104    Write_Switch_Char ("O[0123]      ", "");
 105    Write_Line ("Control the optimization level");
 106
 107    Write_Eol;
 108
 109    --  Individual lines for switches. Write_Switch_Char outputs fourteen
 110    --  characters, so the remaining message is allowed to be a maximum of
 111    --  65 characters to be comfortable in an 80 character window.
 112
 113    --  Line for -gnata switch
 114
 115    Write_Switch_Char ("a");
 116    Write_Line ("Assertions enabled. Pragma Assert/Debug to be activated");
 117
 118    --  Line for -gnatA switch
 119
 120    Write_Switch_Char ("A");
 121    Write_Line ("Avoid processing gnat.adc, if present file will be ignored");
 122
 123    --  Line for -gnatb switch
 124
 125    Write_Switch_Char ("b");
 126    Write_Line ("Generate brief messages to stderr even if verbose mode set");
 127
 128    --  Line for -gnatB switch
 129
 130    Write_Switch_Char ("B");
 131    Write_Line ("Assume no bad (invalid) values except in 'Valid attribute");
 132
 133    --  Line for -gnatc switch
 134
 135    Write_Switch_Char ("c");
 136    Write_Line ("Check syntax and semantics only (no code generation)");
 137
 138    --  Line for -gnatC switch
 139
 140    Write_Switch_Char ("C");
 141    Write_Line ("Generate CodePeer intermediate format (no code generation)");
 142
 143    --  Line for -gnatd switch
 144
 145    Write_Switch_Char ("d?");
 146    Write_Line ("Compiler debug option ? ([.]a-z,A-Z,0-9), see debug.adb");
 147
 148    --  Line for -gnatD switch
 149
 150    Write_Switch_Char ("D");
 151    Write_Line ("Debug expanded generated code (max line length = 72)");
 152    Write_Switch_Char ("Dnn");
 153    Write_Line ("Debug expanded generated code (max line length = nn)");
 154
 155    --  No line for -gnatea : internal switch
 156
 157    --  Line for -gnateA switch
 158
 159    Write_Switch_Char ("eA");
 160    Write_Line ("Aliasing checks on subprogram parameters");
 161
 162    --  Line for -gnatec switch
 163
 164    Write_Switch_Char ("ec=?");
 165    Write_Line ("Specify configuration pragmas file, e.g. -gnatec=/x/f.adc");
 166
 167    --  Line for -gnateC switch
 168
 169    Write_Switch_Char ("eC");
 170    Write_Line ("Generate CodePeer messages (ignored without -gnatcC)");
 171
 172    --  Line for -gnated switch
 173
 174    Write_Switch_Char ("ed");
 175    Write_Line ("Disable synchronization of atomic variables");
 176
 177    --  Line for -gnateD switch
 178
 179    Write_Switch_Char ("eD?");
 180    Write_Line ("Define or redefine preprocessing symbol, e.g. -gnateDsym=val");
 181
 182    --  Line for -gnateE switch
 183
 184    Write_Switch_Char ("eE");
 185    Write_Line ("Generate extra information in exception messages");
 186
 187    --  Line for -gnatef switch
 188
 189    Write_Switch_Char ("ef");
 190    Write_Line ("Full source path in brief error messages");
 191
 192    --  Line for -gnateF switch
 193
 194    Write_Switch_Char ("eF");
 195    Write_Line ("Check overflow on predefined Float types");
 196
 197    --  Line for -gnateG switch
 198
 199    Write_Switch_Char ("eG");
 200    Write_Line ("Generate preprocessed source");
 201
 202    --  Line for -gnatei switch
 203
 204    Write_Switch_Char ("einn");
 205    Write_Line ("Set maximum number of instantiations to nn");
 206
 207    --  Line for -gnateI switch
 208
 209    Write_Switch_Char ("eInn");
 210    Write_Line ("Index in multi-unit source, e.g. -gnateI2");
 211
 212    --  Line for -gnatel switch
 213
 214    Write_Switch_Char ("el");
 215    Write_Line ("Turn on info messages on generated Elaborate[_All] pragmas");
 216
 217    --  Line for -gnateL switch
 218
 219    Write_Switch_Char ("eL");
 220    Write_Line ("Turn off info messages on generated Elaborate[_All] pragmas");
 221
 222    --  Line for -gnatem switch
 223
 224    Write_Switch_Char ("em=?");
 225    Write_Line ("Specify mapping file, e.g. -gnatem=mapping");
 226
 227    --  No line for -gnateO=? : internal switch
 228
 229    --  Line for -gnatep switch
 230
 231    Write_Switch_Char ("ep=?");
 232    Write_Line ("Specify preprocessing data file, e.g. -gnatep=prep.data");
 233
 234    --  Line for -gnateP switch
 235
 236    Write_Switch_Char ("eP");
 237    Write_Line ("Pure/Prelaborate errors generate warnings rather than errors");
 238
 239    --  No line for -gnates=? : internal switch
 240
 241    --  Line for -gnateS switch
 242
 243    Write_Switch_Char ("eS");
 244    Write_Line ("Generate SCO (Source Coverage Obligation) information");
 245
 246    --  Line for -gnatet switch
 247
 248    Write_Switch_Char ("et=?");
 249    Write_Line ("Write target dependent information file ?, e.g. gnatet=tdf");
 250
 251    --  Line for -gnateT switch
 252
 253    Write_Switch_Char ("eT=?");
 254    Write_Line ("Read target dependent information file ?, e.g. gnateT=tdf");
 255
 256    --  Line for -gnateu switch
 257
 258    Write_Switch_Char ("eu");
 259    Write_Line ("Ignore unrecognized style/validity/warning switches");
 260
 261    --  Line for -gnateV switch
 262
 263    Write_Switch_Char ("eV");
 264    Write_Line ("Validity checks on subprogram parameters");
 265
 266    --  Line for -gnateY switch
 267
 268    Write_Switch_Char ("eY");
 269    Write_Line ("Ignore all Style_Checks pragmas in source");
 270
 271    --  No line for -gnatez : internal switch
 272
 273    --  Line for -gnatE switch
 274
 275    Write_Switch_Char ("E");
 276    Write_Line ("Dynamic elaboration checking mode enabled");
 277
 278    --  Line for -gnatf switch
 279
 280    Write_Switch_Char ("f");
 281    Write_Line ("Full errors. Verbose details, all undefined references");
 282
 283    --  Line for -gnatF switch
 284
 285    Write_Switch_Char ("F");
 286    Write_Line ("Force all import/export external names to all uppercase");
 287
 288    --  Line for -gnatg switch
 289
 290    Write_Switch_Char ("g");
 291    Write_Line ("GNAT implementation mode (used for compiling GNAT units)");
 292
 293    --  Lines for -gnatG switch
 294
 295    Write_Switch_Char ("G");
 296    Write_Line ("Output generated expanded code (max line length = 72)");
 297    Write_Switch_Char ("Gnn");
 298    Write_Line ("Output generated expanded code (max line length = nn)");
 299
 300    --  Line for -gnath switch
 301
 302    Write_Switch_Char ("h");
 303    Write_Line ("Output this usage (help) information");
 304
 305    --  Line for -gnatH switch
 306
 307    Write_Switch_Char ("H");
 308    Write_Line ("Legacy elaboration checking mode enabled");
 309
 310    --  Line for -gnati switch
 311
 312    Write_Switch_Char ("i?");
 313    Write_Line ("Identifier char set (?=1/2/3/4/5/8/9/p/f/n/w)");
 314
 315    --  Line for -gnatI switch
 316
 317    Write_Switch_Char ("I");
 318    Write_Line ("Ignore all representation clauses");
 319
 320    --  Line for -gnatj switch
 321
 322    Write_Switch_Char ("jnn");
 323    Write_Line ("Format error and warning messages to fit nn character lines");
 324
 325    --  Line for -gnatJ switch
 326
 327    Write_Switch_Char ("J");
 328    Write_Line ("Relaxed elaboration checking mode enabled");
 329
 330    --  Line for -gnatk switch
 331
 332    Write_Switch_Char ("k");
 333    Write_Line ("Limit file names to nn characters (k = krunch)");
 334
 335    --  Lines for -gnatl switch
 336
 337    Write_Switch_Char ("l");
 338    Write_Line ("Output full source listing with embedded error messages");
 339    Write_Switch_Char ("l=f");
 340    Write_Line ("Output full source listing to specified file");
 341
 342    --  Line for -gnatL switch
 343
 344    Write_Switch_Char ("L");
 345    Write_Line ("List corresponding source text in -gnatG or -gnatD output");
 346
 347    --  Line for -gnatm switch
 348
 349    Write_Switch_Char ("mnn");
 350    Write_Line ("Limit number of detected errors/warnings to nn (1-999999)");
 351
 352    --  Line for -gnatn switch
 353
 354    Write_Switch_Char ("n[?]");
 355    Write_Line ("Enable pragma Inline (both within and across units, ?=1/2)");
 356
 357    --  Line for -gnato switch
 358
 359    Write_Switch_Char ("o0");
 360    Write_Line ("Disable overflow checking");
 361
 362    Write_Switch_Char ("o");
 363    Write_Line ("Enable overflow checking in STRICT (-gnato1) mode (default)");
 364
 365    --  Lines for -gnato? switches
 366
 367    Write_Switch_Char ("o?");
 368    Write_Line
 369      ("Enable overflow checks in STRICT/MINIMIZED/ELIMINATED (1/2/3) mode ");
 370    Write_Switch_Char ("o??");
 371    Write_Line
 372      ("Set mode for general/assertion expressions separately");
 373
 374    --  No line for -gnatO : internal switch
 375
 376    --  Line for -gnatp switch
 377
 378    Write_Switch_Char ("p");
 379    Write_Line ("Suppress all checks");
 380
 381    --  Line for -gnatP switch
 382
 383    Write_Switch_Char ("P");
 384    Write_Line ("Generate periodic calls to System.Polling.Poll");
 385
 386    --  Line for -gnatq switch
 387
 388    Write_Switch_Char ("q");
 389    Write_Line ("Don't quit, try semantics, even if parse errors");
 390
 391    --  Line for -gnatQ switch
 392
 393    Write_Switch_Char ("Q");
 394    Write_Line ("Don't quit, write ali/tree file even if compile errors");
 395
 396    --  Line for -gnatr switch
 397
 398    Write_Switch_Char ("r");
 399    Write_Line ("Treat pragma Restrictions as Restriction_Warnings");
 400
 401    --  Lines for -gnatR switch
 402
 403    Write_Switch_Char ("R?");
 404    Write_Line
 405      ("List rep info (?=0/1/2/3/e/m for none/types/all/symbolic/ext/mech)");
 406    Write_Switch_Char ("R?s");
 407    Write_Line ("List rep info to file.rep instead of standard output");
 408
 409    --  Line for -gnats switch
 410
 411    Write_Switch_Char ("s");
 412    Write_Line ("Syntax check only");
 413
 414    --  Line for -gnatS switch
 415
 416    Write_Switch_Char ("S");
 417    Write_Line ("Print listing of package Standard");
 418
 419    --  Line for -gnatt switch
 420
 421    Write_Switch_Char ("t");
 422    Write_Line ("Tree output file to be generated");
 423
 424    --  Line for -gnatTnn switch
 425
 426    Write_Switch_Char ("Tnn");
 427    Write_Line ("All compiler tables start at nn times usual starting size");
 428
 429    --  Line for -gnatu switch
 430
 431    Write_Switch_Char ("u");
 432    Write_Line ("List units for this compilation");
 433
 434    --  Line for -gnatU switch
 435
 436    Write_Switch_Char ("U");
 437    Write_Line ("Enable unique tag for error messages");
 438
 439    --  Line for -gnatv switch
 440
 441    Write_Switch_Char ("v");
 442    Write_Line ("Verbose mode. Full error output with source lines to stdout");
 443
 444    --  Lines for -gnatV switch
 445
 446    Write_Switch_Char ("Vxx");
 447    Write_Line
 448      ("Enable selected validity checking mode, xx = list of parameters:");
 449    Write_Line ("        a    turn on all validity checking options");
 450    Write_Line ("        c    turn on checking for copies");
 451    Write_Line ("        C    turn off checking for copies");
 452    Write_Line ("        d    turn on default (RM) checking");
 453    Write_Line ("        D    turn off default (RM) checking");
 454    Write_Line ("        e    turn on checking for elementary components");
 455    Write_Line ("        E    turn off checking for elementary components");
 456    Write_Line ("        f    turn on checking for floating-point");
 457    Write_Line ("        F    turn off checking for floating-point");
 458    Write_Line ("        i    turn on checking for in params");
 459    Write_Line ("        I    turn off checking for in params");
 460    Write_Line ("        m    turn on checking for in out params");
 461    Write_Line ("        M    turn off checking for in out params");
 462    Write_Line ("        o    turn on checking for operators/attributes");
 463    Write_Line ("        O    turn off checking for operators/attributes");
 464    Write_Line ("        p    turn on checking for parameters");
 465    Write_Line ("        P    turn off checking for parameters");
 466    Write_Line ("        r    turn on checking for returns");
 467    Write_Line ("        R    turn off checking for returns");
 468    Write_Line ("        s    turn on checking for subscripts");
 469    Write_Line ("        S    turn off checking for subscripts");
 470    Write_Line ("        t    turn on checking for tests");
 471    Write_Line ("        T    turn off checking for tests");
 472    Write_Line ("        n    turn off all validity checks (including RM)");
 473
 474    --  Lines for -gnatw switch
 475
 476    Write_Switch_Char ("wxx");
 477    Write_Line ("Enable selected warning modes, xx = list of parameters:");
 478    Write_Line ("        *    indicates default setting");
 479    Write_Line ("        +    indicates warning flag included in -gnatwa");
 480    Write_Line ("        a    turn on all info/warnings marked below with +");
 481    Write_Line ("        A    turn off all optional info/warnings");
 482    Write_Line ("        .a*+ turn on warnings for failing assertion");
 483    Write_Line ("        .A   turn off warnings for failing assertion");
 484    Write_Line ("        b+   turn on warnings for bad fixed value " &
 485                                                   "(not multiple of small)");
 486    Write_Line ("        B*   turn off warnings for bad fixed value " &
 487                                                   "(not multiple of small)");
 488    Write_Line ("        .b*+ turn on warnings for biased representation");
 489    Write_Line ("        .B   turn off warnings for biased representation");
 490    Write_Line ("        c+   turn on warnings for constant conditional");
 491    Write_Line ("        C*   turn off warnings for constant conditional");
 492    Write_Line ("        .c+  turn on warnings for unrepped components");
 493    Write_Line ("        .C*  turn off warnings for unrepped components");
 494    Write_Line ("        d    turn on warnings for implicit dereference");
 495    Write_Line ("        D*   turn off warnings for implicit dereference");
 496    Write_Line ("        .d   turn on tagging of warnings with -gnatw switch");
 497    Write_Line ("        .D*  turn off tagging of warnings with -gnatw switch");
 498    Write_Line ("        e    treat all warnings (but not info) as errors");
 499    Write_Line ("        .e   turn on every optional info/warning " &
 500                                                   "(no exceptions)");
 501    Write_Line ("        E    treat all run-time warnings as errors");
 502    Write_Line ("        f+   turn on warnings for unreferenced formal");
 503    Write_Line ("        F*   turn off warnings for unreferenced formal");
 504    Write_Line ("        .f   turn on warnings for suspicious Subp'Access");
 505    Write_Line ("        .F*  turn off warnings for suspicious Subp'Access");
 506    Write_Line ("        g*+  turn on warnings for unrecognized pragma");
 507    Write_Line ("        G    turn off warnings for unrecognized pragma");
 508    Write_Line ("        .g   turn on GNAT warnings");
 509    Write_Line ("        h    turn on warnings for hiding declarations");
 510    Write_Line ("        H*   turn off warnings for hiding declarations");
 511    Write_Line ("        .h   turn on warnings for holes in records");
 512    Write_Line ("        .H*  turn off warnings for holes in records");
 513    Write_Line ("        i*+  turn on warnings for implementation unit");
 514    Write_Line ("        I    turn off warnings for implementation unit");
 515    Write_Line ("        .i*+ turn on warnings for overlapping actuals");
 516    Write_Line ("        .I   turn off warnings for overlapping actuals");
 517    Write_Line ("        j+   turn on warnings for obsolescent " &
 518                                                   "(annex J) feature");
 519    Write_Line ("        J*   turn off warnings for obsolescent " &
 520                                                   "(annex J) feature");
 521    Write_Line ("        .j+  turn on warnings for late dispatching " &
 522                                                   "primitives");
 523    Write_Line ("        .J*  turn off warnings for late dispatching " &
 524                                                   "primitives");
 525    Write_Line ("        k+   turn on warnings on constant variable");
 526    Write_Line ("        K*   turn off warnings on constant variable");
 527    Write_Line ("        .k   turn on warnings for standard redefinition");
 528    Write_Line ("        .K*  turn off warnings for standard redefinition");
 529    Write_Line ("        l    turn on warnings for elaboration problems");
 530    Write_Line ("        L*   turn off warnings for elaboration problems");
 531    Write_Line ("        .l   turn on info messages for inherited aspects");
 532    Write_Line ("        .L*  turn off info messages for inherited aspects");
 533    Write_Line ("        m+   turn on warnings for variable assigned " &
 534                                                   "but not read");
 535    Write_Line ("        M*   turn off warnings for variable assigned " &
 536                                                   "but not read");
 537    Write_Line ("        .m*+ turn on warnings for suspicious modulus value");
 538    Write_Line ("        .M   turn off warnings for suspicious modulus value");
 539    Write_Line ("        n*   normal warning mode (cancels -gnatws/-gnatwe)");
 540    Write_Line ("        .n   turn on info messages for atomic " &
 541                                                   "synchronization");
 542    Write_Line ("        .N*  turn off info messages for atomic " &
 543                                                   "synchronization");
 544    Write_Line ("        o*   turn on warnings for address clause overlay");
 545    Write_Line ("        O    turn off warnings for address clause overlay");
 546    Write_Line ("        .o   turn on warnings for out parameters assigned " &
 547                                                   "but not read");
 548    Write_Line ("        .O*  turn off warnings for out parameters assigned " &
 549                                                   "but not read");
 550    Write_Line ("        p+   turn on warnings for ineffective pragma " &
 551                                                   "Inline in frontend");
 552    Write_Line ("        P*   turn off warnings for ineffective pragma " &
 553                                                   "Inline in frontend");
 554    Write_Line ("        .p+  turn on warnings for suspicious parameter " &
 555                                                   "order");
 556    Write_Line ("        .P*  turn off warnings for suspicious parameter " &
 557                                                   "order");
 558    Write_Line ("        q*+  turn on warnings for questionable " &
 559                                                   "missing parenthesis");
 560    Write_Line ("        Q    turn off warnings for questionable " &
 561                                                   "missing parenthesis");
 562    Write_Line ("        .q+  turn on warnings for questionable layout of " &
 563                                                   "record types");
 564    Write_Line ("        .Q*  turn off warnings for questionable layout of " &
 565                                                   "record types");
 566    Write_Line ("        r+   turn on warnings for redundant construct");
 567    Write_Line ("        R*   turn off warnings for redundant construct");
 568    Write_Line ("        .r+  turn on warnings for object renaming function");
 569    Write_Line ("        .R*  turn off warnings for object renaming function");
 570    Write_Line ("        s    suppress all info/warnings");
 571    Write_Line ("        .s   turn on warnings for overridden size clause");
 572    Write_Line ("        .S*  turn off warnings for overridden size clause");
 573    Write_Line ("        t    turn on warnings for tracking deleted code");
 574    Write_Line ("        T*   turn off warnings for tracking deleted code");
 575    Write_Line ("        .t*+ turn on warnings for suspicious contract");
 576    Write_Line ("        .T   turn off warnings for suspicious contract");
 577    Write_Line ("        u+   turn on warnings for unused entity");
 578    Write_Line ("        U*   turn off warnings for unused entity");
 579    Write_Line ("        .u   turn on warnings for unordered enumeration");
 580    Write_Line ("        .U*  turn off warnings for unordered enumeration");
 581    Write_Line ("        v*+  turn on warnings for unassigned variable");
 582    Write_Line ("        V    turn off warnings for unassigned variable");
 583    Write_Line ("        .v*+ turn on info messages for reverse bit order");
 584    Write_Line ("        .V   turn off info messages for reverse bit order");
 585    Write_Line ("        w*+  turn on warnings for wrong low bound assumption");
 586    Write_Line ("        W    turn off warnings for wrong low bound " &
 587                                                   "assumption");
 588    Write_Line ("        .w   turn on warnings on pragma Warnings Off");
 589    Write_Line ("        .W*  turn off warnings on pragma Warnings Off");
 590    Write_Line ("        x*+  turn on warnings for export/import");
 591    Write_Line ("        X    turn off warnings for export/import");
 592    Write_Line ("        .x+  turn on warnings for non-local exception");
 593    Write_Line ("        .X*  turn off warnings for non-local exception");
 594    Write_Line ("        y*+  turn on warnings for Ada compatibility issues");
 595    Write_Line ("        Y    turn off warnings for Ada compatibility issues");
 596    Write_Line ("        .y   turn on info messages for why pkg body needed");
 597    Write_Line ("        .Y*  turn off info messages for why pkg body needed");
 598    Write_Line ("        z*+  turn on warnings for suspicious " &
 599                                                   "unchecked conversion");
 600    Write_Line ("        Z    turn off warnings for suspicious " &
 601                                                   "unchecked conversion");
 602    Write_Line ("        .z*+ turn on warnings for record size not a " &
 603                                                   "multiple of alignment");
 604    Write_Line ("        .Z   turn off warnings for record size not a " &
 605                                                   "multiple of alignment");
 606
 607    --  Line for -gnatW switch
 608
 609    Write_Switch_Char ("W?");
 610    Write_Str ("Wide character encoding method (?=");
 611
 612    for J in WC_Encoding_Method loop
 613       Write_Char (WC_Encoding_Letters (J));
 614
 615       if J = WC_Encoding_Method'Last then
 616          Write_Char (')');
 617       else
 618          Write_Char ('/');
 619       end if;
 620    end loop;
 621
 622    Write_Eol;
 623
 624    --  Line for -gnatx switch
 625
 626    Write_Switch_Char ("x");
 627    Write_Line ("Suppress output of cross-reference information");
 628
 629    --  Line for -gnatX switch
 630
 631    Write_Switch_Char ("X");
 632    Write_Line ("Language extensions permitted");
 633
 634    --  Lines for -gnaty switch
 635
 636    Write_Switch_Char ("y");
 637    Write_Line ("Enable default style checks (same as -gnaty3abcefhiklmnprst)");
 638    Write_Switch_Char ("yxx");
 639    Write_Line ("Enable selected style checks xx = list of parameters:");
 640    Write_Line ("        1-9  check indentation");
 641    Write_Line ("        a    check attribute casing");
 642    Write_Line ("        A    check array attribute indexes");
 643    Write_Line ("        b    check no blanks at end of lines");
 644    Write_Line ("        B    check no use of AND/OR for boolean expressions");
 645    Write_Line ("        c    check comment format (two spaces)");
 646    Write_Line ("        C    check comment format (one space)");
 647    Write_Line ("        d    check no DOS line terminators");
 648    Write_Line ("        e    check end/exit labels present");
 649    Write_Line ("        f    check no form feeds/vertical tabs in source");
 650    Write_Line ("        g    check standard GNAT style rules, same as ydISux");
 651    Write_Line ("        h    check no horizontal tabs in source");
 652    Write_Line ("        i    check if-then layout");
 653    Write_Line ("        I    check mode in");
 654    Write_Line ("        k    check casing rules for keywords");
 655    Write_Line ("        l    check reference manual layout");
 656    Write_Line ("        Lnn  check max nest level < nn ");
 657    Write_Line ("        m    check line length <= 79 characters");
 658    Write_Line ("        Mnn  check line length <= nn characters");
 659    Write_Line ("        n    check casing of package Standard identifiers");
 660    Write_Line ("        N    turn off all checks");
 661    Write_Line ("        o    check subprogram bodies in alphabetical order");
 662    Write_Line ("        O    check overriding indicators");
 663    Write_Line ("        p    check pragma casing");
 664    Write_Line ("        r    check casing for identifier references");
 665    Write_Line ("        s    check separate subprogram specs present");
 666    Write_Line ("        S    check separate lines after THEN or ELSE");
 667    Write_Line ("        t    check token separation rules");
 668    Write_Line ("        u    check no unnecessary blank lines");
 669    Write_Line ("        x    check extra parentheses around conditionals");
 670    Write_Line ("        y    turn on default style checks");
 671    Write_Line ("        -    subtract (turn off) subsequent checks");
 672    Write_Line ("        +    add (turn on) subsequent checks");
 673
 674    --  Lines for -gnatyN switch
 675
 676    Write_Switch_Char ("yN");
 677    Write_Line ("Cancel all previously set style checks");
 678
 679    --  Lines for -gnatzc switch
 680
 681    Write_Switch_Char ("zc");
 682    Write_Line ("Distribution stub generation for caller stubs");
 683
 684    --  Lines for -gnatzr switch
 685
 686    Write_Switch_Char ("zr");
 687    Write_Line ("Distribution stub generation for receiver stubs");
 688
 689    if not Latest_Ada_Only then
 690
 691       --  Line for -gnat83 switch
 692
 693       Write_Switch_Char ("83");
 694       Write_Line ("Ada 83 mode");
 695
 696       --  Line for -gnat95 switch
 697
 698       Write_Switch_Char ("95");
 699
 700       if Ada_Version_Default = Ada_95 then
 701          Write_Line ("Ada 95 mode (default)");
 702       else
 703          Write_Line ("Ada 95 mode");
 704       end if;
 705
 706       --  Line for -gnat2005 switch
 707
 708       Write_Switch_Char ("2005");
 709
 710       if Ada_Version_Default = Ada_2005 then
 711          Write_Line ("Ada 2005 mode (default)");
 712       else
 713          Write_Line ("Ada 2005 mode");
 714       end if;
 715    end if;
 716
 717    --  Line for -gnat2012 switch
 718
 719    Write_Switch_Char ("2012");
 720
 721    if Ada_Version_Default = Ada_2012 then
 722       Write_Line ("Ada 2012 mode (default)");
 723    else
 724       Write_Line ("Ada 2012 mode");
 725    end if;
 726
 727    --  Line for -gnat-p switch
 728
 729    Write_Switch_Char ("-p");
 730    Write_Line ("Cancel effect of previous -gnatp switch");
 731
 732 end Usage;