scripts/servermodule.itcl

   1 # vim: foldmarker=<<<,>>>
   2
   3 class tlc::Servermodule {
   4         constructor {serverobj tag} {}
   5         destructor {}
   6
   7         protected {
   8                 variable currentconobj
   9         }
  10
  11         private {
  12                 variable mytag
  13
  14                 method handle_msg {conobj subcmd id msg}
  15         }
  16 }
  17
  18
  19 body tlc::Servermodule::constructor {serverobj tag} { #<<<1
  20         set mytag       $tag
  21         $serverobj register_handler $tag [code $this handle_msg]
  22 }
  23
  24
  25 body tlc::Servermodule::destructor {} { #<<<1
  26         $serverobj deregister_handler $tag [code $this handle_msg]
  27 }
  28
  29
  30 body tlc::Servermodule::handle_msg {conobj subcmd id msg} { #<<<1
  31         set currentconobj       $conobj
  32         set dat [eval $this [list $subcmd $msg]]
  33         $conobj send 1 $id $dat
  34 }
  35
  36