(* Program name changes behaviour. *)
let compressing =
let name = Sys.argv.(0) in
- let name = Filename.basename name in (* just the executable name *)
- let name = Filename.chop_extension name in (* remove .opt or .exe *)
+ let name = Filename.basename name in (* just the executable name *)
+ let name = (* remove .opt or .exe *)
+ try Filename.chop_extension name
+ with Invalid_argument("Filename.chop_extension") -> name in
let name = String.lowercase name in
match name with
| "diskzcat" -> false
(* Scan the images for filesystems. *)
let machine = Diskimage.scan_machine machine in
+ (* Create ownership tables. *)
+ let ownership = Diskimage.create_ownership machine in
+
+
+
(* Redirect output through external pipe if asked. *)
(match extcompress with
| None -> ()