reenact 0.7.1 → 0.7.2
raw patch · 2 files changed
+3/−73 lines, 2 filesdep −hosc
Dependencies removed: hosc
Files
- reenact.cabal +3/−3
- src/Control/Reactive/Osc.hs +0/−70
reenact.cabal view
@@ -1,6 +1,6 @@ name: reenact-version: 0.7.1+version: 0.7.2 cabal-version: >= 1.2 author: Hans Hoglund maintainer: Hans Hoglund@@ -29,7 +29,7 @@ time, hamid >= 0.6, HCodecs >= 0.2.2,- hosc == 0.13,+ -- hosc == 0.13, -- semigroups, -- semigroupoids, vector-space@@ -39,6 +39,6 @@ Control.Reactive.Chan Control.Reactive.Var Control.Reactive.Midi- Control.Reactive.Osc+ -- Control.Reactive.Osc other-modules: Control.Reactive.Util
− src/Control/Reactive/Osc.hs
@@ -1,70 +0,0 @@--module Control.Reactive.Osc (- module Sound.OpenSoundControl,-- -- * Basic types- OscTime,- OscPacket,- OscMessage,- OscBundle,-- -- * Sending and receiving- -- ** UDP- oscInUdp,- oscOutUdp,- ) where--import Data.Monoid -import Data.Maybe-import Control.Monad-import Control.Applicative-import System.IO.Unsafe (unsafePerformIO)-import Control.Concurrent (forkIO, forkOS, threadDelay)--import Control.Reactive-import Control.Reactive.Util--import Sound.OpenSoundControl hiding (Time, time)-import qualified Sound.OSC.FD as Osc--type OscTime = Osc.Time--type OscPacket = Osc.Packet-type OscMessage = Osc.Message-type OscBundle = Osc.Bundle---- |--- Recieve OSC from the given port.------ > oscInUdp port----oscInUdp :: Int -> Event OscPacket-oscInUdp port = unsafePerformIO $ do- (k, e) <- newSource- fd <- Osc.udpServer "127.0.0.1" port- forkIO $ do- Osc.recvPacket fd >>= k- return e---- |--- Send OSC to the given address.------ > oscInUdp address port----oscOutUdp :: OSC a => String -> Int -> Event a -> Event a-oscOutUdp addr port = putE $ \msg -> do- -- putStrLn "Osc.sendOSC"- Osc.sendOSC dest msg- where- dest = unsafePerformIO $ do- -- putStrLn "Osc.openUDP"- Osc.openUDP addr port--{--oscIn :: Osc.Transport t => t -> Event OscPacket-oscIn = undefined--oscOut :: (OSC a, Osc.Transport t) => t -> Event a -> Event a-oscOut dest = -}--