Open Mash Cross Reference
mash/tcl/indiva/imgr/imgr-rtcplistener.tcl

   import RTCPListener
   Class IMgrRTCPListener -superclass RTCPListener
   
   IMgrRTCPListener instproc init {mgr session} {
       $self instvar mgr_ session_
       set mgr_ $mgr
       set session_ $session
       set addr [$mgr info $session -addr]
       set port [$mgr info $session -port]
      set ttl  [$mgr info $session -ttl]
      $self next $addr [expr {$port + 1}] $ttl
  }
  
  
  IMgrRTCPListener instproc recv_sdes {ssrc field args} {
      $self instvar mgr_ session_ cname_ attributes_
      set ssrc [format "%08x" $ssrc]
      if ![info exists cname_($ssrc)] {
          if {$field == "cname"} {
              $mgr_ mkrtp $session_/$args.rtp -ssrc $ssrc -cname $args
              set cname_($ssrc) $args
          }
      } else {
          if [$mgr_ exists $session_/$cname_($ssrc).rtp] {
              if ![info exists attributes_($ssrc,$field)] {
                  $mgr_ configure $session_/$cname_($ssrc).rtp -$field $args
                  set attributes_($ssrc,$field) $args
              } else {
                  set curr $attributes_($ssrc,$field)
                  if {$curr != $args} {
                      $mgr_ configure $session_/$cname_($ssrc).rtp -$field $args
                      set attributes_($ssrc,$field) $args
                  }
              }
          }
      }
  }
  
  IMgrRTCPListener instproc recv_rr {args} {
  }
  
  IMgrRTCPListener instproc recv_sr {args} {
  }