Tbzip2_decode_stream

type Tbzip2_decode_stream = object(Tstream)

  short: Cardinal;

  readstream: Pstream;

  block_randomized: Boolean;

  blocksize: Byte;

  tt: PCardinal_array;

  tt_count: Cardinal;

  rle_run_left: Byte;

  rle_run_data: Byte;

  nextrle: Pbyte;

  decode_available: Cardinal;

  block_origin: Cardinal;

  current_block: Cardinal;

  read_data: Byte;

  bits_available: Byte;

  inuse16: ;

  inuse: ;

  inuse_count: Cardinal;

  seq_to_unseq: array [0..255] of Byte;

  alphasize: Cardinal;

  group_count: Byte;

  group_pos: Byte;

  gsel: Byte;

  gminlen: Byte;

  group_no: Cardinal;

  glimit: Phuffarray;

  gperm: Phuffarray;

  gbase: Phuffarray;

  selector_count: Cardinal;

  selector: array [0..max_selectors] of Byte;

  selector_mtf: array [0..max_selectors] of Byte;

  len: array [0..max_groups,0..max_alpha_size] of Byte;

  limit: array [0..max_groups,0..max_alpha_size] of Cardinal;

  base: array [0..max_groups,0..max_alpha_size] of Cardinal;

  perm: array [0..max_groups,0..max_alpha_size] of Cardinal;

  minlens: array [0..max_groups] of Byte;

  cftab: array [0..257] of Cardinal;

  mtfbase: array [0..256divmtfl_size-1] of Cardinal;

  mtfa: array [0..mtfa_size-1] of Byte;

  constructor init();

  function get_bits();

  function get_boolean;

  function get_byte;

  function get_cardinal24;

  function get_cardinal;

  procedure receive_mapping_table;

  procedure receive_selectors;

  procedure undo_mtf_values;

  procedure receive_coding_tables;

  procedure make_hufftab;

  procedure init_mtf;

  function get_mtf_value;

  procedure move_mtf_block;

  procedure receive_mtf_values;

  procedure detransform;

  function decode_block;

  procedure read(); virtual;

  procedure new_block;

  procedure consume_rle;

  procedure rle_read();

  destructor done; virtual;

end;

Tbzip2_decode_stream

TObject