diff osx/svitunes.mm @ 367:726e1c1382f3 macness

Beginnings of AppleScript querying of iTunes

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/osx/svitunes.mm	Tue Oct 12 13:04:50 2010 +0100
@@ -0,0 +1,62 @@
+/*
+    iTunes connection for
+    Sonic Visualiser
+    An audio file viewer and annotation editor.
+    Centre for Digital Music, Queen Mary, University of London.
+    This file copyright 2010 Dan Stowell and QMUL.
+    
+    This program is free software; you can redistribute it and/or
+    modify it under the terms of the GNU General Public License as
+    published by the Free Software Foundation; either version 2 of the
+    License, or (at your option) any later version.  See the file
+    COPYING included with this distribution for more information.
+*/
+
+#include "svitunes.h"
+
+#include <Foundation/NSAppleScript.h>
+
+#import <Foundation/Foundation.h>
+
+QString qt_mac_NSStringToQString(const NSString *nsstr)
+{
+    NSRange range;
+    range.location = 0;
+    range.length = [nsstr length];
+     
+    unichar *chars = new unichar[range.length + 1];
+    chars[range.length] = 0;
+    [nsstr getCharacters:chars range:range];
+    QString result = QString::fromUtf16(chars, range.length);
+    delete chars;
+    return result;
+}
+
+QString iTunesNowPlayingPath(){
+    NSDictionary *errorDict;
+    NSAppleScript *scriptObject = [[NSAppleScript alloc]    initWithSource:@" \
+tell application \"System Events\" to set iTunesIsRunning to (name of processes) contains \"iTunes\" \n\
+if iTunesIsRunning is false then return \"\" \n\
+return \"twelve-bar blues track\""
+    ];
+    
+    NSLog([scriptObject source]);
+    
+    [scriptObject compileAndReturnError: &errorDict];
+    
+    if(![scriptObject isCompiled]){
+        NSLog(@"SV ERROR: applescript object not compiled");
+        NSLog([errorDict description]);
+    }
+    
+    NSAppleEventDescriptor *eventDesc = [scriptObject executeAndReturnError: &errorDict];
+    NSString *nsResultString = [eventDesc stringValue];
+    
+    NSLog(@"iTunesNowPlayingPath: ");
+    NSLog(nsResultString);
+    
+    QString resultString = qt_mac_NSStringToQString(nsResultString);
+    
+    [scriptObject release];
+    return resultString;
+}