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;