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 |
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 |
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 |
*) |
*) |