From 57016012e0db6cfef603c3f4bb638b8a84efb90e Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 15 Sep 2009 21:16:45 +0000 Subject: 2009-09-15 Joel Sherrill Makefiles assume Ada main is in PROGRAM.adb. * shell.adb: New file. * main.adb: Removed. --- shell/ChangeLog | 6 ++++++ shell/main.adb | 21 --------------------- shell/shell.adb | 21 +++++++++++++++++++++ 3 files changed, 27 insertions(+), 21 deletions(-) delete mode 100644 shell/main.adb create mode 100644 shell/shell.adb diff --git a/shell/ChangeLog b/shell/ChangeLog index 7c8e66f..cdc285a 100644 --- a/shell/ChangeLog +++ b/shell/ChangeLog @@ -1,3 +1,9 @@ +2009-09-15 Joel Sherrill + + Makefiles assume Ada main is in PROGRAM.adb. + * shell.adb: New file. + * main.adb: Removed. + 2009-09-15 Joel Sherrill * .cvsignore, ChangeLog, Makefile, README, commands.adb, commands.ads, diff --git a/shell/main.adb b/shell/main.adb deleted file mode 100644 index a4ae014..0000000 --- a/shell/main.adb +++ /dev/null @@ -1,21 +0,0 @@ --- --- $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; 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; -- cgit v1.2.3