diff options
author | Mario Sergio Fujikawa Ferreira <lioux@FreeBSD.org> | 2007-04-16 02:20:08 +0000 |
---|---|---|
committer | Mario Sergio Fujikawa Ferreira <lioux@FreeBSD.org> | 2007-04-16 02:20:08 +0000 |
commit | 861217f75897c6f7fb157c299249d6d85499ec37 (patch) | |
tree | 16360ecaa3d0685fafd4afe19222725a68e958fa /net-p2p/mldonkey/files | |
parent | d2c492dfd6e6c38a37defa7e88bb72b5ad9b10f6 (diff) |
o Update to 2.8.3
o Simplify Makefile's port logic
o Do not install rc(8) script if only the graphical user interface
is being installed [1]
PR: 104029 [1]
Submitted by: Marcin Wisnicki <mwisnicki+freebsd@gmail.com> [1]
Notes
Notes:
svn path=/head/; revision=190053
Diffstat (limited to 'net-p2p/mldonkey/files')
3 files changed, 0 insertions, 130 deletions
diff --git a/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyClient.ml b/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyClient.ml deleted file mode 100644 index 036af2d28f33..000000000000 --- a/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyClient.ml +++ /dev/null @@ -1,73 +0,0 @@ ---- ./src/networks/donkey/donkeyClient.ml.orig Sun Nov 26 14:36:06 2006 -+++ ./src/networks/donkey/donkeyClient.ml Sat Feb 10 07:00:40 2007 -@@ -442,15 +442,17 @@ - - let new_chunk up begin_pos end_pos = - if begin_pos <> end_pos then -- let pair = (begin_pos, end_pos) in -- (match up.up_chunks with -- [] -> -+ let chunk = (begin_pos, end_pos) in -+ (* the zone requested is already "in the pipe" *) -+ if not (List.mem chunk up.up_flying_chunks) then -+ match up.up_chunks with -+ | [] -> - up.up_pos <- begin_pos; - up.up_end_chunk <- end_pos; -- up.up_chunks <- [pair]; -- | chunks -> -- if not (List.mem pair chunks) then -- up.up_chunks <- chunks @ [pair]) -+ up.up_chunks <- [chunk]; -+ | up_chunks -> -+ if not (List.mem chunk up_chunks) then -+ up.up_chunks <- up_chunks @ [chunk] - - let identify_client_brand c = - if c.client_brand = Brand_unknown then -@@ -2039,13 +2041,21 @@ - set_rtimeout sock !!upload_timeout; - - let up, waiting = match c.client_upload with -- Some ({ up_file = f } as up) when f == file -> up, up.up_waiting -+ | Some ({ up_file = f } as up) when f == file -> -+ (* zones are received in the order they're sent, so we -+ know that the oldest of the zones "in fly" must have -+ been received when this QueryBlockReq was sent *) -+ (match up.up_flying_chunks with -+ | [] -> () -+ | _ :: q -> up.up_flying_chunks <- q); -+ up, up.up_waiting - | Some old_up -> - { - up_file = file; - up_pos = Int64.zero; - up_end_chunk = Int64.zero; - up_chunks = []; -+ up_flying_chunks = []; - up_waiting = old_up.up_waiting; - }, old_up.up_waiting - | _ -> -@@ -2054,6 +2064,7 @@ - up_pos = Int64.zero; - up_end_chunk = Int64.zero; - up_chunks = []; -+ up_flying_chunks = []; - up_waiting = false; - }, false - in -@@ -2141,12 +2152,12 @@ - let init_client sock c = - set_handler sock WRITE_DONE (fun s -> - match c.client_upload with -- None -> () -- | Some up -> -+ | Some ({ up_chunks = _ :: _ } as up) -> - if not up.up_waiting && !CommonUploads.has_upload = 0 then begin - up.up_waiting <- true; - CommonUploads.ready_for_upload (as_client c) - end -+ | _ -> () - ); - (* - set_handler sock (BASIC_EVENT RTIMEOUT) (fun s -> diff --git a/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyFiles.ml b/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyFiles.ml deleted file mode 100644 index 6b26cf734232..000000000000 --- a/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyFiles.ml +++ /dev/null @@ -1,46 +0,0 @@ ---- ./src/networks/donkey/donkeyFiles.ml.orig Tue Nov 21 20:34:10 2006 -+++ ./src/networks/donkey/donkeyFiles.ml Sat Feb 10 07:00:40 2007 -@@ -123,7 +123,7 @@ - (* lprintf "send_client_block\n"; *) - if per_client > 0 && CommonUploads.can_write_len sock max_msg_size then - match c.client_upload with -- | Some ({ up_chunks = _ :: chunks } as up) -> -+ | Some ({ up_chunks = current_chunk :: chunks } as up) -> - if up.up_file.file_shared = None then begin - (* Is there a message to warn that a file is not shared anymore ? *) - c.client_upload <- None; -@@ -134,16 +134,17 @@ - if max_len <= msg_block_size_int then - (* last block from chunk *) - begin -+ send_small_block c sock up.up_file up.up_pos max_len; - if !verbose_upload then - lprintf_nl "End of chunk (%d) %Ld %s" max_len up.up_end_chunk (file_best_name up.up_file); -- send_small_block c sock up.up_file up.up_pos max_len; -+ up.up_flying_chunks <- up.up_flying_chunks @ [current_chunk]; - up.up_chunks <- chunks; - let per_client = per_client - max_len in - match chunks with -- [] -> -+ | [] -> - if !verbose_upload then -- lprintf_nl "NO CHUNKS"; -- c.client_upload <- None; -+ lprintf_nl "NO MORE CHUNKS"; -+ up.up_waiting <- false; - | (begin_pos, end_pos) :: _ -> - up.up_pos <- begin_pos; - up.up_end_chunk <- end_pos; -@@ -168,10 +169,10 @@ - let size = min max_msg_size size in - send_client_block c sock size; - (match c.client_upload with -- None -> () -- | Some up -> -+ | Some ({ up_chunks = _ :: _ }) -> - if !CommonUploads.has_upload = 0 then - CommonUploads.ready_for_upload (as_client c) -+ | _ -> () - ) - ) - let _ = diff --git a/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyTypes.ml b/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyTypes.ml deleted file mode 100644 index 108ee5e11fab..000000000000 --- a/net-p2p/mldonkey/files/patch-src__networks__donkey__donkeyTypes.ml +++ /dev/null @@ -1,11 +0,0 @@ ---- ./src/networks/donkey/donkeyTypes.ml.orig Sun Nov 26 14:36:06 2006 -+++ ./src/networks/donkey/donkeyTypes.ml Sat Feb 10 07:00:40 2007 -@@ -602,6 +602,8 @@ - mutable up_pos : int64; - mutable up_end_chunk : int64; - mutable up_chunks : (int64 * int64) list; -+ (* zones sent but not yet received by other peer, oldest first *) -+ mutable up_flying_chunks : (int64 * int64) list; - mutable up_waiting : bool; - } - |