Fields (archive_lib.Archive_lib.Processor.Block_and_internal

val names : string list

val failure_reason : 
  ( [< `Read | `Set_and_create ], t, string option )
    Fieldslib.Field.t_with_perm

val status : 
  ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm

val secondary_sequence_no : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val sequence_no : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val internal_command_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val block_id : 
  ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm

val make_creator : 
  block_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'a ->
      ( 'b -> int ) * 'c ) ->
  internal_command_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'd ->
      ( 'e -> int ) * 'f ) ->
  sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'g ->
      ( 'h -> int ) * 'i ) ->
  secondary_sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'j ->
      ( 'k -> int ) * 'l ) ->
  status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'm ->
      ( 'n -> string ) * 'o ) ->
  failure_reason:
    ( ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      'p ->
      ( 'q -> string option ) * 'r ) ->
  's ->
  ( 't -> t ) * 'u

val create : 
  block_id:int ->
  internal_command_id:int ->
  sequence_no:int ->
  secondary_sequence_no:int ->
  status:string ->
  failure_reason:string option ->
  t

val map : 
  block_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  internal_command_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  secondary_sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      int ) ->
  status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      string ) ->
  failure_reason:
    ( ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      string option ) ->
  t

val iter : 
  block_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  internal_command_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  secondary_sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      unit ) ->
  failure_reason:
    ( ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  unit

val fold : 
  init:'a ->
  block_id:
    ( 'b ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'c ) ->
  internal_command_id:
    ( 'd ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'e ) ->
  sequence_no:
    ( 'f ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'g ) ->
  secondary_sequence_no:
    ( 'h ->
      ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'i ) ->
  status:
    ( 'j ->
      ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'k ) ->
  failure_reason:
    ( 'l ->
      ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      'm ) ->
  'n

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

val for_all : 
  block_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  internal_command_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  secondary_sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  failure_reason:
    ( ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val exists : 
  block_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  internal_command_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  secondary_sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      bool ) ->
  failure_reason:
    ( ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val to_list : 
  block_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'a ) ->
  internal_command_id:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'b ) ->
  sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'c ) ->
  secondary_sequence_no:
    ( ( [< `Read | `Set_and_create ], t, int ) Fieldslib.Field.t_with_perm ->
      'd ) ->
  status:
    ( ( [< `Read | `Set_and_create ], t, string ) Fieldslib.Field.t_with_perm ->
      'e ) ->
  failure_reason:
    ( ( [< `Read | `Set_and_create ], t, string option )
        Fieldslib.Field.t_with_perm ->
      'f ) ->
  'g list

module Direct : sig ... end