Preliminary services support.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@3307 72102866-910b-0410-8b05-ffd578937521

Source/NSPasteboard.m

@@ -30,6 +30,7 @@
 #include <gnustep/gui/config.h>
 #include <AppKit/NSPasteboard.h>
 #include <AppKit/NSApplication.h>
+#include <AppKit/NSWorkspace.h>
 #include "../Tools/PasteboardServer.h"
 #include <Foundation/NSArray.h>
 #include <Foundation/NSData.h>
@@ -43,6 +44,10 @@
 #include <Foundation/NSProcessInfo.h>
 #include <Foundation/NSSerialization.h>
 #include <Foundation/NSUserDefaults.h>
+#include <Foundation/NSMethodSignature.h>
+#include <Foundation/NSRunLoop.h>
+#include <Foundation/NSTimer.h>
+#include <Foundation/fast.x>
 
 #define stringify_it(X) #X
 #define	prog_path(X,Y) \
@@ -123,8 +128,15 @@ static	id<PasteboardServer>	the_server = nil;
 	    }
 	  else
 	    {
+	      NSRunLoop	*loop = [NSRunLoop currentRunLoop];
+	      NSDate	*next;
+
 	      system(prog_path(GNUSTEP_INSTALL_PREFIX, "/gpbs &"));
-	      sleep(5);
+	      [NSTimer scheduledTimerWithTimeInterval: 5.0
+					   invocation: nil
+					      repeats: NO];
+	      next = [NSDate dateWithTimeIntervalSinceNow: 5.0];
+	      [loop runUntilDate: next];
 	      recursion = YES;
 	      [self _pbs];
 	      recursion = NO;
@@ -383,8 +395,8 @@ static	id<PasteboardServer>	the_server = nil;
 
 - (void) releaseGlobally
 {
-    [target releaseGlobally];
-    [pasteboards removeObjectForKey: name];
+  [target releaseGlobally];
+  [pasteboards removeObjectForKey: name];
 }
 
 //
@@ -726,12 +738,9 @@ NSGetFileTypes(NSArray *pboardTypes)
   return nil;
 }
 
-void
-NSUpdateDynamicServices()
-{
-  system(prog_path(GNUSTEP_INSTALL_PREFIX, "/make_services"));
-}
 
+extern NSDictionary* GSAllServicesDictionary();
+extern NSDictionary* GSApplicationsDictionary();
 
 static NSConnection	*listener = nil;
 
@@ -752,3 +761,154 @@ NSRegisterServicesProvider(id provider, NSString *name)
   [listener retain];
 }
 
+BOOL
+NSPerformService(NSString *serviceItem, NSPasteboard *pboard)
+{
+  NSUserDefaults	*defs;
+  NSArray		*languages;
+  NSDictionary		*services;
+  NSDictionary		*byLanguage;
+  NSDictionary		*service;
+  NSString		*port;
+  unsigned		end;
+  unsigned		pos;
+  NSString		*timeout;
+  double		seconds;
+  NSDate		*finishBy;
+  NSString		*appPath;
+  id			provider;
+  NSConnection		*connection;
+  NSString		*message;
+  NSString		*selName;
+  SEL			msgSel;
+  NSString		*userData;
+  IMP			msgImp;
+  NSString		*error = nil;
+  NSDictionary		*allServices;
+
+  /*
+   *	Get language preference array.
+   */
+  defs = [NSUserDefaults standardUserDefaults];
+  languages = [defs arrayForKey: @"Languages"];
+
+  /*
+   *	Get dictionary of menu services from workspace manager.
+   */
+  allServices = GSAllServicesDictionary();
+
+  services = [allServices objectForKey: @"ByService"];
+
+  /*
+   *	Find service information for a service matching the given menu item
+   *	Search in language preference order.
+   */
+  if (languages)
+    end = [languages count];
+  else
+    end = 0;
+  byLanguage = nil;
+  for (pos = 0; pos < end; pos++)
+    {
+      NSString	*language = [languages objectAtIndex: pos];
+
+      byLanguage = [services objectForKey: language];
+      if (byLanguage != nil)
+	break;
+    }
+  if (byLanguage == nil)
+    byLanguage = [services objectForKey: @"default"];
+  service = [byLanguage objectForKey: serviceItem];
+  
+  if (service == nil)
+    return NO;			/* No matching service.	*/
+
+  port = [service objectForKey: @"NSPortName"];
+  timeout = [service objectForKey: @"NSTimeout"];
+  if (timeout && [timeout floatValue] > 100)
+    {
+      seconds = [timeout floatValue] / 1000.0;
+    }
+  else
+    {
+      seconds = 30.0;
+    }
+  finishBy = [NSDate dateWithTimeIntervalSinceNow: seconds];
+  appPath = [service objectForKey: @"ServicePath"];
+  userData = [service objectForKey: @"NSUserData"];
+  message = [service objectForKey: @"NSMessage"];
+  selName = [message stringByAppendingString: @":userData:error:"];
+  msgSel = NSSelectorFromString(selName);
+
+  /*
+   *	If there is no selector - we need to generate one with the
+   *	appropriate types.
+   */
+  if (msgSel == 0)
+    {
+      NSMethodSignature	*sig;
+      const char	*name;
+      const char	*type;
+
+      sig = [NSMethodSignature signatureWithObjCTypes: "v@:@@^@"];
+      type = [sig methodType];
+      name = [selName cString];
+      msgSel = sel_register_typed_name(name, type);
+    }
+
+  provider = [NSConnection rootProxyForConnectionWithRegisteredName: port  
+							       host: @""];
+  if (provider == nil)
+    {
+      if ([[NSWorkspace sharedWorkspace] launchApplication: appPath] == NO)
+	{
+	  return NO;		/* Unable to launch.	*/
+	}
+
+      provider = [NSConnection rootProxyForConnectionWithRegisteredName: port  
+								   host: @""];
+      while (provider == nil && [finishBy timeIntervalSinceNow] > 1.0)
+	{
+	  NSRunLoop	*loop = [NSRunLoop currentRunLoop];
+	  NSDate	*next;
+
+	  [NSTimer scheduledTimerWithTimeInterval: 1.0
+				       invocation: nil
+					  repeats: NO];
+	  next = [NSDate dateWithTimeIntervalSinceNow: 5.0];
+	  [loop runUntilDate: next];
+	  provider = [NSConnection
+			rootProxyForConnectionWithRegisteredName: port  
+							    host: @""];
+	}
+    }
+
+  if (provider == nil)
+    {
+      return NO;		/* Unable to contact.	*/
+    }
+  connection = [(NSDistantObject*)provider connectionForProxy];
+  seconds = [finishBy timeIntervalSinceNow];
+  [connection setRequestTimeout: seconds];
+  [connection setReplyTimeout: seconds];
+
+  msgImp = get_imp(fastClass(provider), msgSel);
+  NS_DURING
+    {
+      (*msgImp)(provider, msgSel, pboard, userData, &error);
+    }
+  NS_HANDLER
+    {
+      [NSException raise: NSPasteboardCommunicationException
+		  format: @"%s", [[localException reason] cString]];
+    }
+  NS_ENDHANDLER
+
+  if (error != nil)
+    {
+      NSLog(error);
+      return NO;
+    }
+
+  return YES;
+}