ada-examples-4-10-branch
SIGAda2010
Last change
on this file since e5636e3 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
|
Line | |
---|
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.