blob: 90040fb31c2b109188d1350adae1552c4017c0c1 (
plain) (
blame)
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
|
--
-- $Id$
--
with Command_Line_Arguments; use Command_Line_Arguments;
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;
with Interfaces.C.Pointers;
package RTEMS_Shell is
type Command_Function_Type is access function (ArgC : Argument_Count_Type;
ArgV : Argument_Vector_Type) return int;
pragma Convention (C, Command_Function_Type);
procedure RTEMS_Shell_Add_Command(Name : chars_ptr; Category : chars_ptr;
Help : chars_ptr; Command_Function : Command_Function_Type);
pragma Import (C, RTEMS_Shell_Add_Command, "rtems_shell_add_cmd");
type Prompt_Function_Type is access function return chars_ptr;
pragma Convention (C, Prompt_Function_Type);
procedure Set_RTEMS_Shell_Prompt_Function(
Prompt_Function : Prompt_Function_Type);
pragma Import (C, Set_RTEMS_Shell_Prompt_Function, "set_prompt_function");
procedure Invoke_RTEMS_Shell;
pragma Import (C, Invoke_RTEMS_Shell, "invoke_rtems_shell");
procedure Initialize_Telnet_Daemon;
pragma Import (C, Initialize_Telnet_Daemon, "init_telnet_daemon");
end RTEMS_Shell;
|