/* iriTerm Server ** ver. 1.0 ** nov. 02 */
/* by iri ** iri@fr.st */
/* revised by iri ** ver 1.1 ** dec.02 */

typeof initTxt=S;;

fun activate(from,cli,action,param,rep)=
if !strcmp action "show"
then
    if _DMScreateClientDMI this cli initTxt
    then _DMSevent this cli "started" nil nil
    else nil
else
if !strcmp action "destroy"
    then _DMSdelClientDMI this cli
    else 0;;
   
fun IniDMI(file)=
  _DMSregisterDMI this @activate nil nil nil;
  let strextr _getpack _checkpack file -> l in
  set initTxt = let getInfo l "txt" -> s in if s==nil then "" else s;;