Portmidi.Portmidi_event.Fields · portmidi 0.1

val names : string list

val timestamp : ( t, int32 ) Fieldslib.Field.t

val message : ( t, int32 ) Fieldslib.Field.t

val fold : 
  init:'acc__0 ->
  message:( 'acc__0 -> ( t, int32 ) Fieldslib.Field.t -> 'acc__1 ) ->
  timestamp:( 'acc__1 -> ( t, int32 ) Fieldslib.Field.t -> 'acc__2 ) ->
  'acc__2

val make_creator : 
  message:
    ( ( t, int32 ) Fieldslib.Field.t ->
      'acc__0 ->
      ( 'input__ -> int32 ) * 'acc__1 ) ->
  timestamp:
    ( ( t, int32 ) Fieldslib.Field.t ->
      'acc__1 ->
      ( 'input__ -> int32 ) * 'acc__2 ) ->
  'acc__0 ->
  ( 'input__ -> t ) * 'acc__2

val create : message:int32 -> timestamp:int32 -> t

val map : 
  message:( ( t, int32 ) Fieldslib.Field.t -> int32 ) ->
  timestamp:( ( t, int32 ) Fieldslib.Field.t -> int32 ) ->
  t

val iter : 
  message:( ( t, int32 ) Fieldslib.Field.t -> unit ) ->
  timestamp:( ( t, int32 ) Fieldslib.Field.t -> unit ) ->
  unit

val for_all : 
  message:( ( t, int32 ) Fieldslib.Field.t -> bool ) ->
  timestamp:( ( t, int32 ) Fieldslib.Field.t -> bool ) ->
  bool

val exists : 
  message:( ( t, int32 ) Fieldslib.Field.t -> bool ) ->
  timestamp:( ( t, int32 ) Fieldslib.Field.t -> bool ) ->
  bool

val to_list : 
  message:( ( t, int32 ) Fieldslib.Field.t -> 'elem__ ) ->
  timestamp:( ( t, int32 ) Fieldslib.Field.t -> 'elem__ ) ->
  'elem__ list

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

module Direct : sig ... end