/* Module EXPOPHOTO version 1.0 february 2004 */
/* part Server, by iri : info@irizone.net */

defcom CgetBmp = getBmp S S S;;
typeof bmps=[[S S S] r1];;
typeof bmpfiles=[S r1];;

fun byalias(x,a)=let x->[n _ _] in !strcmp n a;;

fun activate(from,cli,action,param,rep)=
 if !strcmp action "start" then   
   _DMScreateClientDMI this cli linebuild bmpfiles
 else if !strcmp action "destroy" then
  _DMSdelClientDMI this cli 
 else let search_in_list bmps @byalias action -> [x y r] in
 if x==nil then nil
 else
 (_DMScreateClientDMI this cli nil;
  _DMSsend this cli CgetBmp [x y r]);;
 
fun getbmp(l,x)=
 if strcmp hd l "bmp" then nil
 else let l->[_ [x[y[z _]]]] in
 (
  set bmpfiles=y::bmpfiles;
  set bmps=[x y z]::bmps
 );; 

fun IniDMI(file)=
 _DMSregisterDMI this @activate nil nil nil;
 let strextr _getpack _checkpack file -> l in
 apply_on_list l @getbmp 0;;