/* Plugin C3D : Msg3d - part Server */
/* author : iri - http://www.irizone.net - april 2004 */

typeof class = S;;

/* o    -> struct Ob
   from -> DMI        emetteur
   cli  -> CLIENT
   action -> S
   param  -> S
   reply  -> S */
/* callback plugin (actions) */
fun activate(o, from, cli, action, param, reply)=
  if !strcmp action (strcat class ".broad") then
    (UsendMessage ObUi o nil "display" param;
     0)
  else if !strcmp action (strcat class ".private") then
    (UsendMessage ObUi o cli "display" param;
     0)
  else
    nil;;

/* communications intramodules */
/* ui     -> UserI
   cli    -> CLIENT
   action -> S
   param  -> S
   p      -> n/d */
fun newOb(o)=
  ObRegisterAction o (strcat class ".broad") @activate;
  ObRegisterAction o (strcat class ".private") @activate;
  0;;

/* file -> S */
fun IniPlug(file)=
 set class = getInfo strextr _getpack _checkpack file "name";
 PlugRegister class @newOb nil;
 0
;;