ocaml/t/hivex_120_rlenvalue.ml

   1 (* hivex OCaml bindings
   2  * Copyright (C) 2009-2010 Red Hat Inc.
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; either version 2 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17  *)
  18
  19 (* Demonstrate value_data_cell_offset by looking at the value data at
  20  * "\$$$PROTO.HIV\ModerateValueParent\33Bytes", verified to be at file
  21  * offset 8680 (0x21e8) of the hive rlenvalue_test_hive.  The returned
  22  * length and offset for this value cell should be 37 bytes, position
  23  * 8712.
  24  *)
  25
  26 open Unix
  27 open Printf
  28 let (//) = Filename.concat
  29
  30 let () =
  31   let h = Hivex.open_file "../images/rlenvalue_test_hive" [] in
  32   let root = Hivex.root h in
  33   let moderate_value_node = Hivex.node_get_child h root "ModerateValueParent" in
  34   let moderate_value_value = Hivex.node_get_value h moderate_value_node "33Bytes" in
  35   let (data_len, data_off) = Hivex.value_data_cell_offset h moderate_value_value in
  36   assert ( (data_off == (Obj.magic 8712:Hivex.value)) && (data_len == 37) );
  37
  38   Hivex.close h;
  39
  40   (* Gc.compact is a good way to ensure we don't have
  41    * heap corruption or double-freeing.
  42    *)
  43   Gc.compact ()