From 944b9918e7087e0916401ff4270b99aaef9e676f Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sun, 18 May 2008 19:03:22 +0000 Subject: [PATCH] Fix this example so it now works. --- examples/make_ipv4_header.ml | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/examples/make_ipv4_header.ml b/examples/make_ipv4_header.ml index 329ccd3..a40f0d2 100644 --- a/examples/make_ipv4_header.ml +++ b/examples/make_ipv4_header.ml @@ -14,8 +14,8 @@ let fragoffset = 0 let ttl = 255 let protocol = 17 (* UDP *) let checksum = 0 -let source = 0xc0a80202 (* 192.168.2.2 *) -let dest = 0xc0a80201 (* 192.168.2.1 *) +let source = 0xc0a80202_l (* 192.168.2.2 *) +let dest = 0xc0a80201_l (* 192.168.2.1 *) let options = Bitmatch.empty_bitstring let payload_length = (length - hdrlen*4) * 8 let payload = Bitmatch.create_bitstring payload_length @@ -26,9 +26,12 @@ let header = identification : 16; flags : 3; fragoffset : 13; ttl : 8; protocol : 8; checksum : 16; source : 32; - dest : 32; - options : -1, bitstring; - payload : payload_length, bitstring + dest : 32 +(* + Not implemented at the moment XXX + options : -1 : bitstring; + payload : payload_length : bitstring +*) } -let () = Bitmatch.file_of_bitstring header "ipv4_header_out.dat" +let () = Bitmatch.bitstring_to_file header "ipv4_header_out.dat" -- 1.8.3.1