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-2008, 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 Targparm; use Targparm;
  30 with Namet;    use Namet;
  31 with Opt;      use Opt;
  32 with Osint;    use Osint;
  33 with Output;   use Output;
  34
  35 with System.WCh_Con; use System.WCh_Con;
  36
  37 procedure Usage is
  38
  39    procedure Write_Switch_Char (Sw : String; Prefix : String := "gnat");
  40    --  Output two spaces followed by the switch character minus followed
  41    --  Prefix, followed by the string given as the argument, and then
  42    --  enough blanks to tab to column 13, i.e. assuming Sw is not longer
  43    --  than 5 characters, the maximum allowed, Write_Switch_Char will
  44    --  always output exactly 12 characters.
  45
  46    -----------------------
  47    -- Write_Switch_Char --
  48    -----------------------
  49
  50    procedure Write_Switch_Char (Sw : String; Prefix : String := "gnat") is
  51    begin
  52       Write_Str ("  -");
  53       Write_Str (Prefix);
  54       Write_Str (Sw);
  55
  56       for J in 1 .. 12 - 3 - Prefix'Length - Sw'Length loop
  57          Write_Char (' ');
  58       end loop;
  59    end Write_Switch_Char;
  60
  61 --  Start of processing for Usage
  62
  63 begin
  64    Find_Program_Name;
  65
  66    --  For gnatmake, we are appending this information to the end of
  67    --  the normal gnatmake output, so generate appropriate header
  68
  69    if Name_Len >= 8
  70      and then (Name_Buffer (Name_Len - 7 .. Name_Len) = "gnatmake"
  71                  or else
  72                Name_Buffer (Name_Len - 7 .. Name_Len) = "GNATMAKE")
  73    then
  74       Write_Eol;
  75       Write_Line ("Compiler switches (passed to the compiler by gnatmake):");
  76
  77    else
  78       --  Usage line
  79
  80       Write_Str ("Usage: ");
  81       Write_Program_Name;
  82       Write_Char (' ');
  83       Write_Str ("switches sfile");
  84       Write_Eol;
  85       Write_Eol;
  86
  87       --  Line for sfile
  88
  89       Write_Line ("  sfile     Source file name");
  90    end if;
  91
  92    Write_Eol;
  93
  94    --  Common GCC switches not available in JGNAT/MGNAT
  95
  96    if VM_Target = No_VM then
  97       Write_Switch_Char ("fstack-check ", "");
  98       Write_Line ("Generate stack checking code");
  99
 100       Write_Switch_Char ("fno-inline   ", "");
 101       Write_Line ("Inhibit all inlining (makes executable smaller)");
 102    end if;
 103
 104    --  Common switches available to both GCC and JGNAT
 105
 106    Write_Switch_Char ("g            ", "");
 107    Write_Line ("Generate debugging information");
 108
 109    Write_Switch_Char ("Idir         ", "");
 110    Write_Line ("Specify source files search path");
 111
 112    Write_Switch_Char ("I-           ", "");
 113    Write_Line ("Do not look for sources in current directory");
 114
 115    Write_Switch_Char ("O[0123]      ", "");
 116    Write_Line ("Control the optimization level");
 117
 118    Write_Eol;
 119
 120    --  Individual lines for switches. Write_Switch_Char outputs fourteen
 121    --  characters, so the remaining message is allowed to be a maximum
 122    --  of 65 characters to be comfortable on an 80 character device.
 123    --  If the Write_Str fits on one line, it is short enough!
 124
 125    --  Line for -gnata switch
 126
 127    Write_Switch_Char ("a");
 128    Write_Line ("Assertions enabled. Pragma Assert/Debug to be activated");
 129
 130    --  Line for -gnatA switch
 131
 132    Write_Switch_Char ("A");
 133    Write_Line ("Avoid processing gnat.adc, if present file will be ignored");
 134
 135    --  Line for -gnatb switch
 136
 137    Write_Switch_Char ("b");
 138    Write_Line ("Generate brief messages to stderr even if verbose mode set");
 139
 140    --  Line for -gnatB switch
 141
 142    Write_Switch_Char ("B");
 143    Write_Line ("Assume no bad (invalid) values except in 'Valid attribute");
 144
 145    --  Line for -gnatc switch
 146
 147    Write_Switch_Char ("c");
 148    Write_Line ("Check syntax and semantics only (no code generation)");
 149
 150    --  Line for -gnatd switch
 151
 152    Write_Switch_Char ("d?");
 153    Write_Line ("Compiler debug option ? ([.]a-z,A-Z,0-9), see debug.adb");
 154
 155    --  Line for -gnatD switch
 156
 157    Write_Switch_Char ("D");
 158    Write_Line ("Debug expanded generated code (max line length = 72)");
 159    Write_Switch_Char ("Dnn");
 160    Write_Line ("Debug expanded generated code (max line length = nn)");
 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 -gnateD switch
 168
 169    Write_Switch_Char ("eD?");
 170    Write_Line ("Define or redefine preprocessing symbol, e.g. -gnateDsym=val");
 171
 172    --  Line for -gnatef switch
 173
 174    Write_Switch_Char ("ef");
 175    Write_Line ("Full source path in brief error messages");
 176
 177    --  Line for -gnateG switch
 178
 179    Write_Switch_Char ("eG");
 180    Write_Line ("Generate preprocessed source");
 181
 182    --  Line for -gnateI switch
 183
 184    Write_Switch_Char ("eInn");
 185    Write_Line ("Index in multi-unit source, e.g. -gnateI2");
 186
 187    --  Line for -gnatem switch
 188
 189    Write_Switch_Char ("em=?");
 190    Write_Line ("Specify mapping file, e.g. -gnatem=mapping");
 191
 192    --  Line for -gnatep switch
 193
 194    Write_Switch_Char ("ep=?");
 195    Write_Line ("Specify preprocessing data file, e.g. -gnatep=prep.data");
 196
 197    --  Line for -gnatE switch
 198
 199    Write_Switch_Char ("E");
 200    Write_Line ("Dynamic elaboration checking mode enabled");
 201
 202    --  Line for -gnatf switch
 203
 204    Write_Switch_Char ("f");
 205    Write_Line ("Full errors. Verbose details, all undefined references");
 206
 207    --  Line for -gnatF switch
 208
 209    Write_Switch_Char ("F");
 210    Write_Line ("Force all import/export external names to all uppercase");
 211
 212    --  Line for -gnatg switch
 213
 214    Write_Switch_Char ("g");
 215    Write_Line ("GNAT implementation mode (used for compiling GNAT units)");
 216
 217    --  Lines for -gnatG switch
 218
 219    Write_Switch_Char ("G");
 220    Write_Line ("Output generated expanded code (max line length = 72)");
 221    Write_Switch_Char ("Gnn");
 222    Write_Line ("Output generated expanded code (max line length = nn)");
 223
 224    --  Line for -gnath switch
 225
 226    Write_Switch_Char ("h");
 227    Write_Line ("Output this usage (help) information");
 228
 229    --  Line for -gnati switch
 230
 231    Write_Switch_Char ("i?");
 232    Write_Line ("Identifier char set (?=1/2/3/4/5/8/9/p/f/n/w)");
 233
 234    --  Line for -gnatI switch
 235
 236    Write_Switch_Char ("I");
 237    Write_Line ("Ignore all representation clauses");
 238
 239    --  Line for -gnatj switch
 240
 241    Write_Switch_Char ("jnn");
 242    Write_Line ("Format error and warning messages to fit nn character lines");
 243
 244    --  Line for -gnatk switch
 245
 246    Write_Switch_Char ("k");
 247    Write_Line ("Limit file names to nn characters (k = krunch)");
 248
 249    --  Lines for -gnatl switch
 250
 251    Write_Switch_Char ("l");
 252    Write_Line ("Output full source listing with embedded error messages");
 253    Write_Switch_Char ("l=f");
 254    Write_Line ("Output full source listing to specified file");
 255
 256    --  Line for -gnatL switch
 257
 258    Write_Switch_Char ("L");
 259    Write_Line ("List corresponding source text in -gnatG or -gnatD output");
 260
 261    --  Line for -gnatm switch
 262
 263    Write_Switch_Char ("mnn");
 264    Write_Line ("Limit number of detected errors/warnings to nn (1-999999)");
 265
 266    --  Line for -gnatn switch
 267
 268    Write_Switch_Char ("n");
 269    Write_Line ("Inlining of subprograms (apply pragma Inline across units)");
 270
 271    --  Line for -gnatN switch
 272
 273    Write_Switch_Char ("N");
 274    Write_Line ("Full (frontend) inlining of subprograms");
 275
 276    --  Line for -gnato switch
 277
 278    Write_Switch_Char ("o");
 279    Write_Line ("Enable overflow checking (off by default)");
 280
 281    --  Line for -gnatO switch
 282
 283    Write_Switch_Char ("O nm ");
 284    Write_Line ("Set name of output ali file (internal switch)");
 285
 286    --  Line for -gnatp switch
 287
 288    Write_Switch_Char ("p");
 289    Write_Line ("Suppress all checks");
 290
 291    --  Line for -gnatP switch
 292
 293    Write_Switch_Char ("P");
 294    Write_Line ("Generate periodic calls to System.Polling.Poll");
 295
 296    --  Line for -gnatq switch
 297
 298    Write_Switch_Char ("q");
 299    Write_Line ("Don't quit, try semantics, even if parse errors");
 300
 301    --  Line for -gnatQ switch
 302
 303    Write_Switch_Char ("Q");
 304    Write_Line ("Don't quit, write ali/tree file even if compile errors");
 305
 306    --  Line for -gnatr switch
 307
 308    Write_Switch_Char ("r");
 309    Write_Line ("Treat pragma Restrictions as Restriction_Warnings");
 310
 311    --  Lines for -gnatR switch
 312
 313    Write_Switch_Char ("R?");
 314    Write_Line ("List rep info (?=0/1/2/3 for none/types/all/variable)");
 315    Write_Switch_Char ("R?s");
 316    Write_Line ("List rep info to file.rep instead of standard output");
 317
 318    --  Lines for -gnats switch
 319
 320    Write_Switch_Char ("s");
 321    Write_Line ("Syntax check only");
 322
 323    --  Lines for -gnatS switch
 324
 325    Write_Switch_Char ("S");
 326    Write_Line ("Print listing of package Standard");
 327
 328    --  Lines for -gnatt switch
 329
 330    Write_Switch_Char ("t");
 331    Write_Line ("Tree output file to be generated");
 332
 333    --  Line for -gnatT switch
 334
 335    Write_Switch_Char ("Tnn");
 336    Write_Line ("All compiler tables start at nn times usual starting size");
 337
 338    --  Line for -gnatu switch
 339
 340    Write_Switch_Char ("u");
 341    Write_Line ("List units for this compilation");
 342
 343    --  Line for -gnatU switch
 344
 345    Write_Switch_Char ("U");
 346    Write_Line ("Enable unique tag for error messages");
 347
 348    --  Line for -gnatv switch
 349
 350    Write_Switch_Char ("v");
 351    Write_Line ("Verbose mode. Full error output with source lines to stdout");
 352
 353    --  Line for -gnatV switch
 354
 355    Write_Switch_Char ("Vxx");
 356    Write_Line
 357      ("Enable selected validity checking mode, xx = list of parameters:");
 358    Write_Line ("        a    turn on all validity checking options");
 359    Write_Line ("        c    turn on checking for copies");
 360    Write_Line ("        C    turn off checking for copies");
 361    Write_Line ("        d    turn on default (RM) checking");
 362    Write_Line ("        D    turn off default (RM) checking");
 363    Write_Line ("        e    turn on checking for elementary components");
 364    Write_Line ("        E    turn off checking for elementary components");
 365    Write_Line ("        f    turn on checking for floating-point");
 366    Write_Line ("        F    turn off checking for floating-point");
 367    Write_Line ("        i    turn on checking for in params");
 368    Write_Line ("        I    turn off checking for in params");
 369    Write_Line ("        m    turn on checking for in out params");
 370    Write_Line ("        M    turn off checking for in out params");
 371    Write_Line ("        o    turn on checking for operators/attributes");
 372    Write_Line ("        O    turn off checking for operators/attributes");
 373    Write_Line ("        p    turn on checking for parameters");
 374    Write_Line ("        P    turn off checking for parameters");
 375    Write_Line ("        r    turn on checking for returns");
 376    Write_Line ("        R    turn off checking for returns");
 377    Write_Line ("        s    turn on checking for subscripts");
 378    Write_Line ("        S    turn off checking for subscripts");
 379    Write_Line ("        t    turn on checking for tests");
 380    Write_Line ("        T    turn off checking for tests");
 381    Write_Line ("        n    turn off all validity checks (including RM)");
 382
 383    --  Lines for -gnatw switch
 384
 385    Write_Switch_Char ("wxx");
 386    Write_Line ("Enable selected warning modes, xx = list of parameters:");
 387    Write_Line ("        a    turn on all optional warnings " &
 388                                                   "(except dhl.ot.w)");
 389    Write_Line ("        A    turn off all optional warnings");
 390    Write_Line ("        .a*  turn on warnings for failing assertion");
 391    Write_Line ("        .A   turn off warnings for failing assertion");
 392    Write_Line ("        b    turn on warnings for bad fixed value " &
 393                                                   "(not multiple of small)");
 394    Write_Line ("        B*   turn off warnings for bad fixed value " &
 395                                                   "(not multiple of small)");
 396    Write_Line ("        .b*  turn on warnings for biased representation");
 397    Write_Line ("        .B   turn off warnings for biased representation");
 398    Write_Line ("        c    turn on warnings for constant conditional");
 399    Write_Line ("        C*   turn off warnings for constant conditional");
 400    Write_Line ("        .c   turn on warnings for unrepped components");
 401    Write_Line ("        .C*  turn off warnings for unrepped components");
 402    Write_Line ("        d    turn on warnings for implicit dereference");
 403    Write_Line ("        D*   turn off warnings for implicit dereference");
 404    Write_Line ("        e    treat all warnings as errors");
 405    Write_Line ("        .e   turn on every optional warning (no exceptions)");
 406    Write_Line ("        f    turn on warnings for unreferenced formal");
 407    Write_Line ("        F*   turn off warnings for unreferenced formal");
 408    Write_Line ("        g*   turn on warnings for unrecognized pragma");
 409    Write_Line ("        G    turn off warnings for unrecognized pragma");
 410    Write_Line ("        h    turn on warnings for hiding variable");
 411    Write_Line ("        H*   turn off warnings for hiding variable");
 412    Write_Line ("        i*   turn on warnings for implementation unit");
 413    Write_Line ("        I    turn off warnings for implementation unit");
 414    Write_Line ("        j    turn on warnings for obsolescent " &
 415                                                   "(annex J) feature");
 416    Write_Line ("        J*   turn off warnings for obsolescent " &
 417                                                   "(annex J) feature");
 418    Write_Line ("        k    turn on warnings on constant variable");
 419    Write_Line ("        K*   turn off warnings on constant variable");
 420    Write_Line ("        l    turn on warnings for missing " &
 421                                                   "elaboration pragma");
 422    Write_Line ("        L*   turn off warnings for missing " &
 423                                                   "elaboration pragma");
 424    Write_Line ("        m    turn on warnings for variable assigned " &
 425                                                   "but not read");
 426    Write_Line ("        M*   turn off warnings for variable assigned " &
 427                                                   "but not read");
 428    Write_Line ("        n*   normal warning mode (cancels -gnatws/-gnatwe)");
 429    Write_Line ("        o*   turn on warnings for address clause overlay");
 430    Write_Line ("        O    turn off warnings for address clause overlay");
 431    Write_Line ("        .o   turn on warnings for out parameters assigned " &
 432                                                   "but not read");
 433    Write_Line ("        .O*  turn off warnings for out parameters assigned " &
 434                                                   "but not read");
 435    Write_Line ("        p    turn on warnings for ineffective pragma " &
 436                                                   "Inline in frontend");
 437    Write_Line ("        P*   turn off warnings for ineffective pragma " &
 438                                                   "Inline in frontend");
 439    Write_Line ("        .p   turn on warnings for suspicious parameter " &
 440                                                   "order");
 441    Write_Line ("        .P*  turn off warnings for suspicious parameter " &
 442                                                   "order");
 443    Write_Line ("        q*   turn on warnings for questionable " &
 444                                                   "missing parenthesis");
 445    Write_Line ("        Q    turn off warnings for questionable " &
 446                                                   "missing parenthesis");
 447    Write_Line ("        r    turn on warnings for redundant construct");
 448    Write_Line ("        R*   turn off warnings for redundant construct");
 449    Write_Line ("        .r   turn on warnings for object renaming function");
 450    Write_Line ("        .R*  turn off warnings for object renaming function");
 451    Write_Line ("        s    suppress all warnings");
 452    Write_Line ("        t    turn on warnings for tracking deleted code");
 453    Write_Line ("        T*   turn off warnings for tracking deleted code");
 454    Write_Line ("        u    turn on warnings for unused entity");
 455    Write_Line ("        U*   turn off warnings for unused entity");
 456    Write_Line ("        v*   turn on warnings for unassigned variable");
 457    Write_Line ("        V    turn off warnings for unassigned variable");
 458    Write_Line ("        w*   turn on warnings for wrong low bound assumption");
 459    Write_Line ("        W    turn off warnings for wrong low bound " &
 460                                                   "assumption");
 461    Write_Line ("        .w   turn on warnings on pragma Warnings Off");
 462    Write_Line ("        .w*  turn off warnings on pragma Warnings Off");
 463    Write_Line ("        x*   turn on warnings for export/import");
 464    Write_Line ("        X    turn off warnings for export/import");
 465    Write_Line ("        .x   turn on warnings for non-local exception");
 466    Write_Line ("        .X*  turn off warnings for non-local exception");
 467    Write_Line ("        y*   turn on warnings for Ada 2005 incompatibility");
 468    Write_Line ("        Y    turn off warnings for Ada 2005 incompatibility");
 469    Write_Line ("        z*   turn on warnings for suspicious " &
 470                                                   "unchecked conversion");
 471    Write_Line ("        Z    turn off warnings for suspicious " &
 472                                                   "unchecked conversion");
 473    Write_Line ("        *    indicates default in above list");
 474
 475    --  Line for -gnatW switch
 476
 477    Write_Switch_Char ("W");
 478    Write_Str ("Wide character encoding method (");
 479
 480    for J in WC_Encoding_Method loop
 481       Write_Char (WC_Encoding_Letters (J));
 482
 483       if J = WC_Encoding_Method'Last then
 484          Write_Char (')');
 485       else
 486          Write_Char ('/');
 487       end if;
 488    end loop;
 489
 490    Write_Eol;
 491
 492    --  Line for -gnatx switch
 493
 494    Write_Switch_Char ("x");
 495    Write_Line ("Suppress output of cross-reference information");
 496
 497    --  Line for -gnatX switch
 498
 499    Write_Switch_Char ("X");
 500    Write_Line ("Language extensions permitted");
 501
 502    --  Lines for -gnaty switch
 503
 504    Write_Switch_Char ("y");
 505    Write_Line ("Enable default style checks (same as -gnaty3abcefhiklmnprst)");
 506    Write_Switch_Char ("yxx");
 507    Write_Line ("Enable selected style checks xx = list of parameters:");
 508    Write_Line ("        1-9  check indentation");
 509    Write_Line ("        a    check attribute casing");
 510    Write_Line ("        A    check array attribute indexes");
 511    Write_Line ("        b    check no blanks at end of lines");
 512    Write_Line ("        c    check comment format");
 513    Write_Line ("        d    check no DOS line terminators");
 514    Write_Line ("        e    check end/exit labels present");
 515    Write_Line ("        f    check no form feeds/vertical tabs in source");
 516    Write_Line ("        g    check standard GNAT style rules");
 517    Write_Line ("        h    check no horizontal tabs in source");
 518    Write_Line ("        i    check if-then layout");
 519    Write_Line ("        I    check mode in");
 520    Write_Line ("        k    check casing rules for keywords");
 521    Write_Line ("        l    check reference manual layout");
 522    Write_Line ("        Lnn  check max nest level < nn ");
 523    Write_Line ("        m    check line length <= 79 characters");
 524    Write_Line ("        n    check casing of package Standard identifiers");
 525    Write_Line ("        Mnn  check line length <= nn characters");
 526    Write_Line ("        N    turn off all checks");
 527    Write_Line ("        o    check subprogram bodies in alphabetical order");
 528    Write_Line ("        O    check overriding indicators");
 529    Write_Line ("        p    check pragma casing");
 530    Write_Line ("        r    check casing for identifier references");
 531    Write_Line ("        s    check separate subprogram specs present");
 532    Write_Line ("        S    check separate lines after THEN or ELSE");
 533    Write_Line ("        t    check token separation rules");
 534    Write_Line ("        u    check no unnecessary blank lines");
 535    Write_Line ("        x    check extra parentheses around conditionals");
 536    Write_Line ("        y    turn on default style checks");
 537    Write_Line ("        -    subtract (turn off) subsequent checks");
 538    Write_Line ("        +    add (turn on) subsequent checks");
 539
 540    --  Lines for -gnatyN switch
 541
 542    Write_Switch_Char ("yN");
 543    Write_Line ("Cancel all previously set style checks");
 544
 545    --  Lines for -gnatz switch
 546
 547    Write_Switch_Char ("z");
 548    Write_Line ("Distribution stub generation (r/c for receiver/caller stubs)");
 549
 550    --  Line for -gnat83 switch
 551
 552    Write_Switch_Char ("83");
 553    Write_Line ("Enforce Ada 83 restrictions");
 554
 555    --  Line for -gnat95 switch
 556
 557    Write_Switch_Char ("95");
 558
 559    if Ada_Version_Default = Ada_95 then
 560       Write_Line ("Ada 95 mode (default)");
 561    else
 562       Write_Line ("Enforce Ada 95 restrictions");
 563    end if;
 564
 565    --  Line for -gnat05 switch
 566
 567    Write_Switch_Char ("05");
 568
 569    if Ada_Version_Default = Ada_05 then
 570       Write_Line ("Ada 2005 mode (default)");
 571    else
 572       Write_Line ("Allow Ada 2005 extensions");
 573    end if;
 574
 575 end Usage;