/[mldonkey]/mldonkey/src/networks/fasttrack/fasttrack.ml
ViewVC logotype

Diff of /mldonkey/src/networks/fasttrack/fasttrack.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by mldonkey, Mon May 3 08:22:25 2004 UTC revision 1.5 by spiralvoice, Sun Aug 7 12:57:22 2005 UTC
# Line 18  Line 18 
18  *)  *)
19    
20  (*  (*
21     This code is translated mainly from Markus Kern work on giFT-Fasttrack     This code is translated mainly from Markus Kern work on giFT-Fasttrack
22  *)  *)
23    
24  open Queues  open Queues
# Line 44  open FasttrackComplexOptions Line 44  open FasttrackComplexOptions
44    
45  open FasttrackProto  open FasttrackProto
46  (*  (*
47      
48  let send_query ss =  let send_query ss =
49    let f s =    let f s =
50      server_send_query s ss in      server_send_query s ss in
# Line 55  let send_query ss = Line 55  let send_query ss =
55  let udp_handler ip port buf =  let udp_handler ip port buf =
56    FasttrackHandler.udp_packet_handler ip port    FasttrackHandler.udp_packet_handler ip port
57    (FasttrackProto.parse_udp_packet  ip  port buf)    (FasttrackProto.parse_udp_packet  ip  port buf)
58  *)        *)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26