diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-15 21:16:45 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-15 21:16:45 +0000 |
commit | 57016012e0db6cfef603c3f4bb638b8a84efb90e (patch) | |
tree | 625c1037e6d5ddfa5a5aface845279466b0dd6da /shell/shell.adb | |
parent | 87a21372dcb04e77f91e1333cd8e5a297fbe59b0 (diff) |
2009-09-15 Joel Sherrill <joel.sherrill@oarcorp.com>
Makefiles assume Ada main is in PROGRAM.adb.
* shell.adb: New file.
* main.adb: Removed.
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;
|