diff -r -c base64/Makefile base64.modern/Makefile
*** base64/Makefile	Sun Jun 27 20:23:45 1999
--- base64.modern/Makefile	Wed Jan 26 13:18:57 2000
***************
*** 31,38 ****
  # general rules:
  
  OPTIONS   =
! OCAMLC    = ocamlc $(OPTIONS) $(ROPTIONS)
! OCAMLOPT  = ocamlopt $(OPTIONS) $(ROPTIONS)
  OCAMLDEP  = ocamldep $(OPTIONS)
  OCAMLFIND = ocamlfind
  
--- 31,38 ----
  # general rules:
  
  OPTIONS   =
! OCAMLC    = ocamlc -modern $(OPTIONS) $(ROPTIONS)
! OCAMLOPT  = ocamlopt -modern $(OPTIONS) $(ROPTIONS)
  OCAMLDEP  = ocamldep $(OPTIONS)
  OCAMLFIND = ocamlfind
  
Only in base64.modern: base64.cma
Only in base64.modern: base64.cmi
Only in base64.modern: base64.cmo
diff -r -c base64/base64.ml base64.modern/base64.ml
*** base64/base64.ml	Sun Jun 27 20:22:34 1999
--- base64.modern/base64.ml	Wed Jan 26 13:20:13 2000
***************
*** 25,31 ****
    let b64 = b64_pattern plus slash in
    let l_s = String.length s in
    let l_t = if l_s = 0 then 0 else ((l_s - 1) / 3 + 1) * 4 in
!   let t = String.make l_t equal in
    for k = 0 to l_s / 3 - 1 do
      let bits = (Char.code (s.[3*k])   lsl 16) lor
                 (Char.code (s.[3*k+1]) lsl  8) lor
--- 25,31 ----
    let b64 = b64_pattern plus slash in
    let l_s = String.length s in
    let l_t = if l_s = 0 then 0 else ((l_s - 1) / 3 + 1) * 4 in
!   let t = String.make len: l_t equal in
    for k = 0 to l_s / 3 - 1 do
      let bits = (Char.code (s.[3*k])   lsl 16) lor
                 (Char.code (s.[3*k+1]) lsl  8) lor
***************
*** 68,83 ****
      failwith "Base64.decode";
    let pad_chars =
      if l_t > 0 then begin
!       if String.sub t (l_t - 2) 2 = "==" or String.sub t (l_t - 2) 2 = ".." then
  	2
!       else if String.sub t (l_t - 1) 1 = "=" or String.sub t (l_t - 1) 1 = "." then
  	1
        else
  	0
      end
      else 0 in
    let l_s = (l_t / 4) * 3 - pad_chars in       (* sic! *)
!   let s = String.create l_s in
    let b' c =
      match c with
        'A' .. 'Z'  -> Char.code(c) - 65     (* 65 = Char.code 'A' *)
--- 68,83 ----
      failwith "Base64.decode";
    let pad_chars =
      if l_t > 0 then begin
!       if String.sub pos: (l_t - 2) len: 2 t = "==" or String.sub pos: (l_t - 2) len: 2 t = ".." then
  	2
!       else if String.sub pos: (l_t - 1) len: 1 t = "=" or String.sub pos: (l_t - 1) len: 1 t = "." then
  	1
        else
  	0
      end
      else 0 in
    let l_s = (l_t / 4) * 3 - pad_chars in       (* sic! *)
!   let s = String.create len: l_s in
    let b' c =
      match c with
        'A' .. 'Z'  -> Char.code(c) - 65     (* 65 = Char.code 'A' *)
Only in base64.modern: depend
Only in base64.modern: depend.pkg