src/directories.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

module F = Filename
module FU = FileUtil

type t = {
    components: string;
    validators: string;
    migrators: string;
    component_definitions: string;
    interface_definitions: string;
}

let relative_dirs = {
    components = "components";
    validators = "validators";
    migrators = "migration";
    component_definitions = "components";
    interface_definitions = "interfaces";
}

let concat = List.fold_left F.concat ""

let make basepath conf =
    let open Vyconf_config in
    {
      components = concat [basepath; conf.program_dir; relative_dirs.components];
      validators = concat [basepath; conf.program_dir; relative_dirs.validators];
      migrators = concat [basepath; conf.program_dir; relative_dirs.migrators];
      component_definitions = concat [basepath; conf.data_dir; relative_dirs.component_definitions];
      interface_definitions = concat [basepath; conf.data_dir; relative_dirs.interface_definitions]
    }

(** Check if required directories exist
    We do not try to check if they are readable at this point, it's just to fail early
    if they don't even exist and we shouldn't bother trying
 *)

let check_dir d =
    if FU.test FU.Is_dir d then ()
    else raise (Failure (Printf.sprintf "%s does not exist or is not a directory" d))

let test dirs =
     let l = [dirs.components; dirs.validators; dirs.migrators;
              dirs.component_definitions; dirs.interface_definitions] in
     try
         List.iter check_dir l; Ok ()
     with Failure msg -> Error msg

let test_validators_dir dirs =
    try
        check_dir dirs.validators; Ok ()
    with Failure msg -> Error msg