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

Small fix

Browse Source
This commit is contained in:
Emin Arslan
2025-11-27 19:59:53 +03:00
parent e145cc628e
commit 090c0d4014
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bin/tar.ml
View File

@@ -93,10 +93,13 @@ let rec add_deep node = function
add_direct one (add_deep node (rest, (find_or_infer_dir one dir))) dir add_direct one (add_deep node (rest, (find_or_infer_dir one dir))) dir
| (_, dir) -> dir | (_, dir) -> dir
let inc_nlink path tree = let rec inc_nlink path tree =
add_deep add_deep
(match find path tree with (match find path tree with
| Some (File (o, md)) -> File (o, {md with st_nlink = md.st_nlink + 1}) | Some (File (o, md)) -> File (o, {md with st_nlink = md.st_nlink + 1})
| Some (InferredDirectory (o, md)) -> InferredDirectory (o, {md with st_nlink = md.st_nlink + 1})
| Some (Symlink (o, md)) -> Symlink (o, {md with st_nlink = md.st_nlink + 1})
| Some (Hardlink p) -> inc_nlink p tree
| Some (Directory (o, md)) -> Directory (o, {md with st_nlink = md.st_nlink + 1}) | Some (Directory (o, md)) -> Directory (o, {md with st_nlink = md.st_nlink + 1})
| _ -> failwith "can't increase hardlink count...") | _ -> failwith "can't increase hardlink count...")
(clean_path path, tree) (clean_path path, tree)