source: ada-examples/shell/commands.adb @ c53f12b

--
--  $Id$
--

with Ada.Text_IO; use Ada.Text_IO;
with Command_Line_Arguments; use Command_Line_Arguments;
with Getopt_R;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;


package body Commands is

   function Prompt return String is begin
      return "RTEMS> ";
   end Prompt;

   function C_Prompt return chars_ptr is
   begin
      return New_String (Prompt);
   end C_Prompt;

   function Command_Test_Arguments
     (ArgC : Argument_Count_Type;
      ArgV : Argument_Vector_Type)
      return int
   is
      Arguments : Argument_Array (1 .. ArgC);
      Count     : Argument_Count_Type := 1;
   begin
      Arguments := Argument_Vector_Package.Value (ArgV, ArgC);
      loop
         exit when Count > ArgC;
         Put_Line (Value (Arguments (Count)));
         Count := Count + 1;
      end loop;
      return 0;
   end Command_Test_Arguments;

   function Command_Getopt_R
     (ArgC : Argument_Count_Type;
      ArgV : Argument_Vector_Type)
   return int is
      Test_String : String := "c:di:n:p:u:V";
      Optchar : character;
      V       : Integer;
      Reent   : aliased Getopt_R.Reentrant;
   begin
     Getopt_R.Initialize( Reent'Unrestricted_Access, Argc, Argv );
     loop
        V := Getopt_R.Getopt( Reent'Unrestricted_Access, Test_String );
        exit when V = -1;

        optchar :=  Character'Val( V );
        case optchar is
           when 'c' =>
              Put_Line("command is "& To_String(Reent.Optarg));
           when 'd' =>
               Put_Line("debug on");
           when 'i' =>
              Put_line("got -i, its argument is:" & To_String(Reent.Optarg) );
           when 'n' =>
              Put_line("got -n, its argument is:" & To_String(Reent.Optarg));
           when 'p' =>
              Put_line("got -p, its argument is:" & To_String(Reent.Optarg));
           when 'u' =>
              Put_line("got -u, its argument is:" & To_String(Reent.Optarg));
           when 'V' =>
              Put_line("got -V");

           when '?' =>
              Put_Line("got ?, optopt is " & Reent.Optopt);

           when ':' =>
              Put_Line("get :, optopt is "& Reent.optopt);

           when others => null;
        end case;
     end loop;

     for Count in Reent.Optind .. Reent.ArgC
     loop
        Put_Line (ptrdiff_t'Image(Count) & ": " & Get_Argument(Argv, Count));
     end loop;

     return 0;
   end Command_Getopt_R;
end Commands;