-- | This module provides variations of the asynchronous server commands that
-- expect a /completion packet/ as the first argument. The completion packet
-- is executed by the server when the asynchronous command has finished. Note
-- that this mechanism is for synchronizing server side processes only, for
-- client side synchronization use @\/done@ message notification or the
-- @\/sync@ barrier.
module Sound.SC3.Server.Command.Completion where

import Sound.OSC {- hosc -}

import Sound.SC3.Server.Enum
import Sound.SC3.Server.Synthdef

-- | Encode an OSC packet as an OSC blob.
encode_blob :: Packet -> Datum
encode_blob :: Packet -> Datum
encode_blob = BLOB -> Datum
Blob (BLOB -> Datum) -> (Packet -> BLOB) -> Packet -> Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Packet -> BLOB
encodePacket

-- | Install a bytecode instrument definition. (Asynchronous)
d_recv :: Packet -> Synthdef -> Message
d_recv :: Packet -> Synthdef -> Message
d_recv Packet
pkt Synthdef
d = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/d_recv" [BLOB -> Datum
Blob (Synthdef -> BLOB
synthdefData Synthdef
d),Packet -> Datum
encode_blob Packet
pkt]

-- | Load an instrument definition from a named file. (Asynchronous)
d_load :: Packet -> String -> Message
d_load :: Packet -> Address_Pattern -> Message
d_load Packet
pkt Address_Pattern
p = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/d_load" [Address_Pattern -> Datum
string Address_Pattern
p,Packet -> Datum
encode_blob Packet
pkt]

-- | Load a directory of instrument definitions files. (Asynchronous)
d_loadDir :: Packet -> String -> Message
d_loadDir :: Packet -> Address_Pattern -> Message
d_loadDir Packet
pkt Address_Pattern
p = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/d_loadDir" [Address_Pattern -> Datum
string Address_Pattern
p,Packet -> Datum
encode_blob Packet
pkt]

-- | Allocates zero filled buffer to number of channels and samples. (Asynchronous)
b_alloc :: Packet -> Int -> Int -> Int -> Message
b_alloc :: Packet -> Int -> Int -> Int -> Message
b_alloc Packet
pkt Int
nid Int
frames Int
channels = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_alloc" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
frames,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
channels,Packet -> Datum
encode_blob Packet
pkt]

-- | Allocate buffer space and read a sound file. (Asynchronous)
b_allocRead :: Packet -> Int -> String -> Int -> Int -> Message
b_allocRead :: Packet -> Int -> Address_Pattern -> Int -> Int -> Message
b_allocRead Packet
pkt Int
nid Address_Pattern
p Int
f Int
n = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_allocRead" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Address_Pattern -> Datum
string Address_Pattern
p,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
n,Packet -> Datum
encode_blob Packet
pkt]

-- | Allocate buffer space and read a sound file, picking specific channels. (Asynchronous)
b_allocReadChannel :: Packet -> Int -> String -> Int -> Int -> [Int] -> Message
b_allocReadChannel :: Packet -> Int -> Address_Pattern -> Int -> Int -> [Int] -> Message
b_allocReadChannel Packet
pkt Int
nid Address_Pattern
p Int
f Int
n [Int]
cs = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_allocReadChannel" ([Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Address_Pattern -> Datum
string Address_Pattern
p,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
n] [Datum] -> [Datum] -> [Datum]
forall a. [a] -> [a] -> [a]
++ (Int -> Datum) -> [Int] -> [Datum]
forall a b. (a -> b) -> [a] -> [b]
map Int -> Datum
forall n. Integral n => n -> Datum
int32 [Int]
cs [Datum] -> [Datum] -> [Datum]
forall a. [a] -> [a] -> [a]
++ [Packet -> Datum
encode_blob Packet
pkt])

-- | Free buffer data. (Asynchronous)
b_free :: Packet -> Int -> Message
b_free :: Packet -> Int -> Message
b_free Packet
pkt Int
nid = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_free" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Packet -> Datum
encode_blob Packet
pkt]

-- | Close attached soundfile and write header information. (Asynchronous)
b_close :: Packet -> Int -> Message
b_close :: Packet -> Int -> Message
b_close Packet
pkt Int
nid = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_close" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Packet -> Datum
encode_blob Packet
pkt]

-- | Read sound file data into an existing buffer. (Asynchronous)
b_read :: Packet -> Int -> String -> Int -> Int -> Int -> Bool -> Message
b_read :: Packet
-> Int -> Address_Pattern -> Int -> Int -> Int -> Bool -> Message
b_read Packet
pkt Int
nid Address_Pattern
p Int
f Int
n Int
f' Bool
z = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_read" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Address_Pattern -> Datum
string Address_Pattern
p,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
n,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f',Int -> Datum
forall n. Integral n => n -> Datum
int32 (Bool -> Int
forall a. Enum a => a -> Int
fromEnum Bool
z),Packet -> Datum
encode_blob Packet
pkt]

-- | Read sound file data into an existing buffer. (Asynchronous)
b_readChannel :: Packet -> Int -> String -> Int -> Int -> Int -> Bool -> [Int] -> Message
b_readChannel :: Packet
-> Int
-> Address_Pattern
-> Int
-> Int
-> Int
-> Bool
-> [Int]
-> Message
b_readChannel Packet
pkt Int
nid Address_Pattern
p Int
f Int
n Int
f' Bool
z [Int]
cs = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_readChannel" ([Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Address_Pattern -> Datum
string Address_Pattern
p,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
n,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f',Int -> Datum
forall n. Integral n => n -> Datum
int32 (Bool -> Int
forall a. Enum a => a -> Int
fromEnum Bool
z)] [Datum] -> [Datum] -> [Datum]
forall a. [a] -> [a] -> [a]
++ (Int -> Datum) -> [Int] -> [Datum]
forall a b. (a -> b) -> [a] -> [b]
map Int -> Datum
forall n. Integral n => n -> Datum
int32 [Int]
cs [Datum] -> [Datum] -> [Datum]
forall a. [a] -> [a] -> [a]
++ [Packet -> Datum
encode_blob Packet
pkt])

-- | Write sound file data. (Asynchronous)
b_write :: Packet -> Int -> String -> SoundFileFormat -> SampleFormat -> Int -> Int -> Bool -> Message
b_write :: Packet
-> Int
-> Address_Pattern
-> SoundFileFormat
-> SampleFormat
-> Int
-> Int
-> Bool
-> Message
b_write Packet
pkt Int
nid Address_Pattern
p SoundFileFormat
h SampleFormat
t Int
f Int
s Bool
z = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_write" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Address_Pattern -> Datum
string Address_Pattern
p,Address_Pattern -> Datum
string (SoundFileFormat -> Address_Pattern
soundFileFormatString SoundFileFormat
h),Address_Pattern -> Datum
string (SampleFormat -> Address_Pattern
sampleFormatString SampleFormat
t),Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
f,Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
s,Int -> Datum
forall n. Integral n => n -> Datum
int32 (Bool -> Int
forall a. Enum a => a -> Int
fromEnum Bool
z),Packet -> Datum
encode_blob Packet
pkt]

-- | Zero sample data. (Asynchronous)
b_zero :: Packet -> Int -> Message
b_zero :: Packet -> Int -> Message
b_zero Packet
pkt Int
nid = Address_Pattern -> [Datum] -> Message
Message Address_Pattern
"/b_zero" [Int -> Datum
forall n. Integral n => n -> Datum
int32 Int
nid,Packet -> Datum
encode_blob Packet
pkt]

-- Local Variables:
-- truncate-lines:t
-- End: