Sockets: Difference between revisions

Content deleted Content added
m Ada syntax clarification
Line 10: Line 10:


procedure Socket_Send is
procedure Socket_Send is

Client : Socket_Type;
Client : Socket_Type;
begin
begin
Line 21: Line 20:
String'Write (Stream (Client), "hello socket world");
String'Write (Stream (Client), "hello socket world");
Close_Socket (Client);
Close_Socket (Client);

end Socket_Send;</lang>
end Socket_Send;</lang>