/** createurs de regles, par wizard **/  
fun PPCmakeCard (ppc, ed, card)=
  let WZDread ed ".Card.name" -> name in
    PPCaddOp ppc OP_RENAME "#SiteName" name ;
  let WZDread ed ".Card.author" -> author in PPCaddOp ppc OP_RENAME "#SiteAuthor" author ;
  let WZDread ed ".Card.email" -> email in PPCaddOp ppc OP_RENAME "#SiteEmail" email ;
  let WZDread ed ".Card.msg" -> msg in PPCaddOp ppc OP_RENAME "#SiteMsg"  msg ;
  let WZDread ed ".Card.image" -> bmp in PPCaddOp ppc OP_RENAME "#SiteBitmap" bmp ;
  let WZDread ed ".Card.passregister" -> pwd in 
    PPCaddOp ppc OP_XWORD "&Password_Site" if pwd == nil then nil else strcat "password " pwd ; 
  PPCaddOp ppc OP_RENAME "#SiteDirectory" "dir.scol-technologies.org:3102" ;
  PPCaddOp ppc OP_RENAME "#SiteRegister" "";
  ppc ;;


fun PPCmakeCardList(l)= 
  if l == nil 
  then 
    nil 
  else 
    let l -> [ name [ author [ email next ]]] in
    let strbuild (author::name::email::nil)::nil -> sline in
      ("favorite"::(substr sline 0 (strlen sline)-1)::nil)::PPCmakeCardList next ;;


fun PPCmakeLinks (ppc, ed, finish)=
  let
    strbuild 
      ("reg"::(WZDread ed ".Card.register")::nil)::
      PPCmakeCardList hd strextr WZDread ed ".Links.cards" 
  -> u in
    PPCaddOp ppc OP_XLINE "%Favorite_list" u ;
  ppc ;;