Field (cobol_interp.Cobol

val errors : 'a -> ('b, 'a) Stdlib.result

val error : 'a -> ('b, 'a Cobol_ir.Types.NEL.t) Stdlib.result

val lift_ezlibcob_error : 
  ('a, Ezlibcob.V1.error) Stdlib.result ->
  ('a, Cobol_ir.Types.error Cobol_ir.Types.NEL.t) Stdlib.result

val cptr_of_array : Types.cob_field array -> Types.cob_field Ezlibcob.V1.cptr

val value : vm:'a -> Types.cob_field_handle -> Types.cob_field

val values : vm:'a -> Types.cob_field_handle array -> Types.cob_field array

val pic_symbols : 
  Cobol_data.Types.picture ->
  Ezlibcob.V1.CobPicSymbol.k Ezlibcob.V1.comp Ezlibcob__V1.cptr

val sign_flags : Cobol_data.Picture.TYPES.sign_config option -> int

val fixednum_attrs : 
  constant:bool ->
  digits:int ->
  scale:int ->
  sign:Cobol_data.Picture.TYPES.sign_config option ->
  pic:Cobol_data.Picture.TYPES.picture ->
  (Ezlibcob.V1.CobFieldAttr.t Ezlibcob__V1.cptr,
    Cobol_ir.Types.error Cobol_ir.Types.NEL.t)
    Stdlib.result

val alphanum_attrs : 
  constant:bool ->
  pic:Cobol_data.Picture.TYPES.picture ->
  Ezlibcob.V1.CobFieldAttr.t Ezlibcob__V1.cptr

val group_attrs : Ezlibcob.V1.CobFieldAttr.t Ezlibcob__V1.cptr

val elementary_field_attrs : 
  Cobol_data.Types.usage ->
  (Ezlibcob.V1.CobFieldAttr.t Ezlibcob__V1.cptr,
    Cobol_ir.Types.error Cobol_ir.Types.NEL.t)
    Stdlib.result
    option

val from_literal : 
  Cobol_ptree.literal Cobol_ptree.with_loc ->
  (Ezlibcob.V1.CobField.t Ezlibcob__V1.cptr,
    Cobol_ir.Types.error Cobol_ir.Types.NEL.t)
    Stdlib.result

val memory_bytes : Cobol_data.Memory.size -> int

val in_record_memory : 
  Cobol_data.Types.field_definition Cobol_common__Srcloc.TYPES.with_loc ->
  Types.cob_record_handle ->
  (Ezlibcob.V1.CobField.t Ezlibcob__V1.cptr Cobol_ir.Types.mutable_field,
    Cobol_ir.Types.error Cobol_ir.Types.NEL.t)
    Stdlib.result

Operations

val init : vm:'a -> Types.cob_field_mutable -> (unit, 'b) Stdlib.result

val as_int : 
  vm:'a ->
  Types.cob_field_handle ->
  (int, Cobol_ir.Types.error Cobol_ir.Types.NEL.t) Stdlib.result