blob: a4ae014bf8667085d2b6626f1cf2a95ed33a5d7a (
plain) (
blame)
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;
|