blob: ee126bb9c156bb6c55b3aed29dd2ee6a6be701cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
' **********************************************************************
'
' Copyright (c) 2003-2015 ZeroC, Inc. All rights reserved.
'
' This copy of Ice is licensed to you under the terms described in the
' ICE_LICENSE file included in this distribution.
'
' **********************************************************************
Imports System
Imports Demo
Module NestedC
Class Client
Inherits Ice.Application
Public Overloads Overrides Function run(ByVal args() As String) As Integer
If args.Length > 0 Then
Console.Error.WriteLine(appName() & ": too many arguments")
Return 1
End If
Dim nested As NestedPrx = NestedPrxHelper.checkedCast(communicator().propertyToProxy("Nested.Proxy"))
If nested Is Nothing Then
Console.Error.WriteLine("invalid proxy")
Return 1
End If
'
' Ensure the invocation times out if the nesting level is too
' high and there are no more threads in the thread pool to
' dispatch the call.
'
nested = NestedPrxHelper.uncheckedCast(nested.ice_invocationTimeout(5000))
Dim adapter As Ice.ObjectAdapter = communicator().createObjectAdapter("Nested.Client")
Dim self As NestedPrx = NestedPrxHelper.uncheckedCast(adapter.createProxy(
communicator().stringToIdentity("nestedClient")))
adapter.add(New NestedI(self), communicator().stringToIdentity("nestedClient"))
adapter.activate()
Console.Out.WriteLine("Note: The maximum nesting level is sz * 2, with sz being")
Console.Out.WriteLine("the maximum number of threads in the server thread pool. If")
Console.Out.WriteLine("you specify a value higher than that, the application will")
Console.Out.WriteLine("block or timeout.")
Console.Out.WriteLine()
Dim S As String = Nothing
Do
Try
Console.Out.Write("enter nesting level or 'x' for exit: ")
Console.Out.Flush()
S = Console.In.ReadLine()
If S Is Nothing Then
Exit Do
End If
Dim level As Integer = System.Int32.Parse(S)
If level > 0 Then
nested.nestedCall(level, self)
End If
Catch ex As System.FormatException
' Ignore
Catch ex As System.Exception
Console.Error.WriteLine(ex)
End Try
Loop While Not S.Equals("x")
Return 0
End Function
End Class
Public Sub Main(ByVal args() As String)
Dim app As Client = New Client
Dim status As Integer = app.main(args, "config.client")
System.Environment.Exit(status)
End Sub
End Module
|
