1 # al-client-aries.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/applications/aries/al-client-aries.tcl,v 1.5 2002/02/03 04:21:08 lim Exp $
32
33
34 import AnnounceListenManager/AS/Client
35
36
37 # AnnounceListenManager for Aries client. This object currently created by
38 # the Pathfinder web interface.
39 # Author: Angela Schuett Status: pre-alpha
40
41 Class AnnounceListenManager/AS/Client/Aries -superclass \
42 AnnounceListenManager/AS/Client
43
44
45 #
46 AnnounceListenManager/AS/Client/Aries instproc init {platform bw atype program} {
47 $self instvar program_ service_instance_ platform_
48
49 set program_ $program
50 set platform_ $platform
51 $self next $platform $bw $atype
52
53 set service_instance_ "[pid]:[localaddr]:aries"
54 }
55
56 AnnounceListenManager/AS/Client/Aries private recv_msg { atype aspec addr srv_name srv_loc srv_inst ssg_port msg } {
57 $self instvar ssd_
58
59 set ssd_ $msg
60 }
61
62
63
64 # Called by pathfinder to retrieve the recording quality of sessions.
65 # Response includes list of platforms currently recording the session,
66 # Average quality for each, and current quality snapshot (?)
67 AnnounceListenManager/AS/Client/Aries public get_status {} {
68 $self instvar ssd_
69
70 if [info exists ssd_] {
71 return $ssd_
72 } else {
73 return "Pending"
74 }
75
76 }
77
78 AnnounceListenManager/AS/Client/Aries public get_platform {} {
79 $self instvar platform_
80
81 return $platform_
82
83 }
84 #
85 AnnounceListenManager/AS/Client/Aries instproc service_name {} {
86 return Aries
87 }
88
89 #
90 AnnounceListenManager/AS/Client/Aries instproc service_instance {} {
91 $self instvar service_instance_
92 return $service_instance_
93 }
94
95 #
96 AnnounceListenManager/AS/Client/Aries instproc agent_data {} {
97 $self instvar program_
98
99 return $program_
100
101 }
102
103 #
104 AnnounceListenManager/AS/Client/Aries instproc register { atype aspec addr \
105 srv_name srv_inst msg } {
106 }
107
108 #
109 AnnounceListenManager/AS/Client/Aries instproc unregister { atype aspec addr \
110 srv_name srv_inst msg } {
111 }
112
113
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.