rubyosa 0.2.0 → 0.3.0

data/src/rbosa.h

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2006, Apple Computer, Inc. All rights reserved.
+ * Copyright (c) 2006-2007, Apple Inc. All rights reserved.
  * 
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -9,7 +9,7 @@
  * 2.  Redistributions in binary form must reproduce the above copyright
  *     notice, this list of conditions and the following disclaimer in the
  *     documentation and/or other materials provided with the distribution. 
- * 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
+ * 3.  Neither the name of Apple Inc. ("Apple") nor the names of
  *     its contributors may be used to endorse or promote products derived
  *     from this software without specific prior written permission. 
  * 
@@ -34,13 +34,17 @@
 #include <sys/param.h>
 
 /* rbosa_sdef.c */
-VALUE rbosa_scripting_info (VALUE self, VALUE criterion, VALUE value);
+VALUE rbosa_scripting_info (VALUE self, VALUE hash);
+VALUE rbosa_remote_processes (VALUE self, VALUE machine);
 
 /* rbosa_conv.c */
 FourCharCode rbobj_to_fourchar (VALUE obj);
 VALUE rbosa_four_char_code (VALUE self, VALUE val);
 void rbobj_to_alias_handle (VALUE obj, AliasHandle *alias);
 
+/* rbosa_err.c */
+const char *error_code_to_string (const int code);
+
 /* helper macros */
 #define RVAL2CSTR(x)        (StringValueCStr (x))
 #define CSTR2RVAL(x)        (rb_str_new2 (x))

data/src/rbosa_conv.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2006, Apple Computer, Inc. All rights reserved.
+ * Copyright (c) 2006-2007, Apple Inc. All rights reserved.
  * 
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -9,7 +9,7 @@
  * 2.  Redistributions in binary form must reproduce the above copyright
  *     notice, this list of conditions and the following disclaimer in the
  *     documentation and/or other materials provided with the distribution. 
- * 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
+ * 3.  Neither the name of Apple Inc. ("Apple") nor the names of
  *     its contributors may be used to endorse or promote products derived
  *     from this software without specific prior written permission. 
  * 

data/src/rbosa_err.c

@@ -0,0 +1,105 @@
+/*
+ * Copyright (c) 2006-2007, Apple Inc. All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1.  Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer. 
+ * 2.  Redistributions in binary form must reproduce the above copyright
+ *     notice, this list of conditions and the following disclaimer in the
+ *     documentation and/or other materials provided with the distribution. 
+ * 3.  Neither the name of Apple Inc. ("Apple") nor the names of
+ *     its contributors may be used to endorse or promote products derived
+ *     from this software without specific prior written permission. 
+ * 
+ * THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR
+ * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+ * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+ * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <CoreServices/CoreServices.h>
+
+const char *
+error_code_to_string (const int code)
+{
+  switch (code) {
+    case noPortErr: return "Client hasn't set 'SIZE' resource to indicate awareness of high-level events";
+    case destPortErr: return "Server hasn't set 'SIZE' resource to indicate awareness of high-level events, or else is not present";
+    case sessClosedErr: return "The kAEDontReconnect flag in the sendMode parameter was set and the server quit, then restarted";
+    case errAECoercionFail: return "Data could not be coerced to the requested descriptor type";
+    case errAEDescNotFound: return "Descriptor was not found";
+    case errAECorruptData: return "Data in an Apple event could not be read";
+    case errAEWrongDataType: return "Wrong descriptor type";
+    case errAENotAEDesc: return "Not a valid descriptor";
+    case errAEBadListItem: return "Operation involving a list item failed";
+    case errAENewerVersion: return "Need a newer version of the Apple Event Manager";
+    case errAENotAppleEvent: return "The event is not in AppleEvent format.";
+    case errAEEventNotHandled: return "Event wasn't handled by an Apple event handler";
+    case errAEReplyNotValid: return "AEResetTimer was passed an invalid repl";
+    case errAEUnknownSendMode: return "Invalid sending mode was passed";
+    case errAEWaitCanceled: return "User canceled out of wait loop for reply or receipt";
+    case errAETimeout: return "Apple event timed out";
+    case errAENoUserInteraction: return "No user interaction allowed";
+    case errAENotASpecialFunction: return "Wrong keyword for a special function";
+    case errAEParamMissed: return "A required parameter was not accessed.";
+    case errAEUnknownAddressType: return "Unknown Apple event address type";
+    case errAEHandlerNotFound: return "No handler found for an Apple event";
+    case errAEReplyNotArrived: return "Reply has not yet arrived";
+    case errAEIllegalIndex: return "Not a valid list index";
+    case errAEImpossibleRange: return "The range is not valid because it is impossible for a range to include the first and last objects that were specified; an example is a range in which the offset of the first object is greater than the offset of the last object";
+    case errAEWrongNumberArgs: return "The number of operands provided for the kAENOT logical operator is not 1";
+    case errAEAccessorNotFound: return "There is no object accessor function for the specified object class and container type";
+    case errAENoSuchLogical: return "The logical operator in a logical descriptor is not kAEAND, kAEOR, or kAENOT";
+    case errAEBadTestKey: return "The descriptor in a test key is neither a comparison descriptor nor a logical descriptor";
+    case errAENotAnObjSpec: return "The objSpecifier parameter of AEResolve is not an object specifier";
+    case errAENoSuchObject: return "Runtime resolution of an object failed.";
+    case errAENegativeCount: return "An object-counting function returned a negative result";
+    case errAEEmptyListContainer: return "The container for an Apple event object is specified by an empty list";
+    case errAEUnknownObjectType: return "The object type isn't recognized";
+    case errAERecordingIsAlreadyOn: return "Recording is already on";
+    case errAEReceiveTerminate: return "Break out of all levels of AEReceive to the topmost (1.1 or greater)";
+    case errAEReceiveEscapeCurrent: return "Break out of lowest level only of AEReceive (1.1 or greater)";
+    case errAEEventFiltered: return "Event has been filtered and should not be propagated (1.1 or greater)";
+    case errAEDuplicateHandler: return "Attempt to install handler in table for identical class and ID (1.1 or greater)";
+    case errAEStreamBadNesting: return "Nesting violation while streaming";
+    case errAEStreamAlreadyConverted: return "Attempt to convert a stream that has already been converted";
+    case errAEDescIsNull: return "Attempt to perform an invalid operation on a null descriptor";
+    case errAEBuildSyntaxError: return "AEBuildDesc and related functions detected a syntax error";
+    case errAEBufferTooSmall: return "Buffer for AEFlattenDesc too small";
+    case errASCantConsiderAndIgnore: return "Can't both consider and ignore <attribute>.";
+    case errASCantCompareMoreThan32k: return "Can't perform operation on text longer than 32K bytes.";
+    case errASTerminologyNestingTooDeep: return "Tell statements are nested too deeply.";
+    case errASIllegalFormalParameter: return "<name> is illegal as a formal parameter.";
+    case errASParameterNotForEvent: return "<name> is not a parameter name for the event <event>.";
+    case errASNoResultReturned: return "No result was returned for some argument of this expression.";
+    case errAEEventFailed: return "Apple event handler failed.";
+    case errAETypeError: return "A descriptor type mismatch occurred.";
+    case errAEBadKeyForm: return "Invalid key form.";
+    case errAENotModifiable: return "Can't set <object or data> to <object or data>. Access not allowed.";
+    case errAEPrivilegeError: return "A privilege violation occurred.";
+    case errAEReadDenied: return "The read operation was not allowed.";
+    case errAEWriteDenied: return "Can't set <object or data> to <object or data>.";
+    case errAEIndexTooLarge: return "The index of the event is too large to be valid.";
+    case errAENotAnElement: return "The specified object is a property, not an element.";
+    case errAECantSupplyType: return "Can't supply the requested descriptor type for the data.";
+    case errAECantHandleClass: return "The Apple event handler can't handle objects of this class.";
+    case errAEInTransaction: return "Couldn't handle this command because it wasn't part of the current transaction.";
+    case errAENoSuchTransaction: return "The transaction to which this command belonged isn't a valid transaction.";
+    case errAENoUserSelection: return "There is no user selection.";
+    case errAENotASingleObject: return "Handler only handles single objects.";
+    case errAECantUndo: return "Can't undo the previous Apple event or user action.";
+    case errAENotAnEnumMember: return "Enumerated value in SetData is not allowed for this property";
+    case errAECantPutThatThere: return "In make new, duplicate, etc. class can't be an element of container";
+    case errAEPropertiesClash: return "Illegal combination of properties settings for SetData, make new, or duplicate";
+  }
+  return GetMacOSStatusErrorString (code);
+}

data/src/rbosa_sdef.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2006, Apple Computer, Inc. All rights reserved.
+ * Copyright (c) 2006-2007, Apple Inc. All rights reserved.
  * 
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -9,7 +9,7 @@
  * 2.  Redistributions in binary form must reproduce the above copyright
  *     notice, this list of conditions and the following disclaimer in the
  *     documentation and/or other materials provided with the distribution. 
- * 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
+ * 3.  Neither the name of Apple Inc. ("Apple") nor the names of
  *     its contributors may be used to endorse or promote products derived
  *     from this software without specific prior written permission. 
  * 
@@ -29,6 +29,7 @@
 #include <ApplicationServices/ApplicationServices.h>
 #include <CoreFoundation/CoreFoundation.h>
 #include <unistd.h>
+#include <st.h>
 #include "rbosa.h"
 
 static void 
@@ -67,7 +68,7 @@ rbosa_translate_app (VALUE criterion, VALUE value, VALUE *app_signature, VALUE *
     *app_signature = Qnil;
     err = noErr;
  
-    if (criterion == ID2SYM (rb_intern ("by_signature"))) {
+    if (criterion == ID2SYM (rb_intern ("signature"))) {
         err = LSFindApplicationForInfo (RVAL2FOURCHAR (value), NULL, NULL, fs_ref, &URL);
         *app_signature = value; /* Don't need to get the app signature, we already have it. */
     }
@@ -77,13 +78,13 @@ rbosa_translate_app (VALUE criterion, VALUE value, VALUE *app_signature, VALUE *
         str = CFStringCreateMutable (kCFAllocatorDefault, 0);
         CFStringAppendCString (str, RVAL2CSTR (value), kCFStringEncodingUTF8);
 
-        if (criterion == ID2SYM (rb_intern ("by_path"))) {
+        if (criterion == ID2SYM (rb_intern ("path"))) {
             err = FSPathMakeRef ((const UInt8 *)RVAL2CSTR (value), fs_ref, NULL);
             if (err == noErr) {
                 URL = CFURLCreateWithFileSystemPath (kCFAllocatorDefault, str, kCFURLPOSIXPathStyle, FALSE);
             }
         }
-        else if (criterion == ID2SYM (rb_intern ("by_name"))) {
+        else if (criterion == ID2SYM (rb_intern ("name"))) {
             CFStringRef dot_app;
             
             dot_app = CFSTR (".app");
@@ -93,7 +94,7 @@ rbosa_translate_app (VALUE criterion, VALUE value, VALUE *app_signature, VALUE *
             err = LSFindApplicationForInfo (kLSUnknownCreator, NULL, str, fs_ref, &URL);
             *app_name = value; /* Don't need to get the app name, we already have it. */
         }
-        else if (criterion == ID2SYM (rb_intern ("by_bundle_id"))) {
+        else if (criterion == ID2SYM (rb_intern ("bundle_id"))) {
             err = LSFindApplicationForInfo (kLSUnknownCreator, str, NULL, fs_ref, &URL);
         }
         else {
@@ -106,7 +107,7 @@ rbosa_translate_app (VALUE criterion, VALUE value, VALUE *app_signature, VALUE *
     }
     
     if (err != noErr) {
-        *error = "Error when translating the application";
+        *error = "Can't locate the target bundle on the file system";
         return FALSE;
     }
 
@@ -115,36 +116,326 @@ rbosa_translate_app (VALUE criterion, VALUE value, VALUE *app_signature, VALUE *
     CFRelease (URL);
 
     if (NIL_P (*app_signature)) {
-        *error = "Error when getting the application signature";
+        *error = "Can't get the target bundle signature";
         return FALSE;
     }
  
     return TRUE;
 }
 
+static inline VALUE
+__get_criterion (VALUE hash, const char *str, VALUE *psym)
+{
+    VALUE   sym;
+    VALUE   val;
+
+    sym = ID2SYM (rb_intern (str));
+    val = rb_hash_delete (hash, sym);
+
+    if (!NIL_P (val)) {
+        if (TYPE (val) != T_STRING)
+            rb_raise (rb_eArgError, "argument '%s' must have a String value", RVAL2CSTR (sym));
+        if (psym != NULL)
+            *psym = sym;
+    }
+
+    return val;     
+}
+
+static OSStatus 
+send_simple_remote_event (AEEventClass ec, AEEventID ei, const char *target_url, const AEDesc *dp, AppleEvent *reply)
+{
+    OSStatus  err;
+    AEDesc    target, ev, root_reply;
+
+    if ((err = AECreateDesc ('aprl', target_url, strlen(target_url), &target)) != noErr)
+        return err; 
+
+    if ((err = AECreateAppleEvent (ec, ei, &target, kAutoGenerateReturnID, kAnyTransactionID, &ev)) != noErr) {
+        AEDisposeDesc (&target);
+        return err;
+    }
+
+    if (dp != NULL) 
+        AEPutParamDesc (&ev, keyDirectObject, dp);
+
+    err = AESend (&ev, &root_reply, kAEWaitReply, kAENormalPriority, kAEDefaultTimeout, NULL, NULL);
+    if (err == noErr) 
+        err = AEGetParamDesc (&root_reply, keyDirectObject, typeWildCard, reply);
+
+    // XXX we should check for application-level errors
+
+    AEDisposeDesc (&target);
+    AEDisposeDesc (&ev);
+    AEDisposeDesc (&root_reply);
+    
+    return err;
+}
+
+#if MAC_OS_X_VERSION_MAX_ALLOWED <= MAC_OS_X_VERSION_10_4
+typedef SInt16 ResFileRefNum;
+#endif
+
+static VALUE
+get_remote_app_sdef (const char *target_url)
+{
+    AEDesc        zero, reply, aete;
+    Size          datasize;
+    void *        data;
+    int           fd;
+    FSRef         fs;
+    CFDataRef     sdef_data;
+    VALUE         sdef;
+    ResFileRefNum res_num;
+    Handle        res;
+    SInt32        z = 0;
+    OSErr         osa_error;
+    HFSUniStr255  resourceForkName; 
+    char          tmp_res_path[] = "/tmp/FakeXXXXXX.osax";
+
+#define BOOM(m) \
+    do { \
+        rb_raise (rb_eRuntimeError, \
+                  "Can't get scripting definition of remote application (%s) : %s (%d)", \
+                  m, error_code_to_string (osa_error), osa_error); \
+    } while (0)
+
+    // XXX we should try to get the sdef via ascr/gsdf before trying to convert the AETE!
+
+    AECreateDesc (typeSInt32, &z, sizeof (z), &zero);
+    osa_error = send_simple_remote_event ('ascr', 'gdte', target_url, &zero, &reply);    
+    AEDisposeDesc (&zero);
+    if (osa_error != noErr)
+        BOOM ("sending event");
+
+    osa_error = AECoerceDesc (&reply, kAETerminologyExtension, &aete);
+    AEDisposeDesc (&reply);
+    if (osa_error != noErr)
+        BOOM ("coercing result");
+
+    datasize = AEGetDescDataSize (&aete);
+    data = (void *)malloc (datasize);
+    if (data == NULL)
+        BOOM ("cannot allocate memory");
+
+    osa_error = AEGetDescData (&aete, data, datasize);
+    AEDisposeDesc (&aete);
+    if (osa_error != noErr) {
+        free (data);
+        BOOM ("get data");
+    }
+
+    if (mkstemps (tmp_res_path, 5) == -1) {
+        free (data);
+        BOOM ("generate resource file name");
+    }
+
+    fd = open (tmp_res_path, O_CREAT|O_TRUNC|O_WRONLY, 0644);
+    if (fd == -1) {
+        free (data);
+        BOOM ("creating resource file");
+    }
+    close (fd);
+
+    FSPathMakeRef ((const UInt8 *)tmp_res_path, &fs, NULL);
+    FSGetResourceForkName (&resourceForkName); 
+ 
+    osa_error = FSCreateResourceFork (&fs, resourceForkName.length, resourceForkName.unicode, 0);
+    if (osa_error != noErr) {
+        free (data);
+        BOOM ("creating resource fork");
+    }
+
+    osa_error = FSOpenResourceFile (&fs, resourceForkName.length, resourceForkName.unicode, fsRdWrPerm, &res_num);
+    if (osa_error != noErr) {
+        free (data);
+        BOOM ("opening resource fork");
+    }
+
+    res = NewHandle (datasize);
+    memcpy (*res, data, datasize);
+    AddResource (res, 'aete', 0, (ConstStr255Param)"");
+
+    free (data);
+    CloseResFile (res_num);
+
+    osa_error = OSACopyScriptingDefinition (&fs, kOSAModeNull, &sdef_data);
+    unlink (tmp_res_path);
+    if (osa_error != noErr)
+        rb_raise (rb_eRuntimeError, "Cannot get scripting definition : error %d", osa_error);
+
+    sdef = rb_str_new ((const char *)CFDataGetBytePtr (sdef_data), 
+                       CFDataGetLength (sdef_data));
+
+    CFRelease (sdef_data);
+
+    return sdef;
+}
+
 VALUE
-rbosa_scripting_info (VALUE self, VALUE criterion, VALUE value)
+rbosa_scripting_info (VALUE self, VALUE hash)
 {
     const char *    error;
+    VALUE           criterion;
+    VALUE           value;
+    VALUE           remote;
+    char            c_remote[128];
     VALUE           ary;
     VALUE           name;  
     VALUE           signature;
-    FSRef           fs;
+    VALUE           sdef;
     OSAError        osa_error;
-    CFDataRef       sdef_data;
 
-    if (!rbosa_translate_app (criterion, value, &signature, &name, &fs, &error))
-        rb_raise (rb_eRuntimeError, error);
+    Check_Type (hash, T_HASH);
+
+    criterion = name = signature = Qnil;
+    value = __get_criterion (hash, "name", &criterion);
+    if (NIL_P (value))
+        value = __get_criterion (hash, "path", &criterion);
+    if (NIL_P (value))
+        value = __get_criterion (hash, "bundle_id", &criterion);
+    if (NIL_P (value))
+        value = __get_criterion (hash, "signature", &criterion);
+    if (NIL_P (value))
+        rb_raise (rb_eArgError, "expected :name, :path, :bundle_id or :signature key/value");
+
+    remote = __get_criterion (hash, "machine", NULL);
+    if (!NIL_P (remote)) {
+        VALUE username;
+        VALUE password;
+
+        if (NIL_P (value) || criterion != ID2SYM (rb_intern ("name")))
+            rb_raise (rb_eArgError, ":machine argument requires :name");
+        name = value;
  
-    osa_error = OSACopyScriptingDefinition (&fs, kOSAModeNull, &sdef_data);
-    if (osa_error != noErr)
-        rb_raise (rb_eRuntimeError, "Cannot get scripting definition : error %d", osa_error);
+        username = __get_criterion (hash, "username", NULL);
+        password = __get_criterion (hash, "password", NULL);
 
-    ary = rb_ary_new3 (3, name, signature, 
-                       rb_str_new ((const char *)CFDataGetBytePtr (sdef_data), 
-                                   CFDataGetLength (sdef_data)));
+        if (NIL_P (username)) {
+            if (!NIL_P (password))
+                rb_raise (rb_eArgError, ":password argument requires :username");
+            snprintf (c_remote, sizeof c_remote, "eppc://%s/%s", 
+                      RVAL2CSTR (remote), RVAL2CSTR (value));
+        }
+        else {
+            if (NIL_P (password))
+                snprintf (c_remote, sizeof c_remote, "eppc://%s@%s/%s", 
+                          RVAL2CSTR (username), RVAL2CSTR (remote), 
+                          RVAL2CSTR (value));
+            else
+                snprintf (c_remote, sizeof c_remote, "eppc://%s:%s@%s/%s", 
+                          RVAL2CSTR (username), RVAL2CSTR (password), 
+                          RVAL2CSTR (remote), RVAL2CSTR (value));
+        }
 
-    CFRelease (sdef_data);
+        remote = CSTR2RVAL (c_remote);
+    } 
+
+    if (RHASH (hash)->tbl->num_entries > 0) {
+        VALUE   keys;
+
+        keys = rb_funcall (hash, rb_intern ("keys"), 0);
+        rb_raise (rb_eArgError, "inappropriate argument(s): %s", 
+                  RSTRING (rb_inspect (keys))->ptr);
+    }
+
+    if (NIL_P (remote)) {
+        FSRef           fs;
+        CFDataRef       sdef_data;
+        
+        if (!rbosa_translate_app (criterion, value, &signature, &name, &fs, &error))
+            rb_raise (rb_eRuntimeError, error);
+
+        osa_error = OSACopyScriptingDefinition (&fs, kOSAModeNull, &sdef_data);
+        if (osa_error != noErr)
+            rb_raise (rb_eRuntimeError, "Cannot get scripting definition : error %d", osa_error);
+
+        sdef = rb_str_new ((const char *)CFDataGetBytePtr (sdef_data), 
+                           CFDataGetLength (sdef_data));
+
+        CFRelease (sdef_data);
+    }
+    else {
+        sdef = get_remote_app_sdef (c_remote);
+    }
+
+    ary = rb_ary_new3 (3, name, NIL_P (remote) ? signature : remote, sdef); 
 
     return ary;
 }
+
+VALUE
+rbosa_remote_processes (VALUE self, VALUE machine)
+{
+    char buf[128];
+    CFStringRef str;
+    CFURLRef url;
+    AERemoteProcessResolverRef resolver;
+    CFArrayRef cfary; 
+    CFStreamError cferr;
+    VALUE ary;
+    unsigned i, count;
+
+    snprintf (buf, sizeof buf, "eppc://%s", RVAL2CSTR (machine));
+    str = CFStringCreateWithCString (kCFAllocatorDefault, buf, kCFStringEncodingUTF8);
+    url = CFURLCreateWithString (kCFAllocatorDefault, str, NULL);
+    CFRelease (str);
+    resolver = AECreateRemoteProcessResolver (kCFAllocatorDefault, url);    
+    CFRelease (url);
+
+    cfary = AERemoteProcessResolverGetProcesses (resolver, &cferr); 
+    if (cfary == NULL) {
+        AEDisposeRemoteProcessResolver (resolver);
+        rb_raise (rb_eRuntimeError, "Can't resolve the remote processes on machine '%s' : error %d (domain %d)",
+                  RVAL2CSTR (machine), cferr.error, cferr.domain);
+    }
+
+    ary = rb_ary_new ();
+    for (i = 0, count = CFArrayGetCount (cfary); i < count; i++) {
+        CFDictionaryRef dict;
+        VALUE hash;
+        CFNumberRef number;
+
+        dict = (CFDictionaryRef)CFArrayGetValueAtIndex (cfary, i);
+        hash = rb_hash_new ();
+
+        url = CFDictionaryGetValue (dict, kAERemoteProcessURLKey);
+        if (url == NULL)
+            continue;
+
+        url = CFURLCopyAbsoluteURL (url);
+        str = CFURLGetString (url);
+
+        rb_hash_aset (hash, ID2SYM (rb_intern ("url")), CSTR2RVAL (CFStringGetCStringPtr (str, CFStringGetFastestEncoding (str))));
+
+        CFRelease (url);
+
+        str = CFDictionaryGetValue (dict, kAERemoteProcessNameKey);
+        if (str == NULL)
+            continue;
+        
+        rb_hash_aset (hash, ID2SYM (rb_intern ("name")), CSTR2RVAL (CFStringGetCStringPtr (str, CFStringGetFastestEncoding (str))));
+
+        number = CFDictionaryGetValue (dict, kAERemoteProcessUserIDKey);
+        if (number != NULL) {
+            int uid;
+
+            if (CFNumberGetValue (number, kCFNumberIntType, &uid))
+                rb_hash_aset (hash, ID2SYM (rb_intern ("uid")), INT2FIX (uid));
+        }
+        
+        number = CFDictionaryGetValue (dict, kAERemoteProcessProcessIDKey);
+        if (number != NULL) {
+            int pid;
+
+            if (CFNumberGetValue (number, kCFNumberIntType, &pid))
+                rb_hash_aset (hash, ID2SYM (rb_intern ("pid")), INT2FIX (pid));
+        }
+
+        rb_ary_push (ary, hash);
+    }    
+
+    AEDisposeRemoteProcessResolver (resolver);
+
+    return ary;   
+}