Skip to content

Commit

Permalink
Minor spelling fixes
Browse files Browse the repository at this point in the history
  • Loading branch information
briot committed May 6, 2021
1 parent d4557da commit 7f7f059
Showing 1 changed file with 10 additions and 6 deletions.
16 changes: 10 additions & 6 deletions src/core/aws-net-websocket.ads
Original file line number Diff line number Diff line change
Expand Up @@ -45,6 +45,10 @@ package AWS.Net.WebSocket is

type Object is new Net.Socket_Type with private;
type Object_Class is access all Object'Class;
-- To implement your own handling of messages, you need to extend this
-- type and override at least the On_Message primitive operation.
-- In addition, you need to register a factory (to create new objects based
-- on the URI) using AWS.Net.WebSocket.Registry.Register).

No_Object : constant Object'Class;

Expand Down Expand Up @@ -88,7 +92,7 @@ package AWS.Net.WebSocket is
-- This function must be registered via AWS.Net.WebSocket.Registry.Register

procedure On_Message (Socket : in out Object; Message : String) is null;
-- Default implementation does nothing, it needs to be overriden by the
-- Default implementation does nothing, it needs to be overridden by the
-- end-user. This is the callback that will get activated for every server
-- incoming data. It is also important to keep in mind that the thread
-- handling this WebSocket won't be released until the procedure returns.
Expand All @@ -97,11 +101,11 @@ package AWS.Net.WebSocket is

procedure On_Message (Socket : in out Object; Message : Unbounded_String);
-- Same a above but takes an Unbounded_String. This is supposed to be
-- overriden when handling large messages otherwise a stack-overflow could
-- be raised. The default implementation of this procedure to to call the
-- overridden when handling large messages otherwise a stack-overflow could
-- be raised. The default implementation of this procedure to call the
-- On_Message above with a string.
--
-- So either this version is overriden to handle the incoming messages or
-- So either this version is overridden to handle the incoming messages or
-- the one above if the messages are known to be small.

procedure On_Open (Socket : in out Object; Message : String) is null;
Expand All @@ -119,7 +123,7 @@ package AWS.Net.WebSocket is
(Socket : in out Object;
Message : String;
Is_Binary : Boolean := False);
-- This default implementation just send a message to the client. The
-- This default implementation just sends a message to the client. The
-- message is sent in a single chunk (not fragmented).

procedure Send
Expand Down Expand Up @@ -167,7 +171,7 @@ package AWS.Net.WebSocket is
--
-- These function waits until it either receives a close or an error, or
-- the beginning of a message frame. In the latter case, the function
-- will then block until it has receives all chunks of that frame, which
-- will then block until it has received all chunks of that frame, which
-- might take longer than Timeout.
--
-- The function will return early if it doesn't receive the beginning
Expand Down

0 comments on commit 7f7f059

Please sign in to comment.