Re: DOS Options

[anon@anon.org (anon)]

--
-- c.adb
--

--
-- Sample run:
-- c/f 
-- Yields:
--    Command_Name => c
--    Argument ( 1 ) => /f
--
with Ada.Integer_Text_IO ;
use  Ada.Integer_Text_IO ;
with Ada.Text_IO ;
use Ada.Text_IO ;

With Ada.Command_Line ;
use  Ada.Command_Line ;

procedure c is

begin

                             -- Argument ( 0 )
  Put ( "Command => " ) ;
  Put_Line ( Command_Name ) ;
                             -- Argument ( 1..?? )
  if Argument_Count = 0 then
    Put_Line ( "No command options" ) ;
  else
    Put_Line ( "Command options" ) ;
    for Index in 1..Argument_Count loop
      Put ( "    " ) ;
      Put ( Index ) ;
      Put ( " => " ) ;
      Put_Line ( Argument ( Index ) ) ;
    end loop ;
  end if ;

end c ;

In <1i8m324.g6pon43ql1ogN%csampson@inetworld.net>, csampson@inetworld.net (Charles H. Sampson) writes:
>     I've been using GNAT 3.15p for a long time to write DOS-like
>project utiities to run on my Wintel desktop.  I've just come up with a
>case where I'd like to implement optional parameters.  Since the utility
>is DOS-like, I want to use the DOS form of optional parameters: attached
>to the name of the command, separated by the '/' character.
>
>     I don't see how to do this.  Command_Line.Argument doesn't accept a
>value of 0, which I remember as being the substring of the command line
>from the first non-blank up to the first suceeding blank.  The note in
>A.15 says that Command_Name is the equivalent of argv (0), but in GNAT
>that's really just the command name, options stripped off.
>
>     Does anybody have any suggestions?
>
>                        Charlie
>
>-- 
>For an email response, insert "0824" between the 'c' and the 's'.