New test.
[mono.git] / mcs / class / System.Runtime.Remoting / System.Runtime.Remoting.Channels.CORBA / CORBAClientTransportSink.cs
1 //
2 // System.Runtime.Remoting.Channels.CORBA.CORBAClientTransportSink.cs
3 //
4 // Author: Dietmar Maurer (dietmar@ximian.com)
5 //
6 // 2002 (C) Copyright, Ximian, Inc.
7 //
8
9 //
10 // Permission is hereby granted, free of charge, to any person obtaining
11 // a copy of this software and associated documentation files (the
12 // "Software"), to deal in the Software without restriction, including
13 // without limitation the rights to use, copy, modify, merge, publish,
14 // distribute, sublicense, and/or sell copies of the Software, and to
15 // permit persons to whom the Software is furnished to do so, subject to
16 // the following conditions:
17 // 
18 // The above copyright notice and this permission notice shall be
19 // included in all copies or substantial portions of the Software.
20 // 
21 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
22 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
23 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
24 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
25 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
26 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
27 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
28 //
29
30 using System.Collections;
31 using System.IO;
32 using System.Net.Sockets;
33 using System.Runtime.Remoting.Messaging;
34 using System.Runtime.Remoting.Channels;
35
36 namespace System.Runtime.Remoting.Channels.CORBA
37 {
38
39         internal class CORBAClientTransportSink : IClientChannelSink
40         {
41                 string host;
42                 string object_uri;
43                 int port;
44                 
45                 TcpClient tcpclient;
46                 
47                 public CORBAClientTransportSink (string url)
48                 {
49                         host = CORBAChannel.ParseCORBAURL (url, out object_uri, out port);
50                         tcpclient = new TcpClient ();
51                 }
52
53                 public IDictionary Properties
54                 {
55                         get {
56                                 return null;
57                         }
58                 }
59
60                 public IClientChannelSink NextChannelSink
61                 {
62                         get {
63                                 // we are the last one
64                                 return null;
65                         }
66                 }
67
68                 public void AsyncProcessRequest (IClientChannelSinkStack sinkStack, IMessage msg,
69                                                  ITransportHeaders headers, Stream stream)
70                 {
71                         throw new NotImplementedException ();                   
72                 }
73
74                 public void AsyncProcessResponse (IClientResponseChannelSinkStack sinkStack,
75                                                   object state, ITransportHeaders headers,
76                                                   Stream stream)
77                 {
78                         throw new NotImplementedException ();
79                 }
80
81                 public Stream GetRequestStream (IMessage msg, ITransportHeaders headers)
82                 {
83                         // no direct access to the stream
84                         return null;
85                 }
86                 
87                 public void ProcessMessage (IMessage msg,
88                                             ITransportHeaders requestHeaders,
89                                             Stream requestStream,
90                                             out ITransportHeaders responseHeaders,
91                                             out Stream responseStream)
92                 {
93                         // get a network stream
94                         tcpclient.Connect (host, port);
95                         Stream network_stream = tcpclient.GetStream ();
96
97                         // send the message
98                         IIOPMessage.SendMessageStream (network_stream, (MemoryStream)requestStream,
99                                                        IIOPMessage.MessageType.Request,
100                                                        object_uri);
101                         
102                         // read the response fro the network an copy it to a memory stream
103                         IIOPMessage.MessageType msg_type;
104                         string uri;
105                         MemoryStream mem_stream =
106                                 IIOPMessage.ReceiveMessageStream (network_stream, out msg_type, out uri);
107
108                         // close the stream
109                         tcpclient.Close ();
110
111                         switch (msg_type) {
112                         case IIOPMessage.MessageType.Response:
113                                 //fixme: read response message
114                                 responseHeaders = null;
115                         
116                                 responseStream = mem_stream;
117                 
118                                 break;
119                         default:
120                                 throw new Exception ("unknown response mesage header");
121                         }
122                 }
123                         
124         }
125 }