dumbstreaming / dumbstreaming_it.ml

module type IT_TYPE
 =
  sig
  end
;


value read : (ntotal -> npart -> nbytes -> iteratee char 'i)
          -> iteratee 'i 'a
          -> iteratee char 'a
;



module Make (I : IT_TYPE)
 :
  sig
    value read
     : (int -> list (I.iteratees char 'a)) ->
       I.iteratee char (list 'a)
    ;
  end
 =
  struct
  end
;


int_of_string = fold (fun acc char -> 10*acc + char) 0

int_of_string : iteratee char int =
  cont & step 0
  step acc =
    Chunk char -> cont & step &   10*acc + char
    EOF -> return acc


read : (ntotal -> npart -> nbytes -> 'a -> iteratee char 'a)
    -> iteratee char 'a =
  cont & step init_state
  step state =
    Chunk it -> cont & step &   join & take n[i] & it
    EOF -> return state


read : iteratee (ntotal * npart * nbytes) (iteratee char 'a) ->
       iteratee char 'a

 (ntotal -> npart -> nbytes -> 'a -> iteratee char 'a)
    -> iteratee char 'a =



value read : ('a -> iteratee char 'a)
         -> 'a -> iteratee char 'a
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.