Commits

Anonymous committed 7413fe3

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

  • Participants
  • Parent commits 5a148d9

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);
       end;
   in
-  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 
   in
-  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