home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / bindusg.adb < prev    next >
Text File  |  1996-09-28  |  4KB  |  148 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                        GBIND BINDER COMPONENTS                           --
  4. --                                                                          --
  5. --                             B I N D U S G                                --
  6. --                                                                          --
  7. --                                B o d y                                   --
  8. --                                                                          --
  9. --                            $Revision: 1.22 $                             --
  10. --                                                                          --
  11. --        Copyright (c) 1992,1993,1994,1995 NYU, All Rights Reserved        --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25. with Osint;  use Osint;
  26. with Output; use Output;
  27.  
  28. procedure Bindusg is
  29.  
  30.    procedure Write_Switch_Char;
  31.    --  Write two spaces followed by appropriate switch character
  32.  
  33.    procedure Write_Switch_Char is
  34.    begin
  35.       Write_Str ("  ");
  36.       Write_Char (Switch_Character);
  37.    end Write_Switch_Char;
  38.  
  39. --  Start of processing for Bindusg
  40.  
  41. begin
  42.    --  Usage line
  43.  
  44.    Write_Str ("Usage: ");
  45.    Write_Program_Name;
  46.    Write_Char (' ');
  47.    Write_Str ("switches lfile");
  48.    Write_Eol;
  49.    Write_Eol;
  50.  
  51.    --  Line for -b switch
  52.  
  53.    Write_Switch_Char;
  54.    Write_Str ("b      Generate brief messages to std");
  55.    Write_Str ("err even if verbose mode set");
  56.    Write_Eol;
  57.  
  58.    --  Line for -c switch
  59.  
  60.    Write_Switch_Char;
  61.    Write_Str ("c      Check only, no generation of b");
  62.    Write_Str ("inder output file");
  63.    Write_Eol;
  64.  
  65.    --  Line for -e switch
  66.  
  67.    Write_Switch_Char;
  68.    Write_Str ("e      Output complete list of elabor");
  69.    Write_Str ("ation order dependencies");
  70.    Write_Eol;
  71.  
  72.    --  Line for -I switch
  73.  
  74.    Write_Switch_Char;
  75.    Write_Str ("Idir   Specify library and source files search path");
  76.    Write_Eol;
  77.  
  78.    --  Line for -l switch
  79.  
  80.    Write_Switch_Char;
  81.    Write_Str ("l      Output chosen elaboration order");
  82.    Write_Eol;
  83.  
  84.    --  Line for -m switch
  85.  
  86.    Write_Switch_Char;
  87.    Write_Str ("mnnn   Limit number of detected error");
  88.    Write_Str ("s to nnn (1-999)");
  89.    Write_Eol;
  90.  
  91.    --  Line for -n switch
  92.  
  93.    Write_Switch_Char;
  94.    Write_Str ("n      No main program");
  95.    Write_Eol;
  96.  
  97.    --  Line for -o switch
  98.  
  99.    Write_Switch_Char;
  100.    Write_Str ("o file give the Output name (default is b_xxx.c) ");
  101.    Write_Eol;
  102.  
  103.    --  Line for -s switch
  104.  
  105.    Write_Switch_Char;
  106.    Write_Str ("s      Require all source files to be");
  107.    Write_Str (" present");
  108.    Write_Eol;
  109.  
  110.    --  Line for -t switch
  111.  
  112.    Write_Switch_Char;
  113.    Write_Str ("t      Ignore time stamp errors");
  114.    Write_Eol;
  115.  
  116.    --  Line for -v switch
  117.  
  118.    Write_Switch_Char;
  119.    Write_Str ("v      Verbose mode. Error messages,");
  120.    Write_Str ("header, summary output to stdout");
  121.    Write_Eol;
  122.  
  123.    --  Lines for -w switch
  124.  
  125.    Write_Switch_Char;
  126.    Write_Str ("wx     Warning mode. (x=s/e for supp");
  127.    Write_Str ("ress/treat as error)");
  128.    Write_Eol;
  129.  
  130.    --  Line for -x switch
  131.  
  132.    Write_Switch_Char;
  133.    Write_Str ("x      Exclude source files (check ob");
  134.    Write_Str ("ject consistency only");
  135.    Write_Eol;
  136.    --  Line for sfile
  137.  
  138.    Write_Str ("  lfile   Library file names");
  139.  
  140. --  ??? Wild cards don't work under OS/2 at present.
  141. --  if OS_2 then
  142. --     Write_Str (" (wild cards allowed for multiple files)");
  143. --  end if;
  144.  
  145.    Write_Eol;
  146.  
  147. end Bindusg;
  148.