File: base64.ml

package info (click to toggle)
netstring 0.10.1-3
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,000 kB
  • ctags: 895
  • sloc: ml: 8,389; xml: 416; makefile: 188; sh: 103
file content (21 lines) | stat: -rw-r--r-- 547 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
(* $Id: base64.ml,v 1.2 2000/06/25 22:34:43 gerd Exp $
 * ----------------------------------------------------------------------
 *
 *)

let encode s = Netencoding.Base64.encode s;;
let url_encode s = Netencoding.Base64.url_encode s;;
let decode s = Netencoding.Base64.decode s;;

(* ======================================================================
 * History:
 * 
 * $Log: base64.ml,v $
 * Revision 1.2  2000/06/25 22:34:43  gerd
 * 	Added labels to arguments.
 *
 * Revision 1.1  2000/03/02 01:15:20  gerd
 * 	Initial revision.
 *
 * 
 *)