1 # fx_tselect.tcl --
2 #
3 # FIXME: This file needs a description here.
4 #
5 # Copyright (c) 1999-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 import RTPApplication
32 import TemporalSelector
33
34 Class FXTSelectApp -superclass RTPApplication
35
36 FXTSelectApp instproc init args {
37 $self next tselect_app
38
39 $self init_resources;
40
41 [$self options] register_option -comm_id comm_id
42 [$self options] register_option -cntrl_spec cntrl_spec
43
44 eval [$self options] parse_args $args;
45
46 $self instvar tselect_obj_
47
48 set tselect_obj_ [new TemporalSelector [$self get_option comm_id] [$self get_option cntrl_spec]];
49 }
50
51 FXTSelectApp instproc init_resources {} {
52 [$self options] register_option -gen_spec gen_spec
53
54 $self add_option network ip
55 $self add_option mtu 1024
56 $self add_option defaultTTL 32
57 $self add_option sessionType rtpv2
58 $self add_option maxVideoSessionBW 30000000
59 $self add_option comm_id ts
60 $self add_option cntrl_spec 224.3.2.1/22334/16
61
62 expr srand([clock clicks]);
63 set r1 [expr int(rand()*253)+1];
64 set r2 [expr int(rand()*253)+1];
65 $self add_option gen_spec 224.6.${r1}.${r2};
66 }
67
68 FXTSelectApp instproc remote_exit {} {
69 exit;
70 }
71
72 set app [new FXTSelectApp $argv];
73
74 puts "Selector running on [exec hostname]";
75
76 #if {![info exists tk_version]} {
77 # vwait forever;
78 #}
79
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.