vhd: add a streaming parser for vhd-format data

One may write:

  module M = From_input(Vhd_lwt.Input)

and then generate a stream of Fragment.ts from a file descriptor
using

  M.openstream fd

Signed-off-by: David Scott <dave.scott@eu.citrix.com>