squash! proxy: Property get/set via CLR properties

Add caching for generated MethodCaller delegates.

src/ExportObject.cs

@@ -74,6 +74,30 @@ internal static MethodCaller GetMCaller (MethodInfo mi)
 			return mCaller;
 		}
 
+		internal static MethodCaller GetPropertyCaller(PropertyInfo pi)
+		{
+			MethodInfo mi = pi.GetMethod;
+			MethodCaller mCaller;
+			if (!mCallers.TryGetValue(mi, out mCaller))
+			{
+				mCaller = TypeImplementer.GenGetCall (pi);
+				mCallers[mi] = mCaller;
+			}
+			return mCaller;
+		}
+
+		internal static MethodCaller SetPropertyCaller(PropertyInfo pi)
+		{
+			MethodInfo mi = pi.SetMethod;
+			MethodCaller mCaller;
+			if (!mCallers.TryGetValue(mi, out mCaller))
+			{
+				mCaller = TypeImplementer.GenSetCall (pi);
+				mCallers[mi] = mCaller;
+			}
+			return mCaller;
+		}
+
 		public static ExportObject CreateExportObject (Connection conn, ObjectPath object_path, object obj)
 		{
 			return new ExportObject (conn, object_path, obj);
@@ -171,29 +195,32 @@ private void HandlePropertyCall(MessageContainer method_call)
 
 			string name = (string)args[1];
 
-			PropertyInfo pi = Object.GetType().GetProperty(name);
-			MethodInfo mi;
-			MethodCaller pc;
+			PropertyInfo pi = Object.GetType ().GetProperty (name);
+
+			if (null == pi)
+			{
+				conn.MaybeSendUnknownMethodError (method_call);
+				return;
+			}
+
+			MethodCaller pc = null;
+			MethodInfo mi = null;
 			Signature outSig, inSig = method_call.Signature;
 
 			switch (method_call.Member) {
 				case "Set":
-					mi = pi.GetSetMethod ();
-					pc = TypeImplementer.GenSetCall(pi);
+					mi = pi.SetMethod;
+					pc = SetPropertyCaller (pi);
 					outSig = Signature.Empty;
 					break;
 				case "Get":
-					mi = pi.GetGetMethod ();
-					pc = TypeImplementer.GenGetCall(pi);
-					outSig = Signature.GetSig(mi.ReturnType);
+					mi = pi.GetMethod;
+					pc = GetPropertyCaller (pi);
+					outSig = Signature.GetSig (mi.ReturnType);
 					break;
 				default:
-					throw new ArgumentException(string.Format ("No such method {0}.{1}", method_call.Interface, method_call.Member));
-			}
-
-			if (null == pc) {
-				conn.MaybeSendUnknownMethodError (method_call);
-				return;
+					conn.MaybeSendUnknownMethodError (method_call);
+					return;
 			}
 
 			Exception raisedException = null;