Module `Compenv`

exception Exit_with_status of int

val output_prefix : string -> string

val extract_output : string option -> string

val default_output : string option -> string

val print_version_and_library : string -> 'a

val print_version_string : unit -> 'a

val print_standard_library : unit -> 'a

val fatal : string -> 'a

val first_ccopts : string list Stdlib.ref

val first_ppx : string list Stdlib.ref

val first_include_dirs : string list Stdlib.ref

val last_include_dirs : string list Stdlib.ref

val get_objfiles : with_ocamlparam:bool -> string list

val last_objfiles : string list Stdlib.ref

val first_objfiles : string list Stdlib.ref

val stop_early : bool Stdlib.ref

val has_linker_inputs : bool Stdlib.ref

type filename = string

type readenv_position =

| Before_args
| Before_compile of Compenv.filename
| Before_link

val readenv : Stdlib.Format.formatter -> Compenv.readenv_position -> unit

val set_extra_params : 
  (Stdlib.Format.formatter ->
    Compenv.readenv_position ->
    string ->
    string ->
    bool)
    option ->
  unit

val warnings_for_discarded_params : bool Stdlib.ref

val setter : 
  Stdlib.Format.formatter ->
  (bool -> 'a) ->
  string ->
  'a Stdlib.ref list ->
  string ->
  unit

val int_setter : 
  Stdlib.Format.formatter ->
  string ->
  int Stdlib.ref ->
  string ->
  unit

val check_bool : Stdlib.Format.formatter -> string -> string -> bool

val check_int : Stdlib.Format.formatter -> string -> string -> int option

val check_relative_path : 
  on_error:(string -> unit) ->
  string ->
  string ->
  string option

type deferred_action =

| ProcessImplementation of string
| ProcessInterface of string
| ProcessCFile of string
| ProcessOtherFile of string
| ProcessObjects of string list
| ProcessDLLs of string list

val c_object_of_filename : string -> string

val defer : Compenv.deferred_action -> unit

val anonymous : string -> unit

val impl : string -> unit

val intf : string -> unit

val process_deferred_actions : 
  (Stdlib.Format.formatter
   * (start_from:Clflags.Compiler_pass.t ->
   source_file:string ->
   output_prefix:string ->
   keep_symbol_tables:bool ->
   unit)
   * (source_file:string ->
   output_prefix:string ->
   unit)
   * string
   * string) ->
  unit

val parse_arguments : 
  ?current:int Stdlib.ref ->
  string array Stdlib.ref ->
  Stdlib.Arg.anon_fun ->
  string ->
  unit

Module Compenv

Module `Compenv`