genspio 0.0.3 · OCaml Package

module Format = Caml.Format

type c_string =

| C_string

type byte_array =

| Byte_Array

module Literal : sig ... end

type raw_command_annotation = ..

type raw_command_annotation +=

| Magic_unit

type fd_redirection = {

take : Common.int t;
redirect_to : [ `Path of c_string t | `Fd of Common.int t ];

}

and _ t =

| Exec : c_string t Common.list -> Common.unit t
| Raw_cmd : (raw_command_annotation Common.option * Common.string) -> 'a t
| Bool_operator : Common.bool t * [ `And | `Or ] * Common.bool t -> Common.bool t
| String_operator : byte_array t * [ `Eq | `Neq ] * byte_array t -> Common.bool t
| Not : Common.bool t -> Common.bool t
| Returns : {
1. expr : 'a t;
2. value : Common.int;
} -> Common.bool t
| No_op : Common.unit t
| If : Common.bool t * Common.unit t * Common.unit t -> Common.unit t
| Seq : Common.unit t Common.list -> Common.unit t
| Literal : 'a Literal.t -> 'a t
| Output_as_string : Common.unit t -> byte_array t
| Redirect_output : Common.unit t * fd_redirection Common.list -> Common.unit t
| Write_output : {
1. expr : Common.unit t;
2. stdout : c_string t Common.option;
3. stderr : c_string t Common.option;
4. return_value : c_string t Common.option;
} -> Common.unit t
| Feed : byte_array t * Common.unit t -> Common.unit t
| Pipe : Common.unit t Common.list -> Common.unit t
| While : {
1. condition : Common.bool t;
2. body : Common.unit t;
} -> Common.unit t
| Fail : Common.string -> Common.unit t
| Int_to_string : Common.int t -> c_string t
| String_to_int : c_string t -> Common.int t
| Bool_to_string : Common.bool t -> c_string t
| String_to_bool : c_string t -> Common.bool t
| List_to_string : 'a Common.list t * ('a t -> byte_array t) -> byte_array t
| String_to_list : byte_array t * (byte_array t -> 'a t) -> 'a Common.list t
| List : 'a t Common.list -> 'a Common.list t
| C_string_concat : c_string Common.list t -> c_string t
| Byte_array_concat : byte_array Common.list t -> byte_array t
| List_append : ('a Common.list t * 'a Common.list t) -> 'a Common.list t
| List_iter : 'a Common.list t * ((Common.unit -> 'a t) -> Common.unit t) -> Common.unit t
| Byte_array_to_c_string : byte_array t -> c_string t
| C_string_to_byte_array : c_string t -> byte_array t
| Int_bin_op : Common.int t * [ `Plus | `Minus | `Mult | `Div | `Mod ] * Common.int t -> Common.int t
| Int_bin_comparison : Common.int t * [ `Eq | `Ne | `Gt | `Ge | `Lt | `Le ] * Common.int t -> Common.bool t
| Getenv : c_string t -> c_string t
| Setenv : c_string t * c_string t -> Common.unit t
| Comment : Common.string * 'a t -> 'a t

val pp_in_expr : Format.formatter -> (Format.formatter -> unit -> unit) -> unit

val pp_fun_call : 
  Format.formatter ->
  string ->
  (Format.formatter -> 'a -> unit) ->
  'a list ->
  unit

val pp : 'a. Format.formatter -> 'a t -> Common.unit

module Construct : sig ... end

package genspio