shell/commands.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

--
--  $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;