Anubis / Xlib

decode_mail.anubis 485 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 
/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 12/07/2017
 * Time: 21:53
 * © David RENÉ
 */

read system/string.anubis

public define String
  folding
  (
    List($T)      mails_list,
    $T -> String  to_str,
  )=
    if mails_list is
    {
      [] then "",
      [h . t] then 
        if t is
        {
          [] then " " + to_str(h),
          [h1 . t1] then " " + to_str(h) + "," + crlf + folding(t, to_str)
        }
    }
  .