···

       
3
       
 
       
open Cmdliner

     

       
4
       
 
       


     

       
5
       
 
       
let main () =

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
6
       
 
       
  (* Run with Eio to provide the filesystem *)

     

       
7
       
 
       
  Eio_main.run @@ fun env ->

     

       
8
       
 
       
  let fs = env#fs in

     
···

       
14
       
 
       
    `P "This tool provides subcommands for listing, clearing, and managing cached files.";

     

       
15
       
 
       
  ] in

     

       
16
       
 
       
  let info = Cmd.info "cache" ~doc ~man in

     

       
17
       
-
       
  let cmd = Cmd.group info (Cacheio_cmd.make_commands fs) in

     

       
18
       
 
       


     

       
19
       
 
       
  exit (Cmd.eval cmd)

     

       
20
       
 
       


     

···

       
3
       
 
       
open Cmdliner

     

       
4
       
 
       


     

       
5
       
 
       
let main () =

     

       
6
       
+
       
  (* Default app name for the cache CLI tool *)

     

       
7
       
+
       
  let app_name = "cacheio-cli" in

     

       
8
       
+
       


     

       
9
       
 
       
  (* Run with Eio to provide the filesystem *)

     

       
10
       
 
       
  Eio_main.run @@ fun env ->

     

       
11
       
 
       
  let fs = env#fs in

     
···

       
17
       
 
       
    `P "This tool provides subcommands for listing, clearing, and managing cached files.";

     

       
18
       
 
       
  ] in

     

       
19
       
 
       
  let info = Cmd.info "cache" ~doc ~man in

     

       
20
       
+
       
  let cmd = Cmd.group info (Cacheio_cmd.make_commands ~app_name fs) in

     

       
21
       
 
       


     

       
22
       
 
       
  exit (Cmd.eval cmd)

     

       
23
       
 
       


     

···

       
337
       
 
       


     

       
338
       
 
       
let pp fmt t =

     

       
339
       
 
       
  Format.fprintf fmt "Cache{base=%s}"

     

       
340
       
-
       
    (Path.native_exn t.base_dir)
     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

···

       
337
       
 
       


     

       
338
       
 
       
let pp fmt t =

     

       
339
       
 
       
  Format.fprintf fmt "Cache{base=%s}"

     

       
340
       
+
       
    (Path.native_exn t.base_dir)

     

       
341
       
+
       


     

       
342
       
+
       
(** {1 Convenience Functions} *)

     

       
343
       
+
       


     

       
344
       
+
       
let create_with_xdge xdge =

     

       
345
       
+
       
  let base_dir = Xdge.cache_dir xdge in

     

       
346
       
+
       
  create ~base_dir
     

···

       
15
       
 
       
(** Create a new cache at the specified base directory *)

     

       
16
       
 
       
val create : base_dir:Eio.Fs.dir_ty Eio.Path.t -> t

     

       
17
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
18
       
 
       
(** Check if a key exists in the cache.

     

       
19
       
 
       
    Keys are strings that will be automatically hashed for filesystem storage. *)

     

       
20
       
 
       
val exists : t -> key:string -> bool

     

···

       
15
       
 
       
(** Create a new cache at the specified base directory *)

     

       
16
       
 
       
val create : base_dir:Eio.Fs.dir_ty Eio.Path.t -> t

     

       
17
       
 
       


     

       
18
       
+
       
(** Create a new cache using an Xdge context *)

     

       
19
       
+
       
val create_with_xdge : Xdge.t -> t

     

       
20
       
+
       


     

       
21
       
 
       
(** Check if a key exists in the cache.

     

       
22
       
 
       
    Keys are strings that will be automatically hashed for filesystem storage. *)

     

       
23
       
 
       
val exists : t -> key:string -> bool

     

···

       
5
       
 
       


     

       
6
       
 
       
(** {1 Common Terms} *)

     

       
7
       
 
       


     

       
8
       
-
       
let cache_dir_term =

     

       
9
       
-
       
  let doc = "Cache directory path" in

     

       
10
       
-
       
  let env = Cmd.Env.info "CACHE_DIR" ~doc:"Override default cache directory" in

     

       
11
       
-
       
  Arg.(value & opt string (Sys.getenv_opt "XDG_CACHE_HOME" |> Option.value ~default:"~/.cache")

     

       
12
       
-
       
       & info ["cache-dir"; "c"] ~env ~docv:"PATH" ~doc)

     

       
13
       
 
       


     

       
14
       
 
       
(** {1 Commands} *)

     

       
15
       
 
       


     

       
16
       
-
       
let list_cmd fs =

     

       
17
       
 
       
  let list cache_dir stale expired pinned temporary older_than =

     

       
18
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
19
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
70
       
 
       


     

       
71
       
 
       
  let doc = "List cache entries" in

     

       
72
       
 
       
  let info = Cmd.info "list" ~doc in

     

       
73
       
-
       
  Cmd.v info Term.(const list $ cache_dir_term $ stale $ expired $ pinned $ temporary $ older_than)

     

       
74
       
 
       


     

       
75
       
-
       
let expire_cmd fs =

     

       
76
       
 
       
  let expire cache_dir =

     

       
77
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
78
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
82
       
 
       


     

       
83
       
 
       
  let doc = "Remove expired entries from cache" in

     

       
84
       
 
       
  let info = Cmd.info "expire" ~doc in

     

       
85
       
-
       
  Cmd.v info Term.(const expire $ cache_dir_term)

     

       
86
       
 
       


     

       
87
       
-
       
let clear_cmd fs =

     

       
88
       
 
       
  let clear cache_dir all temporary =

     

       
89
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
90
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
106
       
 
       


     

       
107
       
 
       
  let doc = "Clear cache entries" in

     

       
108
       
 
       
  let info = Cmd.info "clear" ~doc in

     

       
109
       
-
       
  Cmd.v info Term.(const clear $ cache_dir_term $ all $ temporary)

     

       
110
       
 
       


     

       
111
       
-
       
let flag_cmd fs =

     

       
112
       
 
       
  let flag cache_dir key add remove set_flags =

     

       
113
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
114
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
173
       
 
       


     

       
174
       
 
       
  let doc = "Manage cache entry flags" in

     

       
175
       
 
       
  let info = Cmd.info "flag" ~doc in

     

       
176
       
-
       
  Cmd.v info Term.(const flag $ cache_dir_term $ key $ add $ remove $ set_flags)

     

       
177
       
 
       


     

       
178
       
-
       
let stats_cmd fs =

     

       
179
       
 
       
  let stats cache_dir =

     

       
180
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
181
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
200
       
 
       


     

       
201
       
 
       
  let doc = "Show cache statistics" in

     

       
202
       
 
       
  let info = Cmd.info "stats" ~doc in

     

       
203
       
-
       
  Cmd.v info Term.(const stats $ cache_dir_term)

     

       
204
       
 
       


     

       
205
       
 
       
(** {1 Command Groups} *)

     

       
206
       
 
       


     

       
207
       
-
       
let make_commands fs = [

     

       
208
       
-
       
  list_cmd fs;

     

       
209
       
-
       
  expire_cmd fs;

     

       
210
       
-
       
  clear_cmd fs;

     

       
211
       
-
       
  flag_cmd fs;

     

       
212
       
-
       
  stats_cmd fs

     

       
213
       
 
       
]

     

       
214
       
 
       


     

       
215
       
-
       
let make_cmd fs =

     

       
216
       
 
       
  let doc = "Cache management commands" in

     

       
217
       
 
       
  let info = Cmd.info "cache" ~doc in

     

       
218
       
-
       
  Cmd.group info (make_commands fs)
     

···

       
5
       
 
       


     

       
6
       
 
       
(** {1 Common Terms} *)

     

       
7
       
 
       


     

       
8
       
+
       
let cache_dir_term ~app_name =

     

       
9
       
+
       
  (* Use Xdge.Cmd.cache_term for proper XDG handling *)

     

       
10
       
+
       
  Xdge.Cmd.cache_term app_name

     

       
0
       
 
       

     

       
0
       
 
       

     

       
11
       
 
       


     

       
12
       
 
       
(** {1 Commands} *)

     

       
13
       
 
       


     

       
14
       
+
       
let list_cmd ~app_name fs =

     

       
15
       
 
       
  let list cache_dir stale expired pinned temporary older_than =

     

       
16
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
17
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
68
       
 
       


     

       
69
       
 
       
  let doc = "List cache entries" in

     

       
70
       
 
       
  let info = Cmd.info "list" ~doc in

     

       
71
       
+
       
  Cmd.v info Term.(const list $ cache_dir_term ~app_name $ stale $ expired $ pinned $ temporary $ older_than)

     

       
72
       
 
       


     

       
73
       
+
       
let expire_cmd ~app_name fs =

     

       
74
       
 
       
  let expire cache_dir =

     

       
75
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
76
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
80
       
 
       


     

       
81
       
 
       
  let doc = "Remove expired entries from cache" in

     

       
82
       
 
       
  let info = Cmd.info "expire" ~doc in

     

       
83
       
+
       
  Cmd.v info Term.(const expire $ cache_dir_term ~app_name)

     

       
84
       
 
       


     

       
85
       
+
       
let clear_cmd ~app_name fs =

     

       
86
       
 
       
  let clear cache_dir all temporary =

     

       
87
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
88
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
104
       
 
       


     

       
105
       
 
       
  let doc = "Clear cache entries" in

     

       
106
       
 
       
  let info = Cmd.info "clear" ~doc in

     

       
107
       
+
       
  Cmd.v info Term.(const clear $ cache_dir_term ~app_name $ all $ temporary)

     

       
108
       
 
       


     

       
109
       
+
       
let flag_cmd ~app_name fs =

     

       
110
       
 
       
  let flag cache_dir key add remove set_flags =

     

       
111
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
112
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
171
       
 
       


     

       
172
       
 
       
  let doc = "Manage cache entry flags" in

     

       
173
       
 
       
  let info = Cmd.info "flag" ~doc in

     

       
174
       
+
       
  Cmd.v info Term.(const flag $ cache_dir_term ~app_name $ key $ add $ remove $ set_flags)

     

       
175
       
 
       


     

       
176
       
+
       
let stats_cmd ~app_name fs =

     

       
177
       
 
       
  let stats cache_dir =

     

       
178
       
 
       
    let base_dir = Path.(fs / cache_dir) in

     

       
179
       
 
       
    let cache = Cacheio.create ~base_dir in

     
···

       
198
       
 
       


     

       
199
       
 
       
  let doc = "Show cache statistics" in

     

       
200
       
 
       
  let info = Cmd.info "stats" ~doc in

     

       
201
       
+
       
  Cmd.v info Term.(const stats $ cache_dir_term ~app_name)

     

       
202
       
 
       


     

       
203
       
 
       
(** {1 Command Groups} *)

     

       
204
       
 
       


     

       
205
       
+
       
let make_commands ~app_name fs = [

     

       
206
       
+
       
  list_cmd ~app_name fs;

     

       
207
       
+
       
  expire_cmd ~app_name fs;

     

       
208
       
+
       
  clear_cmd ~app_name fs;

     

       
209
       
+
       
  flag_cmd ~app_name fs;

     

       
210
       
+
       
  stats_cmd ~app_name fs

     

       
211
       
 
       
]

     

       
212
       
 
       


     

       
213
       
+
       
let make_cmd ~app_name fs =

     

       
214
       
 
       
  let doc = "Cache management commands" in

     

       
215
       
 
       
  let info = Cmd.info "cache" ~doc in

     

       
216
       
+
       
  Cmd.group info (make_commands ~app_name fs)
     

···

       
9
       
 
       


     

       
10
       
 
       
(** {1 Common Terms} *)

     

       
11
       
 
       


     

       
12
       
-
       
(** Term for cache directory path *)

     

       
13
       
-
       
val cache_dir_term : string Cmdliner.Term.t

     

       
14
       
 
       


     

       
15
       
 
       
(** {1 Command Builders} *)

     

       
16
       
 
       


     

       
17
       
-
       
(** Create list command with given filesystem *)

     

       
18
       
-
       
val list_cmd : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
19
       
 
       


     

       
20
       
-
       
(** Create expire command with given filesystem *)

     

       
21
       
-
       
val expire_cmd : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
22
       
 
       


     

       
23
       
-
       
(** Create clear command with given filesystem *)

     

       
24
       
-
       
val clear_cmd : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
25
       
 
       


     

       
26
       
-
       
(** Create flag management command with given filesystem *)

     

       
27
       
-
       
val flag_cmd : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
28
       
 
       


     

       
29
       
-
       
(** Create statistics command with given filesystem *)

     

       
30
       
-
       
val stats_cmd : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
31
       
 
       


     

       
32
       
 
       
(** {1 Command Groups} *)

     

       
33
       
 
       


     

       
34
       
-
       
(** Create all cache commands for the given filesystem *)

     

       
35
       
-
       
val make_commands : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t list

     

       
36
       
 
       


     

       
37
       
 
       
(** Create main command group containing all cache subcommands *)

     

       
38
       
-
       
val make_cmd : Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t
     

···

       
9
       
 
       


     

       
10
       
 
       
(** {1 Common Terms} *)

     

       
11
       
 
       


     

       
12
       
+
       
(** Term for cache directory path with proper XDG handling *)

     

       
13
       
+
       
val cache_dir_term : app_name:string -> string Cmdliner.Term.t

     

       
14
       
 
       


     

       
15
       
 
       
(** {1 Command Builders} *)

     

       
16
       
 
       


     

       
17
       
+
       
(** Create list command with given filesystem and app name *)

     

       
18
       
+
       
val list_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
19
       
 
       


     

       
20
       
+
       
(** Create expire command with given filesystem and app name *)

     

       
21
       
+
       
val expire_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
22
       
 
       


     

       
23
       
+
       
(** Create clear command with given filesystem and app name *)

     

       
24
       
+
       
val clear_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
25
       
 
       


     

       
26
       
+
       
(** Create flag management command with given filesystem and app name *)

     

       
27
       
+
       
val flag_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
28
       
 
       


     

       
29
       
+
       
(** Create statistics command with given filesystem and app name *)

     

       
30
       
+
       
val stats_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t

     

       
31
       
 
       


     

       
32
       
 
       
(** {1 Command Groups} *)

     

       
33
       
 
       


     

       
34
       
+
       
(** Create all cache commands for the given filesystem and app name *)

     

       
35
       
+
       
val make_commands : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t list

     

       
36
       
 
       


     

       
37
       
 
       
(** Create main command group containing all cache subcommands *)

     

       
38
       
+
       
val make_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> unit Cmdliner.Cmd.t
     

···

       
2
       
 
       
 (public_name cacheio)

     

       
3
       
 
       
 (name cacheio)

     

       
4
       
 
       
 (modules cacheio cacheio_flags cacheio_entry cacheio_stats)

     

       
5
       
-
       
 (libraries eio eio_main digestif yojson ptime ptime.clock.os logs fmt))

     

       
6
       
 
       


     

       
7
       
 
       
(library

     

       
8
       
 
       
 (public_name cacheio.cmd)

     

       
9
       
 
       
 (name cacheio_cmd)

     

       
10
       
 
       
 (modules cacheio_cmd)

     

       
11
       
-
       
 (libraries cacheio cmdliner eio eio_main))

     

···

       
2
       
 
       
 (public_name cacheio)

     

       
3
       
 
       
 (name cacheio)

     

       
4
       
 
       
 (modules cacheio cacheio_flags cacheio_entry cacheio_stats)

     

       
5
       
+
       
 (libraries eio eio_main digestif yojson ptime ptime.clock.os logs fmt xdge))

     

       
6
       
 
       


     

       
7
       
 
       
(library

     

       
8
       
 
       
 (public_name cacheio.cmd)

     

       
9
       
 
       
 (name cacheio_cmd)

     

       
10
       
 
       
 (modules cacheio_cmd)

     

       
11
       
+
       
 (libraries cacheio cmdliner eio eio_main xdge))

     

···

       
1
       
 
       
(executable

     

       
2
       
 
       
 (public_name test_new_cache)

     

       
3
       
 
       
 (name test_new_cache)

     

       
4
       
-
       
 (libraries cacheio eio_main))
     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

···

       
1
       
 
       
(executable

     

       
2
       
 
       
 (public_name test_new_cache)

     

       
3
       
 
       
 (name test_new_cache)

     

       
4
       
+
       
 (libraries cacheio eio_main))

     

       
5
       
+
       


     

       
6
       
+
       
(executable

     

       
7
       
+
       
 (public_name test_xdg)

     

       
8
       
+
       
 (name test_xdg)

     

       
9
       
+
       
 (libraries cacheio xdge eio_main))

     

       
10
       
+
       


     

       
11
       
+
       
(executable

     

       
12
       
+
       
 (public_name test_xdg_cmd)

     

       
13
       
+
       
 (name test_xdg_cmd)

     

       
14
       
+
       
 (libraries cacheio xdge cmdliner eio_main))
     

···

       
1
       
-
       
../xdg-eio
     

···

       
0