(* $Id: netaccel.ml 798 2004-07-08 22:11:07Z stolpmann $ *)

external int_blit
  : int array -> int -> int array -> int -> int -> unit
  = "netstring_int_blit_ml" ;;

external int_series
  : int array -> int -> int array -> int -> int -> int -> unit
  = "netstring_int_series_byte"  "netstring_int_series_ml";;


external read_iso88591 
  : int -> Netconversion.encoding -> int array -> int array -> string -> int -> int -> 
    (int*int*Netconversion.encoding)
  = "netstring_read_iso88591_byte" "netstring_read_iso88591_ml" ;;

external read_utf8
  : bool -> int array -> int array -> string -> int -> int -> 
    (int*int*Netconversion.encoding)
  = "netstring_read_utf8_byte" "netstring_read_utf8_ml" ;;

let init() =
  Netaux.ArrayAux.int_blit_ref := int_blit;
  Netaux.ArrayAux.int_series_ref := int_series;
  Netconversion.read_iso88591_ref := read_iso88591;
  Netconversion.read_utf8_ref := read_utf8;;