alsa-midi-0.3.2: Bindings for the ALSA sequencer API (MIDI stuff) Source code Contents Index

Sound.ALSA.Sequencer.FFI

Contents FFI stuff Error handling Sequencer Port Queue Tempo Utility functions

Synopsis

newtype T = Cons (Ptr ()) data EventDataUnion = DataUnknown CUInt CUInt CUInt | Note { noteChannel :: CUChar notePitch :: CUChar noteVelocity :: CUChar noteOffVelocity :: CUChar noteDuration :: CUInt } | Control { controlChannel :: CUChar controlParameter :: CUInt controlValue :: CInt } | QueueEv { queueId :: Queue queueControl :: QueueControl } | Connect { connectSender :: Address connectDest :: Address } | Fixed isConnect :: EventDataUnion -> Bool isFixed :: EventDataUnion -> Bool isNote :: EventDataUnion -> Bool isController :: EventDataUnion -> Bool peekEventData :: Ptr EventDataUnion -> EventType -> IO EventDataUnion peekConnect :: Ptr EventDataUnion -> IO EventDataUnion peekNote :: Ptr EventDataUnion -> IO EventDataUnion peekControl :: Ptr EventDataUnion -> IO EventDataUnion pokeEventData :: Ptr EventDataUnion -> EventDataUnion -> IO () class TimeValue a data RealTime = RealTime { tv_sec :: CUInt tv_nsec :: CUInt } newtype TickTime = TickTime { tv_ticks :: CUInt } data TimeUnit = TimeUnitReal | TimeUnitTick data TimeMode = TimeModeAbsolute | TimeModeRelative data TimeStamp = TimeStampTick TickTime | TimeStampReal RealTime peekTimeStamp :: TimeUnit -> Ptr TimeStamp -> IO TimeStamp pokeTimeStamp :: Ptr TimeStamp -> TimeStamp -> IO TimeUnit newtype ClientId = ClientId CUInt clientSystem :: ClientId clientDummy :: ClientId clientOSS :: ClientId newtype Port = Port CUInt portSystemTimer :: Port portSystemAnnounce :: Port data Address = Address { client :: ClientId port :: Port } addressTimer :: Address newtype Queue = Queue CUInt queueDirect :: Queue data QueueControl = QueueControlValue CInt | QueueControlTime TimeStamp | QueueControlPosition CUInt | QueueControlData32 CUInt CUInt | QueueControlData8 CUChar CUChar CUChar CUChar CUChar CUChar CUChar CUChar pokeQueueControl :: Ptr QueueControl -> QueueControl -> IO () data EventType = EventSystem | EventResult | EventPad002 | EventPad003 | EventPad004 | EventNote | EventNoteOn | EventNoteOff | EventKeyPressure | EventPad009 | EventController | EventProgramChange | EventChannelPressure | EventPitchBend | EventControl14 | EventNonRegisteredParameter | EventRegisteredParameter | EventPad017 | EventPad018 | EventPad019 | EventSongPosition | EventSongSelect | EventQuarterFrame | EventTimeSign | EventKeySign | EventPad025 | EventPad026 | EventPad027 | EventPad028 | EventPad029 | EventStart | EventContinue | EventStop | EventSetPositionTick | EventSetPositionTime | EventTempo | EventClock | EventTick | EventQueueSkew | EventSyncPos | EventTuneRequest | EventReset | EventSensing | EventPad043 | EventPad044 | EventPad045 | EventPad046 | EventPad047 | EventPad048 | EventPad049 | EventEcho | EventOSS | EventPad052 | EventPad053 | EventPad054 | EventPad055 | EventPad056 | EventPad057 | EventPad058 | EventPad059 | EventClientStart | EventClientExit | EventClientChange | EventPortStart | EventPortExit | EventPortChange | EventPortSubscribed | EventPortUnsubscribed | EventPad068 | EventPad069 | EventSample | EventSampleCluster | EventSampleStart | EventSampleStop | EventSampleFrequency | EventSampleVolume | EventSampleLoop | EventSamplePosition | EventSamplePrivate1 | EventPad079 | EventPad080 | EventPad081 | EventPad082 | EventPad083 | EventPad084 | EventPad085 | EventPad086 | EventPad087 | EventPad088 | EventPad089 | EventUser0 | EventUser1 | EventUser2 | EventUser3 | EventUser4 | EventUser5 | EventUser6 | EventUser7 | EventUser8 | EventUser9 | EventInstrumentBegin | EventInstrumentEnd | EventInstrumentInfo | EventInstrumentInfoResult | EventInstrumentFormatInfo | EventInstrumentFormatInfoResult | EventInstrumentReset | EventInstrumentStatus | EventInstrumentStatusResult | EventInstrumentPut | EventInstrumentGet | EventInstrumentGetResult | EventInstrumentFree | EventInstrumentList | EventInstrumentListResult | EventInstrumentCluster | EventInstrumentClusterGet | EventInstrumentClusterResult | EventInstrumentChange | EventPad119 | EventPad120 | EventPad121 | EventPad122 | EventPad123 | EventPad124 | EventPad125 | EventPad126 | EventPad127 | EventPad128 | EventPad129 | EventSystemExclusive | EventBounce | EventPad132 | EventPad133 | EventPad134 | EventUserVar0 | EventUserVar1 | EventUserVar2 | EventUserVar3 | EventUserVar4 data EventLength = EventLengthFixed | EventLengthVariable | EventLengthVariableUser data Priority = PriorityNormal | PriorityHigh data Event = Event { typ :: EventType tag :: CUChar queue :: Queue time :: TimeStamp timeMode :: TimeMode eventLength :: EventLength priority :: Priority source :: Address dest :: Address eventData :: EventDataUnion } newtype EnumBitPos a = EnumBitPos Int timeUnitBit :: EnumBitPos TimeUnit timeModeBit :: EnumBitPos TimeMode eventLengthBit :: EnumBitPos EventLength priorityBit :: EnumBitPos Priority newtype ReturnCode = ReturnCode CInt check :: String -> IO ReturnCode -> IO CUInt str_error :: CInt -> IO CString open :: Ptr T -> CString -> OpenMode -> CUInt -> IO ReturnCode close :: T -> IO ReturnCode set_client_name :: T -> CString -> IO () client_id :: T -> ClientId event_output :: T -> Ptr Event -> IO ReturnCode drain_output :: T -> IO ReturnCode event_input :: T -> Ptr (Ptr Event) -> IO ReturnCode create_simple_port :: T -> Ptr CChar -> PortCapabilitySet -> PortTypeSet -> IO ReturnCode delete_simple_port :: T -> Port -> IO ReturnCode alloc_named_queue :: T -> CString -> IO ReturnCode alloc_queue :: T -> IO ReturnCode free_queue :: T -> Queue -> IO ReturnCode newtype Tempo = Tempo (Ptr ()) queue_tempo_malloc :: Ptr Tempo -> IO ReturnCode queue_tempo_free :: Tempo -> IO () queue_tempo_set_tempo :: Tempo -> CUInt -> IO () queue_tempo_set_ppq :: Tempo -> CUInt -> IO () get_queue_tempo :: T -> Queue -> Tempo -> IO ReturnCode set_queue_tempo :: T -> Queue -> Tempo -> IO ReturnCode type OpenMode = FlagSet CUInt Open data Open = OpenOutput | OpenInput openOutput :: OpenMode openInput :: OpenMode openDuplex :: OpenMode type PortTypeSet = FlagSet CUInt PortType data PortType = PortTypeSpecific | PortTypeMIDIGeneric | PortTypeMIDIGM | PortTypeMIDIGS | PortTypeMIDIXG | PortTypeMIDIMT32 | PortType06 | PortType07 | PortType08 | PortType09 | PortTypeSynth | PortTypeDirectSample | PortTypeSample | PortType13 | PortType14 | PortType15 | PortType16 | PortType17 | PortType18 | PortType19 | PortTypeApplication portTypeMIDIGeneric :: PortTypeSet portTypeMIDIGM :: PortTypeSet portTypeMIDIGS :: PortTypeSet portTypeMIDIXG :: PortTypeSet portTypeMIDIMT32 :: PortTypeSet portTypeSynth :: PortTypeSet portTypeDirectSample :: PortTypeSet portTypeSample :: PortTypeSet portTypeApplication :: PortTypeSet portTypeSpecific :: PortTypeSet type PortCapabilitySet = FlagSet CUInt PortCapability data PortCapability = PortCapRead | PortCapWrite | PortCapSyncRead | PortCapSyncWrite | PortCapDuplex | PortCapSubsRead | PortCapSubsWrite | PortCapNoExport portCapWrite :: PortCapabilitySet portCapSyncRead :: PortCapabilitySet portCapSyncWrite :: PortCapabilitySet portCapDuplex :: PortCapabilitySet portCapSubsRead :: PortCapabilitySet portCapSubsWrite :: PortCapabilitySet portCapNoExport :: PortCapabilitySet portCapRead :: PortCapabilitySet select :: a -> [(Bool, a)] -> a newtype FlagSet word enum = FlagSet { unFlagSet :: word } flagToWord :: (Enum a, Bits w) => a -> FlagSet w a flagsToWord :: (Enum a, Bits w) => [a] -> FlagSet w a wordToFlags :: (Enum a, Bits w) => FlagSet w a -> [a] intToFlags :: (Enum a, Integral w) => FlagSet w a -> [a] unpackEnum :: (Enum a, Integral b, Bits b) => b -> EnumBitPos a -> b -> a packEnum :: (Bits b, Enum a) => EnumBitPos a -> a -> b enumToChar :: Enum a => a -> CUChar enumFromChar :: Enum a => CUChar -> a

Documentation

newtype T Source

Constructors Cons (Ptr ()) Instances Storable T

data EventDataUnion Source

Constructors DataUnknown CUInt CUInt CUInt Note noteChannel :: CUChar notePitch :: CUChar noteVelocity :: CUChar noteOffVelocity :: CUChar noteDuration :: CUInt Control controlChannel :: CUChar controlParameter :: CUInt controlValue :: CInt QueueEv queueId :: Queue queueControl :: QueueControl Connect connectSender :: Address connectDest :: Address Fixed Instances Show EventDataUnion

isConnect :: EventDataUnion -> Bool Source

isFixed :: EventDataUnion -> Bool Source

isNote :: EventDataUnion -> Bool Source

isController :: EventDataUnion -> Bool Source

peekEventData :: Ptr EventDataUnion -> EventType -> IO EventDataUnion Source

peekConnect :: Ptr EventDataUnion -> IO EventDataUnion Source

peekNote :: Ptr EventDataUnion -> IO EventDataUnion Source

peekControl :: Ptr EventDataUnion -> IO EventDataUnion Source

pokeEventData :: Ptr EventDataUnion -> EventDataUnion -> IO () Source

class TimeValue a Source

Instances TimeValue TickTime TimeValue RealTime

data RealTime Source

Constructors RealTime tv_sec :: CUInt tv_nsec :: CUInt Instances Show RealTime Storable RealTime TimeValue RealTime

newtype TickTime Source

Constructors TickTime tv_ticks :: CUInt Instances Show TickTime Storable TickTime TimeValue TickTime

data TimeUnit Source

Constructors TimeUnitReal TimeUnitTick Instances Enum TimeUnit Eq TimeUnit Ord TimeUnit Show TimeUnit

data TimeMode Source

Constructors TimeModeAbsolute TimeModeRelative Instances Enum TimeMode Eq TimeMode Ord TimeMode Show TimeMode

data TimeStamp Source

Constructors TimeStampTick TickTime TimeStampReal RealTime Instances Show TimeStamp

peekTimeStamp :: TimeUnit -> Ptr TimeStamp -> IO TimeStamp Source

pokeTimeStamp :: Ptr TimeStamp -> TimeStamp -> IO TimeUnit Source

newtype ClientId Source

Constructors ClientId CUInt Instances Enum ClientId Eq ClientId Show ClientId Storable ClientId

clientSystem :: ClientId Source

system client

clientDummy :: ClientId Source

dummy ports

clientOSS :: ClientId Source

OSS sequencer emulator

newtype Port Source

Constructors Port CUInt Instances Enum Port Eq Port Show Port Storable Port

portSystemTimer :: Port Source

system timer port

portSystemAnnounce :: Port Source

system announce port

data Address Source

Constructors Address client :: ClientId port :: Port Instances Show Address Storable Address

addressTimer :: Address Source

newtype Queue Source

Constructors Queue CUInt Instances Enum Queue Eq Queue Show Queue Storable Queue

queueDirect :: Queue Source

data QueueControl Source

Constructors QueueControlValue CInt QueueControlTime TimeStamp QueueControlPosition CUInt QueueControlData32 CUInt CUInt QueueControlData8 CUChar CUChar CUChar CUChar CUChar CUChar CUChar CUChar Instances Show QueueControl

pokeQueueControl :: Ptr QueueControl -> QueueControl -> IO () Source

data EventType Source

Constructors EventSystem EventResult EventPad002 EventPad003 EventPad004 EventNote EventNoteOn EventNoteOff EventKeyPressure EventPad009 EventController EventProgramChange EventChannelPressure EventPitchBend EventControl14 EventNonRegisteredParameter EventRegisteredParameter EventPad017 EventPad018 EventPad019 EventSongPosition EventSongSelect EventQuarterFrame EventTimeSign EventKeySign EventPad025 EventPad026 EventPad027 EventPad028 EventPad029 EventStart EventContinue EventStop EventSetPositionTick EventSetPositionTime EventTempo EventClock EventTick EventQueueSkew EventSyncPos EventTuneRequest EventReset EventSensing EventPad043 EventPad044 EventPad045 EventPad046 EventPad047 EventPad048 EventPad049 EventEcho EventOSS EventPad052 EventPad053 EventPad054 EventPad055 EventPad056 EventPad057 EventPad058 EventPad059 EventClientStart EventClientExit EventClientChange EventPortStart EventPortExit EventPortChange EventPortSubscribed EventPortUnsubscribed EventPad068 EventPad069 EventSample EventSampleCluster EventSampleStart EventSampleStop EventSampleFrequency EventSampleVolume EventSampleLoop EventSamplePosition EventSamplePrivate1 EventPad079 EventPad080 EventPad081 EventPad082 EventPad083 EventPad084 EventPad085 EventPad086 EventPad087 EventPad088 EventPad089 EventUser0 EventUser1 EventUser2 EventUser3 EventUser4 EventUser5 EventUser6 EventUser7 EventUser8 EventUser9 EventInstrumentBegin EventInstrumentEnd EventInstrumentInfo EventInstrumentInfoResult EventInstrumentFormatInfo EventInstrumentFormatInfoResult EventInstrumentReset EventInstrumentStatus EventInstrumentStatusResult EventInstrumentPut EventInstrumentGet EventInstrumentGetResult EventInstrumentFree EventInstrumentList EventInstrumentListResult EventInstrumentCluster EventInstrumentClusterGet EventInstrumentClusterResult EventInstrumentChange EventPad119 EventPad120 EventPad121 EventPad122 EventPad123 EventPad124 EventPad125 EventPad126 EventPad127 EventPad128 EventPad129 EventSystemExclusive EventBounce EventPad132 EventPad133 EventPad134 EventUserVar0 EventUserVar1 EventUserVar2 EventUserVar3 EventUserVar4 Instances Enum EventType Eq EventType Ord EventType Show EventType Ix EventType Storable EventType

data EventLength Source

Constructors EventLengthFixed EventLengthVariable EventLengthVariableUser Instances Enum EventLength Eq EventLength Ord EventLength Show EventLength

data Priority Source

Constructors PriorityNormal PriorityHigh Instances Enum Priority Eq Priority Ord Priority Show Priority

data Event Source

Constructors Event typ :: EventType tag :: CUChar queue :: Queue time :: TimeStamp timeMode :: TimeMode eventLength :: EventLength priority :: Priority source :: Address dest :: Address eventData :: EventDataUnion Instances Show Event Storable Event

newtype EnumBitPos a Source

Constructors EnumBitPos Int

timeUnitBit :: EnumBitPos TimeUnit Source

timeModeBit :: EnumBitPos TimeMode Source

eventLengthBit :: EnumBitPos EventLength Source

priorityBit :: EnumBitPos Priority Source

newtype ReturnCode Source

Constructors ReturnCode CInt

check :: String -> IO ReturnCode -> IO CUInt Source

FFI stuff

Error handling

str_error :: CInt -> IO CString Source

should be in a more general ALSA module

Sequencer

open :: Ptr T -> CString -> OpenMode -> CUInt -> IO ReturnCode Source

close :: T -> IO ReturnCode Source

set_client_name :: T -> CString -> IO () Source

client_id :: T -> ClientId Source

event_output :: T -> Ptr Event -> IO ReturnCode Source

drain_output :: T -> IO ReturnCode Source

event_input :: T -> Ptr (Ptr Event) -> IO ReturnCode Source

Port

create_simple_port :: T -> Ptr CChar -> PortCapabilitySet -> PortTypeSet -> IO ReturnCode Source

delete_simple_port :: T -> Port -> IO ReturnCode Source

Queue

alloc_named_queue :: T -> CString -> IO ReturnCode Source

alloc_queue :: T -> IO ReturnCode Source

free_queue :: T -> Queue -> IO ReturnCode Source

Tempo

newtype Tempo Source

Constructors Tempo (Ptr ()) Instances Storable Tempo

queue_tempo_malloc :: Ptr Tempo -> IO ReturnCode Source

queue_tempo_free :: Tempo -> IO () Source

queue_tempo_set_tempo :: Tempo -> CUInt -> IO () Source

queue_tempo_set_ppq :: Tempo -> CUInt -> IO () Source

get_queue_tempo :: T -> Queue -> Tempo -> IO ReturnCode Source

set_queue_tempo :: T -> Queue -> Tempo -> IO ReturnCode Source

type OpenMode = FlagSet CUInt Open Source

data Open Source

Constructors OpenOutput OpenInput Instances Enum Open Eq Open Ord Open Show Open Ix Open

openOutput :: OpenMode Source

openInput :: OpenMode Source

openDuplex :: OpenMode Source

type PortTypeSet = FlagSet CUInt PortType Source

data PortType Source

Constructors PortTypeSpecific PortTypeMIDIGeneric PortTypeMIDIGM PortTypeMIDIGS PortTypeMIDIXG PortTypeMIDIMT32 PortType06 PortType07 PortType08 PortType09 PortTypeSynth PortTypeDirectSample PortTypeSample PortType13 PortType14 PortType15 PortType16 PortType17 PortType18 PortType19 PortTypeApplication Instances Enum PortType Eq PortType Ord PortType Show PortType Ix PortType

portTypeMIDIGeneric :: PortTypeSet Source

portTypeMIDIGM :: PortTypeSet Source

portTypeMIDIGS :: PortTypeSet Source

portTypeMIDIXG :: PortTypeSet Source

portTypeMIDIMT32 :: PortTypeSet Source

portTypeSynth :: PortTypeSet Source

portTypeDirectSample :: PortTypeSet Source

portTypeSample :: PortTypeSet Source

portTypeApplication :: PortTypeSet Source

portTypeSpecific :: PortTypeSet Source

type PortCapabilitySet = FlagSet CUInt PortCapability Source

data PortCapability Source

Constructors PortCapRead PortCapWrite PortCapSyncRead PortCapSyncWrite PortCapDuplex PortCapSubsRead PortCapSubsWrite PortCapNoExport Instances Enum PortCapability Eq PortCapability Ord PortCapability Show PortCapability Ix PortCapability

portCapWrite :: PortCapabilitySet Source

portCapSyncRead :: PortCapabilitySet Source

portCapSyncWrite :: PortCapabilitySet Source

portCapDuplex :: PortCapabilitySet Source

portCapSubsRead :: PortCapabilitySet Source

portCapSubsWrite :: PortCapabilitySet Source

portCapNoExport :: PortCapabilitySet Source

portCapRead :: PortCapabilitySet Source

Utility functions

select :: a -> [(Bool, a)] -> a Source

From a list of expressions choose the one, whose condition holds.

newtype FlagSet word enum Source

Constructors FlagSet unFlagSet :: word

flagToWord :: (Enum a, Bits w) => a -> FlagSet w a Source

flagsToWord :: (Enum a, Bits w) => [a] -> FlagSet w a Source

wordToFlags :: (Enum a, Bits w) => FlagSet w a -> [a] Source

intToFlags :: (Enum a, Integral w) => FlagSet w a -> [a] Source

unpackEnum :: (Enum a, Integral b, Bits b) => b -> EnumBitPos a -> b -> a Source

packEnum :: (Bits b, Enum a) => EnumBitPos a -> a -> b Source

enumToChar :: Enum a => a -> CUChar Source

enumFromChar :: Enum a => CUChar -> a Source

Produced by Haddock version 2.6.0