/* <Scol Technologies License> */
/* Copyright (c) 2003, organization : Scol Technologies Association, owner : Sylvain Huet */
/* For conditions of distribution and use, see copyright notice in dms/l/license.txt */
/* or on 'www.scol-technologies.org' */

/* sDHDMS - mar 00 - by Sylvain HUET */
/* http client filter */

typeof p=CLIENT;;
fun _contact()= set p=_COMlogon 1;;
fun __lang(l)=_COMlang p l;;
fun __enter(i,n,name,x,s)=_COMenter p i n name x s;;
fun __send(dst,c)=_MODreceive p dst c;;
fun __ping()=set p.timeoutCLI=1;;
fun __event(i,ev,param,reply,ulist,tag)=_MODreceiveEvent p i ev param reply ulist tag;;
fun _closed()= COMlogout p "main socket";;
fun __cliDel(i)=_MODclientDel p i;;
fun __sendUI(dst,id,ac,pr)=Ureceive p dst id ac pr;;
fun __deltag(i)=_clideltag p i;;
fun __firetag(i,param,ulist)=_clifiretag p i param ulist;;
fun __hook(from,i,act,n)=_MODhook p from i act n;;