type kind =
| Normal |
| Everybody |
| Exec |
| Symlink |
| Gitlink |
val kind_to_perm : kind -> [ `Normal | `Dir | `Exec | `Everybody | `Link | `Commit ]
val perm_of_kind : kind -> [ `Normal | `Dir | `Exec | `Everybody | `Link | `Commit ]
val perm_to_kind : [ `Normal | `Exec | `Everybody | `Link | `Commit ] -> kind
val kind_of_perm : [ `Normal | `Exec | `Everybody | `Link | `Commit ] -> kind
type time = {
lsb32 : int32; |
nsec : int32; |
}
type 'e flag = {
assume : bool; |
extend : 'e option; |
stage : int; |
length : int; |
}
type extend = {
reserved : bool; |
skip_worktree : bool; |
intent_to_add : bool; |
}
type info = {
ctime : time; |
mtime : time; |
dev : int32; |
ino : int32; |
mode : kind; |
uid : int32; |
gid : int32; |
size : int32; |
}
val pp_entry : entry Fmt.t