Open Mash Cross Reference
mash/tcl/indiva/imgr/imgr-servent.tcl

   # imgr-service.tcl --
   #
   #   An encapsulation of a remote service.
   #
   # 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/imgr/imgr-servent.tcl,v 1.1 2002/07/22 21:14:57 weitsang Exp $
  
  #--------------------------------------------------------------------------
  # Class:
  #   IMgrServent
  #
  # Description:
  #   IMgrServent encapsulates a service inside Indiva Domain.  Each 
  #   IMgrServent is uniquely identified by a $service_instance, contains
  #   an RPC socket to the remote service, a MashRemoteObject to 
  #   remote service, and an ASCP object that runs ASCP protocol between
  #   imgr and the service.
  #
  #   IMgr objects are created during service registration and is deleted
  #   when service is deregistered.
  #
  #  Members:
  #    rpc_  -- RPC socket to service.
  #    ctrl_ -- MashRemoteObject of a remote service object (instance of
  #             a IndivaServent subclass.)
  #    ascp_ -- instance of IMgrASCP subclass, responsible for running
  #             ASCP protocol.  Restarts service when timeout occurs.
  #--------------------------------------------------------------------------
  import MashRemoteObject
  
  Class IMgrServent
  
  IMgrServent public init {si sock app} {
      $self set rpc_ $sock
      $self set id_  $si
      $self set app_ $app
  
      # Servents usually register themselves before create a service object.
      # Therefore, at this point, they probably do not have a service object
      # yet.  We cannot RMI get_service here. 
      $self set ctrl_ ""
  }
  
  IMgrServent public destroy {} {
      $self instvar ctrl_ 
      if {$ctrl_ != ""} {
          delete $ctrl_
      }
  }
  
  IMgrServent public socket {} {
      return [$self set rpc_]
  }
  
  IMgrServent public instance {} {
      return [$self set id_]
  }
  
  IMgrServent public control {} {
      MashLog warn "$class $proc deprecated"
      uplevel {MashLog warn "called from $class $proc"}
      $self instvar ctrl_ rpc_ id_ app_
      if {$ctrl_ == ""} {
          set ctrl_ [new MashRemoteObject $rpc_ eval $app_ get_service $id_]
      }
      return $ctrl_
  }
  
  IMgrServent public create_service {} {
      $self instvar rpc_ id_ app_ services_
      set service [new MashRemoteObject $rpc_ eval $app_ new_service]
      lappend services_ $service
      return $service
  }
 
 IMgrServent public delete_service {service} {
     $self instvar services_
     set pos [lsearch $services_ $service]
     if {$pos != -1} {
         set services_ [lreplace $services_ $pos $pos]
     }
 }
 
 
 IMgrServent public num_of_services {} {
     $self instvar services_
     return [llength $services_]
 }
 
 IMgrServent public ascp {args} {
     if {$args == ""} {
         return [$self set ascp_]
     } else {
         $self set ascp_ $args
     }
 }
 
 IMgrServent public is_alive {} {
     $self instvar rpc_
     if {[catch {eof $rpc_} err]} {
         MashLog warn "socket to remote service is dead: $err"
         return 0
     } else {
         return 1
     }
 }