source: ada-examples/shell/shell.adb @ 5701601

ada-examples-4-10-branch
Last change on this file since 5701601 was 5701601, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 15, 2009 at 9:16:45 PM

2009-09-15 Joel Sherrill <joel.sherrill@…>

Makefiles assume Ada main is in PROGRAM.adb.

  • shell.adb: New file.
  • main.adb: Removed.
  • Property mode set to 100644
File size: 504 bytes
Line 
1--
2--  $Id$
3--
4
5with Interfaces.C.Strings; use Interfaces.C.Strings;
6with Commands;             use Commands;
7with RTEMS_Shell;          use RTEMS_Shell;
8
9procedure Main is
10begin
11   RTEMS_Shell_Add_Command
12     (New_String ("args"),
13      New_String ("test"),
14      New_String ("Test passing arguments"),
15      Command_Test_Arguments'Access);
16   Set_RTEMS_Shell_Prompt_Function (C_Prompt'Access);
17   Initialize_Telnet_Daemon;
18   loop
19      Invoke_RTEMS_Shell;
20   end loop;
21end Main;
Note: See TracBrowser for help on using the repository browser.