3 people like it.

Hexdump (2)

A different, sketchy attempt at hexdump.

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31: 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41: 
42: 
43: 
44: 
45: 
46: 
47: 
48: 
49: 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
60: 
61: 
let hexdump (bytes: byte[]) =

   let blockToHex (block: seq<byte>) = 
      let len = block |> Seq.length
      let s = seq {
         for i in 0..15 do
            let space = if (i+1) % 4 = 0 then "  " else " "
            let value = 
               if i < len then
                  sprintf "%02x%s" (Seq.nth i block) space
               else
                  sprintf "--%s" space
            yield value
      }
      s |> Seq.reduce (+)

   let blockToString (block: seq<byte>) = 
      let safeChars block = 
         block
         |> Seq.map (fun b -> if b < 32uy || b >= 127uy then byte('?') else b)

      sprintf "|%s|" (System.String(block |> safeChars |> Seq.map char |> Array.ofSeq))

   bytes
   |> Seq.ofArray
   |> Seq.mapi (fun i x -> (i, x))
   |> Seq.groupBy (fun (i, x) -> i / 16)
   |> Seq.map (fun (i, block) -> i, (block |> Seq.map snd))
   |> Seq.iter (fun (i, block) -> printf "%08x  " (i*16)
                                  printf "%s" (blockToHex block)
                                  printf " %s" (blockToString block)
                                  printfn "")

let test() = 
   let input =  [|0uy..255uy|] 
   hexdump input

// 00000000  00 01 02 03  04 05 06 07  08 09 0a 0b  0c 0d 0e 0f   |????????????????|
// 00000010  10 11 12 13  14 15 16 17  18 19 1a 1b  1c 1d 1e 1f   |????????????????|
// 00000020  20 21 22 23  24 25 26 27  28 29 2a 2b  2c 2d 2e 2f   | !"#$%&'()*+,-./|
// 00000030  30 31 32 33  34 35 36 37  38 39 3a 3b  3c 3d 3e 3f   |0123456789:;<=>?|
// 00000040  40 41 42 43  44 45 46 47  48 49 4a 4b  4c 4d 4e 4f   |@ABCDEFGHIJKLMNO|
// 00000050  50 51 52 53  54 55 56 57  58 59 5a 5b  5c 5d 5e 5f   |PQRSTUVWXYZ[\]^_|
// 00000060  60 61 62 63  64 65 66 67  68 69 6a 6b  6c 6d 6e 6f   |`abcdefghijklmno|
// 00000070  70 71 72 73  74 75 76 77  78 79 7a 7b  7c 7d 7e 7f   |pqrstuvwxyz{|}~?|
// 00000080  80 81 82 83  84 85 86 87  88 89 8a 8b  8c 8d 8e 8f   |????????????????|
// 00000090  90 91 92 93  94 95 96 97  98 99 9a 9b  9c 9d 9e 9f   |????????????????|
// 000000a0  a0 a1 a2 a3  a4 a5 a6 a7  a8 a9 aa ab  ac ad ae af   |????????????????|
// 000000b0  b0 b1 b2 b3  b4 b5 b6 b7  b8 b9 ba bb  bc bd be bf   |????????????????|
// 000000c0  c0 c1 c2 c3  c4 c5 c6 c7  c8 c9 ca cb  cc cd ce cf   |????????????????|
// 000000d0  d0 d1 d2 d3  d4 d5 d6 d7  d8 d9 da db  dc dd de df   |????????????????|
// 000000e0  e0 e1 e2 e3  e4 e5 e6 e7  e8 e9 ea eb  ec ed ee ef   |????????????????|
// 000000f0  f0 f1 f2 f3  f4 f5 f6 f7  f8 f9 fa fb  fc fd fe ff   |????????????????|

let test2() = 
   let input = "The quick brown fox jumps over a lazy dog.".ToCharArray() |> Array.map byte
   hexdump input

// 00000000  54 68 65 20  71 75 69 63  6b 20 62 72  6f 77 6e 20   |The quick brown |
// 00000010  66 6f 78 20  6a 75 6d 70  73 20 6f 76  65 72 20 61   |fox jumps over a|
// 00000020  20 6c 61 7a  79 20 64 6f  67 2e -- --  -- -- -- --   | lazy dog.|
val hexdump : bytes:byte [] -> unit

Full name: Script.hexdump
val bytes : byte []
Multiple items
val byte : value:'T -> byte (requires member op_Explicit)

Full name: Microsoft.FSharp.Core.Operators.byte

--------------------
type byte = System.Byte

Full name: Microsoft.FSharp.Core.byte
val blockToHex : (seq<byte> -> string)
val block : seq<byte>
Multiple items
val seq : sequence:seq<'T> -> seq<'T>

Full name: Microsoft.FSharp.Core.Operators.seq

--------------------
type seq<'T> = System.Collections.Generic.IEnumerable<'T>

Full name: Microsoft.FSharp.Collections.seq<_>
val len : int
module Seq

from Microsoft.FSharp.Collections
val length : source:seq<'T> -> int

Full name: Microsoft.FSharp.Collections.Seq.length
val s : seq<string>
val i : int
val space : string
val value : string
val sprintf : format:Printf.StringFormat<'T> -> 'T

Full name: Microsoft.FSharp.Core.ExtraTopLevelOperators.sprintf
val nth : index:int -> source:seq<'T> -> 'T

Full name: Microsoft.FSharp.Collections.Seq.nth
val reduce : reduction:('T -> 'T -> 'T) -> source:seq<'T> -> 'T

Full name: Microsoft.FSharp.Collections.Seq.reduce
val blockToString : (seq<byte> -> string)
val safeChars : (seq<byte> -> seq<byte>)
val map : mapping:('T -> 'U) -> source:seq<'T> -> seq<'U>

Full name: Microsoft.FSharp.Collections.Seq.map
val b : byte
namespace System
Multiple items
type String =
  new : value:char -> string + 7 overloads
  member Chars : int -> char
  member Clone : unit -> obj
  member CompareTo : value:obj -> int + 1 overload
  member Contains : value:string -> bool
  member CopyTo : sourceIndex:int * destination:char[] * destinationIndex:int * count:int -> unit
  member EndsWith : value:string -> bool + 2 overloads
  member Equals : obj:obj -> bool + 2 overloads
  member GetEnumerator : unit -> CharEnumerator
  member GetHashCode : unit -> int
  ...

Full name: System.String

--------------------
System.String(value: nativeptr<char>) : unit
System.String(value: nativeptr<sbyte>) : unit
System.String(value: char []) : unit
System.String(c: char, count: int) : unit
System.String(value: nativeptr<char>, startIndex: int, length: int) : unit
System.String(value: nativeptr<sbyte>, startIndex: int, length: int) : unit
System.String(value: char [], startIndex: int, length: int) : unit
System.String(value: nativeptr<sbyte>, startIndex: int, length: int, enc: System.Text.Encoding) : unit
Multiple items
val char : value:'T -> char (requires member op_Explicit)

Full name: Microsoft.FSharp.Core.Operators.char

--------------------
type char = System.Char

Full name: Microsoft.FSharp.Core.char
module Array

from Microsoft.FSharp.Collections
val ofSeq : source:seq<'T> -> 'T []

Full name: Microsoft.FSharp.Collections.Array.ofSeq
val ofArray : source:'T [] -> seq<'T>

Full name: Microsoft.FSharp.Collections.Seq.ofArray
val mapi : mapping:(int -> 'T -> 'U) -> source:seq<'T> -> seq<'U>

Full name: Microsoft.FSharp.Collections.Seq.mapi
val x : byte
val groupBy : projection:('T -> 'Key) -> source:seq<'T> -> seq<'Key * seq<'T>> (requires equality)

Full name: Microsoft.FSharp.Collections.Seq.groupBy
val block : seq<int * byte>
val snd : tuple:('T1 * 'T2) -> 'T2

Full name: Microsoft.FSharp.Core.Operators.snd
val iter : action:('T -> unit) -> source:seq<'T> -> unit

Full name: Microsoft.FSharp.Collections.Seq.iter
val printf : format:Printf.TextWriterFormat<'T> -> 'T

Full name: Microsoft.FSharp.Core.ExtraTopLevelOperators.printf
val printfn : format:Printf.TextWriterFormat<'T> -> 'T

Full name: Microsoft.FSharp.Core.ExtraTopLevelOperators.printfn
val test : unit -> unit

Full name: Script.test
val input : byte []
val test2 : unit -> unit

Full name: Script.test2
val map : mapping:('T -> 'U) -> array:'T [] -> 'U []

Full name: Microsoft.FSharp.Collections.Array.map
Raw view New version

More information

Link:http://fssnip.net/lb
Posted:3 years ago
Author:Kit Eason
Tags: hexdump