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

   # ive-application.tcl --
   #
   #   Application class 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-application.tcl,v 1.5 2002/07/18 23:06:37 weitsang Exp $
  
  import IndivaServiceApplication
  import IVEVideoAgent
  import IVEService
  
  Class IVEApplication -superclass IndivaServiceApplication
  
  #---------------------------------------------------------------------
  # Class:
  #   IVEApplication init
  # Description:
  #   Initialize the IVE application by creating a video agent and a 
  #   indiva service.
  #---------------------------------------------------------------------
  # There are two ways ive can be executed.  It can either run and transmit
  # immediately (if "-transmit 1" is given) or run and wait for "start"
  # RPC call.  In either case, we create an IVEVideoAgent and an
  # IVEService. If we want to transmit immediately, we call the "start"
  # RPC call on IVEService ourselves.  Note that we passed in $dest and 
  # $fmt twice, first into IVEVideoAgent, then override it in IVEService.  
  # This is because the way VideoAgent's and VideoPipeline's API are designed.  
  # You cannot create new agent without address and cannot open device 
  # without format.
  #
  IVEApplication instproc init { argv } {
      set o [$self options]
      $self init_args $o
      $self init_resources $o
      $self next $argv "ive"
      
      set dest [$self get_option dest]
      set dev  [$self get_option device]
      set port [$self get_option port]
      set fmt  [$self get_option format]
  
      $self instvar agent_ 
      set agent_ [new IVEVideoAgent $self $dest $dev $port $fmt]
  
      if {[$self get_option transmit]} {
          set service [$self new_service]
          set norm [$self get_option norm]
          set q    [$self get_option q]
          set fps  [$self get_option fps]
          set bps  [$self get_option bps]
          $service start $dest $fmt $norm $q $fps $bps
      }
  
      $self on_exit "$agent_ shutdown"
  }
  
  IVEApplication instproc init_args { o } {
      $o add_default dest "224.4.4.4/4444"
      $o add_default format "h261"
      $o add_default size "qcif"
      $o add_default quality "80"
      $o add_default bps "128000"
      $o add_default fps "15"
      $o add_default device ""  
      $o add_default port ""
      $o add_default norm "ntsc"
      $o add_default transmit ""
      $o add_default cname "ive:[pid]@[info hostname]"
      $o add_default rtpName "Indiva Video Encoder"
      $o add_default rtpEmail "indiva@[info hostname]"
  }
  
  IVEApplication instproc init_resources { o } {
      $o register_option -dest dest
     $o register_option -fmt  format
     $o register_option -size size
     $o register_option -q    quality
     $o register_option -bps  bps
     $o register_option -fps  fps
     $o register_option -dev  device
     $o register_option -port port
     $o register_option -norm norm
     $o register_option -transmit transmit
     $o register_option -rtpname rtpName
     $o register_option -rtpemail rtpEmail
 }
 
 
 IVEApplication instproc new_service {} {
     $self instvar service_ manager_ agent_
     if {[info exists manager_]} {
         set s [new IVEService $agent_ $manager_]
     } else {
         set s [new IVEService $agent_ ""]
     }
     set service_([$s service_id]) $s
     return $s
 }
 
 
 IVEApplication instproc get_service {agent_id} {
     $self instvar service_
     if [info exists service_($agent_id)] {
         return $service_($agent_id)
     } else {
         return ""
     }
 }