My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Command-line interface for cache management
2
3 This module provides Cmdliner-based CLI tools for managing the cache,
4 including listing entries, expiring old data, managing flags, and
5 viewing statistics.
6
7 The commands are parameterized by an Eio filesystem, allowing the
8 calling application to control the Eio environment. *)
9
10(** {1 Command Builders} *)
11
12(** Create get command with given filesystem and app name *)
13val get_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
14
15(** Create put command with given filesystem and app name *)
16val put_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
17
18(** Create list command with given filesystem and app name *)
19val list_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
20
21(** Create expire command with given filesystem and app name *)
22val expire_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
23
24(** Create clear command with given filesystem and app name *)
25val clear_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
26
27(** Create flag management command with given filesystem and app name *)
28val flag_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
29
30(** Create statistics command with given filesystem and app name *)
31val stats_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
32
33(** Create delete command with given filesystem and app name *)
34val delete_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
35
36(** Create exists command with given filesystem and app name *)
37val exists_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t
38
39(** {1 Command Groups} *)
40
41(** Create all cache commands for the given filesystem, stdin and app name *)
42val make_commands : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t list
43
44(** Create main command group containing all cache subcommands *)
45val make_cmd : app_name:string -> Eio.Fs.dir_ty Eio.Path.t -> Eio.Flow.source_ty Eio.Resource.t -> unit Cmdliner.Cmd.t