Mac::CoreMIDI - XS Interface for the Mac OS X CoreMIDI API


Mac-CoreMIDI documentation Contained in the Mac-CoreMIDI distribution.

Index


Code Index:

NAME

Top

Mac::CoreMIDI - XS Interface for the Mac OS X CoreMIDI API

SYNOPSIS

Top

  use Mac::CoreMIDI qw(GetDevices);

  foreach (GetDevices()) {
      $_->Dump();
  }

DESCRIPTION

Top

With Mac OS X, Apple introduced a flexible MIDI system called CoreMIDI. Mac::CoreMIDI translates the procedural CoreMIDI API into a set of OO Perl classes.

You will need the CoreAudio SDK installed to compile this module.

CoreMIDI models MIDI devices that can have several entities. These entities have endpoints (sources and destinations). The classes are Mac::CoreMIDI::Device, Mac::CoreMIDI::Entity and Mac::CoreMIDI::Endpoint (for both sources and destinations). The base class of most CoreMIDI classes is Mac::CoreMIDI::Object.

CAVEAT

Top

This module is work in progress. So far, information about the MIDI system can be collected and update messages can be received. However, the structure is subject to change. I hope to use code ref-based callbacks soon, which will help to implement the callbacks to read MIDI data more easily.

FUNCTIONS

Top

All of the following functions can be imported on demand.

my @dev = GetDevices()

Returns a list of all MIDI devices.

my $n = GetNumberOfDevices()

Returns the number of MIDI devices.

my $dev = GetDevice($i)

Returns the $i'th MIDI device (starting from 0).

my @src = GetSources()

Returns a list of source endpoints.

my $n = GetNumberOfSources()

Returns the number of sources.

my $src = GetSource($i)

Returns the $i'th source (starting from 0).

my @dest = GetDestinations()

Returns a list of destination endpoints.

my $n = GetNumberOfDestinations()

Returns the number of destinations.

my $dest = GetDestination($i)

Returns the $i'th destination (starting from 0).

my @edev = GetExternalDevices()

Returns a list of external MIDI devices.

my $n = GetNumberOfExternalDevices()

Returns the number of external MIDI devices.

GetExternalDevice($i)

Returns the $i'th external MIDI device (starting from 0).

my $obj = FindObject($id)

Finds a MIDI object by its unique ID.

Restart()

Force MIDI drivers to rescan for the hardware.

RunLoopRun()

Starts "main" loop for receiving MIDI data.

RunLoopStop()

Stops "main" loop.

SEE ALSO

Top

http://developer.apple.com/audio/ file:///Developer/Examples/CoreAudio/Documentation/MIDI/index.html

AUTHOR

Top

Christian Renz, <crenz @ web42.com>

COPYRIGHT AND LICENSE

Top


Mac-CoreMIDI documentation Contained in the Mac-CoreMIDI distribution.

package Mac::CoreMIDI;

use 5.006;
use strict;
use warnings;

use Mac::CoreMIDI::Device;
use Mac::CoreMIDI::Entity;
use Mac::CoreMIDI::Endpoint;
use Mac::CoreMIDI::Client;
use Mac::CoreMIDI::Port;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
    GetDevices
    GetNumberOfDevices
    GetDevice
    GetSources
    GetNumberOfSources
    GetSource
    GetDestinations
    GetNumberOfDestinations
    GetDestination
    GetExternalDevices
    GetNumberOfExternalDevices
    GetExternalDevice
    FindObject
    Restart
    RunLoopRun
    RunLoopStop
) ] 
);

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our $VERSION = '0.04';

sub GetDevices {
    my $numDevices = GetNumberOfDevices();
    my @devices = map { GetDevice($_) } 0..$numDevices-1;

    return @devices;
}

sub GetSources {
    my $numSources = GetNumberOfSources();
    my @sources = map { GetSource($_) } 0..$numSources-1;

    return @sources;
}

sub GetDestinations {
    my $numDestinations = GetNumberOfDestinations();
    my @destinations = map { GetDestination($_) } 0..$numDestinations-1;

    return @destinations;
}

sub GetExternalDevices {
    my $numExternalDevices = GetNumberOfExternalDevices();
    my @externaldevices = map { GetExternalDevice($_) } 0..$numExternalDevices-1;

    return @externaldevices;
}

require XSLoader;
XSLoader::load('Mac::CoreMIDI', $VERSION);

# Preloaded methods go here.

1;

__END__