1 # fx_tinter.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 #source [file join $env(TCLCL_IMPORT_DIRS) import.tcl]
32
33 import RTPApplication
34 import TemporalInterleaver
35
36 Class FXTInterApp -superclass RTPApplication
37
38 FXTInterApp instproc init args {
39 # global kpatel_debug;
40
41 # set kpatel_debug [new LogService];
42 # $kpatel_debug on;
43
44 $self next fx_tinter_app
45
46 $self init_resources;
47
48 eval [$self options] parse_args $args;
49
50 $self instvar tinter_obj_
51
52 set tinter_obj_ [new TemporalInterleaver [$self get_option comm_id] [$self get_option cntrl_spec]];
53
54 if {[$self get_option create_ui] != 0} {
55 global tk_version;
56 if {[info exists tk_version]} {
57 puts "creating ui"
58 import TInterUI
59
60 $self instvar tinter_ui_;
61
62 set tinter_ui_ [new TInterUI ""];
63
64 $tinter_ui_ attach $tinter_obj_;
65 }
66 }
67 }
68
69 FXTInterApp instproc init_resources {} {
70 [$self options] register_option -comm_id comm_id
71 [$self options] register_option -cntrl_spec cntrl_spec
72 [$self options] register_option -create_ui create_ui
73 [$self options] register_option -gen_spec gen_spec
74
75 $self add_option network ip
76 $self add_option mtu 1024
77 $self add_option defaultTTL 32
78 $self add_option sessionType rtpv2
79 $self add_option maxVideoSessionBW 30000000
80 $self add_option comm_id ti
81 $self add_option cntrl_spec 224.3.2.1/22334/16
82 $self add_option create_ui 0
83
84 expr srand([clock clicks]);
85 set r1 [expr int(rand()*253)+1];
86 set r2 [expr int(rand()*253)+1];
87 $self add_option gen_spec 224.5.${r1}.${r2};
88 }
89
90 set app [new FXTInterApp $argv];
91
92 puts "Interleaver running on [exec hostname]";
93
94 #if {![info exists tk_version]} {
95 # vwait forever;
96 #}
97
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.