package nx

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

Source file cache_dir.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(* cache_dir.ml *)

let get_root ?(getenv = Sys.getenv_opt) () =
  match getenv "RAVEN_CACHE_ROOT" with
  | Some dir when dir <> "" -> dir
  | _ ->
      let xdg = Xdg.create ~env:getenv () in
      Filename.concat (Xdg.cache_dir xdg) "raven"

let get_path_in_cache ?(getenv = Sys.getenv_opt) ~scope name =
  let base = get_root ~getenv () in
  let path = List.fold_left Filename.concat base (scope @ [ name ]) in
  let sep = Filename.dir_sep.[0] in
  if path <> "" && path.[String.length path - 1] = sep then path
  else path ^ Filename.dir_sep