Open Mash Cross Reference
mash/tcl/degas/degasserver/tcp-server-degascontrol.tcl

   import TCP
   import TCP/Server
   
   Class TCP/DegasControl -superclass TCP
   
   TCP/DegasControl public init {server host port aglp} {
   
   #   agent_ is the DegasAgent object that control the degas service.

   #   it has to support all callbacks and a "stop_service" method.

  
      $self instvar server_ host_ port_ aglp_ 
      set server_ $server
          set host_ $host
          set port_ $port
          set aglp_ $aglp
      $self next
  }
  
  TCP/DegasControl public close {} {
      $self instvar server_
      $server_ close_channel
      $self next
  }
  
  TCP/DegasControl public recv {s} {
      $self [lindex $s 0]_callback [lrange $s 1 end]
  }
  
  TCP/DegasControl private deglet_callback {argv} {
          $self instvar aglp_ host_ port_
          set pid [lindex $argv 0]
          set recv_session_spec [lindex $argv 1]
          set argv [lrange $argv 2 end]
          regsub -all "::" $argv "\n" prog
          $aglp_ parse_program $host_ $pid $prog
          $aglp_ start_service $host_ $pid $recv_session_spec
  }
  
  
  TCP/DegasControl private get_callback {argv} {
          scan $argv "%s %d" client_addr pid
          $self instvar aglp_
          set program [$aglp_ get_program $client_addr $pid]
          regsub -all "\n" $program "::" prog
          $self send "handoff $client_addr $pid $prog\n"
  }
  
  
  TCP/DegasControl private mouse_click_callback {argv} {
      $self instvar server_
          set agent [$server_ set agent_]
      set x [lindex $argv 0]
      set y [lindex $argv 1]
      $agent mouse_click_callback $x $y
  }
  
  Class TCP/Server/DegasControl -superclass TCP/Server
  
  TCP/Server/DegasControl public init { aglp } {
  
      $self instvar num_of_channel_ aglp_ 
      set num_of_channel_ 0
          set aglp_ $aglp
          $self set agent_ { }
      $self next 
  }
  
  TCP/Server/DegasControl public accept {chan host port} {
          $self create_channel $chan $host $port
  }
  
  TCP/Server/DegasControl public create_channel {chan host port} {
      $self instvar num_of_channel_ aglp_ agent_
      set tcp [new TCP/DegasControl $self $host $port $aglp_]
      $tcp open $chan
      incr num_of_channel_
      return $tcp
  }
  
  TCP/Server/DegasControl public close_channel {} {
      $self instvar num_of_channel_
      incr num_of_channel_ -1
  }
  
  TCP/Server/DegasControl public close {} {
      $self next 
  }