175 |
lprintf_nl " %s" (Md4.to_string m); |
lprintf_nl " %s" (Md4.to_string m); |
176 |
) f.blocks; |
) f.blocks; |
177 |
print_tags f.tags; |
print_tags f.tags; |
178 |
lprintf_nl ""; |
lprint_newline (); |
179 |
with _ -> lprintf_nl "Error : no file in known.met\n"; |
with _ -> lprintf_nl "Error : no file in known.met\n"; |
180 |
) t; |
) t; |
181 |
end |
end |
302 |
lprintf "PREF.MET %s\n" (Md4.to_string t.md4); |
lprintf "PREF.MET %s\n" (Md4.to_string t.md4); |
303 |
|
|
304 |
print_tags t.client_tags; |
print_tags t.client_tags; |
305 |
lprintf_nl ""; |
lprint_newline (); |
306 |
|
|
307 |
print_tags t.option_tags; |
print_tags t.option_tags; |
308 |
lprintf_nl "" |
lprint_newline () |
309 |
(* |
(* |
310 |
(14) |
(14) |
311 |
(2)(0)(0)(0) |
(2)(0)(0)(0) |