shell/shell.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

--
--  $Id$
--

with Interfaces.C.Strings; use Interfaces.C.Strings;
with Commands;             use Commands;
with RTEMS_Shell;          use RTEMS_Shell;

procedure Shell is
begin
   RTEMS_Shell_Add_Command
     (New_String ("getopt"),
      New_String ("test"),
      New_String ("Example of getopt with pattern c:di:n:p:u:V"),
      Command_Getopt_R'Access);

   RTEMS_Shell_Add_Command
     (New_String ("args"),
      New_String ("test"),
      New_String ("Test passing arguments"),
      Command_Test_Arguments'Access);

   Set_RTEMS_Shell_Prompt_Function (C_Prompt'Access);
   --  Initialize_Telnet_Daemon;
   loop
      Invoke_RTEMS_Shell;
   end loop;
end Shell;