gRPC-haskell/examples/echo/echo-client/Main.hs

{-# LANGUAGE LambdaCase                      #-}
{-# LANGUAGE OverloadedStrings               #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# OPTIONS_GHC -fno-warn-unused-binds       #-}

import           Control.Monad
import           Network.GRPC.LowLevel
import           Network.GRPC.LowLevel.Call
import qualified Network.GRPC.LowLevel.Client.Unregistered as U
import           System.Environment

echoMethod = MethodName "/echo.Echo/DoEcho"

_unregistered c = U.clientRequest c echoMethod 1 "hi" mempty

main = withGRPC $ \g ->
  withClient g (ClientConfig "localhost" 50051 []) $ \c -> do
  rm <- clientRegisterMethod c echoMethod Normal
  replicateM_ 100000 $ clientRequest c rm 5 "hi" mempty >>= \case
    Left e -> error $ "Got client error: " ++ show e
    _      -> return ()
Fixes a concurrency bug wherein a thread (running beyond the maximum number of pluckers) would register a CQ notification via grpc_server_request_registered_call prior to obtaining pluck permission, block on acquiring such permission, and thus miss notification of the server call. The bug can could be witnessed with particular interleavings by ensuring that GRPC_MAX_COMPLETION_QUEUE_PLUCKERS server threads are blocked on their own server call notifications, and then using the (GRPC_MAX_COMPLETION_QUEUE_PLUCKERS+1)th server thread to attempt to block on a notification for an additional server call. In order to fix this, we simply extended the pluck permission held window for serverRequestCall, and created a variant of pluck (called pluck') which assumes permission to pluck is already held by the calling thread. 2016-07-11 00:04:31 +02:00			`{-# LANGUAGE LambdaCase #-}`
			`{-# LANGUAGE OverloadedStrings #-}`
Distinguish hostnames vs "host:port" strings; minor echo client cleanup (#20) * Remove explicit host:port parameter from clientRequest * Save ClientConfig in Client ADT; derive host:port string as needed * Add Port newtype and endpoint string constructor fn * Introduce Endpoint newtype for host:port strings; derive them as needed; misc cleanup * Clean up echo client 2016-06-06 19:54:43 +02:00			`{-# OPTIONS_GHC -fno-warn-missing-signatures #-}`
			`{-# OPTIONS_GHC -fno-warn-unused-binds #-}`
Various example/benchmarking code (#16) * initial echo client/server examples * registered and unregistered versions of the example client * ignore pyc files * cpp echo code, flag to build examples * threaded server example 2016-06-03 19:34:09 +02:00
Distinguish hostnames vs "host:port" strings; minor echo client cleanup (#20) * Remove explicit host:port parameter from clientRequest * Save ClientConfig in Client ADT; derive host:port string as needed * Add Port newtype and endpoint string constructor fn * Introduce Endpoint newtype for host:port strings; derive them as needed; misc cleanup * Clean up echo client 2016-06-06 19:54:43 +02:00			`import Control.Monad`
			`import Network.GRPC.LowLevel`
Fixes a concurrency bug wherein a thread (running beyond the maximum number of pluckers) would register a CQ notification via grpc_server_request_registered_call prior to obtaining pluck permission, block on acquiring such permission, and thus miss notification of the server call. The bug can could be witnessed with particular interleavings by ensuring that GRPC_MAX_COMPLETION_QUEUE_PLUCKERS server threads are blocked on their own server call notifications, and then using the (GRPC_MAX_COMPLETION_QUEUE_PLUCKERS+1)th server thread to attempt to block on a notification for an additional server call. In order to fix this, we simply extended the pluck permission held window for serverRequestCall, and created a variant of pluck (called pluck') which assumes permission to pluck is already held by the calling thread. 2016-07-11 00:04:31 +02:00			`import Network.GRPC.LowLevel.Call`
Rename reg operations in all modules; use qualified imports whenever selecting unregistered variants 2016-06-08 21:38:01 +02:00			`import qualified Network.GRPC.LowLevel.Client.Unregistered as U`
Fixes a concurrency bug wherein a thread (running beyond the maximum number of pluckers) would register a CQ notification via grpc_server_request_registered_call prior to obtaining pluck permission, block on acquiring such permission, and thus miss notification of the server call. The bug can could be witnessed with particular interleavings by ensuring that GRPC_MAX_COMPLETION_QUEUE_PLUCKERS server threads are blocked on their own server call notifications, and then using the (GRPC_MAX_COMPLETION_QUEUE_PLUCKERS+1)th server thread to attempt to block on a notification for an additional server call. In order to fix this, we simply extended the pluck permission held window for serverRequestCall, and created a variant of pluck (called pluck') which assumes permission to pluck is already held by the calling thread. 2016-07-11 00:04:31 +02:00			`import System.Environment`
Various example/benchmarking code (#16) * initial echo client/server examples * registered and unregistered versions of the example client * ignore pyc files * cpp echo code, flag to build examples * threaded server example 2016-06-03 19:34:09 +02:00
			`echoMethod = MethodName "/echo.Echo/DoEcho"`

Fixes a concurrency bug wherein a thread (running beyond the maximum number of pluckers) would register a CQ notification via grpc_server_request_registered_call prior to obtaining pluck permission, block on acquiring such permission, and thus miss notification of the server call. The bug can could be witnessed with particular interleavings by ensuring that GRPC_MAX_COMPLETION_QUEUE_PLUCKERS server threads are blocked on their own server call notifications, and then using the (GRPC_MAX_COMPLETION_QUEUE_PLUCKERS+1)th server thread to attempt to block on a notification for an additional server call. In order to fix this, we simply extended the pluck permission held window for serverRequestCall, and created a variant of pluck (called pluck') which assumes permission to pluck is already held by the calling thread. 2016-07-11 00:04:31 +02:00			`_unregistered c = U.clientRequest c echoMethod 1 "hi" mempty`
Various example/benchmarking code (#16) * initial echo client/server examples * registered and unregistered versions of the example client * ignore pyc files * cpp echo code, flag to build examples * threaded server example 2016-06-03 19:34:09 +02:00
Fixes a concurrency bug wherein a thread (running beyond the maximum number of pluckers) would register a CQ notification via grpc_server_request_registered_call prior to obtaining pluck permission, block on acquiring such permission, and thus miss notification of the server call. The bug can could be witnessed with particular interleavings by ensuring that GRPC_MAX_COMPLETION_QUEUE_PLUCKERS server threads are blocked on their own server call notifications, and then using the (GRPC_MAX_COMPLETION_QUEUE_PLUCKERS+1)th server thread to attempt to block on a notification for an additional server call. In order to fix this, we simply extended the pluck permission held window for serverRequestCall, and created a variant of pluck (called pluck') which assumes permission to pluck is already held by the calling thread. 2016-07-11 00:04:31 +02:00			`main = withGRPC $ \g ->`
			`withClient g (ClientConfig "localhost" 50051 []) $ \c -> do`
			`rm <- clientRegisterMethod c echoMethod Normal`
			`replicateM_ 100000 $ clientRequest c rm 5 "hi" mempty >>= \case`
Distinguish hostnames vs "host:port" strings; minor echo client cleanup (#20) * Remove explicit host:port parameter from clientRequest * Save ClientConfig in Client ADT; derive host:port string as needed * Add Port newtype and endpoint string constructor fn * Introduce Endpoint newtype for host:port strings; derive them as needed; misc cleanup * Clean up echo client 2016-06-06 19:54:43 +02:00			`Left e -> error $ "Got client error: " ++ show e`
			`_ -> return ()`