Anonymous avatar Anonymous committed 7413fe3

variable length - procol ... hoeg asdfasd;; ;;

Comments (0)

Files changed (1)

   let rec my_read_ sock buf start remain = 
     let len = recv sock buf start remain [MSG_PEEK] in
       begin match remain with 
-	| 0 -> buf ;
+	| 0 -> (start+len, buf) ;
 	| r -> my_read_ sock buf (start+len) (r-len);
-  let my_read sock = 
-    let buf = String.create 256 in
-      my_read_ sock buf 0 256 
+  let my_read sock len = 
+    let buf = String.create len in
+      my_read_ sock buf 0 len 
-  let buffer = my_read csock in
-    prerr_endline ((string_of_int (String.length buffer)) ^ " bytes recv'd");
+  let (len, buffer) = my_read csock 1024 in
+    prerr_endline ((string_of_int len) ^ " bytes recv'd");
     prerr_endline buffer;
     close csock;
     prerr_endline "----------------" in
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
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.