source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/network_ada/listener/listener.adb @ 1d4048b2

4.104.114.84.9
Last change on this file since 1d4048b2 was 1d4048b2, checked in by Joel Sherrill <joel.sherrill@…>, on Aug 11, 1999 at 11:45:57 PM

Patch from Tony R. Ambardar <tonya@…>:

I'm attaching a big patch for the ts_386ex BSP which adds and includes
the following:

1) Conversion to ELF format + minor code cleanups + documentation.

2) An Ada95 binding to FreeBSD sockets, based on Samuel Tardieu's

adasockets-0.1.3 package. This includes some sample applications.

3) Some Ada and C interfaces to add serial-port debugging to

programs. Comes with examples, too; the Ada one shows how
transparent adding the support can be. Note that Rosimildo sent me
the original C code.

The network stuff is not BSP specific, and could be added to your Ada
code collection. The debugging stuff is specific to the i386. Right
now, everything sits in my "tools" directory.

  • Property mode set to 100644
File size: 4.4 KB
Line 
1-----------------------------------------------------------------------------
2--                                                                         --
3--                         ADASOCKETS COMPONENTS                           --
4--                                                                         --
5--                            L I S T E N E R                              --
6--                                                                         --
7--                                B o d y                                  --
8--                                                                         --
9--                        $ReleaseVersion: 0.1.3 $                         --
10--                                                                         --
11--  Copyright (C) 1998  École Nationale Supérieure des Télécommunications  --
12--                                                                         --
13--   AdaSockets is free software; you can  redistribute it and/or modify   --
14--   it  under terms of the GNU  General  Public License as published by   --
15--   the Free Software Foundation; either version 2, or (at your option)   --
16--   any later version.   AdaSockets is distributed  in the hope that it   --
17--   will be useful, but WITHOUT ANY  WARRANTY; without even the implied   --
18--   warranty of MERCHANTABILITY   or FITNESS FOR  A PARTICULAR PURPOSE.   --
19--   See the GNU General Public  License  for more details.  You  should   --
20--   have received a copy of the  GNU General Public License distributed   --
21--   with AdaSockets; see   file COPYING.  If  not,  write  to  the Free   --
22--   Software  Foundation, 59   Temple Place -   Suite  330,  Boston, MA   --
23--   02111-1307, USA.                                                      --
24--                                                                         --
25--   As a special exception, if  other  files instantiate generics  from   --
26--   this unit, or  you link this  unit with other  files to produce  an   --
27--   executable,  this  unit does  not  by  itself cause  the  resulting   --
28--   executable to be  covered by the  GNU General Public License.  This   --
29--   exception does  not  however invalidate any  other reasons  why the   --
30--   executable file might be covered by the GNU Public License.           --
31--                                                                         --
32--   The main repository for this software is located at:                  --
33--       http://www-inf.enst.fr/ANC/                                       --
34--                                                                         --
35-----------------------------------------------------------------------------
36
37with Ada.Exceptions;   use Ada.Exceptions;
38with Ada.Text_IO;      use Ada.Text_IO;
39with Sockets;          use Sockets;
40
41procedure Listener is
42
43   --  Usage: listener
44   --  Example: listener
45   --  then telnet localhost `listen_port'
46
47   Listen_Port : Positive := 5000;
48
49   task type Echo is
50      entry Start (FD : in Socket_FD);
51   end Echo;
52
53   function Rev (S : String) return String;
54   --  Reverse a string
55
56   ----------
57   -- Echo --
58   ----------
59
60   task body Echo is
61      Sock : Socket_FD;
62   begin
63      select
64         accept Start (FD : in Socket_FD) do
65            Sock := FD;
66         end Start;
67      or
68         terminate;
69      end select;
70
71      loop
72         Put_Line (Sock, Rev (Get_Line (Sock)));
73      end loop;
74
75   exception
76      when Connection_Closed =>
77         Put_Line ("Connection closed");
78         Shutdown (Sock, Both);
79   end Echo;
80
81   Accepting_Socket : Socket_FD;
82   Incoming_Socket  : Socket_FD;
83
84   type Echo_Access is access Echo;
85   Dummy : Echo_Access;
86
87   ---------
88   -- Rev --
89   ---------
90
91   function Rev (S : String) return String is
92      Result : String (1 .. S'Length);
93      Index  : Natural := 0;
94   begin
95      for I in reverse S'Range loop
96         Index := Index + 1;
97         Result (Index) := S (I);
98      end loop;
99      return Result;
100   end Rev;
101
102begin
103   Socket (Accepting_Socket, AF_INET, SOCK_STREAM);
104   Setsockopt (Accepting_Socket, SOL_SOCKET, SO_REUSEADDR, 1);
105   Bind (Accepting_Socket, Listen_Port);
106   Listen (Accepting_Socket);
107   loop
108      Put_Line ("Waiting for new connection");
109      Accept_Socket (Accepting_Socket, Incoming_Socket);
110      Put_Line ("New connection acknowledged");
111      Dummy := new Echo;
112      Dummy.Start (Incoming_Socket);
113   end loop;
114end Listener;
Note: See TracBrowser for help on using the repository browser.