Finish up bindings to most core gRPC functions (#1)
* grpc_server_request_call
* basic slice functionality
* rename function to emphasize side effects
* add docs
* ByteBuffer function bindings
* replace unsafeCoerce with more specific function, add docs, tests.
* add newtypes for Tag and Reserved void pointers
* manually fix request_registered_call binding
* use nocode keyword to fix Ptr () problems
* decouple copying Slice from freeing slice
* Add time ops
* remove nocode decls
* Start Op module, fix c2hs preprocessing order
* metadata manipulation operations
* metadata free function, test
* helper functions for constructing ops of each type
* bindings for op creation functions
* finish up Op creation functions, implement Op destruction, add docs.
* tweak documentation
* rework Op creation functions to work with an array of ops, for ease of use with grpc_call_start_batch
* forgot to change return types
* wrap hook lines, fix types to op creation functions
* implement part of the payload test
* hideous, but working, end to end test
* bindings for connectivity state checks, split test into two threads
* various cleanup
* rename Core to Unsafe for emphasis, clean up tests more
* add requested comment
* remove slice_unref binding, use sliceFree when converting buffer to bytestring
2016-05-13 18:12:37 +02:00
|
|
|
module Network.GRPC.Unsafe.Time where
|
|
|
|
|
Begin safe low-level Haskell layer (#7)
* grpc_server_request_call
* basic slice functionality
* rename function to emphasize side effects
* add docs
* ByteBuffer function bindings
* replace unsafeCoerce with more specific function, add docs, tests.
* add newtypes for Tag and Reserved void pointers
* manually fix request_registered_call binding
* use nocode keyword to fix Ptr () problems
* decouple copying Slice from freeing slice
* Add time ops
* remove nocode decls
* Start Op module, fix c2hs preprocessing order
* metadata manipulation operations
* metadata free function, test
* helper functions for constructing ops of each type
* bindings for op creation functions
* finish up Op creation functions, implement Op destruction, add docs.
* tweak documentation
* rework Op creation functions to work with an array of ops, for ease of use with grpc_call_start_batch
* forgot to change return types
* wrap hook lines, fix types to op creation functions
* implement part of the payload test
* hideous, but working, end to end test
* bindings for connectivity state checks, split test into two threads
* various cleanup
* rename Core to Unsafe for emphasis, clean up tests more
* begin safe low-level facilities
* begin completion queue and server stuff
* Finish server start/stop, cq start/stop, add tests
* facilities for safely executing op batches
* reorganize LowLevel modules, begin explicit export list
* client functionality, stub payload test, various refactors
* tweak cabal file, add test
* add more documentation
* doc tweaks
* begin refactor to improve CompletionQueue safety
* export only thread-safe CQ functions, add registered call creation and other CQ utilities
* begin refactor to use GRPCIO monad, fix missing push semaphore, fix mem leak in server calls
* switch to explicit Either where needed
* add crashing tests, continue fleshing out serverHandleNormalCall
* fix haddock error, finish first draft of request handling function
* reduce GHC warnings
* non-registered client request helpers
* initial request/response test working
* don't pass tags around; generate where needed
* server call bracket functions
* correct order of semaphore acquisition and shutdown check
* simple debug flag logging, simplify Call type
* fix various registered method issues (but still not working)
* cleanup
* delete old code
* remove old todo
* use MetadataMap synonym pervasively
* more comments
* update TODOs
* tweak safety caveat
* docs tweaks
* improve haddocks
* add casts to eliminate clang warnings, remove unused function
* update options to eliminate cabal warnings
* remove outdated todo
* remove unneeded exports from CompletionQueue
* rename to GRPCIOCallError, re-add create/shutdown exports (needed for Server module)
* newtypes for hosts and method names
* more newtypes
* more debug logging
* Fix flag name collision
* instrument uses of free
* more debug
* switch to STM for completion queue stuff
* reduce warnings
* more debugging, create/destroy call tests
* refactor, fix failure cleanup for server call creation. More tests passing.
* formatting tweaks
2016-05-24 22:34:50 +02:00
|
|
|
import Control.Exception (bracket)
|
Finish up bindings to most core gRPC functions (#1)
* grpc_server_request_call
* basic slice functionality
* rename function to emphasize side effects
* add docs
* ByteBuffer function bindings
* replace unsafeCoerce with more specific function, add docs, tests.
* add newtypes for Tag and Reserved void pointers
* manually fix request_registered_call binding
* use nocode keyword to fix Ptr () problems
* decouple copying Slice from freeing slice
* Add time ops
* remove nocode decls
* Start Op module, fix c2hs preprocessing order
* metadata manipulation operations
* metadata free function, test
* helper functions for constructing ops of each type
* bindings for op creation functions
* finish up Op creation functions, implement Op destruction, add docs.
* tweak documentation
* rework Op creation functions to work with an array of ops, for ease of use with grpc_call_start_batch
* forgot to change return types
* wrap hook lines, fix types to op creation functions
* implement part of the payload test
* hideous, but working, end to end test
* bindings for connectivity state checks, split test into two threads
* various cleanup
* rename Core to Unsafe for emphasis, clean up tests more
* add requested comment
* remove slice_unref binding, use sliceFree when converting buffer to bytestring
2016-05-13 18:12:37 +02:00
|
|
|
import Control.Monad
|
|
|
|
import Foreign.C.Types
|
|
|
|
import Foreign.Storable
|
|
|
|
import System.Clock
|
|
|
|
|
|
|
|
#include <grpc/support/time.h>
|
|
|
|
#include <grpc_haskell.h>
|
|
|
|
|
|
|
|
{#context prefix = "grp" #}
|
|
|
|
|
|
|
|
newtype CTimeSpec = CTimeSpec { timeSpec :: TimeSpec }
|
|
|
|
|
|
|
|
instance Storable CTimeSpec where
|
|
|
|
sizeOf _ = {#sizeof gpr_timespec #}
|
|
|
|
alignment _ = {#alignof gpr_timespec #}
|
|
|
|
peek p = fmap CTimeSpec $ TimeSpec
|
|
|
|
<$> liftM fromIntegral ({#get gpr_timespec->tv_sec #} p)
|
|
|
|
<*> liftM fromIntegral ({#get gpr_timespec->tv_nsec #} p)
|
|
|
|
poke p x = do
|
|
|
|
{#set gpr_timespec.tv_sec #} p (fromIntegral $ sec $ timeSpec x)
|
|
|
|
{#set gpr_timespec.tv_nsec #} p (fromIntegral $ nsec $ timeSpec x)
|
|
|
|
|
|
|
|
{#enum gpr_clock_type as ClockType {underscoreToCase} deriving (Eq) #}
|
|
|
|
|
|
|
|
-- | A pointer to a CTimeSpec. Must be destroyed manually with
|
|
|
|
-- 'timespecDestroy'.
|
|
|
|
{#pointer *gpr_timespec as CTimeSpecPtr -> CTimeSpec #}
|
|
|
|
|
|
|
|
{#fun timespec_destroy as ^ {`CTimeSpecPtr'} -> `()'#}
|
|
|
|
|
|
|
|
{#fun gpr_inf_future_ as ^ {`ClockType'} -> `CTimeSpecPtr'#}
|
|
|
|
|
|
|
|
-- | Get the current time for the given 'ClockType'. Warning: 'GprTimespan' will
|
|
|
|
-- cause a crash. Probably only need to use GprClockMonotonic, which returns 0.
|
|
|
|
{#fun gpr_now_ as ^ {`ClockType'} -> `CTimeSpecPtr'#}
|
|
|
|
|
|
|
|
{#fun gpr_time_to_millis_ as ^ {`CTimeSpecPtr'} -> `Int'#}
|
|
|
|
|
|
|
|
-- | Returns a GprClockMonotonic representing a deadline n seconds in the
|
|
|
|
-- future.
|
|
|
|
{#fun seconds_to_deadline as ^ {`Int'} -> `CTimeSpecPtr'#}
|
|
|
|
|
Begin safe low-level Haskell layer (#7)
* grpc_server_request_call
* basic slice functionality
* rename function to emphasize side effects
* add docs
* ByteBuffer function bindings
* replace unsafeCoerce with more specific function, add docs, tests.
* add newtypes for Tag and Reserved void pointers
* manually fix request_registered_call binding
* use nocode keyword to fix Ptr () problems
* decouple copying Slice from freeing slice
* Add time ops
* remove nocode decls
* Start Op module, fix c2hs preprocessing order
* metadata manipulation operations
* metadata free function, test
* helper functions for constructing ops of each type
* bindings for op creation functions
* finish up Op creation functions, implement Op destruction, add docs.
* tweak documentation
* rework Op creation functions to work with an array of ops, for ease of use with grpc_call_start_batch
* forgot to change return types
* wrap hook lines, fix types to op creation functions
* implement part of the payload test
* hideous, but working, end to end test
* bindings for connectivity state checks, split test into two threads
* various cleanup
* rename Core to Unsafe for emphasis, clean up tests more
* begin safe low-level facilities
* begin completion queue and server stuff
* Finish server start/stop, cq start/stop, add tests
* facilities for safely executing op batches
* reorganize LowLevel modules, begin explicit export list
* client functionality, stub payload test, various refactors
* tweak cabal file, add test
* add more documentation
* doc tweaks
* begin refactor to improve CompletionQueue safety
* export only thread-safe CQ functions, add registered call creation and other CQ utilities
* begin refactor to use GRPCIO monad, fix missing push semaphore, fix mem leak in server calls
* switch to explicit Either where needed
* add crashing tests, continue fleshing out serverHandleNormalCall
* fix haddock error, finish first draft of request handling function
* reduce GHC warnings
* non-registered client request helpers
* initial request/response test working
* don't pass tags around; generate where needed
* server call bracket functions
* correct order of semaphore acquisition and shutdown check
* simple debug flag logging, simplify Call type
* fix various registered method issues (but still not working)
* cleanup
* delete old code
* remove old todo
* use MetadataMap synonym pervasively
* more comments
* update TODOs
* tweak safety caveat
* docs tweaks
* improve haddocks
* add casts to eliminate clang warnings, remove unused function
* update options to eliminate cabal warnings
* remove outdated todo
* remove unneeded exports from CompletionQueue
* rename to GRPCIOCallError, re-add create/shutdown exports (needed for Server module)
* newtypes for hosts and method names
* more newtypes
* more debug logging
* Fix flag name collision
* instrument uses of free
* more debug
* switch to STM for completion queue stuff
* reduce warnings
* more debugging, create/destroy call tests
* refactor, fix failure cleanup for server call creation. More tests passing.
* formatting tweaks
2016-05-24 22:34:50 +02:00
|
|
|
withDeadlineSeconds :: Int -> (CTimeSpecPtr -> IO a) -> IO a
|
|
|
|
withDeadlineSeconds i = bracket (secondsToDeadline i) timespecDestroy
|
|
|
|
|
Finish up bindings to most core gRPC functions (#1)
* grpc_server_request_call
* basic slice functionality
* rename function to emphasize side effects
* add docs
* ByteBuffer function bindings
* replace unsafeCoerce with more specific function, add docs, tests.
* add newtypes for Tag and Reserved void pointers
* manually fix request_registered_call binding
* use nocode keyword to fix Ptr () problems
* decouple copying Slice from freeing slice
* Add time ops
* remove nocode decls
* Start Op module, fix c2hs preprocessing order
* metadata manipulation operations
* metadata free function, test
* helper functions for constructing ops of each type
* bindings for op creation functions
* finish up Op creation functions, implement Op destruction, add docs.
* tweak documentation
* rework Op creation functions to work with an array of ops, for ease of use with grpc_call_start_batch
* forgot to change return types
* wrap hook lines, fix types to op creation functions
* implement part of the payload test
* hideous, but working, end to end test
* bindings for connectivity state checks, split test into two threads
* various cleanup
* rename Core to Unsafe for emphasis, clean up tests more
* add requested comment
* remove slice_unref binding, use sliceFree when converting buffer to bytestring
2016-05-13 18:12:37 +02:00
|
|
|
-- | Returns a GprClockMonotonic representing a deadline n milliseconds
|
|
|
|
-- in the future.
|
|
|
|
{#fun millis_to_deadline as ^ {`Int'} -> `CTimeSpecPtr'#}
|
2016-06-15 19:30:17 +02:00
|
|
|
|
|
|
|
-- | Returns a GprClockMonotonic representing an infinitely distant deadline.
|
|
|
|
-- wraps gpr_inf_future in the gRPC library.
|
|
|
|
{#fun infinite_deadline as ^ {} -> `CTimeSpecPtr'#}
|
|
|
|
|
|
|
|
withInfiniteDeadline :: (CTimeSpecPtr -> IO a) -> IO a
|
|
|
|
withInfiniteDeadline = bracket infiniteDeadline timespecDestroy
|
2016-06-16 21:45:55 +02:00
|
|
|
|
|
|
|
{#fun convert_clock_type as ^ {`CTimeSpecPtr', `ClockType'} -> `CTimeSpecPtr'#}
|
|
|
|
|
|
|
|
withConvertedClockType :: CTimeSpecPtr -> ClockType
|
|
|
|
-> (CTimeSpecPtr -> IO a)
|
|
|
|
-> IO a
|
|
|
|
withConvertedClockType cptr ctype = bracket (convertClockType cptr ctype)
|
|
|
|
timespecDestroy
|