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
|
Rev | Line | |
---|
[f421fee] | 1 | --
|
---|
| 2 | -- $Id$
|
---|
| 3 | --
|
---|
| 4 |
|
---|
| 5 | with Interfaces.C.Strings; use Interfaces.C.Strings;
|
---|
| 6 | with Commands; use Commands;
|
---|
| 7 | with RTEMS_Shell; use RTEMS_Shell;
|
---|
| 8 |
|
---|
| 9 | procedure Main is
|
---|
| 10 | begin
|
---|
| 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;
|
---|
| 21 | end Main;
|
---|
Note: See
TracBrowser
for help on using the repository browser.