Commits

Anonymous committed b0f11ae

.

Comments (0)

Files changed (1)

dumbstreaming_it.ml

 ;
 
 
-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)
+    value read : (ntotal -> npart -> nbytes -> iteratee char 'i)
+              -> iteratee 'i 'a
+              -> iteratee char '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