2005-01-31 Zoltan Varga <vargaz@freemail.hu>

[mono.git] / mcs / class / corlib / System.Runtime.Remoting / ObjRef.cs

diff --git a/mcs/class/corlib/System.Runtime.Remoting/ObjRef.cs b/mcs/class/corlib/System.Runtime.Remoting/ObjRef.cs
index 7d9a05347b6466834f5e25ebafa423dada23986d..30234367827314cbfaa1b837eebdc0ec1ef83232 100644 (file)
--- a/mcs/class/corlib/System.Runtime.Remoting/ObjRef.cs
+++ b/mcs/class/corlib/System.Runtime.Remoting/ObjRef.cs
@@ -10,6 +10,29 @@
 // (C) Ximian, Inc.  http://www.ximian.com
 //
 
+//
+// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+// 
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
 using System;
 using System.Runtime.Serialization;
 using System.Runtime.Remoting.Channels;
@@ -26,6 +49,7 @@ namespace System.Runtime.Remoting {
                IRemotingTypeInfo typeInfo;
                IEnvoyInfo envoyInfo;
                int flags;
+               Type _serverType;
 
                static int MarshalledObjectRef = 1;
                static int WellKnowObjectRef = 2;
@@ -37,6 +61,13 @@ namespace System.Runtime.Remoting {
                        UpdateChannelInfo();
                }
 
+               internal ObjRef (string typeName, string uri, IChannelInfo cinfo) 
+               {
+                       this.uri = uri;
+                       channel_info = cinfo;
+                       typeInfo = new TypeInfo (Type.GetType (typeName));
+               }
+
                internal ObjRef (ObjRef o, bool unmarshalAsProxy) {
                        channel_info = o.channel_info;
                        uri = o.uri;
@@ -46,7 +77,7 @@ namespace System.Runtime.Remoting {
                        flags = o.flags;
                        if (unmarshalAsProxy) flags |= MarshalledObjectRef;
                }
-               
+
                public ObjRef (MarshalByRefObject mbr, Type type)
                {
                        if (mbr == null)
@@ -61,7 +92,7 @@ namespace System.Runtime.Remoting {
                        uri = RemotingServices.GetObjectUri(mbr);
                        typeInfo = new TypeInfo(type);
 
-                       if (!typeInfo.CanCastTo(mbr.GetType(), mbr))
+                       if (!type.IsAssignableFrom (mbr.GetType()))
                                throw new RemotingException ("The server object type cannot be cast to the requested type " + type.FullName + ".");
 
                        UpdateChannelInfo();
@@ -73,7 +104,7 @@ namespace System.Runtime.Remoting {
                        typeInfo = new TypeInfo(type);
 
                        if (remoteChannelData != null)
-                               channel_info = new ChannelInfoStore (remoteChannelData);
+                               channel_info = new ChannelInfo (remoteChannelData);
 
                        flags |= WellKnowObjectRef;
                }
@@ -102,7 +133,7 @@ namespace System.Runtime.Remoting {
                                case "fIsMarshalled":
                                        int status;
                                        Object o = en.Value;
-                                       if (o.GetType().Equals(typeof(String)))
+                                       if (o is string)
                                                status = ((IConvertible) o).ToInt32(null);
                                        else
                                                status = (int) o;
@@ -111,7 +142,7 @@ namespace System.Runtime.Remoting {
                                                marshalledValue = false;
                                        break;
                                case "objrefFlags":
-                                       flags = (int) en.Value;
+                                       flags = Convert.ToInt32 (en.Value);
                                        break;
                                default:
                                        throw new NotSupportedException ();
@@ -129,7 +160,7 @@ namespace System.Runtime.Remoting {
                        return false;
                }
 
-               public bool IsReferenceToWellKnow
+               internal bool IsReferenceToWellKnow
                {
                        get { return (flags & WellKnowObjectRef) > 0; }
                }
@@ -145,7 +176,6 @@ namespace System.Runtime.Remoting {
                        }
                }
                
-               [MonoTODO]
                public virtual IEnvoyInfo EnvoyInfo {
                        get {
                                return envoyInfo;
@@ -155,7 +185,6 @@ namespace System.Runtime.Remoting {
                        }
                }
                
-               [MonoTODO]
                public virtual IRemotingTypeInfo TypeInfo {
                        get {
                                return typeInfo;
@@ -200,16 +229,32 @@ namespace System.Runtime.Remoting {
                        return identity.IsFromThisAppDomain;
                }
 
-               [MonoTODO]
                public bool IsFromThisProcess ()
                {
-                       // as yet we do not consider this optimization
-                       return false;
+                       foreach (object data in channel_info.ChannelData)
+                       {
+                               if (data is CrossAppDomainData)
+                               {
+                                       string refProcId = ((CrossAppDomainData)data).ProcessID;
+                                       return (refProcId == RemotingConfiguration.ProcessId);
+                               }
+                       }
+                       
+                       return true;
                }
 
                internal void UpdateChannelInfo()
                {
-                       channel_info = new ChannelInfoStore ();
+                       channel_info = new ChannelInfo ();
+               }
+
+               internal Type ServerType
+               {
+                       get
+                       {
+                               if (_serverType == null) _serverType = Type.GetType (typeInfo.TypeName);
+                               return _serverType;
+                       }
                }
        }
 }