Source file config_gen_intf.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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

(** Hardcoded constants that affect the behavior of the Krb library.

    These can be changed by setting an environment variable, [OCAML_KRB_CONFIG], to a sexp
    representation of the config. Also, setting [OCAML_KRB_CONFIG] to an invalid sexp
    (e.g. the empty string), will cause your program to print to stderr a usage message
    describing how to configure [OCAML_KRB_CONFIG], and exit nonzero. For example, the
    following shell command should print the usage message:

    {v
      OCAML_KRB_CONFIG= foo.exe
    v} *)

open! Core

module type S = sig
  type t =
    { pre_v5_assumed_realm : string option
    ; host_keytab_path : string option
    ; user_keytab_dir_template : string option
    ; default_domain : string option option
    ; debug_log_config : Debug_log_config.t option
    ; verbose_errors : bool option
    ; sandboxing_state : [ `None | `Sandboxed | `Exempted ] option
    }
  [@@deriving sexp_of]

  val username_template : string
  val environment_variable : string
  val t : t
  val pre_v5_assumed_realm : string
  val host_keytab_path : string
  val user_keytab_dir_template : string
  val user_keytab_dir : username:string -> string
  val default_domain : string option
  val debug_log_config : Debug_log_config.t
  val verbose_errors : bool
  val am_sandboxed : bool
  val am_exempt_from_sandbox : bool

  (** [true] iff [List.length debug_log_config > 0] *)
  val print_debug_messages : bool
end

module type Config_gen = sig
  type t =
    { pre_v5_assumed_realm : string option
    ; host_keytab_path : string option
    ; user_keytab_dir_template : string option
    ; default_domain : string option option
    ; debug_log_config : Debug_log_config.t option
    ; verbose_errors : bool option
    ; sandboxing_state : [ `None | `Sandboxed | `Exempted ] option
    }
  [@@deriving sexp_of]

  val environment_variable : string
  val username_template : string

  module type S = S with type t = t

  val make
    :  default:t
    -> help_message:
         (default:t -> environment_variable:string -> field_descriptions:string -> string)
    -> (module S)
end