From 27c4ba5c1131fdd5b1d50e3b0466cb446d183db9 Mon Sep 17 00:00:00 2001 From: Patrick Ferris Date: Wed, 4 Jun 2025 14:54:50 +0100 Subject: [PATCH] Readd ipv4 get_tos and set_tos --- src/ipv4/ipv4_wire.ml | 5 ++++- src/ipv4/ipv4_wire.mli | 3 +++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ipv4/ipv4_wire.ml b/src/ipv4/ipv4_wire.ml index 495505b85..cbc869c48 100644 --- a/src/ipv4/ipv4_wire.ml +++ b/src/ipv4/ipv4_wire.ml @@ -1,7 +1,7 @@ let sizeof_ipv4 = 20 let hlen_version_off = 0 -let _tos_off = 1 +let tos_off = 1 let len_off = 2 let id_off = 4 let off_off = 6 @@ -14,6 +14,9 @@ let dst_off = 16 let get_hlen_version buf = Cstruct.get_uint8 buf hlen_version_off let set_hlen_version buf v = Cstruct.set_uint8 buf hlen_version_off v +let get_tos buf = Cstruct.get_uint8 buf tos_off +let set_tos buf v = Cstruct.set_uint8 buf tos_off v + let get_len buf = Cstruct.BE.get_uint16 buf len_off let set_len buf v = Cstruct.BE.set_uint16 buf len_off v diff --git a/src/ipv4/ipv4_wire.mli b/src/ipv4/ipv4_wire.mli index df055d7f8..0e29ee50c 100644 --- a/src/ipv4/ipv4_wire.mli +++ b/src/ipv4/ipv4_wire.mli @@ -3,6 +3,9 @@ val sizeof_ipv4 : int val get_hlen_version : Cstruct.t -> int val set_hlen_version : Cstruct.t -> int -> unit +val get_tos : Cstruct.t -> int +val set_tos : Cstruct.t -> int -> unit + val get_len : Cstruct.t -> int val set_len : Cstruct.t -> int -> unit