1 # al-gw.tcl --
2 #
3 # FIXME: This file needs a description here.
4 #
5 # Copyright (c) 1998-2002 The Regents of the University of California.
6 # All rights reserved.
7 #
8 # Redistribution and use in source and binary forms, with or without
9 # modification, are permitted provided that the following conditions are met:
10 #
11 # A. Redistributions of source code must retain the above copyright notice,
12 # this list of conditions and the following disclaimer.
13 # B. Redistributions in binary form must reproduce the above copyright notice,
14 # this list of conditions and the following disclaimer in the documentation
15 # and/or other materials provided with the distribution.
16 # C. Neither the names of the copyright holders nor the names of its
17 # contributors may be used to endorse or promote products derived from this
18 # software without specific prior written permission.
19 #
20 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
21 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR
24 # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
26 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
27 # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
28 # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30 #
31 # @(#) $Header: /usr/mash/src/repository/mash/mash-1/tcl/as/al-gw.tcl,v 1.9 2002/02/03 04:25:20 lim Exp $
32
33
34 import AnnounceListenManager/AS
35
36 #
37 Class AnnounceListenManager/AS/Service -superclass AnnounceListenManager/AS
38
39 AnnounceListenManager/AS/Service instproc init { agent spec bw sspec } {
40 $self next $spec $bw srv
41 $self set srv_inst_ $sspec
42 $self set agent_ $agent
43 }
44
45 AnnounceListenManager/AS/Service instproc recv_msg { atype aspec addr \
46 srv_name srv_loc srv_inst ssg_port msg } {
47 $self instvar agent_ srv_inst_
48
49 if { $srv_inst != $srv_inst_ } {
50 return
51 }
52 if { $atype == "client" } {
53 $self send_announcement
54 } else {
55 # Duplicate server announcement.
56 if { [string compare $aspec [$self agent_instance]] < 0 } {
57 puts stderr "duplicate gateway at $addr - exiting."
58 $self announce_death
59 exit 0
60 }
61 }
62 }
63
64 AnnounceListenManager/AS/Service instproc register { atype aspec addr \
65 srv_name srv_inst msg } {}
66
67 AnnounceListenManager/AS/Service instproc unregister { atype aspec addr \
68 srv_name srv_inst msg } {
69 $self instvar agentbytype_ srv_inst_ agenttab_
70
71 # If we are alive and a client with a different SID died --
72 # no need to check.
73 if { $atype != "client" || $srv_inst != $srv_inst_ } {
74 return
75 }
76 foreach aspec $agentbytype_(client) {
77 set sid [lindex $agenttab_($aspec) 4]
78 if { $sid == $srv_inst_ } {
79 # Still have a client
80 return
81 }
82 }
83 # No clients with our SID, exit
84 puts stderr "no more clients -- exiting"
85 exit 0
86 }
87
88 AnnounceListenManager/AS/Service instproc service_instance {} {
89 $self instvar srv_inst_
90 return $srv_inst_
91 }
92
93
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.