fileutils 0.4.4 · OCaml Package

exception SizeInvalid

exception FileDoesntExist of FilePath.filename

exception RecursiveLink of FilePath.filename

exception RmDirNotEmpty of FilePath.filename

exception RmDirNoRecurse of FilePath.filename

exception MkdirMissingComponentPath of FilePath.filename

exception MkdirDirnameAlreadyUsed of FilePath.filename

exception CpCannotCopy of FilePath.filename

exception CpNoSourceFile of FilePath.filename

exception CpCannotCopyFilesToFile of FilePath.filename list * FilePath.filename

exception CpCannotCopyDir of FilePath.filename

exception MvNoSourceFile

type action_link =

| Follow
| Skip
| SkipInform of FilePath.filename -> unit
| AskFollow of FilePath.filename -> bool

type interactive =

| Force
| Ask of FilePath.filename -> bool

type size =

| TB of int64
| GB of int64
| MB of int64
| KB of int64
| B of int64

type kind =

| Dir
| File
| Dev_char
| Dev_block
| Fifo
| Socket

type base_permission = {

sticky : bool;
exec : bool;
write : bool;
read : bool;

}

type permission = {

user : base_permission;
group : base_permission;
other : base_permission;

}

type stat = {

kind : kind;
is_link : bool;
permission : permission;
size : size;
owner : int;
group_owner : int;
access_time : float;
modification_time : float;
creation_time : float;

}

type test_file =

| Is_dev_block
| Is_dev_char
| Is_dir
| Exists
| Is_file
| Is_set_group_ID
| Has_sticky_bit
| Is_link
| Is_pipe
| Is_readable
| Is_writeable
| Size_not_null
| Size_bigger_than of size
| Size_smaller_than of size
| Size_equal_to of size
| Size_fuzzy_equal_to of size
| Is_socket
| Has_set_user_ID
| Is_exec
| Is_owned_by_user_ID
| Is_owned_by_group_ID
| Is_newer_than of FilePath.filename
| Is_older_than of FilePath.filename
| Is_newer_than_date of float
| Is_older_than_date of float
| And of test_file * test_file
| Or of test_file * test_file
| Not of test_file
| Match of string
| True
| False
| Has_extension of FilePath.extension
| Has_no_extension
| Is_parent_dir
| Is_current_dir
| Basename_is of FilePath.filename
| Dirname_is of FilePath.filename
| Custom of FilePath.filename -> bool

type touch_time_t =

| Touch_now
| Touch_file_time of FilePath.filename
| Touch_timestamp of float

val permission_of_int : int -> permission

val int_of_permission : permission -> int

val byte_of_size : size -> int64

val size_add : size -> size -> size

val size_compare : ?fuzzy:bool -> size -> size -> int

val string_of_size : ?fuzzy:bool -> size -> string

module SetFilename : sig ... end

val doit : interactive -> FilePath.filename -> bool

val prevent_recursion : SetFilename.t -> SetFilename.elt -> SetFilename.t

val solve_dirname : FilePath.filename -> FilePath.filename

val stat : FilePath.filename -> stat

val compile_filter : 
  ?match_compile:(FilePath.filename -> FilePath.filename -> bool) ->
  test_file ->
  ?pre_stat:stat ->
  FilePath.filename ->
  bool

val all_upper_dir : FilePath.filename -> FilePath.filename list

val test : 
  ?match_compile:(FilePath.filename -> FilePath.filename -> bool) ->
  test_file ->
  FilePath.filename ->
  bool

val pwd : unit -> FilePath.filename

val readlink : FilePath.filename -> SetFilename.elt

val ls : FilePath.filename -> FilePath.filename list

val filter : test_file -> FilePath.filename list -> FilePath.filename list

val which : 
  ?path:FilePath.filename list ->
  FilePath.filename ->
  FilePath.filename

val mkdir : ?parent:bool -> ?mode:Unix.file_perm -> FilePath.filename -> unit

val touch : 
  ?atime:bool ->
  ?mtime:bool ->
  ?create:bool ->
  ?time:touch_time_t ->
  FilePath.filename ->
  unit

val find : 
  ?follow:action_link ->
  ?match_compile:(FilePath.filename -> FilePath.filename -> bool) ->
  test_file ->
  FilePath.filename ->
  ('a -> FilePath.filename -> 'a) ->
  'a ->
  'a

val rm : ?force:interactive -> ?recurse:bool -> FilePath.filename list -> unit

val cp : 
  ?follow:action_link ->
  ?force:interactive ->
  ?recurse:bool ->
  FilePath.filename list ->
  FilePath.filename ->
  unit

val mv : ?force:interactive -> FilePath.filename -> FilePath.filename -> unit

val cmp : 
  ?skip1:int ->
  FilePath.filename ->
  ?skip2:int ->
  FilePath.filename ->
  int option

val du : FilePath.filename list -> size * (FilePath.filename * size) list

package fileutils