Re: comand line arguments

Re: comand line arguments

[Marin David Condic, 561.796.8997, M/S 731-96]

    Here's some code that should at least get you started developing
    whatever you need for processing a command line.

    MDC

Marin David Condic, Senior Computer Engineer     Voice:     561.796.8997
Pratt & Whitney GESP, M/S 731-96, P.O.B. 109600  Fax:       561.796.4669
West Palm Beach, FL, 33410-9600                  Internet:  CONDICMA@PWFL.COM
===============================================================================
    "Eagles may soar, but a weasle never gets sucked up into a jet engine."
===============================================================================

--
--  This function will return a string containing everything that
--  was on the command line. Due to OS pecularities, you may not
--  get it back exactly as typed. You may not get everything you
--  want, either. Ada can't fix that because it's going to depend on
--  what the OS decides to give you. From experience, Unix and WinNT
--  will produce different effects from the same code.
--
--  A lot of this implementation depends on what sort of command line
--  "language" you intend to be parsing out of the string. You'll
--  have to tailor the function as needed, but it at least
--  illustrates the proper calls to Ada.Command_Line.
--
--  The function presumes that you don't care about spaces between
--  parameters. You could modify it to put spaces between the
--  parameters, etc.
--

with Ada.Command_Line ;
with Ada.Strings ;
with Ada.Strings.Maps ;
with Ada.Strings.Fixed ;
with Ada.Characters.Handling ;
with Ada.Text_IO ;

function Get_Command_Line return String is
    --
    Temp            : String (1..256)   := (others => ' ') ;
    I               : Natural           := 0 ;
    --
    use Ada.Command_Line ;
    use Ada.Strings.Fixed ;
begin
    --
    --  Get the "command" or program name from the system if available.
    --
    Ada.Strings.Fixed.Move (
        Source  => Ada.Command_Line.Command_Name,
        Target  => Temp,
        Drop    => Ada.Strings.Right) ;
    --
    --  Get each of the args into the string - spaces don't matter.
    --
    I := Ada.Strings.Fixed.Index (
        Source  => Temp,
        Pattern => " ") ;
    for X in 1..Ada.Command_Line.Argument_Count loop
        Ada.Strings.Fixed.Move (
            Source  => Ada.Command_Line.Argument (X),
            Target  => Temp (I..Temp'Last),
            Drop    => Ada.Strings.Right) ;
        I := Index_Non_Blank (
            Source  => Temp,
            Going   => Ada.Strings.Backward) + 1 ;
    end loop ;
    --
    return Ada.Strings.Fixed.Trim (
        Source  => Temp,
        Side    => Ada.Strings.Both) ;
exception
    when Constraint_Error =>
        Ada.Text_IO.Put_Line ("Your command line is probably too long.") ;
        return "" ;
end Get_Command_Line ;

comand line arguments

[ucs_rat]

Could some one give me a quick snibbit of code to do simple command line
aruguments in GNAT Ada95.  IF there are any necessary with and use
declartions would you let me know about them too?  It doesn't have to be
complex just some basic commands that cuold be done from batches...just
would rather wrapp is all up in one tight ada program.  

Thanks for the help,

Robert A. Thompson

Re: comand line arguments

[bklungle]

Here is a little something I played around with a while ago.
Just a quick hack.

cheers...bob


with ada.command_line;
with fibonacci;
with text_io;

procedure fib is

  package acl renames ada.command_line;
  package txo renames text_io;

  package iio is new txo.integer_io(integer);

  function argc return natural renames acl.argument_count;
  function argv(Nr : positive) return string renames acl.argument;

  n : integer;
begin
  if argc = 1 then
    n := integer'value(argv(1));
    if n >= 0 then
      txo.put("fib(");
      iio.put(n, 1);
      txo.put(") is ");
      iio.put(fibonacci.fib(n), 1);
      txo.new_line;
      txo.new_line;
    else
      txo.put_line("number must be >= 0");
    end if;
  end if;
exception
  when others =>
    txo.put_line("fib: unknown exception");
    raise;
end fib;


ucs_rat@shsu.edu wrote in article <343D6FC1.7B3B@unx1.shsu.edu>...
> Could some one give me a quick snibbit of code to do simple command line
> aruguments in GNAT Ada95.  IF there are any necessary with and use
> declartions would you let me know about them too?  It doesn't have to be
> complex just some basic commands that cuold be done from batches...just
> would rather wrapp is all up in one tight ada program.  
> 
> Thanks for the help,
> 
> Robert A. Thompson
> 

Re: comand line arguments

[Pascal Obry]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1290 bytes --]


look at the Ada.Command_Line package.

--

--|------------------------------------------------------------
--| Pascal Obry                               Team-Ada Member |
--|                                                           |
--| EDF-DER-IPN-SID- Ing�nierie des Syst�mes d'Informations   |
--|                                                           |
--| Bureau G1-010           e-mail: pascal.obry@der.edfgdf.fr |
--| 1 Av G�n�ral de Gaulle  voice : +33-1-47.65.50.91         |
--| 92141 Clamart CEDEX     fax   : +33-1-47.65.50.07         |
--| FRANCE                                                    |
--|------------------------------------------------------------
--|
--|   http://ourworld.compuserve.com/homepages/pascal_obry
--|
--|   "The best way to travel is by means of imagination"

ucs_rat@shsu.edu a �crit dans le message <343D6FC1.7B3B@unx1.shsu.edu>...
>Could some one give me a quick snibbit of code to do simple command line
>aruguments in GNAT Ada95.  IF there are any necessary with and use
>declartions would you let me know about them too?  It doesn't have to be
>complex just some basic commands that cuold be done from batches...just
>would rather wrapp is all up in one tight ada program.
>
>Thanks for the help,
>
>Robert A. Thompson