shell/shell.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

--
--  $Id$
--

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

procedure Main is
begin
   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 Main;