From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,e8c6974546bc3f7f
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.66.75.164 with SMTP id d4mr1358236paw.10.1353707857756;
        Fri, 23 Nov 2012 13:57:37 -0800 (PST)
Path: 
 6ni7430pbd.1!nntp.google.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!border3.nntp.dca.giganews.com!Xl.tags.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!local2.nntp.dca.giganews.com!nntp.posted.internetamerica!news.posted.internetamerica.POSTED!not-for-mail
NNTP-Posting-Date: Fri, 23 Nov 2012 15:57:36 -0600
From: Robert Love <rblove@airmail.net>
Newsgroups: comp.lang.ada
Date: Fri, 23 Nov 2012 15:58:53 -0600
Message-ID: <2012112315585358568-rblove@airmailnet>
References: <2012112311175432190-rblove@airmailnet>
 <lyzk28b25n.fsf@pushface.org>
MIME-Version: 1.0
Subject: Re: Sockets Example Sought
User-Agent: Unison/2.1.9
X-Usenet-Provider: http://www.giganews.com
NNTP-Posting-Host: 98.194.39.33
X-Trace: 
 sv3-HgDu1qD6dgZUELcFmPMOXRUztOUm9VdH5FzhTHmtUD5IIdavMT3vadmlh1CxfzMozU8KMZIjwGBZ5PO!mwNxRatM4o6s704wRA6XSjyVRJE3/AAwqJXC+pRshlX+NOHoEBh6V/fFkrXSz+Ntc7WUxTovImLs!ZA==
X-Complaints-To: abuse@airmail.net
X-DMCA-Complaints-To: abuse@airmail.net
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.3.40
X-Original-Bytes: 1902
X-Received-Bytes: 2043
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Date: 2012-11-23T15:58:53-06:00
List-Id: <comp.lang.ada>

On 2012-11-23 18:32:52 +0000, Simon Wright said:

> Robert Love <rblove@airmail.net> writes:
> 
>> Does anyone have an example of a multi-client server in Ada they care
>> to share?  It should use the Gnat.Sockets package.  I've seen samples
>> but they don't seem complete, or at least my understanding isn't
>> complete<grin>.
>> 
>> Thanks in advance.
> 
> task body Server in http://goo.gl/bXVw7 ? (lines 59 .. 143)

What happens at line 120, the else clause on if Server = Socket_Server? 
 Is that where data is read in on the socket?

I assume the client opens the socket and the server detects it, then at 
various times the client makes data requests by sending string data.

The Respond function called just seems to call HTTP.Respond, which is 
not in this file.