Portmidi.Device_info.Fields · portmidi 0.1

val names : string list

val opened_internal : ( t, bool ) Fieldslib.Field.t

val struct_version_internal : ( t, int ) Fieldslib.Field.t

val output : ( t, bool ) Fieldslib.Field.t

val input : ( t, bool ) Fieldslib.Field.t

val name : ( t, string option ) Fieldslib.Field.t

val interface : ( t, string option ) Fieldslib.Field.t

val fold : 
  init:'acc__0 ->
  interface:( 'acc__0 -> ( t, string option ) Fieldslib.Field.t -> 'acc__1 ) ->
  name:( 'acc__1 -> ( t, string option ) Fieldslib.Field.t -> 'acc__2 ) ->
  input:( 'acc__2 -> ( t, bool ) Fieldslib.Field.t -> 'acc__3 ) ->
  output:( 'acc__3 -> ( t, bool ) Fieldslib.Field.t -> 'acc__4 ) ->
  struct_version_internal:
    ( 'acc__4 -> ( t, int ) Fieldslib.Field.t -> 'acc__5 ) ->
  opened_internal:( 'acc__5 -> ( t, bool ) Fieldslib.Field.t -> 'acc__6 ) ->
  'acc__6

val make_creator : 
  interface:
    ( ( t, string option ) Fieldslib.Field.t ->
      'acc__0 ->
      ( 'input__ -> string option ) * 'acc__1 ) ->
  name:
    ( ( t, string option ) Fieldslib.Field.t ->
      'acc__1 ->
      ( 'input__ -> string option ) * 'acc__2 ) ->
  input:
    ( ( t, bool ) Fieldslib.Field.t ->
      'acc__2 ->
      ( 'input__ -> bool ) * 'acc__3 ) ->
  output:
    ( ( t, bool ) Fieldslib.Field.t ->
      'acc__3 ->
      ( 'input__ -> bool ) * 'acc__4 ) ->
  struct_version_internal:
    ( ( t, int ) Fieldslib.Field.t ->
      'acc__4 ->
      ( 'input__ -> int ) * 'acc__5 ) ->
  opened_internal:
    ( ( t, bool ) Fieldslib.Field.t ->
      'acc__5 ->
      ( 'input__ -> bool ) * 'acc__6 ) ->
  'acc__0 ->
  ( 'input__ -> t ) * 'acc__6

val create : 
  interface:string option ->
  name:string option ->
  input:bool ->
  output:bool ->
  struct_version_internal:int ->
  opened_internal:bool ->
  t

val map : 
  interface:( ( t, string option ) Fieldslib.Field.t -> string option ) ->
  name:( ( t, string option ) Fieldslib.Field.t -> string option ) ->
  input:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  output:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  struct_version_internal:( ( t, int ) Fieldslib.Field.t -> int ) ->
  opened_internal:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  t

val iter : 
  interface:( ( t, string option ) Fieldslib.Field.t -> unit ) ->
  name:( ( t, string option ) Fieldslib.Field.t -> unit ) ->
  input:( ( t, bool ) Fieldslib.Field.t -> unit ) ->
  output:( ( t, bool ) Fieldslib.Field.t -> unit ) ->
  struct_version_internal:( ( t, int ) Fieldslib.Field.t -> unit ) ->
  opened_internal:( ( t, bool ) Fieldslib.Field.t -> unit ) ->
  unit

val for_all : 
  interface:( ( t, string option ) Fieldslib.Field.t -> bool ) ->
  name:( ( t, string option ) Fieldslib.Field.t -> bool ) ->
  input:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  output:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  struct_version_internal:( ( t, int ) Fieldslib.Field.t -> bool ) ->
  opened_internal:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  bool

val exists : 
  interface:( ( t, string option ) Fieldslib.Field.t -> bool ) ->
  name:( ( t, string option ) Fieldslib.Field.t -> bool ) ->
  input:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  output:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  struct_version_internal:( ( t, int ) Fieldslib.Field.t -> bool ) ->
  opened_internal:( ( t, bool ) Fieldslib.Field.t -> bool ) ->
  bool

val to_list : 
  interface:( ( t, string option ) Fieldslib.Field.t -> 'elem__ ) ->
  name:( ( t, string option ) Fieldslib.Field.t -> 'elem__ ) ->
  input:( ( t, bool ) Fieldslib.Field.t -> 'elem__ ) ->
  output:( ( t, bool ) Fieldslib.Field.t -> 'elem__ ) ->
  struct_version_internal:( ( t, int ) Fieldslib.Field.t -> 'elem__ ) ->
  opened_internal:( ( t, bool ) Fieldslib.Field.t -> 'elem__ ) ->
  'elem__ list

val map_poly : 
  ( [< `Read | `Set_and_create ], t, 'x0 ) Fieldslib.Field.user ->
  'x0 list

module Direct : sig ... end