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

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

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
RevLine 
[f421fee]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.