ocaml-iteratees / iteratees_http.ml

Diff from to

iteratees_http.ml

    Reading headers and the content from an HTTP-like stream
 *)
 
-type http_line = string  (* The line of text, terminators are not included *)
+type line = string  (* The line of text, terminators are not included *)
 ;
 
 
    ones. It knows nothing about the representation of Iteratees.
 *)
 
-value (http_line : iteratee char ([= `No_term | `Term] * http_line)) =
+value (line : iteratee char ([= `No_term | `Term] * line)) =
   let lf = ['\n'] in
   let crlf = ['\r'; '\n'] in
   let check l ts =
    with non-trivial actions during chunk processing
 *)
 
-value (http_print_lines : iteratee http_line unit) =
+value (print_lines : iteratee line unit) =
   let pr_line l = print_line (">> read line: " ^ l)
   in
   ie_cont step
   match i with
   [ IE_cont None k ->
 let () = dbg "enum_lines: IE_cont\n" in
-      http_line >>= fun line ->
-        match line with
+      line >>= fun term_line ->
+        match term_line with
         [ (`Term, "") ->
 let () = dbg "enum_lines:   empty line\n" in
             return i  (* empty line, normal exit *)
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.