Callback Signature List

List of all callback defined by rbmkkernel

The callback have to be a Ruby proc or method …

Callback signature

  callback-args := typeName:MK_STRN[in], typeHdl:MK_HDL[in], objHdl:MK_HDL[in]
  [static]   def callback ( callback-args )
  [instance] class YYY
               def callback ( callback-args )
  [class]    class ZZZ 
               def self.callback ( callback-args )

Read more about how to define a service-callback in theLink .

Callback example

RPC server

Example about the delete-callback-setup from the RPC server example/rb/LibSq3LiteRpcServer.rb

ServerSetup : The DeleteCallback is usually installed in the Setup-Callback but only once.

    if ConfigGetIsParent()
      LibSq3LiteRpcServer.DeleteCallbackSetup("LibSq3LiteRpcServer",method(:ObjectDeleteCall),"^Sq3")
    end

The DeleteCallback is called before the deletion. In the RPC example, the RPC client is informed about the impending deletion.

  def ObjectDeleteCall(typeName,typeHdl,objHdl)
    Send("E", "%DEL:CHH", typeName, typeHdl, objHdl)
  end

ServerCleanup : If the RPC server is deleted, the DeleteCallback is no longer needed and is therefore also deleted.

    if ConfigGetIsParent()
      LibSq3LiteRpcServer.DeleteCallbackCleanup("LibSq3LiteRpcServer")
    end

RPC client

Example about the delete-callback-setup from the RPC client example/tcl/LibSq3LiteRpcClient.tcl

Constructor: Add the DeleteCallback-Service if not already available :

oo::define Sq3LiteRpc constructor { rpcHdl args} {
  next $rpcHdl {*}$args

  # only use "DeleteCallback" on the initial (Parent) context
  set parentRpc         [$rpcHdl LinkGetParent]

  # add service "%DEL" as static-callback "Sq3LiteDestructor"
  $parentRpc ServiceCreate "%DEL" [list Sq3LiteRpc Sq3LiteDestructor $rpcHdl]
}

DeleteCallback: If the objHdl is still available delete the obj :

oo::define Sq3LiteRpc self method Sq3LiteDestructor {parentRpc childRpc} {
  set typName [$parentRpc ReadSTR]
  set typHdl  [$parentRpc ReadHDL]
  set objHdl  [$parentRpc ReadHDL]

  # type=MyClassS -> rpc=MyClassRpc
  set classRpc  [string replace $typName end end Rpc]

  # hdl=objHdl -> obj
  set obj   [$childRpc CacheLookup $classRpc $objHdl]

  # is "obj" already deleted ?
  if {$obj eq "MK_NULL"} return

  # now delete "obj"
  try {
    # the "objHdl" is already deleted on server, avoid resent 
    $obj hdl 0
    $obj destroy
  } on error {} {
    [$parentRpc ErrorCatch] Println
  }
}
oo::define Sq3LiteRpc export Sq3LiteDestructor

Global MkObjectDeleteCallbackSetup_RT (MK_RT mkrt, MK_STRN ident, MkObjectDeleteCallF fCall, MK_CBP callback, MkObjectDeleteFreeF fFree, MK_STRN filter)

MkObjectDeleteCallbackSetup