package catala

  1. Overview
  2. Docs
package catala
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Module Catala_utils.FileSource

Sourcetype t = string

Utility functions used for file manipulation.

Sourceval with_out_channel : t -> (out_channel -> 'a) -> 'a

Runs the given function with the provided file opened, ensuring it is properly closed afterwards. May raise just as open_out.

Sourceval with_in_channel : t -> (in_channel -> 'a) -> 'a

Runs the given function with the provided file opened, ensuring it is properly closed afterwards. May raise just as open_in.

Formatter wrappers

Sourceval with_formatter_of_out_channel : ?nocolor:bool -> out_channel -> (Format.formatter -> 'a) -> 'a

with_formatter_of_out_channel oc f creates an flushes the formatter used in f from the given out_channel oc.

Sourceval with_formatter_of_file : t -> (Format.formatter -> 'a) -> 'a

with_formatter_of_file filename f manages the formatter created from the file filename used in f -- i.e. closes the corresponding out_channel and flushes the formatter.

Sourceval with_formatter_of_opt_file : t option -> (Format.formatter -> 'a) -> 'a

with_formatter_of_opt_file filename_opt f manages the formatter created from the file filename_opt if there is some (see with_formatter_of_file), otherwise, uses the Format.std_formatter.

Sourceval get_main_out_channel : source_file:t Global.input_src -> output_file:t option -> ?ext:string -> unit -> t option * ((out_channel -> 'a) -> 'a)

get_output ~source_file ~output_file ?ext () returns the inferred filename and its corresponding with_out_channel function. If the output_file is equal to Some "-" returns a wrapper around stdout.

Sourceval get_main_out_formatter : source_file:t Global.input_src -> output_file:t option -> ?ext:string -> unit -> t option * ((Format.formatter -> 'a) -> 'a)

get_output_format ~source_file ~output_file ?ext () returns the inferred filename and its corresponding with_formatter_of_out_channel function. If the output_file is equal to Some "-" returns a wrapper around stdout.

Sourceval with_secondary_out_channel : output_file:t option -> ext:string -> (t option -> Format.formatter -> 'a) -> 'a

Used to open additional destination files: the main output file is specified, and a different extension must be provided. If the main output file is None, stdout output is assumed and this passes None and a null formatter to the callback. ext specifies the extension of the output file, it is prefixed with a dot unless it already starts with a non-alphanumeric character.

Sourceval temp_file : string -> string -> t

Like Filename.temp_file, but registers the file for deletion at program exit unless Cli.debug_flag is set.

Sourceval with_temp_file : string -> string -> ?contents:string -> (t -> 'a) -> 'a

Creates a temp file (with prefix and suffix like temp_file, optionally with the given contents, for the lifetime of the supplied function, then remove it unconditionally

Sourceval contents : t -> string

Reads the contents of a file as a string

Sourceval process_out : ?check_exit:(int -> unit) -> string -> string list -> string

process_out cmd args executes the given command with the specified arguments, and returns the stdout of the process as a string. check_exit is called on the return code of the sub-process, the default is to fail on anything but 0.

Sourceval copy : src:t -> dst:t -> unit

File copy. Doesn't copy file attributes, only file content. The destination file is silently overwritten if it exists. Failures may leave a partial copy. dst can not be a directory

Sourceval copy_in : src:t -> dir:t -> unit

Same as copy, but copies the file into the given, existing dir.

Sourceval copy_dir : ?filter:(t -> bool) -> ?newer_only:bool -> src:t -> dst:t -> unit -> unit

Recursively copy a directory with its contents using copy. filter is applied to basenames. Empty directories are not created. Does not care for links or attributes, or file reading errors. If newer_only is set to true, on files for which the destination already exists, the copy is only done if it is older than the source

Sourceval remove : t -> unit

Recursively removes files and directories. Dangerous!

Does not fail on already non-existent files

Sourceval check_directory : t -> t option

Checks if the given directory exists and returns it normalised (as per Unix.realpath).

Sourceval ensure_dir : t -> unit

Creates the directory (and parents recursively) if it doesn't exist already. Errors out if the file exists but is not a directory

Sourceval exists : t -> bool

Alias for Sys.file_exists

Sourceval check_file : t -> t option

Returns its argument if it exists and is a plain file, None otherwise. Does not do resolution like check_directory.

Sourceval check_exec : t -> t

Resolves a command:

  • if t is a plain name, resolve in PATH
  • if t is relative, returns its absolute path
  • fails with an error explaining that t was not found
Sourceval (/) : t -> t -> t

Filename.concat: Sugar to allow writing File.("some" / "relative" / "path"). As an exception, if the lhs is ., returns the rhs unchanged.

Sourceval basename : t -> t

Filename.basename, re-exported for convenience

Sourceval dirname : t -> t

Filename.dirname, re-exported for convenience

Sourceval extension : t -> string

Like Filename.extension, but without the leading dot (doesn't, therefore, differenciate between empty extension and no extension)

Sourceval parent : t -> t

Similar to dirname, except it strips the last **non-"." or ".."** element in the supplied file name, if it exists

Sourceval clean_path : t -> t

Rewrites a path by removing intermediate relative lookups ("." and ".."). E.g. ../foo/./bar/../baz/ becomes ../foo/baz. No disk lookup is made by this function.

Sourceval common_prefix : t -> t -> t

Returns the longuest common prefix of two paths, which are first made absolute

Sourceval remove_prefix : t -> t -> t

remove_prefix prefix f removes the prefix path from the beginning of f ; if f doesn't start with prefix, it is returned unchanged. If f is equal to prefix, . is returned.

Sourceval make_relative_to : dir:t -> t -> t

Makes f relative to dir, using as many ../ as necessary

Sourceval reverse_path : ?from_dir:t -> to_dir:t -> t -> t

If to_dir is a path to a given directory and f a path to a file as seen from absolute path from_dir, reverse_path ~from_dir ~to_dir f is a path leading to f from to_dir. The results attempts to be relative to to_dir.

Sourceval original_cwd : t

The directory the command was originally run from

Sourceval rel_original_cwd : unit -> t

Same as original_cwd, but if it is a subdirectory of the current dir, a relative path is returned

Sourceval find_in_parents : ?cwd:t -> (t -> bool) -> (t * t) option

Checks for the first directory matching the given predicate from cwd upwards (defaults to the current directory). Recursion stops at home. Returns a pair dir, rel_path, where dir is the ancestor directory matching the predicate, and rel_path is a path pointing to it from the current dir.

Sourceval (/../) : t -> t -> t

Sugar for parent a / b

Sourceval (-.-) : t -> string -> t

Extension replacement: chops the given filename extension, and replaces it with the given one (which shouldn't start with a dot). No dot is appended if the provided extension is empty.

Sourceval path_to_list : t -> string list

Empty elements or current-directory (".") are skipped in the resulting list

Sourceval equal : t -> t -> bool

Case-insensitive string comparison (no file resolution whatsoever)

Sourceval compare : t -> t -> int

Case-insensitive string comparison (no file resolution whatsoever)

Sourceval format : Format.formatter -> t -> unit

Formats a filename in a consistent style, with double-quotes and color (when the output supports)

Sourcemodule Set : Set.S with type elt = t
Sourcemodule Map : Map.S with type key = t
Sourceval scan_tree : (t -> 'a option) -> t -> (t * t list * 'a list) Seq.t

Recursively scans a directory for files. Directories or files matching ".*" or "_*" are ignored. Unreadable files or subdirectories are ignored with a debug message. If t is a plain file, scan just that non-recursively.

The matching results are returned grouped by directory, case-insensitively ordered by filename, as a list of non-empty subdirs and a list of extracted items.

Sourcemodule Tree : sig ... end

A lazy tree structure mirroring the filesystem ; uses the comparison from File, so paths are case-insensitive.