/pliant/util/encoding/qp.pli
 
 1  abstract 
 2    [Mail protocol quoted-printable encoding/decoding] 
 3   
 4  module "/pliant/language/unsafe.pli" 
 5  module "general.pli" 
 6   
 7  gvar (Array uInt8 256) qp_code := general_code "_./" 
 8   
 9  function qp_encode clear -> encoded 
 10    arg Str clear encoded 
 11    encoded := general_encode clear "=":number qp_code 
 12   
 13  function qp_decode encoded -> ascii 
 14    arg Str encoded ascii 
 15    ascii := general_decode encoded "=":number 
 16   
 17  export qp_encode qp_decode