From 04fd4986f83c8bf623578511e075376c671c3555 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 29 Jul 2008 16:35:29 +0200
Subject: Add SEND-BY-NAME.

---
 MLKPackage.m |  1 +
 MLKRoot.m    | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)

diff --git a/MLKPackage.m b/MLKPackage.m
index c57dd7d..94bff0a 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -125,6 +125,7 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"NS-LOG"]];
   [sys export:[sys intern:@"SYMBOL-NAME"]];
   [sys export:[sys intern:@"PRIMITIVE-TYPE-OF"]];
+  [sys export:[sys intern:@"SEND-BY-NAME"]];
 
   [cl export:[cl intern:@"*BREAK-ON-SIGNALS*"]];
   [cl export:[cl intern:@"*COMPILE-FILE-PATHNAME*"]];
diff --git a/MLKRoot.m b/MLKRoot.m
index 3ad0f01..b133265 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -491,4 +491,58 @@ static id truify (BOOL value)
   else
     { RETURN_VALUE ([cl intern:@"T"]); }
 }
+
++(NSArray *) send_by_name:(NSArray *)args
+{
+  NSString *methodName = denullify ([args objectAtIndex:1]);
+  id object = denullify ([args objectAtIndex:0]);
+  NSInvocation *invocation;
+  SEL selector;
+  NSMethodSignature *signature;
+  int i;
+
+  selector = NSSelectorFromString (methodName);
+  if (!selector)
+    {
+      [NSException raise:@"MLKNoSuchSelectorError"
+                   format:@"Could not find a selector named %@", methodName];
+    }
+
+  signature = [object methodSignatureForSelector:selector];
+  if (!signature)
+    {
+      [NSException raise:@"MLKDoesNotUnderstandError"
+                   format:@"%@ does not respond to selector %@", object, methodName];
+    }
+
+  invocation = [NSInvocation invocationWithMethodSignature:signature];
+
+  [invocation setSelector:selector];
+  [invocation setTarget:object];
+
+  for (i = 2; i < [args count]; i++)
+    {
+      id argument = denullify ([args objectAtIndex:i]);
+      [invocation setArgument:&argument atIndex:i];
+    }
+
+  [invocation invoke];
+
+  if (strcmp ([signature methodReturnType], @encode(void)) == 0)
+    {
+      return [NSArray array];
+    }
+  else if (strcmp ([signature methodReturnType], @encode(BOOL)) == 0)
+    {
+      BOOL returnValue;
+      [invocation getReturnValue:&returnValue];
+      RETURN_VALUE (truify (returnValue));
+    }
+  else
+    {
+      id returnValue;
+      [invocation getReturnValue:&returnValue];
+      RETURN_VALUE (returnValue);
+    }
+}
 @end
-- 
cgit v1.2.3