Module Pa_passthru.Ctxt

type t = {
  1. filename : string;
  2. _module_path : string list;
  3. options : (string * MLast.expr) list;
  4. ef : EF.t;
  5. scratch : (string * scratchdata_t) list;
  6. refscratch : (string * scratchdata_t) list ref;
}
val mk : EF.t -> Ploc.t -> t
val append_module : t -> string -> t
val module_path : t -> string list
val module_path_s : t -> string
val set_module_path : t -> string list -> t
val filename : t -> string
val set_filename : t -> string -> t
val add_options : t -> (string * MLast.expr) list -> t
val option : t -> string -> MLast.expr
val options : t -> (string * MLast.expr) list
val scratchdata : t -> string -> scratchdata_t
val init_scratchdata : t -> string -> scratchdata_t -> t
val update_scratchdata : t -> string -> scratchdata_t -> t
val refscratchdata : t -> string -> scratchdata_t
val init_refscratchdata : t -> string -> scratchdata_t -> unit