libs/ardour/audio_unit.cc

   1 /*
   2     Copyright (C) 2006 Paul Davis
   3
   4     This program is free software; you can redistribute it and/or modify
   5     it under the terms of the GNU General Public License as published by
   6     the Free Software Foundation; either version 2 of the License, or
   7     (at your option) any later version.
   8
   9     This program is distributed in the hope that it will be useful,
  10     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12     GNU General Public License for more details.
  13
  14     You should have received a copy of the GNU General Public License
  15     along with this program; if not, write to the Free Software
  16     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17
  18 */
  19
  20 #include <sstream>
  21 #include <errno.h>
  22 #include <string.h>
  23
  24 #include <pbd/transmitter.h>
  25 #include <pbd/xml++.h>
  26 #include <pbd/whitespace.h>
  27 #include <pbd/pathscanner.h>
  28
  29 #include <glibmm/thread.h>
  30 #include <glibmm/fileutils.h>
  31 #include <glibmm/miscutils.h>
  32
  33 #include <ardour/ardour.h>
  34 #include <ardour/audioengine.h>
  35 #include <ardour/io.h>
  36 #include <ardour/audio_unit.h>
  37 #include <ardour/session.h>
  38 #include <ardour/utils.h>
  39
  40 #include <appleutility/CAAudioUnit.h>
  41 #include <appleutility/CAAUParameter.h>
  42
  43 #include <CoreFoundation/CoreFoundation.h>
  44 #include <CoreServices/CoreServices.h>
  45 #include <AudioUnit/AudioUnit.h>
  46
  47 #include "i18n.h"
  48
  49 using namespace std;
  50 using namespace PBD;
  51 using namespace ARDOUR;
  52
  53 #ifndef AU_STATE_SUPPORT
  54 static bool seen_get_state_message = false;
  55 static bool seen_set_state_message = false;
  56 static bool seen_loading_message = false;
  57 static bool seen_saving_message = false;
  58 #endif
  59
  60 AUPluginInfo::CachedInfoMap AUPluginInfo::cached_info;
  61
  62 static string preset_search_path = "/Library/Audio/Presets:/Network/Library/Audio/Presets";
  63 static string preset_suffix = ".aupreset";
  64 static bool preset_search_path_initialized = false;
  65
  66 static OSStatus
  67 _render_callback(void *userData,
  68                  AudioUnitRenderActionFlags *ioActionFlags,
  69                  const AudioTimeStamp    *inTimeStamp,
  70                  UInt32       inBusNumber,
  71                  UInt32       inNumberFrames,
  72                  AudioBufferList*       ioData)
  73 {
  74         return ((AUPlugin*)userData)->render_callback (ioActionFlags, inTimeStamp, inBusNumber, inNumberFrames, ioData);
  75 }
  76
  77 static int
  78 save_property_list (CFPropertyListRef propertyList, Glib::ustring path)
  79
  80 {
  81         CFDataRef xmlData;
  82         int fd;
  83
  84         // Convert the property list into XML data.
  85
  86         xmlData = CFPropertyListCreateXMLData( kCFAllocatorDefault, propertyList);
  87
  88         if (!xmlData) {
  89                 error << _("Could not create XML version of property list") << endmsg;
  90                 return -1;
  91         }
  92
  93         // Write the XML data to the file.
  94
  95         fd = open (path.c_str(), O_WRONLY|O_CREAT|O_EXCL, 0664);
  96         while (fd < 0) {
  97                 if (errno == EEXIST) {
  98                         /* tell any UI's that this file already exists and ask them what to do */
  99                         bool overwrite = Plugin::PresetFileExists(); // EMIT SIGNAL
 100                         if (overwrite) {
 101                                 fd = open (path.c_str(), O_WRONLY, 0664);
 102                                 continue;
 103                         } else {
 104                                 return 0;
 105                         }
 106                 }
 107                 error << string_compose (_("Cannot open preset file %1 (%2)"), path, strerror (errno)) << endmsg;
 108                 CFRelease (xmlData);
 109                 return -1;
 110         }
 111
 112         size_t cnt = CFDataGetLength (xmlData);
 113
 114         if (write (fd, CFDataGetBytePtr (xmlData), cnt) != cnt) {
 115                 CFRelease (xmlData);
 116                 close (fd);
 117                 return -1;
 118         }
 119
 120         close (fd);
 121         return 0;
 122 }
 123
 124
 125 static CFPropertyListRef
 126 load_property_list (Glib::ustring path)
 127 {
 128         int fd;
 129         CFPropertyListRef propertyList;
 130         CFDataRef         xmlData;
 131         CFStringRef       errorString;
 132
 133         // Read the XML file.
 134
 135         if ((fd = open (path.c_str(), O_RDONLY)) < 0) {
 136                 return propertyList;
 137
 138         }
 139
 140         off_t len = lseek (fd, 0, SEEK_END);
 141         char* buf = new char[len];
 142         lseek (fd, 0, SEEK_SET);
 143
 144         if (read (fd, buf, len) != len) {
 145                 delete [] buf;
 146                 close (fd);
 147                 return propertyList;
 148         }
 149
 150         close (fd);
 151
 152         xmlData = CFDataCreateWithBytesNoCopy (kCFAllocatorDefault, (UInt8*) buf, len, kCFAllocatorNull);
 153
 154         // Reconstitute the dictionary using the XML data.
 155
 156         propertyList = CFPropertyListCreateFromXMLData( kCFAllocatorDefault,
 157                                                         xmlData,
 158                                                         kCFPropertyListImmutable,
 159                                                         &errorString);
 160
 161         CFRelease (xmlData);
 162         delete [] buf;
 163
 164         return propertyList;
 165 }
 166
 167 //-----------------------------------------------------------------------------
 168 static void
 169 set_preset_name_in_plist (CFPropertyListRef plist, string preset_name)
 170 {
 171         if (!plist) {
 172                 return;
 173         }
 174         CFStringRef pn = CFStringCreateWithCString (kCFAllocatorDefault, preset_name.c_str(), kCFStringEncodingUTF8);
 175
 176         if (CFGetTypeID (plist) == CFDictionaryGetTypeID()) {
 177                 CFDictionarySetValue ((CFMutableDictionaryRef)plist, CFSTR(kAUPresetNameKey), pn);
 178         }
 179
 180         CFRelease (pn);
 181 }
 182
 183 //-----------------------------------------------------------------------------
 184 static std::string
 185 get_preset_name_in_plist (CFPropertyListRef plist)
 186 {
 187         std::string ret;
 188
 189         if (!plist) {
 190                 return ret;
 191         }
 192
 193         if (CFGetTypeID (plist) == CFDictionaryGetTypeID()) {
 194                 const void *p = CFDictionaryGetValue ((CFMutableDictionaryRef)plist, CFSTR(kAUPresetNameKey));
 195                 if (p) {
 196                         CFStringRef str = (CFStringRef) p;
 197                         int len = CFStringGetLength(str);
 198                         len =  (len * 2) + 1;
 199                         char local_buffer[len];
 200                         if (CFStringGetCString (str, local_buffer, len, kCFStringEncodingUTF8)) {
 201                                 ret = local_buffer;
 202                         }
 203                 }
 204         }
 205         return ret;
 206 }
 207
 208 //--------------------------------------------------------------------------
 209 // general implementation for ComponentDescriptionsMatch() and ComponentDescriptionsMatch_Loosely()
 210 // if inIgnoreType is true, then the type code is ignored in the ComponentDescriptions
 211 Boolean ComponentDescriptionsMatch_General(const ComponentDescription * inComponentDescription1, const ComponentDescription * inComponentDescription2, Boolean inIgnoreType);
 212 Boolean ComponentDescriptionsMatch_General(const ComponentDescription * inComponentDescription1, const ComponentDescription * inComponentDescription2, Boolean inIgnoreType)
 213 {
 214         if ( (inComponentDescription1 == NULL) || (inComponentDescription2 == NULL) )
 215                 return FALSE;
 216
 217         if ( (inComponentDescription1->componentSubType == inComponentDescription2->componentSubType)
 218                         && (inComponentDescription1->componentManufacturer == inComponentDescription2->componentManufacturer) )
 219         {
 220                 // only sub-type and manufacturer IDs need to be equal
 221                 if (inIgnoreType)
 222                         return TRUE;
 223                 // type, sub-type, and manufacturer IDs all need to be equal in order to call this a match
 224                 else if (inComponentDescription1->componentType == inComponentDescription2->componentType)
 225                         return TRUE;
 226         }
 227
 228         return FALSE;
 229 }
 230
 231 //--------------------------------------------------------------------------
 232 // general implementation for ComponentAndDescriptionMatch() and ComponentAndDescriptionMatch_Loosely()
 233 // if inIgnoreType is true, then the type code is ignored in the ComponentDescriptions
 234 Boolean ComponentAndDescriptionMatch_General(Component inComponent, const ComponentDescription * inComponentDescription, Boolean inIgnoreType);
 235 Boolean ComponentAndDescriptionMatch_General(Component inComponent, const ComponentDescription * inComponentDescription, Boolean inIgnoreType)
 236 {
 237         OSErr status;
 238         ComponentDescription desc;
 239
 240         if ( (inComponent == NULL) || (inComponentDescription == NULL) )
 241                 return FALSE;
 242
 243         // get the ComponentDescription of the input Component
 244         status = GetComponentInfo(inComponent, &desc, NULL, NULL, NULL);
 245         if (status != noErr)
 246                 return FALSE;
 247
 248         // check if the Component's ComponentDescription matches the input ComponentDescription
 249         return ComponentDescriptionsMatch_General(&desc, inComponentDescription, inIgnoreType);
 250 }
 251
 252 //--------------------------------------------------------------------------
 253 // determine if 2 ComponentDescriptions are basically equal
 254 // (by that, I mean that the important identifying values are compared,
 255 // but not the ComponentDescription flags)
 256 Boolean ComponentDescriptionsMatch(const ComponentDescription * inComponentDescription1, const ComponentDescription * inComponentDescription2)
 257 {
 258         return ComponentDescriptionsMatch_General(inComponentDescription1, inComponentDescription2, FALSE);
 259 }
 260
 261 //--------------------------------------------------------------------------
 262 // determine if 2 ComponentDescriptions have matching sub-type and manufacturer codes
 263 Boolean ComponentDescriptionsMatch_Loose(const ComponentDescription * inComponentDescription1, const ComponentDescription * inComponentDescription2)
 264 {
 265         return ComponentDescriptionsMatch_General(inComponentDescription1, inComponentDescription2, TRUE);
 266 }
 267
 268 //--------------------------------------------------------------------------
 269 // determine if a ComponentDescription basically matches that of a particular Component
 270 Boolean ComponentAndDescriptionMatch(Component inComponent, const ComponentDescription * inComponentDescription)
 271 {
 272         return ComponentAndDescriptionMatch_General(inComponent, inComponentDescription, FALSE);
 273 }
 274
 275 //--------------------------------------------------------------------------
 276 // determine if a ComponentDescription matches only the sub-type and manufacturer codes of a particular Component
 277 Boolean ComponentAndDescriptionMatch_Loosely(Component inComponent, const ComponentDescription * inComponentDescription)
 278 {
 279         return ComponentAndDescriptionMatch_General(inComponent, inComponentDescription, TRUE);
 280 }
 281
 282
 283 AUPlugin::AUPlugin (AudioEngine& engine, Session& session, boost::shared_ptr<CAComponent> _comp)
 284         : Plugin (engine, session),
 285           comp (_comp),
 286           unit (new CAAudioUnit),
 287           initialized (false),
 288           buffers (0),
 289           current_maxbuf (0),
 290           current_offset (0),
 291           current_buffers (0),
 292         frames_processed (0)
 293 {
 294         if (!preset_search_path_initialized) {
 295                 Glib::ustring p = Glib::get_home_dir();
 296                 p += "/Library/Audio/Presets:";
 297                 p += preset_search_path;
 298                 preset_search_path = p;
 299                 preset_search_path_initialized = true;
 300         }
 301
 302         init ();
 303 }
 304
 305 AUPlugin::AUPlugin (const AUPlugin& other)
 306         : Plugin (other)
 307         , comp (other.get_comp())
 308         , unit (new CAAudioUnit)
 309         , initialized (false)
 310         , buffers (0)
 311         , current_maxbuf (0)
 312         , current_offset (0)
 313         , current_buffers (0)
 314         , frames_processed (0)
 315
 316 {
 317         init ();
 318 }
 319
 320 AUPlugin::~AUPlugin ()
 321 {
 322         if (unit) {
 323                 unit->Uninitialize ();
 324         }
 325
 326         if (buffers) {
 327                 free (buffers);
 328         }
 329 }
 330
 331
 332 void
 333 AUPlugin::init ()
 334 {
 335         OSErr err;
 336
 337         try {
 338                 err = CAAudioUnit::Open (*(comp.get()), *unit);
 339         } catch (...) {
 340                 error << _("Exception thrown during AudioUnit plugin loading - plugin ignored") << endmsg;
 341                 throw failed_constructor();
 342         }
 343
 344         if (err != noErr) {
 345                 error << _("AudioUnit: Could not convert CAComponent to CAAudioUnit") << endmsg;
 346                 throw failed_constructor ();
 347         }
 348
 349         AURenderCallbackStruct renderCallbackInfo;
 350
 351         renderCallbackInfo.inputProc = _render_callback;
 352         renderCallbackInfo.inputProcRefCon = this;
 353
 354         if ((err = unit->SetProperty (kAudioUnitProperty_SetRenderCallback, kAudioUnitScope_Input,
 355                                          0, (void*) &renderCallbackInfo, sizeof(renderCallbackInfo))) != 0) {
 356                 cerr << "cannot install render callback (err = " << err << ')' << endl;
 357                 throw failed_constructor();
 358         }
 359
 360         unit->GetElementCount (kAudioUnitScope_Global, global_elements);
 361         unit->GetElementCount (kAudioUnitScope_Input, input_elements);
 362         unit->GetElementCount (kAudioUnitScope_Output, output_elements);
 363
 364         /* these keep track of *configured* channel set up,
 365            not potential set ups.
 366         */
 367
 368         input_channels = -1;
 369         output_channels = -1;
 370
 371         if (_set_block_size (_session.get_block_size())) {
 372                 error << _("AUPlugin: cannot set processing block size") << endmsg;
 373                 throw failed_constructor();
 374         }
 375
 376         discover_parameters ();
 377
 378         Plugin::setup_controls ();
 379 }
 380
 381 void
 382 AUPlugin::discover_parameters ()
 383 {
 384         /* discover writable parameters */
 385
 386         AudioUnitScope scopes[] = {
 387                 kAudioUnitScope_Global,
 388                 kAudioUnitScope_Output,
 389                 kAudioUnitScope_Input
 390         };
 391
 392         descriptors.clear ();
 393
 394         for (uint32_t i = 0; i < sizeof (scopes) / sizeof (scopes[0]); ++i) {
 395
 396                 AUParamInfo param_info (unit->AU(), false, false, scopes[i]);
 397
 398                 for (uint32_t i = 0; i < param_info.NumParams(); ++i) {
 399
 400                         AUParameterDescriptor d;
 401
 402                         d.id = param_info.ParamID (i);
 403
 404                         const CAAUParameter* param = param_info.GetParamInfo (d.id);
 405                         const AudioUnitParameterInfo& info (param->ParamInfo());
 406
 407                         const int len = CFStringGetLength (param->GetName());;
 408                         char local_buffer[len*2];
 409                         Boolean good = CFStringGetCString(param->GetName(),local_buffer,len*2,kCFStringEncodingMacRoman);
 410                         if (!good) {
 411                                 d.label = "???";
 412                         } else {
 413                                 d.label = local_buffer;
 414                         }
 415
 416                         d.scope = param_info.GetScope ();
 417                         d.element = param_info.GetElement ();
 418
 419                         /* info.units to consider */
 420                         /*
 421                           kAudioUnitParameterUnit_Generic             = 0
 422                           kAudioUnitParameterUnit_Indexed             = 1
 423                           kAudioUnitParameterUnit_Boolean             = 2
 424                           kAudioUnitParameterUnit_Percent             = 3
 425                           kAudioUnitParameterUnit_Seconds             = 4
 426                           kAudioUnitParameterUnit_SampleFrames        = 5
 427                           kAudioUnitParameterUnit_Phase               = 6
 428                           kAudioUnitParameterUnit_Rate                = 7
 429                           kAudioUnitParameterUnit_Hertz               = 8
 430                           kAudioUnitParameterUnit_Cents               = 9
 431                           kAudioUnitParameterUnit_RelativeSemiTones   = 10
 432                           kAudioUnitParameterUnit_MIDINoteNumber      = 11
 433                           kAudioUnitParameterUnit_MIDIController      = 12
 434                           kAudioUnitParameterUnit_Decibels            = 13
 435                           kAudioUnitParameterUnit_LinearGain          = 14
 436                           kAudioUnitParameterUnit_Degrees             = 15
 437                           kAudioUnitParameterUnit_EqualPowerCrossfade = 16
 438                           kAudioUnitParameterUnit_MixerFaderCurve1    = 17
 439                           kAudioUnitParameterUnit_Pan                 = 18
 440                           kAudioUnitParameterUnit_Meters              = 19
 441                           kAudioUnitParameterUnit_AbsoluteCents       = 20
 442                           kAudioUnitParameterUnit_Octaves             = 21
 443                           kAudioUnitParameterUnit_BPM                 = 22
 444                           kAudioUnitParameterUnit_Beats               = 23
 445                           kAudioUnitParameterUnit_Milliseconds        = 24
 446                           kAudioUnitParameterUnit_Ratio               = 25
 447                         */
 448
 449                         /* info.flags to consider */
 450
 451                         /*
 452
 453                           kAudioUnitParameterFlag_CFNameRelease       = (1L << 4)
 454                           kAudioUnitParameterFlag_HasClump            = (1L << 20)
 455                           kAudioUnitParameterFlag_HasName             = (1L << 21)
 456                           kAudioUnitParameterFlag_DisplayLogarithmic  = (1L << 22)
 457                           kAudioUnitParameterFlag_IsHighResolution    = (1L << 23)
 458                           kAudioUnitParameterFlag_NonRealTime         = (1L << 24)
 459                           kAudioUnitParameterFlag_CanRamp             = (1L << 25)
 460                           kAudioUnitParameterFlag_ExpertMode          = (1L << 26)
 461                           kAudioUnitParameterFlag_HasCFNameString     = (1L << 27)
 462                           kAudioUnitParameterFlag_IsGlobalMeta        = (1L << 28)
 463                           kAudioUnitParameterFlag_IsElementMeta       = (1L << 29)
 464                           kAudioUnitParameterFlag_IsReadable          = (1L << 30)
 465                           kAudioUnitParameterFlag_IsWritable          = (1L << 31)
 466                         */
 467
 468                         d.lower = info.minValue;
 469                         d.upper = info.maxValue;
 470                         d.default_value = info.defaultValue;
 471
 472                         d.integer_step = (info.unit & kAudioUnitParameterUnit_Indexed);
 473                         d.toggled = (info.unit & kAudioUnitParameterUnit_Boolean) ||
 474                                 (d.integer_step && ((d.upper - d.lower) == 1.0));
 475                         d.sr_dependent = (info.unit & kAudioUnitParameterUnit_SampleFrames);
 476                         d.automatable = !d.toggled &&
 477                                 !(info.flags & kAudioUnitParameterFlag_NonRealTime) &&
 478                                 (info.flags & kAudioUnitParameterFlag_IsWritable);
 479
 480                         d.logarithmic = (info.flags & kAudioUnitParameterFlag_DisplayLogarithmic);
 481                         d.unit = info.unit;
 482
 483                         d.step = 1.0;
 484                         d.smallstep = 0.1;
 485                         d.largestep = 10.0;
 486                         d.min_unbound = 0; // lower is bound
 487                         d.max_unbound = 0; // upper is bound
 488
 489                         descriptors.push_back (d);
 490                 }
 491         }
 492 }
 493
 494
 495 string
 496 AUPlugin::unique_id () const
 497 {
 498         return AUPluginInfo::stringify_descriptor (comp->Desc());
 499 }
 500
 501 const char *
 502 AUPlugin::label () const
 503 {
 504         return _info->name.c_str();
 505 }
 506
 507 uint32_t
 508 AUPlugin::parameter_count () const
 509 {
 510         return descriptors.size();
 511 }
 512
 513 float
 514 AUPlugin::default_value (uint32_t port)
 515 {
 516         if (port < descriptors.size()) {
 517                 return descriptors[port].default_value;
 518         }
 519
 520         return 0;
 521 }
 522
 523 nframes_t
 524 AUPlugin::latency () const
 525 {
 526         return unit->Latency() * _session.frame_rate();
 527 }
 528
 529 void
 530 AUPlugin::set_parameter (uint32_t which, float val)
 531 {
 532         if (which < descriptors.size()) {
 533                 const AUParameterDescriptor& d (descriptors[which]);
 534                 unit->SetParameter (d.id, d.scope, d.element, val);
 535         }
 536 }
 537
 538 float
 539 AUPlugin::get_parameter (uint32_t which) const
 540 {
 541         float val = 0.0;
 542         if (which < descriptors.size()) {
 543                 const AUParameterDescriptor& d (descriptors[which]);
 544                 unit->GetParameter(d.id, d.scope, d.element, val);
 545         }
 546         return val;
 547 }
 548
 549 int
 550 AUPlugin::get_parameter_descriptor (uint32_t which, ParameterDescriptor& pd) const
 551 {
 552         if (which < descriptors.size()) {
 553                 pd = descriptors[which];
 554                 return 0;
 555         }
 556         return -1;
 557 }
 558
 559 uint32_t
 560 AUPlugin::nth_parameter (uint32_t which, bool& ok) const
 561 {
 562         if (which < descriptors.size()) {
 563                 ok = true;
 564                 return which;
 565         }
 566         ok = false;
 567         return 0;
 568 }
 569
 570 void
 571 AUPlugin::activate ()
 572 {
 573         if (!initialized) {
 574                 OSErr err;
 575                 if ((err = unit->Initialize()) != noErr) {
 576                         error << string_compose (_("AUPlugin: %1 cannot initialize plugin (err = %2)"), name(), err) << endmsg;
 577                 } else {
 578                         frames_processed = 0;
 579                         initialized = true;
 580                 }
 581         }
 582 }
 583
 584 void
 585 AUPlugin::deactivate ()
 586 {
 587         unit->GlobalReset ();
 588 }
 589
 590 void
 591 AUPlugin::set_block_size (nframes_t nframes)
 592 {
 593         _set_block_size (nframes);
 594 }
 595
 596 int
 597 AUPlugin::_set_block_size (nframes_t nframes)
 598 {
 599         bool was_initialized = initialized;
 600         UInt32 numFrames = nframes;
 601         OSErr err;
 602
 603         if (initialized) {
 604                 unit->Uninitialize ();
 605                 initialized = false;
 606         }
 607
 608         if ((err = unit->SetProperty (kAudioUnitProperty_MaximumFramesPerSlice, kAudioUnitScope_Global,
 609                                       0, &numFrames, sizeof (numFrames))) != noErr) {
 610                 cerr << "cannot set max frames (err = " << err << ')' << endl;
 611                 return -1;
 612         }
 613
 614         if (was_initialized) {
 615                 activate ();
 616         }
 617
 618         return 0;
 619 }
 620
 621 int32_t
 622 AUPlugin::configure_io (int32_t in, int32_t out)
 623 {
 624         AudioStreamBasicDescription streamFormat;
 625
 626         streamFormat.mSampleRate = _session.frame_rate();
 627         streamFormat.mFormatID = kAudioFormatLinearPCM;
 628         streamFormat.mFormatFlags = kAudioFormatFlagIsFloat|kAudioFormatFlagIsPacked|kAudioFormatFlagIsNonInterleaved;
 629
 630 #ifdef __LITTLE_ENDIAN__
 631         /* relax */
 632 #else
 633         streamFormat.mFormatFlags |= kAudioFormatFlagIsBigEndian;
 634 #endif
 635
 636         streamFormat.mBitsPerChannel = 32;
 637         streamFormat.mFramesPerPacket = 1;
 638
 639         /* apple says that for non-interleaved data, these
 640            values always refer to a single channel.
 641         */
 642         streamFormat.mBytesPerPacket = 4;
 643         streamFormat.mBytesPerFrame = 4;
 644
 645         streamFormat.mChannelsPerFrame = in;
 646
 647         if (set_input_format (streamFormat) != 0) {
 648                 return -1;
 649         }
 650
 651         streamFormat.mChannelsPerFrame = out;
 652
 653         if (set_output_format (streamFormat) != 0) {
 654                 return -1;
 655         }
 656
 657         return Plugin::configure_io (in, out);
 658 }
 659
 660 int32_t
 661 AUPlugin::can_do (int32_t in, int32_t& out)
 662 {
 663         // XXX as of May 13th 2008, AU plugin support returns a count of either 1 or -1. We never
 664         // attempt to multiply-instantiate plugins to meet io configurations.
 665
 666         int32_t plugcnt = -1;
 667         AUPluginInfoPtr pinfo = boost::dynamic_pointer_cast<AUPluginInfo>(get_info());
 668
 669         out = -1;
 670
 671         vector<pair<int,int> >& io_configs = pinfo->cache.io_configs;
 672
 673         for (vector<pair<int,int> >::iterator i = io_configs.begin(); i != io_configs.end(); ++i) {
 674
 675                 int32_t possible_in = i->first;
 676                 int32_t possible_out = i->second;
 677
 678                 if (possible_out == 0) {
 679                         warning << string_compose (_("AU %1 has zero outputs - configuration ignored"), name()) << endmsg;
 680                         continue;
 681                 }
 682
 683                 if (possible_in == 0) {
 684
 685                         /* instrument plugin, always legal but throws away inputs ...
 686                         */
 687
 688                         if (possible_out == -1) {
 689                                 /* out much match in (UNLIKELY!!) */
 690                                 out = in;
 691                                 plugcnt = 1;
 692                         } else if (possible_out == -2) {
 693                                 /* any configuration possible, pick matching */
 694                                 out = in;
 695                                 plugcnt = 1;
 696                         } else if (possible_out < -2) {
 697                                 /* explicit variable number of outputs, pick maximum */
 698                                 out = -possible_out;
 699                                 plugcnt = 1;
 700                         } else {
 701                                 /* exact number of outputs */
 702                                 out = possible_out;
 703                                 plugcnt = 1;
 704                         }
 705                 }
 706
 707                 if (possible_in == -1) {
 708
 709                         /* wildcard for input */
 710
 711                         if (possible_out == -1) {
 712                                 /* out much match in */
 713                                 out = in;
 714                                 plugcnt = 1;
 715                         } else if (possible_out == -2) {
 716                                 /* any configuration possible, pick matching */
 717                                 out = in;
 718                                 plugcnt = 1;
 719                         } else if (possible_out < -2) {
 720                                 /* explicit variable number of outputs, pick maximum */
 721                                 out = -possible_out;
 722                                 plugcnt = 1;
 723                         } else {
 724                                 /* exact number of outputs */
 725                                 out = possible_out;
 726                                 plugcnt = 1;
 727                         }
 728                 }
 729
 730                 if (possible_in == -2) {
 731
 732                         if (possible_out == -1) {
 733                                 /* any configuration possible, pick matching */
 734                                 out = in;
 735                                 plugcnt = 1;
 736                         } else if (possible_out == -2) {
 737                                 error << string_compose (_("AU plugin %1 has illegal IO configuration (-2,-2)"), name())
 738                                       << endmsg;
 739                                 plugcnt = -1;
 740                         } else if (possible_out < -2) {
 741                                 /* explicit variable number of outputs, pick maximum */
 742                                 out = -possible_out;
 743                                 plugcnt = 1;
 744                         } else {
 745                                 /* exact number of outputs */
 746                                 out = possible_out;
 747                                 plugcnt = 1;
 748                         }
 749                 }
 750
 751                 if (possible_in < -2) {
 752
 753                         /* explicit variable number of inputs */
 754
 755                         if (in > -possible_in) {
 756                                 /* request is too large */
 757                                 plugcnt = -1;
 758                         }
 759
 760                         if (possible_out == -1) {
 761                                 /* out must match in */
 762                                 out = in;
 763                                 plugcnt = 1;
 764                         } else if (possible_out == -2) {
 765                                 error << string_compose (_("AU plugin %1 has illegal IO configuration (-2,-2)"), name())
 766                                       << endmsg;
 767                                 plugcnt = -1;
 768                         } else if (possible_out < -2) {
 769                                 /* explicit variable number of outputs, pick maximum */
 770                                 out = -possible_out;
 771                                 plugcnt = 1;
 772                         } else {
 773                                 /* exact number of outputs */
 774                                 out = possible_out;
 775                                 plugcnt = 1;
 776                         }
 777                 }
 778
 779                 if (possible_in == in) {
 780
 781                         /* exact number of inputs ... must match obviously */
 782
 783                         if (possible_out == -1) {
 784                                 /* out must match in */
 785                                 out = in;
 786                                 plugcnt = 1;
 787                         } else if (possible_out == -2) {
 788                                 /* any output configuration, pick matching */
 789                                 out = in;
 790                                 plugcnt = -1;
 791                         } else if (possible_out < -2) {
 792                                 /* explicit variable number of outputs, pick maximum */
 793                                 out = -possible_out;
 794                                 plugcnt = 1;
 795                         } else {
 796                                 /* exact number of outputs */
 797                                 out = possible_out;
 798                                 plugcnt = 1;
 799                         }
 800                 }
 801
 802                 if (plugcnt == 1) {
 803                         break;
 804                 }
 805
 806         }
 807
 808         return plugcnt;
 809 }
 810
 811 int
 812 AUPlugin::set_input_format (AudioStreamBasicDescription& fmt)
 813 {
 814         return set_stream_format (kAudioUnitScope_Input, input_elements, fmt);
 815 }
 816
 817 int
 818 AUPlugin::set_output_format (AudioStreamBasicDescription& fmt)
 819 {
 820         if (set_stream_format (kAudioUnitScope_Output, output_elements, fmt) != 0) {
 821                 return -1;
 822         }
 823
 824         if (buffers) {
 825                 free (buffers);
 826                 buffers = 0;
 827         }
 828
 829         buffers = (AudioBufferList *) malloc (offsetof(AudioBufferList, mBuffers) +
 830                                               fmt.mChannelsPerFrame * sizeof(AudioBuffer));
 831
 832         Glib::Mutex::Lock em (_session.engine().process_lock());
 833         IO::MoreOutputs (fmt.mChannelsPerFrame);
 834
 835         return 0;
 836 }
 837
 838 int
 839 AUPlugin::set_stream_format (int scope, uint32_t cnt, AudioStreamBasicDescription& fmt)
 840 {
 841         OSErr result;
 842
 843         for (uint32_t i = 0; i < cnt; ++i) {
 844                 if ((result = unit->SetFormat (scope, i, fmt)) != 0) {
 845                         error << string_compose (_("AUPlugin: could not set stream format for %1/%2 (err = %3)"),
 846                                                  (scope == kAudioUnitScope_Input ? "input" : "output"), i, result) << endmsg;
 847                         return -1;
 848                 }
 849         }
 850
 851         if (scope == kAudioUnitScope_Input) {
 852                 input_channels = fmt.mChannelsPerFrame;
 853         } else {
 854                 output_channels = fmt.mChannelsPerFrame;
 855         }
 856
 857         return 0;
 858 }
 859
 860 uint32_t
 861 AUPlugin::input_streams() const
 862 {
 863         if (input_channels < 0) {
 864                 warning << string_compose (_("AUPlugin: %1 input_streams() called without any format set!"), name()) << endmsg;
 865                 return 1;
 866         }
 867         return input_channels;
 868 }
 869
 870
 871 uint32_t
 872 AUPlugin::output_streams() const
 873 {
 874         if (output_channels < 0) {
 875                 warning << string_compose (_("AUPlugin: %1 output_streams() called without any format set!"), name()) << endmsg;
 876                 return 1;
 877         }
 878         return output_channels;
 879 }
 880
 881 OSStatus
 882 AUPlugin::render_callback(AudioUnitRenderActionFlags *ioActionFlags,
 883                           const AudioTimeStamp    *inTimeStamp,
 884                           UInt32       inBusNumber,
 885                           UInt32       inNumberFrames,
 886                           AudioBufferList*       ioData)
 887 {
 888         /* not much to do - the data is already in the buffers given to us in connect_and_run() */
 889
 890         if (current_maxbuf == 0) {
 891                 error << _("AUPlugin: render callback called illegally!") << endmsg;
 892                 return kAudioUnitErr_CannotDoInCurrentContext;
 893         }
 894
 895         for (uint32_t i = 0; i < current_maxbuf; ++i) {
 896                 ioData->mBuffers[i].mNumberChannels = 1;
 897                 ioData->mBuffers[i].mDataByteSize = sizeof (Sample) * inNumberFrames;
 898                 ioData->mBuffers[i].mData = (*current_buffers)[i] + cb_offset + current_offset;
 899         }
 900
 901         cb_offset += inNumberFrames;
 902
 903         return noErr;
 904 }
 905
 906 int
 907 AUPlugin::connect_and_run (vector<Sample*>& bufs, uint32_t maxbuf, int32_t& in, int32_t& out, nframes_t nframes, nframes_t offset)
 908 {
 909         AudioUnitRenderActionFlags flags = 0;
 910         AudioTimeStamp ts;
 911
 912         current_buffers = &bufs;
 913         current_maxbuf = maxbuf;
 914         current_offset = offset;
 915         cb_offset = 0;
 916
 917         buffers->mNumberBuffers = maxbuf;
 918
 919         for (uint32_t i = 0; i < maxbuf; ++i) {
 920                 buffers->mBuffers[i].mNumberChannels = 1;
 921                 buffers->mBuffers[i].mDataByteSize = nframes * sizeof (Sample);
 922                 buffers->mBuffers[i].mData = 0;
 923         }
 924
 925         ts.mSampleTime = frames_processed;
 926         ts.mFlags = kAudioTimeStampSampleTimeValid;
 927
 928         if (unit->Render (&flags, &ts, 0, nframes, buffers) == noErr) {
 929
 930                 current_maxbuf = 0;
 931                 frames_processed += nframes;
 932
 933                 for (uint32_t i = 0; i < maxbuf; ++i) {
 934                         if (bufs[i] + offset != buffers->mBuffers[i].mData) {
 935                                 memcpy (bufs[i]+offset, buffers->mBuffers[i].mData, nframes * sizeof (Sample));
 936                         }
 937                 }
 938                 return 0;
 939         }
 940
 941         return -1;
 942 }
 943
 944 set<uint32_t>
 945 AUPlugin::automatable() const
 946 {
 947         set<uint32_t> automates;
 948
 949         for (uint32_t i = 0; i < descriptors.size(); ++i) {
 950                 if (descriptors[i].automatable) {
 951                         automates.insert (i);
 952                 }
 953         }
 954
 955         return automates;
 956 }
 957
 958 string
 959 AUPlugin::describe_parameter (uint32_t param)
 960 {
 961         return descriptors[param].label;
 962 }
 963
 964 void
 965 AUPlugin::print_parameter (uint32_t param, char* buf, uint32_t len) const
 966 {
 967         // NameValue stuff here
 968 }
 969
 970 bool
 971 AUPlugin::parameter_is_audio (uint32_t) const
 972 {
 973         return false;
 974 }
 975
 976 bool
 977 AUPlugin::parameter_is_control (uint32_t) const
 978 {
 979         return true;
 980 }
 981
 982 bool
 983 AUPlugin::parameter_is_input (uint32_t) const
 984 {
 985         return false;
 986 }
 987
 988 bool
 989 AUPlugin::parameter_is_output (uint32_t) const
 990 {
 991         return false;
 992 }
 993
 994 XMLNode&
 995 AUPlugin::get_state()
 996 {
 997         LocaleGuard lg (X_("POSIX"));
 998         XMLNode *root = new XMLNode (state_node_name());
 999
1000 #ifdef AU_STATE_SUPPORT
1001         CFDataRef xmlData;
1002         CFPropertyListRef propertyList;
1003
1004         if (unit->GetAUPreset (propertyList) != noErr) {
1005                 return *root;
1006         }
1007
1008         // Convert the property list into XML data.
1009
1010         xmlData = CFPropertyListCreateXMLData( kCFAllocatorDefault, propertyList);
1011
1012         if (!xmlData) {
1013                 error << _("Could not create XML version of property list") << endmsg;
1014                 return *root;
1015         }
1016
1017         /* re-parse XML bytes to create a libxml++ XMLTree that we can merge into
1018            our state node. GACK!
1019         */
1020
1021         XMLTree t;
1022
1023         if (t.read_buffer (string ((const char*) CFDataGetBytePtr (xmlData), CFDataGetLength (xmlData)))) {
1024                 if (t.root()) {
1025                         root->add_child_copy (*t.root());
1026                 }
1027         }
1028
1029         CFRelease (xmlData);
1030         CFRelease (propertyList);
1031 #else
1032         if (!seen_get_state_message) {
1033                 info << _("Saving AudioUnit settings is not supported in this build of Ardour. Consider paying for a newer version")
1034                      << endmsg;
1035                 seen_get_state_message = true;
1036         }
1037 #endif
1038
1039         return *root;
1040 }
1041
1042 int
1043 AUPlugin::set_state(const XMLNode& node)
1044 {
1045 #ifdef AU_STATE_SUPPORT
1046         int ret = -1;
1047         CFPropertyListRef propertyList;
1048         LocaleGuard lg (X_("POSIX"));
1049
1050         if (node.name() != state_node_name()) {
1051                 error << _("Bad node sent to AUPlugin::set_state") << endmsg;
1052                 return -1;
1053         }
1054
1055         if (node.children().empty()) {
1056                 return -1;
1057         }
1058
1059         XMLNode* top = node.children().front();
1060         XMLNode* copy = new XMLNode (*top);
1061
1062         XMLTree t;
1063         t.set_root (copy);
1064
1065         const string& xml = t.write_buffer ();
1066         CFDataRef xmlData = CFDataCreateWithBytesNoCopy (kCFAllocatorDefault, (UInt8*) xml.data(), xml.length(), kCFAllocatorNull);
1067         CFStringRef errorString;
1068
1069         propertyList = CFPropertyListCreateFromXMLData( kCFAllocatorDefault,
1070                                                         xmlData,
1071                                                         kCFPropertyListImmutable,
1072                                                         &errorString);
1073
1074         CFRelease (xmlData);
1075
1076         if (propertyList) {
1077                 if (unit->SetAUPreset (propertyList) == noErr) {
1078                         ret = 0;
1079                 }
1080                 CFRelease (propertyList);
1081         }
1082
1083         return ret;
1084 #else
1085         if (!seen_set_state_message) {
1086                 info << _("Restoring AudioUnit settings is not supported in this build of Ardour. Consider paying for a newer version")
1087                      << endmsg;
1088         }
1089         return 0;
1090 #endif
1091 }
1092
1093 bool
1094 AUPlugin::load_preset (const string preset_label)
1095 {
1096 #ifdef AU_STATE_SUPPORT
1097         bool ret = false;
1098         CFPropertyListRef propertyList;
1099         Glib::ustring path;
1100         PresetMap::iterator x = preset_map.find (preset_label);
1101
1102         if (x == preset_map.end()) {
1103                 return false;
1104         }
1105
1106         if ((propertyList = load_property_list (x->second)) != 0) {
1107                 if (unit->SetAUPreset (propertyList) == noErr) {
1108                         ret = true;
1109                 }
1110                 CFRelease(propertyList);
1111         }
1112
1113         return ret;
1114 #else
1115         if (!seen_loading_message) {
1116                 info << _("Loading AudioUnit presets is not supported in this build of Ardour. Consider paying for a newer version")
1117                      << endmsg;
1118                 seen_loading_message = true;
1119         }
1120         return true;
1121 #endif
1122 }
1123
1124 bool
1125 AUPlugin::save_preset (string preset_name)
1126 {
1127 #ifdef AU_STATE_SUPPORT
1128         CFPropertyListRef propertyList;
1129         vector<Glib::ustring> v;
1130         Glib::ustring user_preset_path;
1131         bool ret = true;
1132
1133         std::string m = maker();
1134         std::string n = name();
1135
1136         strip_whitespace_edges (m);
1137         strip_whitespace_edges (n);
1138
1139         v.push_back (Glib::get_home_dir());
1140         v.push_back ("Library");
1141         v.push_back ("Audio");
1142         v.push_back ("Presets");
1143         v.push_back (m);
1144         v.push_back (n);
1145
1146         user_preset_path = Glib::build_filename (v);
1147
1148         if (g_mkdir_with_parents (user_preset_path.c_str(), 0775) < 0) {
1149                 error << string_compose (_("Cannot create user plugin presets folder (%1)"), user_preset_path) << endmsg;
1150                 return false;
1151         }
1152
1153         if (unit->GetAUPreset (propertyList) != noErr) {
1154                 return false;
1155         }
1156
1157         // add the actual preset name */
1158
1159         v.push_back (preset_name + preset_suffix);
1160
1161         // rebuild
1162
1163         user_preset_path = Glib::build_filename (v);
1164
1165         set_preset_name_in_plist (propertyList, preset_name);
1166
1167         if (save_property_list (propertyList, user_preset_path)) {
1168                 error << string_compose (_("Saving plugin state to %1 failed"), user_preset_path) << endmsg;
1169                 ret = false;
1170         }
1171
1172         CFRelease(propertyList);
1173
1174         return ret;
1175 #else
1176         if (!seen_saving_message) {
1177                 info << _("Saving AudioUnit presets is not supported in this build of Ardour. Consider paying for a newer version")
1178                      << endmsg;
1179                 seen_saving_message = true;
1180         }
1181         return false;
1182 #endif
1183 }
1184
1185 //-----------------------------------------------------------------------------
1186 // this is just a little helper function used by GetAUComponentDescriptionFromPresetFile()
1187 static SInt32
1188 GetDictionarySInt32Value(CFDictionaryRef inAUStateDictionary, CFStringRef inDictionaryKey, Boolean * outSuccess)
1189 {
1190         CFNumberRef cfNumber;
1191         SInt32 numberValue = 0;
1192         Boolean dummySuccess;
1193
1194         if (outSuccess == NULL)
1195                 outSuccess = &dummySuccess;
1196         if ( (inAUStateDictionary == NULL) || (inDictionaryKey == NULL) )
1197         {
1198                 *outSuccess = FALSE;
1199                 return 0;
1200         }
1201
1202         cfNumber = (CFNumberRef) CFDictionaryGetValue(inAUStateDictionary, inDictionaryKey);
1203         if (cfNumber == NULL)
1204         {
1205                 *outSuccess = FALSE;
1206                 return 0;
1207         }
1208         *outSuccess = CFNumberGetValue(cfNumber, kCFNumberSInt32Type, &numberValue);
1209         if (*outSuccess)
1210                 return numberValue;
1211         else
1212                 return 0;
1213 }
1214
1215 static OSStatus
1216 GetAUComponentDescriptionFromStateData(CFPropertyListRef inAUStateData, ComponentDescription * outComponentDescription)
1217 {
1218         CFDictionaryRef auStateDictionary;
1219         ComponentDescription tempDesc = {0};
1220         SInt32 versionValue;
1221         Boolean gotValue;
1222
1223         if ( (inAUStateData == NULL) || (outComponentDescription == NULL) )
1224                 return paramErr;
1225
1226         // the property list for AU state data must be of the dictionary type
1227         if (CFGetTypeID(inAUStateData) != CFDictionaryGetTypeID()) {
1228                 return kAudioUnitErr_InvalidPropertyValue;
1229         }
1230
1231         auStateDictionary = (CFDictionaryRef)inAUStateData;
1232
1233         // first check to make sure that the version of the AU state data is one that we know understand
1234         // XXX should I really do this?  later versions would probably still hold these ID keys, right?
1235         versionValue = GetDictionarySInt32Value(auStateDictionary, CFSTR(kAUPresetVersionKey), &gotValue);
1236
1237         if (!gotValue) {
1238                 return kAudioUnitErr_InvalidPropertyValue;
1239         }
1240 #define kCurrentSavedStateVersion 0
1241         if (versionValue != kCurrentSavedStateVersion) {
1242                 return kAudioUnitErr_InvalidPropertyValue;
1243         }
1244
1245         // grab the ComponentDescription values from the AU state data
1246         tempDesc.componentType = (OSType) GetDictionarySInt32Value(auStateDictionary, CFSTR(kAUPresetTypeKey), NULL);
1247         tempDesc.componentSubType = (OSType) GetDictionarySInt32Value(auStateDictionary, CFSTR(kAUPresetSubtypeKey), NULL);
1248         tempDesc.componentManufacturer = (OSType) GetDictionarySInt32Value(auStateDictionary, CFSTR(kAUPresetManufacturerKey), NULL);
1249         // zero values are illegit for specific ComponentDescriptions, so zero for any value means that there was an error
1250         if ( (tempDesc.componentType == 0) || (tempDesc.componentSubType == 0) || (tempDesc.componentManufacturer == 0) )
1251                 return kAudioUnitErr_InvalidPropertyValue;
1252
1253         *outComponentDescription = tempDesc;
1254         return noErr;
1255 }
1256
1257
1258 static bool au_preset_filter (const string& str, void* arg)
1259 {
1260         /* Not a dotfile, has a prefix before a period, suffix is aupreset */
1261
1262         bool ret;
1263
1264         ret = (str[0] != '.' && str.length() > 9 && str.find (preset_suffix) == (str.length() - preset_suffix.length()));
1265
1266         if (ret && arg) {
1267
1268                 /* check the preset file path name against this plugin
1269                    ID. The idea is that all preset files for this plugin
1270                    include "<manufacturer>/<plugin-name>" in their path.
1271                 */
1272
1273                 Plugin* p = (Plugin *) arg;
1274                 string match = p->maker();
1275                 match += '/';
1276                 match += p->name();
1277
1278                 ret = str.find (match) != string::npos;
1279
1280                 if (ret == false) {
1281                         string m = p->maker ();
1282                         string n = p->name ();
1283                         strip_whitespace_edges (m);
1284                         strip_whitespace_edges (n);
1285                         match = m;
1286                         match += '/';
1287                         match += n;
1288
1289                         ret = str.find (match) != string::npos;
1290                 }
1291         }
1292
1293         return ret;
1294 }
1295
1296 bool
1297 check_and_get_preset_name (Component component, const string& pathstr, string& preset_name)
1298 {
1299         OSStatus status;
1300         CFPropertyListRef plist;
1301         ComponentDescription presetDesc;
1302         bool ret = false;
1303
1304         plist = load_property_list (pathstr);
1305
1306         if (!plist) {
1307                 return ret;
1308         }
1309
1310         // get the ComponentDescription from the AU preset file
1311
1312         status = GetAUComponentDescriptionFromStateData(plist, &presetDesc);
1313
1314         if (status == noErr) {
1315                 if (ComponentAndDescriptionMatch_Loosely(component, &presetDesc)) {
1316
1317                         /* try to get the preset name from the property list */
1318
1319                         if (CFGetTypeID(plist) == CFDictionaryGetTypeID()) {
1320
1321                                 const void* psk = CFDictionaryGetValue ((CFMutableDictionaryRef)plist, CFSTR(kAUPresetNameKey));
1322
1323                                 if (psk) {
1324
1325                                         const char* p = CFStringGetCStringPtr ((CFStringRef) psk, kCFStringEncodingUTF8);
1326
1327                                         if (!p) {
1328                                                 char buf[PATH_MAX+1];
1329
1330                                                 if (CFStringGetCString ((CFStringRef)psk, buf, sizeof (buf), kCFStringEncodingUTF8)) {
1331                                                         preset_name = buf;
1332                                                 }
1333                                         }
1334                                 }
1335                         }
1336                 }
1337         }
1338
1339         CFRelease (plist);
1340
1341         return true;
1342 }
1343
1344 std::string
1345 AUPlugin::current_preset() const
1346 {
1347         string preset_name;
1348
1349 #ifdef AU_STATE_SUPPORT
1350         CFPropertyListRef propertyList;
1351
1352         if (unit->GetAUPreset (propertyList) == noErr) {
1353                 preset_name = get_preset_name_in_plist (propertyList);
1354                 CFRelease(propertyList);
1355         }
1356 #endif
1357         return preset_name;
1358 }
1359
1360 vector<string>
1361 AUPlugin::get_presets ()
1362 {
1363         vector<string*>* preset_files;
1364         vector<string> presets;
1365         PathScanner scanner;
1366
1367         preset_files = scanner (preset_search_path, au_preset_filter, this, true, true, -1, true);
1368
1369         if (!preset_files) {
1370                 return presets;
1371         }
1372
1373         for (vector<string*>::iterator x = preset_files->begin(); x != preset_files->end(); ++x) {
1374
1375                 string path = *(*x);
1376                 string preset_name;
1377
1378                 /* make an initial guess at the preset name using the path */
1379
1380                 preset_name = Glib::path_get_basename (path);
1381                 preset_name = preset_name.substr (0, preset_name.find_last_of ('.'));
1382
1383                 /* check that this preset file really matches this plugin
1384                    and potentially get the "real" preset name from
1385                    within the file.
1386                 */
1387
1388                 if (check_and_get_preset_name (get_comp()->Comp(), path, preset_name)) {
1389                         presets.push_back (preset_name);
1390                         preset_map[preset_name] = path;
1391                 }
1392
1393                 delete *x;
1394         }
1395
1396         delete preset_files;
1397
1398         return presets;
1399 }
1400
1401 bool
1402 AUPlugin::has_editor () const
1403 {
1404         // even if the plugin doesn't have its own editor, the AU API can be used
1405         // to create one that looks native.
1406         return true;
1407 }
1408
1409 AUPluginInfo::AUPluginInfo (boost::shared_ptr<CAComponentDescription> d)
1410         : descriptor (d)
1411 {
1412
1413 }
1414
1415 AUPluginInfo::~AUPluginInfo ()
1416 {
1417 }
1418
1419 PluginPtr
1420 AUPluginInfo::load (Session& session)
1421 {
1422         try {
1423                 PluginPtr plugin;
1424
1425                 boost::shared_ptr<CAComponent> comp (new CAComponent(*descriptor));
1426
1427                 if (!comp->IsValid()) {
1428                         error << ("AudioUnit: not a valid Component") << endmsg;
1429                 } else {
1430                         plugin.reset (new AUPlugin (session.engine(), session, comp));
1431                 }
1432
1433                 plugin->set_info (PluginInfoPtr (new AUPluginInfo (*this)));
1434                 return plugin;
1435         }
1436
1437         catch (failed_constructor &err) {
1438                 return PluginPtr ();
1439         }
1440 }
1441
1442 Glib::ustring
1443 AUPluginInfo::au_cache_path ()
1444 {
1445         return Glib::build_filename (ARDOUR::get_user_ardour_path(), "au_cache");
1446 }
1447
1448 PluginInfoList
1449 AUPluginInfo::discover ()
1450 {
1451         XMLTree tree;
1452
1453         if (!Glib::file_test (au_cache_path(), Glib::FILE_TEST_EXISTS)) {
1454                 ARDOUR::BootMessage (_("Discovering AudioUnit plugins (could take some time ...)"));
1455         }
1456
1457         PluginInfoList plugs;
1458
1459         discover_fx (plugs);
1460         discover_music (plugs);
1461         discover_generators (plugs);
1462
1463         return plugs;
1464 }
1465
1466 void
1467 AUPluginInfo::discover_music (PluginInfoList& plugs)
1468 {
1469         CAComponentDescription desc;
1470         desc.componentFlags = 0;
1471         desc.componentFlagsMask = 0;
1472         desc.componentSubType = 0;
1473         desc.componentManufacturer = 0;
1474         desc.componentType = kAudioUnitType_MusicEffect;
1475
1476         discover_by_description (plugs, desc);
1477 }
1478
1479 void
1480 AUPluginInfo::discover_fx (PluginInfoList& plugs)
1481 {
1482         CAComponentDescription desc;
1483         desc.componentFlags = 0;
1484         desc.componentFlagsMask = 0;
1485         desc.componentSubType = 0;
1486         desc.componentManufacturer = 0;
1487         desc.componentType = kAudioUnitType_Effect;
1488
1489         discover_by_description (plugs, desc);
1490 }
1491
1492 void
1493 AUPluginInfo::discover_generators (PluginInfoList& plugs)
1494 {
1495         CAComponentDescription desc;
1496         desc.componentFlags = 0;
1497         desc.componentFlagsMask = 0;
1498         desc.componentSubType = 0;
1499         desc.componentManufacturer = 0;
1500         desc.componentType = kAudioUnitType_Generator;
1501
1502         discover_by_description (plugs, desc);
1503 }
1504
1505 void
1506 AUPluginInfo::discover_by_description (PluginInfoList& plugs, CAComponentDescription& desc)
1507 {
1508         Component comp = 0;
1509
1510         comp = FindNextComponent (NULL, &desc);
1511
1512         while (comp != NULL) {
1513                 CAComponentDescription temp;
1514                 GetComponentInfo (comp, &temp, NULL, NULL, NULL);
1515
1516                 AUPluginInfoPtr info (new AUPluginInfo
1517                                       (boost::shared_ptr<CAComponentDescription> (new CAComponentDescription(temp))));
1518
1519                 /* no panners, format converters or i/o AU's for our purposes
1520                  */
1521
1522                 switch (info->descriptor->Type()) {
1523                 case kAudioUnitType_Panner:
1524                 case kAudioUnitType_OfflineEffect:
1525                 case kAudioUnitType_FormatConverter:
1526                         continue;
1527                 case kAudioUnitType_Output:
1528                 case kAudioUnitType_MusicDevice:
1529                 case kAudioUnitType_MusicEffect:
1530                 case kAudioUnitType_Effect:
1531                 case kAudioUnitType_Mixer:
1532                 case kAudioUnitType_Generator:
1533                         break;
1534                 default:
1535                         break;
1536                 }
1537
1538                 switch (info->descriptor->SubType()) {
1539                 case kAudioUnitSubType_DefaultOutput:
1540                 case kAudioUnitSubType_SystemOutput:
1541                 case kAudioUnitSubType_GenericOutput:
1542                 case kAudioUnitSubType_AUConverter:
1543                         /* we don't want output units here */
1544                         continue;
1545                         break;
1546
1547                 case kAudioUnitSubType_DLSSynth:
1548                         info->category = "DLS Synth";
1549                         break;
1550
1551                 case kAudioUnitSubType_Varispeed:
1552                         info->category = "Varispeed";
1553                         break;
1554
1555                 case kAudioUnitSubType_Delay:
1556                         info->category = "Delay";
1557                         break;
1558
1559                 case kAudioUnitSubType_LowPassFilter:
1560                         info->category = "Low-pass Filter";
1561                         break;
1562
1563                 case kAudioUnitSubType_HighPassFilter:
1564                         info->category = "High-pass Filter";
1565                         break;
1566
1567                 case kAudioUnitSubType_BandPassFilter:
1568                         info->category = "Band-pass Filter";
1569                         break;
1570
1571                 case kAudioUnitSubType_HighShelfFilter:
1572                         info->category = "High-shelf Filter";
1573                         break;
1574
1575                 case kAudioUnitSubType_LowShelfFilter:
1576                         info->category = "Low-shelf Filter";
1577                         break;
1578
1579                 case kAudioUnitSubType_ParametricEQ:
1580                         info->category = "Parametric EQ";
1581                         break;
1582
1583                 case kAudioUnitSubType_GraphicEQ:
1584                         info->category = "Graphic EQ";
1585                         break;
1586
1587                 case kAudioUnitSubType_PeakLimiter:
1588                         info->category = "Peak Limiter";
1589                         break;
1590
1591                 case kAudioUnitSubType_DynamicsProcessor:
1592                         info->category = "Dynamics Processor";
1593                         break;
1594
1595                 case kAudioUnitSubType_MultiBandCompressor:
1596                         info->category = "Multiband Compressor";
1597                         break;
1598
1599                 case kAudioUnitSubType_MatrixReverb:
1600                         info->category = "Matrix Reverb";
1601                         break;
1602
1603                 case kAudioUnitSubType_SampleDelay:
1604                         info->category = "Sample Delay";
1605                         break;
1606
1607                 case kAudioUnitSubType_Pitch:
1608                         info->category = "Pitch";
1609                         break;
1610
1611                 case kAudioUnitSubType_NetSend:
1612                         info->category = "Net Sender";
1613                         break;
1614
1615                 case kAudioUnitSubType_3DMixer:
1616                         info->category = "3DMixer";
1617                         break;
1618
1619                 case kAudioUnitSubType_MatrixMixer:
1620                         info->category = "MatrixMixer";
1621                         break;
1622
1623                 case kAudioUnitSubType_ScheduledSoundPlayer:
1624                         info->category = "Scheduled Sound Player";
1625                         break;
1626
1627
1628                 case kAudioUnitSubType_AudioFilePlayer:
1629                         info->category = "Audio File Player";
1630                         break;
1631
1632                 case kAudioUnitSubType_NetReceive:
1633                         info->category = "Net Receiver";
1634                         break;
1635
1636                 default:
1637                         info->category = "";
1638                 }
1639
1640                 AUPluginInfo::get_names (temp, info->name, info->creator);
1641
1642                 info->type = ARDOUR::AudioUnit;
1643                 info->unique_id = stringify_descriptor (*info->descriptor);
1644
1645                 /* XXX not sure of the best way to handle plugin versioning yet
1646                  */
1647
1648                 CAComponent cacomp (*info->descriptor);
1649
1650                 if (cacomp.GetResourceVersion (info->version) != noErr) {
1651                         info->version = 0;
1652                 }
1653
1654                 if (cached_io_configuration (info->unique_id, info->version, cacomp, info->cache, info->name)) {
1655
1656                         /* here we have to map apple's wildcard system to a simple pair
1657                            of values. in ::can_do() we use the whole system, but here
1658                            we need a single pair of values. XXX probably means we should
1659                            remove any use of these values.
1660                         */
1661
1662                         info->n_inputs = info->cache.io_configs.front().first;
1663                         info->n_outputs = info->cache.io_configs.front().second;
1664
1665                         if (info->cache.io_configs.size() > 1) {
1666                                 cerr << "ODD: variable IO config for " << info->unique_id << endl;
1667                         }
1668
1669                         plugs.push_back (info);
1670
1671                 } else {
1672                         error << string_compose (_("Cannot get I/O configuration info for AU %1"), info->name) << endmsg;
1673                 }
1674
1675                 comp = FindNextComponent (comp, &desc);
1676         }
1677 }
1678
1679 bool
1680 AUPluginInfo::cached_io_configuration (const std::string& unique_id,
1681                                        UInt32 version,
1682                                        CAComponent& comp,
1683                                        AUPluginCachedInfo& cinfo,
1684                                        const std::string& name)
1685 {
1686         std::string id;
1687         char buf[32];
1688
1689         /* concatenate unique ID with version to provide a key for cached info lookup.
1690            this ensures we don't get stale information, or should if plugin developers
1691            follow Apple "guidelines".
1692          */
1693
1694         snprintf (buf, sizeof (buf), "%u", version);
1695         id = unique_id;
1696         id += '/';
1697         id += buf;
1698
1699         CachedInfoMap::iterator cim = cached_info.find (id);
1700
1701         if (cim != cached_info.end()) {
1702                 cinfo = cim->second;
1703                 return true;
1704         }
1705
1706         CAAudioUnit unit;
1707         AUChannelInfo* channel_info;
1708         UInt32 cnt;
1709         int ret;
1710
1711         ARDOUR::BootMessage (string_compose (_("Checking AudioUnit: %1"), name));
1712
1713         try {
1714
1715                 if (CAAudioUnit::Open (comp, unit) != noErr) {
1716                         return false;
1717                 }
1718
1719         } catch (...) {
1720
1721                 warning << string_compose (_("Could not load AU plugin %1 - ignored"), name) << endmsg;
1722                 cerr << string_compose (_("Could not load AU plugin %1 - ignored"), name) << endl;
1723                 return false;
1724
1725         }
1726
1727         if ((ret = unit.GetChannelInfo (&channel_info, cnt)) < 0) {
1728                 return false;
1729         }
1730
1731         if (ret > 0) {
1732                 /* no explicit info available */
1733
1734                 cinfo.io_configs.push_back (pair<int,int> (-1, -1));
1735
1736         } else {
1737
1738                 /* store each configuration */
1739
1740                 for (uint32_t n = 0; n < cnt; ++n) {
1741                         cinfo.io_configs.push_back (pair<int,int> (channel_info[n].inChannels,
1742                                                                    channel_info[n].outChannels));
1743                 }
1744
1745                 free (channel_info);
1746         }
1747
1748         add_cached_info (id, cinfo);
1749         save_cached_info ();
1750
1751         return true;
1752 }
1753
1754 void
1755 AUPluginInfo::add_cached_info (const std::string& id, AUPluginCachedInfo& cinfo)
1756 {
1757         cached_info[id] = cinfo;
1758 }
1759
1760 void
1761 AUPluginInfo::save_cached_info ()
1762 {
1763         XMLNode* node;
1764
1765         node = new XMLNode (X_("AudioUnitPluginCache"));
1766
1767         for (map<string,AUPluginCachedInfo>::iterator i = cached_info.begin(); i != cached_info.end(); ++i) {
1768                 XMLNode* parent = new XMLNode (X_("plugin"));
1769                 parent->add_property ("id", i->first);
1770                 node->add_child_nocopy (*parent);
1771
1772                 for (vector<pair<int, int> >::iterator j = i->second.io_configs.begin(); j != i->second.io_configs.end(); ++j) {
1773
1774                         XMLNode* child = new XMLNode (X_("io"));
1775                         char buf[32];
1776
1777                         snprintf (buf, sizeof (buf), "%d", j->first);
1778                         child->add_property (X_("in"), buf);
1779                         snprintf (buf, sizeof (buf), "%d", j->second);
1780                         child->add_property (X_("out"), buf);
1781                         parent->add_child_nocopy (*child);
1782                 }
1783
1784         }
1785
1786         Glib::ustring path = au_cache_path ();
1787         XMLTree tree;
1788
1789         tree.set_root (node);
1790
1791         if (!tree.write (path)) {
1792                 error << string_compose (_("could not save AU cache to %1"), path) << endmsg;
1793                 unlink (path.c_str());
1794         }
1795 }
1796
1797 int
1798 AUPluginInfo::load_cached_info ()
1799 {
1800         Glib::ustring path = au_cache_path ();
1801         XMLTree tree;
1802
1803         if (!Glib::file_test (path, Glib::FILE_TEST_EXISTS)) {
1804                 return 0;
1805         }
1806
1807         tree.read (path);
1808         const XMLNode* root (tree.root());
1809
1810         if (root->name() != X_("AudioUnitPluginCache")) {
1811                 return -1;
1812         }
1813
1814         cached_info.clear ();
1815
1816         const XMLNodeList children = root->children();
1817
1818         for (XMLNodeConstIterator iter = children.begin(); iter != children.end(); ++iter) {
1819
1820                 const XMLNode* child = *iter;
1821
1822                 if (child->name() == X_("plugin")) {
1823
1824                         const XMLNode* gchild;
1825                         const XMLNodeList gchildren = child->children();
1826                         const XMLProperty* prop = child->property (X_("id"));
1827
1828                         if (!prop) {
1829                                 continue;
1830                         }
1831
1832                         std::string id = prop->value();
1833                         AUPluginCachedInfo cinfo;
1834
1835                         for (XMLNodeConstIterator giter = gchildren.begin(); giter != gchildren.end(); giter++) {
1836
1837                                 gchild = *giter;
1838
1839                                 if (gchild->name() == X_("io")) {
1840
1841                                         int in;
1842                                         int out;
1843                                         const XMLProperty* iprop;
1844                                         const XMLProperty* oprop;
1845
1846                                         if (((iprop = gchild->property (X_("in"))) != 0) &&
1847                                             ((oprop = gchild->property (X_("out"))) != 0)) {
1848                                                 in = atoi (iprop->value());
1849                                                 out = atoi (iprop->value());
1850
1851                                                 cinfo.io_configs.push_back (pair<int,int> (in, out));
1852                                         }
1853                                 }
1854                         }
1855
1856                         if (cinfo.io_configs.size()) {
1857                                 add_cached_info (id, cinfo);
1858                         }
1859                 }
1860         }
1861
1862         return 0;
1863 }
1864
1865 void
1866 AUPluginInfo::get_names (CAComponentDescription& comp_desc, std::string& name, Glib::ustring& maker)
1867 {
1868         CFStringRef itemName = NULL;
1869
1870         // Marc Poirier-style item name
1871         CAComponent auComponent (comp_desc);
1872         if (auComponent.IsValid()) {
1873                 CAComponentDescription dummydesc;
1874                 Handle nameHandle = NewHandle(sizeof(void*));
1875                 if (nameHandle != NULL) {
1876                         OSErr err = GetComponentInfo(auComponent.Comp(), &dummydesc, nameHandle, NULL, NULL);
1877                         if (err == noErr) {
1878                                 ConstStr255Param nameString = (ConstStr255Param) (*nameHandle);
1879                                 if (nameString != NULL) {
1880                                         itemName = CFStringCreateWithPascalString(kCFAllocatorDefault, nameString, CFStringGetSystemEncoding());
1881                                 }
1882                         }
1883                         DisposeHandle(nameHandle);
1884                 }
1885         }
1886
1887         // if Marc-style fails, do the original way
1888         if (itemName == NULL) {
1889                 CFStringRef compTypeString = UTCreateStringForOSType(comp_desc.componentType);
1890                 CFStringRef compSubTypeString = UTCreateStringForOSType(comp_desc.componentSubType);
1891                 CFStringRef compManufacturerString = UTCreateStringForOSType(comp_desc.componentManufacturer);
1892
1893                 itemName = CFStringCreateWithFormat(kCFAllocatorDefault, NULL, CFSTR("%@ - %@ - %@"),
1894                         compTypeString, compManufacturerString, compSubTypeString);
1895
1896                 if (compTypeString != NULL)
1897                         CFRelease(compTypeString);
1898                 if (compSubTypeString != NULL)
1899                         CFRelease(compSubTypeString);
1900                 if (compManufacturerString != NULL)
1901                         CFRelease(compManufacturerString);
1902         }
1903
1904         string str = CFStringRefToStdString(itemName);
1905         string::size_type colon = str.find (':');
1906
1907         if (colon) {
1908                 name = str.substr (colon+1);
1909                 maker = str.substr (0, colon);
1910                 // strip_whitespace_edges (maker);
1911                 // strip_whitespace_edges (name);
1912         } else {
1913                 name = str;
1914                 maker = "unknown";
1915         }
1916 }
1917
1918 // from CAComponentDescription.cpp (in libs/appleutility in ardour source)
1919 extern char *StringForOSType (OSType t, char *writeLocation);
1920
1921 std::string
1922 AUPluginInfo::stringify_descriptor (const CAComponentDescription& desc)
1923 {
1924         char str[24];
1925         stringstream s;
1926
1927         s << StringForOSType (desc.Type(), str);
1928         s << " - ";
1929
1930         s << StringForOSType (desc.SubType(), str);
1931         s << " - ";
1932
1933         s << StringForOSType (desc.Manu(), str);
1934
1935         return s.str();
1936 }