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

   import Dp
   import ActiveServiceApplication 
   import Application
   import ASCP/Service
   import MashRemoteObject 
   Class IndivaServiceApplication -superclass ActiveServiceApplication
   
   IndivaServiceApplication instproc init { argv name } {
       set o [$self options]
      $o register_option "-imgr" "imgr"
      $o add_default     "imgr"  ""
  
      $self next $argv $name
  
      # Open RPC Connection to Indiva Manager
      $self instvar imgr_rpc_
      if {[$self get_option imgr] != ""} {
          set list [split [$self get_option imgr] :]
          set host [lindex $list 0]
          set port [lindex $list 1]
          if {[catch {dp_MakeRPCClient $host $port} imgr_rpc_]} {
              puts "WARNING: unable to connect to indiva manager at $host:$port"
              puts "$imgr_rpc_"
              set imgr_rpc_ ""
          }
          # Create a remote IndivaManager object.
          $self instvar manager_
          set manager_ [new MashRemoteObject $imgr_rpc_ new IndivaManager]
          set sid [$self get_option sid]
          $manager_ servent register $sid $self
  
          $self instvar ascp_
          if [info exists ascp_($sid)] {
              $ascp_($sid) on_exit "catch {$manager_ servent unregister $sid}"
              #$ascp_($sid) on_exit {catch {delete [$self get_service $sid]}}
          }
      }
  }
  
  IndivaServiceApplication instproc new_service { service_instance } {
      # Subclass must create service and returned.
      return ""
  }
  
  IndivaServiceApplication instproc get_service { service_instance } {
      # Subclass must return service.
      return ""
  }
  
  IndivaServiceApplication instproc on_exit { cb } {
      $self instvar ascp_
      if [info exists ascp_([$self get_option sid])] {
          $ascp_([$self get_option sid]) on_exit $cb
      }
  }