3 let ic = open_in_bin path
in
4 let index = input_value
ic in
11 let main indexpath container
=
12 let index = getindex indexpath
in
13 let hash = Hashtbl.create
100 in
15 match try Some
(input_line stdin
) with End_of_file
-> None
with
18 let offset, size
, path
=
19 Scanf.sscanf line
"%x %d %s"
20 (fun offset size path
-> (offset, size
, path
))
22 let name = Filename.basename path
in
23 if not
(Hashtbl.mem
hash name)
25 Hashtbl.add
hash name (offset, size
)
30 let oc = open_out_bin indexpath
in
31 output_value
oc ((container
, hash) :: index);
35 let _ = main Sys.argv
.(1) Sys.argv
.(2);;