haxala1r/fuse-tar
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Added metadata merging for inferred directories, needs testing

Browse Source
This commit is contained in:
Emin Arslan
2025-11-26 23:52:30 +03:00
parent 684d584402
commit 0d618be4b5
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/tar.ml
View File

@@ -60,11 +60,17 @@ let find path tree =
| _ -> failwith "cannot search non-directory" | _ -> failwith "cannot search non-directory"
in aux (p, tree) in aux (p, tree)
let add_child name node map =
match (NameMap.find_opt name map, node) with
| Some (InferredDirectory (children, _)), Directory (_, md) ->
NameMap.add name (Directory (children, md)) map
| _ -> NameMap.add name node map
(* TODO: add logic for links, device nodes, and replacing inferred directories *)
let add_direct name node = function let add_direct name node = function
| InferredDirectory (map, md) -> | InferredDirectory (map, md) ->
InferredDirectory ((NameMap.add name node map), md) InferredDirectory ((add_child name node map), md)
| Directory (map, md) -> | Directory (map, md) ->
Directory ((NameMap.add name node map), md) Directory ((add_child name node map), md)
| _ -> | _ ->
Printf.printf "whatever the fuck %s" name; Directory (NameMap.empty, empty_dir_metadata) Printf.printf "whatever the fuck %s" name; Directory (NameMap.empty, empty_dir_metadata)