module Sound.SC3.Server.Command.Completion (
d_recv'
, d_load'
, d_loadDir'
, b_alloc'
, b_allocRead'
, b_allocReadChannel'
, b_free'
, b_close'
, b_read'
, b_readChannel'
, b_write'
, b_zero'
) where
import Data.Word (Word8)
import qualified Data.ByteString.Lazy as B
import Sound.OpenSoundControl
encode_osc_blob :: OSC -> Datum
encode_osc_blob = Blob . B.unpack . encodeOSC
d_recv' :: OSC -> [Word8] -> OSC
d_recv' osc b = message "/d_recv" [Blob b, encode_osc_blob osc]
d_load' :: OSC -> String -> OSC
d_load' osc p = message "/d_load" [String p, encode_osc_blob osc]
d_loadDir' :: OSC -> String -> OSC
d_loadDir' osc p = message "/d_loadDir" [String p, encode_osc_blob osc]
b_alloc' :: OSC -> Int -> Int -> Int -> OSC
b_alloc' osc nid frames channels = message "/b_alloc" [Int nid, Int frames, Int channels, encode_osc_blob osc]
b_allocRead' :: OSC -> Int -> String -> Int -> Int -> OSC
b_allocRead' osc nid p f n = message "/b_allocRead" [Int nid, String p, Int f, Int n, encode_osc_blob osc]
b_allocReadChannel' :: OSC -> Int -> String -> Int -> Int -> [Int] -> OSC
b_allocReadChannel' osc nid p f n cs = message "/b_allocReadChannel" ([Int nid, String p, Int f, Int n] ++ map Int cs ++ [encode_osc_blob osc])
b_free' :: OSC -> Int -> OSC
b_free' osc nid = message "/b_free" [Int nid, encode_osc_blob osc]
b_close' :: OSC -> Int -> OSC
b_close' osc nid = message "/b_close" [Int nid, encode_osc_blob osc]
b_read' :: OSC -> Int -> String -> Int -> Int -> Int -> Int -> OSC
b_read' osc nid p f n f' z = message "/b_read" [Int nid, String p, Int f, Int n, Int f', Int z, encode_osc_blob osc]
b_readChannel' :: OSC -> Int -> String -> Int -> Int -> Int -> Int -> [Int] -> OSC
b_readChannel' osc nid p f n f' z cs = message "/b_readChannel" ([Int nid, String p, Int f, Int n, Int f', Int z] ++ map Int cs ++ [encode_osc_blob osc])
b_write' :: OSC -> Int -> String -> Int -> Int -> Int -> Int -> Int -> OSC
b_write' osc nid p h t f s z = message "/b_write" [Int nid, String p, Int h, Int t, Int f, Int s, Int z, encode_osc_blob osc]
b_zero' :: OSC -> Int -> OSC
b_zero' osc nid = message "/b_zero" [Int nid, encode_osc_blob osc]