The vrpn package

[Tags:library, mit, program]

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]

Properties

Versions 0.2.0.0, 0.2.1.0, 0.2.1.3, 0.2.1.4
Dependencies base (>=4.8 && <5) [details]
License MIT
Copyright (c) 2015 Brian W Bush
Author Brian W Bush <consult@brianwbush.info>
Maintainer Brian W Bush <consult@brianwbush.info>
Category Network
Home page https://bitbucket.org/functionally/vrpn
Bug tracker https://bwbush.atlassian.net/projects/HVRPN/issues/
Source repository head: git clone https://bitbucket.org/functionally/vrpn.git
Uploaded Sat Apr 16 18:34:23 UTC 2016 by BrianBush
Distributions NixOS:0.2.1.4
Downloads 208 total (4 in the last 30 days)
Votes
0 []
Status Docs not available [build log]
All reported builds failed as of 2016-11-26 [all 2 reports]

Modules

  • Network
    • Network.VRPN

Flags

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

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

Downloads

Maintainer's Corner

For package maintainers and hackage trustees

Readme for vrpn

Readme for vrpn-0.2.1.4

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 =
  do
    putStrLn "Press the left button to exit."
    done <- newEmptyMVar
    let
      -- 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 ->
            do
              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