include obj.rfi

type

TLibFlags set 8 of (CaseSensitive)

TLibHdrDataRec struc
  ulong DictOfs
  word DictSizeInBlocks
  TLibFlags Flags
  raw[] rest
ends

TLibHdrRec struc
  TObjRecKind Kind
  word size
  TLibHdrDataRec Data
ends :[@.Data:Size=@.size]:assert[@.Kind=TObjRecKind.okLIBHDR]

data
0x0000 TLibHdrRec LibHdr

assert LibHdr.Kind=TObjRecKind.okLIBHDR;

const
  BlockSize = LibHdr:Size;

type
  TModuleRec struc
    TObjRecStm Stream
    (align BlockSize at &@;) rest
  ends:displ=('{',HEX(&@),'}',@)

data
LibHdr:Size array of TModuleRec ?@.Stream[0].Kind=
  TObjRecKind.okLIBEnd!TObjRec; Stream
//LibHdr:Size array of TModuleRec:[@:Size=LibHdr.Data.DictOfs-
//  LibHdr:Size] Stream

type
  TLibDictBlock struc
    array[37] of Byte Bucket //@*2 - offset in the block
    byte FreeStart  //@*2 - offset in the block
    raw[0x200-38] at &@; Data
  ends

data
LibHdr.Data.DictOfs array[LibHdr.Data.DictSizeInBlocks] of TLibDictBlock Dict

Other specifications.

FlexT home page, Author`s home page.