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

--
--  $Id$
--

with Ada.Text_IO; use Ada.Text_IO;

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;

end Commands;