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

   import Dp
   import Application
   import MashRemoteObject 
   Class IndivaClientApplication -superclass Application
   
   IndivaClientApplication instproc init { argv name } {
       set o [$self options]
       $self init_resources $o
       $self init_args $o
  
      $o register_option "-imgr" "imgr"
      $o add_default     "imgr"  ""
  
      $self set argv_ [$o parse_args $argv]
  
      # 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]
      } elseif {[info exists ::env(INDIVA_MANAGER)]} {
          set list [split $::env(INDIVA_MANAGER) :]
          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_ ""
      } else {
          # Create a remote IndivaManager object.
          $self set manager_ [new MashRemoteObject $imgr_rpc_ new IndivaManager]
      }
  
      $self next $name
  }