Open Mash Cross Reference
mash/tcl/indiva/lib/active-service-application.tcl

   import Application
   import ASCP/Service
   #------------------------------------------------------------------
   # Class:
   #   ActiveServiceApplication
   # Description:
   #   Base application class for Active Service application.  Defines
   #   options and default arguments for active service.
   #------------------------------------------------------------------
  Class ActiveServiceApplication -superclass Application
  
  ActiveServiceApplication instproc init { argv name } {
      $self next $argv
  
      set o [$self options]
  
      $self init_as_resources $o
      $self init_as_args $o
      $o parse_args $argv
  
      # Run ASCP Protocol, unless user specified "-as_service no"
      $self instvar ascp_
      set service_id [$self get_option sid] 
      set as_service [$self get_option as_service]
      if {$as_service == "yes" && $service_id != ""} {
          set as_bw      [$self get_option as_bw]
          set as_spec    [$self get_option as_spec]
          set ascp_($service_id) [new ASCP/Service $as_spec $as_bw $service_id]
      }
  
  }
  
  ActiveServiceApplication instproc init_as_args {o} {
      $o register_option "-as_service" "as_service"
      $o register_option "-as_spec" "as_spec"
      $o register_option "-as_bw" "as_bw"
      $o register_option "-sid" "sid"
  
  }
  
  
  ActiveServiceApplication instproc init_as_resources {o} {
      $o add_default "as_service" "yes"
      $o add_default "as_spec" 224.4.5.24/50000/1
      $o add_default "as_bw" 50000
      $o add_default "sid"  ""
  }