/* Ignore Editor - DMS - Apr 99 - by Christophe LOREK */
/* rev Apr 00 - by Sebastien DENEUX */

fun load (l) =
 0;;

fun save (filename, n)=
  ("action"::"Start"::"Start"::nil)::
  ("eventC"::"in"::"in"::nil)::
  ("action"::"!changeLogin"::"changeLogin"::nil)::
  ("action"::"hear"::"hear"::nil)::
  ("actionC"::"Show"::"Show"::nil)::
  ("actionC"::"Hide"::"Hide"::nil)::
  ("eventC"::"Shown"::"Shown"::nil)::
  ("eventC"::"Hidden"::"Hidden"::nil)::
  ("eventC"::"IgnoreFlag"::"IgnoreFlag"::nil)::
  ("eventC"::"IgnChgLogin"::"IgnChgLogin"::nil)::
  ("eventC"::"IgnLogout"::"IgnLogout"::nil)::
  ("eventC"::"privateMsg"::"privateMsg"::nil)::
  ("eventC"::"destroyed"::"destroyed"::nil):: 
  ("zoneC"::"IgnoreList"::"IgnoreList"::nil)::
  ("action"::"ignoreBroad"::"ignoreBroad"::nil)::
  ("action"::"unIgnoreBroad"::"unIgnoreBroad"::nil)::

  ("rule"::"1"::"Authentification"::"1"::"loginChanged"::
           "0"::"Ignore"::"1"::"!changeLogin"::nil)::

  ("rule"::"0"::"Ignore"::"1"::"IgnoreFlag"::
           "0"::"C3d3"::"1"::"HAVIgnoreFlag"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnoreFlag"::
           "0"::"Photo3"::"1"::"IgnoreFlag"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnoreFlag"::
           "0"::"Pager"::"1"::"IgnoreFlag"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnoreFlag"::
           "0"::"Speaker2"::"1"::"IgnoreFlag"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnoreFlag"::
           "0"::"Term"::"1"::"IgnoreFlag"::nil)::

  ("rule"::"0"::"Ignore"::"1"::"IgnChgLogin"::
           "0"::"C3d3"::"1"::"HAVIgnChgLogin"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnChgLogin"::
           "0"::"Photo3"::"1"::"IgnChgLogin"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnChgLogin"::
           "0"::"Pager"::"1"::"IgnChgLogin"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnChgLogin"::
           "0"::"Speaker2"::"1"::"IgnChgLogin"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnChgLogin"::
           "0"::"Term"::"1"::"IgnChgLogin"::nil)::

  ("rule"::"0"::"Ignore"::"1"::"IgnLogout"::
           "0"::"C3d3"::"1"::"HAVIgnLogout"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnLogout"::
           "0"::"Photo3"::"1"::"IgnLogout"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnLogout"::
           "0"::"Pager"::"1"::"IgnLogout"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnLogout"::
           "0"::"Speaker2"::"1"::"IgnLogout"::nil)::
  ("rule"::"0"::"Ignore"::"1"::"IgnLogout"::
           "0"::"Term"::"1"::"IgnLogout"::nil)::
           nil;;

fun IniEditor(s)=
  let startEditor 
    _channel nil nil nil 315 0 WN_MENU EDITOR_NORMAL
    s "dms/tools/ignore/ignore.dmc" nil nil
    @load @save nil
  -> ed in
  (
    _CBwinSize getEditWin ed nil 0; 
    if s==nil then nil else openDMI ed
  );
0;;