This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- a/src/tcp/window.ml | |
+++ b/src/tcp/window.ml | |
@@ -61,11 +61,11 @@ let count_ackd_segs = MProf.Counter.make ~name:"tcp-ackd-segs" | |
(* To string for debugging *) | |
let pp fmt t = | |
Format.fprintf fmt | |
- "Window: rx_nxt=%a rx_nxt_inseq=%a tx_nxt=%a rx_wnd=%lu tx_wnd=%lu snd_una=%a backoffs=%d rto=%Lu" | |
+ "Window: rx_nxt=%a rx_nxt_inseq=%a tx_nxt=%a rx_wnd=%lu tx_wnd=%lu cwnd=%lu snd_una=%a backoffs=%d rto=%Lu" | |
Sequence.pp t.rx_nxt |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
* Compile with | |
ocamlfind ocamlopt -package cryptokit,tcpip.tcp,lwt.ppx,mirage-clock-unix,mirage-vnetif,mirage-net-lwt,tcpip.ethif,tcpip.arpv4,tcpip.icmpv4,tcpip.ipv4,tcpip.stack-direct,logs,lwt.unix,logs.fmt,io-page.unix -thread -o tcpip_bug tcpip_bug.ml -linkpkg | |
* *) | |
open Lwt.Infix | |
let mtu = 4000 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
COUNTRIES_WITHOUT_POSTCODES = [ | |
[ "Angola", "AO" ], | |
[ "Antigua and Barbuda", "AG" ], | |
[ "Aruba", "AW" ], | |
[ "Bahamas", "BS" ], | |
[ "Belize", "BZ" ], | |
[ "Benin", "BJ" ], | |
[ "Botswana", "BW" ], | |
[ "Burkina Faso", "BF" ], | |
[ "Burundi", "BI" ], |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* | |
* ocamlfind ocamlc -package lwt,lwt.unix -o region region.ml -linkpkg | |
* *) | |
module Region : sig | |
type t | |
val make : int -> t | |
val resize : t -> int -> unit | |
val enter : t -> int -> (unit -> 'a Lwt.t) -> 'a Lwt.t | |
val enter_p : t -> int -> (unit -> unit Lwt.t) -> unit Lwt.t |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
open Lwt | |
include Inotify | |
let section = Lwt_log.Section.make "inotify_lwt" | |
external struct_size : unit -> int = "stub_inotify_struct_size" | |
external convert : string -> (wd * type_event list * int32 * int) | |
= "stub_inotify_convert" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
exception Error of string * int | |
type select_event = | |
Inotify.select_event = | |
S_Access | |
| S_Attrib | |
| S_Close_write | |
| S_Close_nowrite | |
| S_Create | |
| S_Delete |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/triangle.ml b/triangle.ml | |
index ba35331..8323f1d 100644 | |
--- a/triangle.ml | |
+++ b/triangle.ml | |
@@ -33,10 +33,8 @@ let tolerance_k = 1.0 /. 1024.0 ;; | |
*) | |
type t = { | |
vertexs_m : vT array; | |
+ vectors_c : vT array; | |
edge0 : vT; edge1 : vT; edge3 : vT; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module ReloadPage_ = struct | |
open XHTML.M | |
open Xhtmltypes | |
open Ocsigen_http_frame | |
open Eliom_services | |
type page = exn list | |
type options = [ `HTTP11 | `OldCompat ] | |