helm/DEVEL/pxp/netstring/base64.ml

   1 (* $Id$
   2  * ----------------------------------------------------------------------
   3  *
   4  *)
   5
   6 let encode s = Netencoding.Base64.encode s;;
   7 let url_encode s = Netencoding.Base64.url_encode s;;
   8 let decode s = Netencoding.Base64.decode s;;
   9
  10 (* ======================================================================
  11  * History:
  12  *
  13  * $Log$
  14  * Revision 1.1  2000/11/17 09:57:27  lpadovan
  15  * Initial revision
  16  *
  17  * Revision 1.2  2000/06/25 22:34:43  gerd
  18  *      Added labels to arguments.
  19  *
  20  * Revision 1.1  2000/03/02 01:15:20  gerd
  21  *      Initial revision.
  22  *
  23  *
  24  *)