diff options
Diffstat (limited to 'shell/shell.adb')
-rw-r--r-- | shell/shell.adb | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/shell/shell.adb b/shell/shell.adb new file mode 100644 index 0000000..a4ae014 --- /dev/null +++ b/shell/shell.adb @@ -0,0 +1,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;
|