Open Mash Cross Reference
mash/tcl/indiva/services/ive/ive-video-agent.tcl

   # ive-video-agent.tcl --
   #
   #   Video agent for indiva video encoder.
   #
   # Copyright (c) 1996-2002 The Regents of the University of California.
   # All rights reserved.
   #
   # Redistribution and use in source and binary forms, with or without
   # modification, are permitted provided that the following conditions are met:
  #
  # A. Redistributions of source code must retain the above copyright notice,
  #    this list of conditions and the following disclaimer.
  # B. Redistributions in binary form must reproduce the above copyright notice,
  #    this list of conditions and the following disclaimer in the documentation
  #    and/or other materials provided with the distribution.
  # C. Neither the names of the copyright holders nor the names of its
  #    contributors may be used to endorse or promote products derived from this
  #    software without specific prior written permission.
  #
  # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
  # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR
  # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  #
  # @(#) $Header: /usr/mash/src/repository/mash/mash-1/tcl/indiva/services/ive/ive-video-agent.tcl,v 1.5 2004/02/16 18:23:45 weitsang Exp $
  #
  import VideoAgent
  import VideoPipeline
  Class IVEVideoAgent -superclass VideoAgent
  
  IVEVideoAgent instproc init { app spec dev port fmt } {
      puts "$dev $port $fmt"
      $self next $app $spec
  
      $self instvar pipeline_
      set pipeline_ [new VideoPipeline $self]
  
      set device_list [$pipeline_ input_devices]
      # if $dev is empty, use first available device.
      if {$dev == ""} {
          set device [lindex $device_list 0]
      }
      set device ""
      foreach d $device_list {
          if {[$d pathname] == $dev} {
              set device $d
          }
      }
      if {$device == ""} {
          puts "Cannot open device $device. Good bye."
          exit
      }
  
      set port_list [$device get_attribute port]
      if {$port == ""} {
          set port [lindex $port_list 0]
      }
      if {[lsearch $port_list $port] == -1} {
          puts "Cannot open port $port on [$device nickname]([$device pathname]). Good bye."
          exit
      }
  
  #   $self app_loopback 0
  #   $self net_loopback 0
  
      $pipeline_ release_device
      $pipeline_ set_port $port
      $pipeline_ select $device $fmt
  }
  
  IVEVideoAgent instproc create_decoder { src } {
  # FIXME : someone might deleted this decoder?
  #    $self instvar decoder_
      #if ![info exists decoder_] {
  #       set decoder_ [new Module/VideoDecoder/Null]
  #    }
      return [new Module/VideoDecoder/Null]
  #    return $decoder_
  }
  
  IVEVideoAgent instproc pipeline { } {
      $self instvar pipeline_
      return $pipeline_
  }
  
  IVEVideoAgent instproc start { } {
      $self instvar pipeline_
      $pipeline_ start
  
  }
  
  IVEVideoAgent instproc set_fps { fps } {
      $self instvar pipeline_
     $pipeline_ set_fps $fps
 }
 
 IVEVideoAgent instproc set_bps { bps } {
     $self instvar pipeline_
     $pipeline_ set_bps $bps
 }
 
 IVEVideoAgent instproc set_quality { q } {
     $self instvar pipeline_
     $pipeline_ set_quality $q
 }
 
 IVEVideoAgent instproc set_fmt { fmt } {
     $self instvar pipeline_ titler_
     $pipeline_ set_fmt $fmt
 
     # If titling is on, need to retarget titler
     if [info exists titler_] {
         $self title on
     }
 }
 
 
 IVEVideoAgent instproc add_destination { dest } {
     $self instvar pipeline_ sessions_ netmgr_
     set encoder [$pipeline_ set encoder_]
     set sessions_($dest) [$self create_session]
     $sessions_($dest) sm $self
     set ab [new AddressBlock $dest]
     set netmgr_($dest) [new NetworkManager $ab $sessions_($dest) $self]
     $encoder add_target $sessions_($dest)
     $self app_loopback 0
     delete $ab
 }
 
 
 IVEVideoAgent instproc delete_destination { dest } {
     $self instvar netmgr_ sessions_ pipeline_
     set encoder [$pipeline_ set encoder_]
     $encoder del_target $sessions_($dest)
     delete $sessions_($dest)
     delete $netmgr_($dest)
 }
 
 
 IVEVideoAgent instproc title {option args} {
     $self instvar pipeline_ titler_ title_
     switch $option {
         "on" {
             if {[catch {$pipeline_ set encoder_} encoder]} {
                 return
             }
             set csss [$encoder frame-format]
             set titler_ [new Module/VideoEffect/Titling $csss]
             if {[info exists title_]} {
                 $titler_ set-title $title_ 24 Arial
             }
             $titler_ target $encoder
             [$pipeline_ set tap_] target $titler_ $encoder
         }
         "off" {
             if ![info exists titler_] {
                 # Not on in the first place!
                 return
             }
             if {[catch {$pipeline_ set encoder_} encoder]} {
                 return
             }
             [$pipeline_ set tap_] target $encoder $encoder
             delete $titler_ 
             unset titler_
         }
         "set" {
             set length [llength $args]
             set title_ [lrange $args 0 [expr {$length-3}]]
             set size [lindex $args [expr {$length-2}]]
             set name [lindex $args [expr {$length-1}]]
             if [info exists titler_] {
                 if {$title_ == ""} {
                     $self title off
                 } else {
                     $titler_ set-title $title_ $size $name
                 }
             } else {
                 $self title on
             }
         }
     }
 }
 
 IVEVideoAgent instproc reset_spec { dest } {
     $self instvar pipeline_
     puts "reset $dest"
     $self next $dest
     if [info exists pipeline_] {
         $pipeline_ switch_session $self
     }
 }