Safe Haskell	Safe-Inferred

Midi.TestMidi

Contents

program change
sysex
monitor
thru
melody
mmc
spam
pitch bend range
tests
util

Description

Test MIDI bindings, automatically and manually.

Synopsis

type Interface = Interface.RawInterface Midi.WriteMessage
main :: IO.IO ()
type ReadMsg = IO.IO (Maybe Midi.ReadMessage)
type WriteMsg = (RealTime.RealTime, Midi.Message) -> IO.IO ()
test_midi :: Either Text Interface -> IO.IO ()
open_devices :: Interface -> Bool -> [Midi.ReadDevice] -> Maybe String -> IO.IO (WriteMsg, ReadMsg)
nonblocking_get :: Interface.ReadChan -> ReadMsg
blocking_get :: Interface.ReadChan -> ReadMsg
usage :: String
program_change :: WriteMsg -> ReadMsg -> IO.IO ()
record_sysex :: ReadMsg -> IO.IO ()
send_sysex :: WriteMsg -> IO.FilePath -> IO.IO ()
monitor :: ReadMsg -> IO.IO ()
thru_loop :: WriteMsg -> ReadMsg -> IO.IO ()
thru_melody :: Interface -> WriteMsg -> ReadMsg -> IO.IO ()
melody :: Interface -> WriteMsg -> IO.IO ()
notes :: RealTime.RealTime -> [(RealTime.RealTime, Midi.Message)]
mmc :: WriteMsg -> String -> IO.IO ()
parse_smpte :: String -> Maybe Midi.Smpte
spam :: Interface -> WriteMsg -> Int -> IO.IO ()
pitch_bend_range :: WriteMsg -> Double -> IO.IO ()
run_tests :: Interface -> WriteMsg -> ReadMsg -> IO.IO ()
test_abort :: Interface -> WriteMsg -> ReadMsg -> IO.IO ()
test_merge :: Interface -> WriteMsg -> ReadMsg -> IO.IO ()
test_sysex :: WriteMsg -> ReadMsg -> IO.IO ()
chan_msg :: Midi.ChannelMessage -> Midi.Message
note_on :: Midi.Key -> Midi.Message
note_off :: Midi.Key -> Midi.Message
sleep :: Double -> IO.IO ()
read_until :: NominalDiffTime -> ReadMsg -> IO.IO (Maybe (Midi.ReadMessage, NominalDiffTime))
read_all :: ReadMsg -> IO.IO [Midi.ReadMessage]

Documentation

type Interface = Interface.RawInterface Midi.WriteMessage Source #

main :: IO.IO () Source #

type ReadMsg = IO.IO (Maybe Midi.ReadMessage) Source #

type WriteMsg = (RealTime.RealTime, Midi.Message) -> IO.IO () Source #

test_midi :: Either Text Interface -> IO.IO () Source #

open_devices :: Interface -> Bool -> [Midi.ReadDevice] -> Maybe String -> IO.IO (WriteMsg, ReadMsg) Source #

nonblocking_get :: Interface.ReadChan -> ReadMsg Source #

blocking_get :: Interface.ReadChan -> ReadMsg Source #

usage :: String Source #

program change

program_change :: WriteMsg -> ReadMsg -> IO.IO () Source #

sysex

record_sysex :: ReadMsg -> IO.IO () Source #

send_sysex :: WriteMsg -> IO.FilePath -> IO.IO () Source #

monitor

monitor :: ReadMsg -> IO.IO () Source #

thru

thru_loop :: WriteMsg -> ReadMsg -> IO.IO () Source #

melody

thru_melody :: Interface -> WriteMsg -> ReadMsg -> IO.IO () Source #

Play a melody while also allowing msgs thru, to test merging.

melody :: Interface -> WriteMsg -> IO.IO () Source #

notes :: RealTime.RealTime -> [(RealTime.RealTime, Midi.Message)] Source #

Write notes over time.

mmc

mmc :: WriteMsg -> String -> IO.IO () Source #

parse_smpte :: String -> Maybe Midi.Smpte Source #

spam

spam :: Interface -> WriteMsg -> Int -> IO.IO () Source #

pitch bend range

pitch_bend_range :: WriteMsg -> Double -> IO.IO () Source #

tests

run_tests :: Interface -> WriteMsg -> ReadMsg -> IO.IO () Source #

Test a few things by writing and reading both ends of the same port.

test_abort :: Interface -> WriteMsg -> ReadMsg -> IO.IO () Source #

Ensure that aborts really cancel pending msgs.

test_merge :: Interface -> WriteMsg -> ReadMsg -> IO.IO () Source #

Ensure that timestamp 0 msgs get merged in ahead of timed msgs, as per Interface.write_message.

test_sysex :: WriteMsg -> ReadMsg -> IO.IO () Source #

util

chan_msg :: Midi.ChannelMessage -> Midi.Message Source #

note_on :: Midi.Key -> Midi.Message Source #

note_off :: Midi.Key -> Midi.Message Source #

sleep :: Double -> IO.IO () Source #

read_until :: NominalDiffTime -> ReadMsg -> IO.IO (Maybe (Midi.ReadMessage, NominalDiffTime)) Source #

read_all :: ReadMsg -> IO.IO [Midi.ReadMessage] Source #