vrpn: Bindings to VRPN.

[ library, mit, network, program ] [ Propose Tags ]

See <https://github.com/vrpn/vrpn/wiki> for information on VRPN. This has been tested using VRPN 07.30 on Linux.

If the VRPN libraries are static and this package is used from Template Haskell, then the package needs to be configured with the QuatStatic flag.

[Skip to Readme]
Versions [faq],,,,
Dependencies base (>=4.8 && <5) [details]
License MIT
Copyright (c) 2015-19 Brian W Bush
Author Brian W Bush <code@functionally.io>
Maintainer Brian W Bush <code@functionally.io>
Category Network
Home page https://bitbucket.org/functionally/vrpn
Bug tracker https://bwbush.atlassian.net/projects/HVRPN/issues/
Source repo head: git clone https://bitbucket.org/functionally/vrpn.git
Uploaded by BrianBush at Wed Feb 20 14:30:23 UTC 2019
Distributions NixOS:
Executables test-vrpn
Downloads 1434 total (74 in the last 30 days)
Rating (no votes yet) [estimated by rule of succession]
Your Rating
  • λ
  • λ
  • λ
Status Hackage Matrix CI
Docs not available [build log]
All reported builds failed as of 2019-02-20 [all 3 reports]


  • Network
    • Network.VRPN



Explicitly link with static library libquat.a, which is required when using this package with Template Haskell.


Use -f <flag> to enable a flag, or -f -<flag> to disable that flag. More info


Maintainer's Corner

For package maintainers and hackage trustees

Readme for vrpn-

[back to package description]

Bindings for VRPN

This package contains bindings to VRPN, <https://github.com/vrpn/vrpn/wiki> and is loosely modeled on the code in <https://github.com/vrpn/vrpn/blob/master/client_src/vrpn_print_devices.C>. This has been tested using VRPN 07.30 on Linux. It requires the VRPN C++ header files.

Please report issues at <https://bwbush.atlassian.net/projects/HVRPN/issues/>.

Skeletal example illustrating the use of VRPN bindings

data ButtonType = LeftButton | RightButton
  deriving (Enum, Eq, Show)

main :: IO ()
main =
    putStrLn "Press the left button to exit."
    done <- newEmptyMVar
      -- A remote button that signals completion when the left button is released.
      button :: Device Int ButtonType Double
      button =
        Button "spacenav0@localhost"
          $ Just
          $ \time button state ->
              print (time, button, state)
              if button == LeftButton && not state
                then void $ tryPutMVar done ()
                else return ()
      -- An analog device.
      analog :: Device Int Int Int Double
      analog = Analog "spacenav0@localhost"
        $ Just
        $ curry print
    -- Open the remote devices.
    devices <- sequence [openDevice button, openDevice analog]
    -- Loop until a signal to complete is received.
    mainLoops (not <$> isEmptyMVar done) 10 devices
    -- Close the remote devices.
    mapM_ closeDevice devices