Geant4  10.03.p03
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
trees.cc File Reference
#include "deflate.h"
Include dependency graph for trees.cc:

Go to the source code of this file.

Classes

struct  static_tree_desc_s
 

Macros

#define MAX_BL_BITS   7
 
#define END_BLOCK   256
 
#define REP_3_6   16
 
#define REPZ_3_10   17
 
#define REPZ_11_138   18
 
#define DIST_CODE_LEN   512 /* see definition of array dist_code below */
 
#define send_code(s, c, tree)   send_bits(s, tree[c].Code, tree[c].Len)
 
#define put_short(s, w)
 
#define send_bits(s, value, length)
 
#define SMALLEST   1
 
#define pqremove(s, tree, top)
 
#define smaller(tree, n, m, depth)
 

Functions

local void tr_static_init OF ((void))
 
local void init_block OF ((deflate_state *s))
 
local void pqdownheap OF ((deflate_state *s, ct_data *tree, int k))
 
local void gen_bitlen OF ((deflate_state *s, tree_desc *desc))
 
local void gen_codes OF ((ct_data *tree, int max_code, ushf *bl_count))
 
local void scan_tree OF ((deflate_state *s, ct_data *tree, int max_code))
 
local void send_all_trees OF ((deflate_state *s, int lcodes, int dcodes, int blcodes))
 
local void compress_block OF ((deflate_state *s, const ct_data *ltree, const ct_data *dtree))
 
local unsigned bi_reverse OF ((unsigned value, int length))
 
local void copy_block OF ((deflate_state *s, charf *buf, unsigned len, int header))
 
local void tr_static_init ()
 
void ZLIB_INTERNAL _tr_init (deflate_state *s)
 
local void init_block (deflate_state *s)
 
local void pqdownheap (deflate_state *s, ct_data *tree, int k)
 
local void gen_bitlen (deflate_state *s, tree_desc *desc)
 
local void gen_codes (ct_data *tree, int max_code, ushf *bl_count)
 
local void build_tree (deflate_state *s, tree_desc *desc)
 
local void scan_tree (deflate_state *s, ct_data *tree, int max_code)
 
local void send_tree (deflate_state *s, ct_data *tree, int max_code)
 
local int build_bl_tree (deflate_state *s)
 
local void send_all_trees (deflate_state *s, int lcodes, int dcodes, int blcodes)
 
void ZLIB_INTERNAL _tr_stored_block (deflate_state *s, charf *buf, ulg stored_len, int last)
 
void ZLIB_INTERNAL _tr_flush_bits (deflate_state *s)
 
void ZLIB_INTERNAL _tr_align (deflate_state *s)
 
void ZLIB_INTERNAL _tr_flush_block (deflate_state *s, charf *buf, ulg stored_len, int last)
 
int ZLIB_INTERNAL _tr_tally (deflate_state *s, unsigned dist, unsigned lc)
 
local void compress_block (deflate_state *s, const ct_data *ltree, const ct_data *dtree)
 
local int detect_data_type (deflate_state *s)
 
local unsigned bi_reverse (unsigned code, int len)
 
local void bi_flush (deflate_state *s)
 
local void bi_windup (deflate_state *s)
 
local void copy_block (deflate_state *s, charf *buf, unsigned len, int header)
 

Variables

local const int extra_lbits [LENGTH_CODES] = {0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0}
 
local const int extra_dbits [D_CODES] = {0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13}
 
local const int extra_blbits [BL_CODES] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,7}
 
local const uch bl_order [BL_CODES] = {16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15}
 
local ct_data static_ltree [L_CODES+2]
 
local ct_data static_dtree [D_CODES]
 
uch _dist_code [DIST_CODE_LEN]
 
uch _length_code [MAX_MATCH-MIN_MATCH+1]
 
local int base_length [LENGTH_CODES]
 
local int base_dist [D_CODES]
 
local static_tree_desc static_l_desc
 
local static_tree_desc static_d_desc
 
local static_tree_desc static_bl_desc
 

Macro Definition Documentation

#define DIST_CODE_LEN   512 /* see definition of array dist_code below */

Definition at line 81 of file trees.cc.

#define END_BLOCK   256

Definition at line 50 of file trees.cc.

#define MAX_BL_BITS   7

Definition at line 47 of file trees.cc.

#define pqremove (   s,
  tree,
  top 
)
Value:
{\
top = s->heap[SMALLEST]; \
s->heap[SMALLEST] = s->heap[s->heap_len--]; \
}
local void pqdownheap(deflate_state *s, ct_data *tree, int k)
Definition: trees.cc:448
#define SMALLEST
Definition: trees.cc:419
const XML_Char * s
Definition: expat.h:262
tuple tree
Definition: gammaraytel.py:4

Definition at line 427 of file trees.cc.

#define put_short (   s,
 
)
Value:
{ \
put_byte(s, (uch)((w) & 0xff)); \
put_byte(s, (uch)((ush)(w) >> 8)); \
}
const XML_Char * s
Definition: expat.h:262
#define put_byte(s, c)
Definition: deflate.h:278
unsigned char uch
Definition: csz_inflate.cc:209
unsigned short ush
Definition: csz_inflate.cc:210

Definition at line 176 of file trees.cc.

#define REP_3_6   16

Definition at line 53 of file trees.cc.

#define REPZ_11_138   18

Definition at line 59 of file trees.cc.

#define REPZ_3_10   17

Definition at line 56 of file trees.cc.

#define send_bits (   s,
  value,
  length 
)
Value:
{ int len = length;\
if (s->bi_valid > (int)Buf_size - len) {\
int val = value;\
s->bi_buf |= (ush)val << s->bi_valid;\
put_short(s, s->bi_buf);\
s->bi_buf = (ush)val >> (Buf_size - s->bi_valid);\
s->bi_valid += len - Buf_size;\
} else {\
s->bi_buf |= (ush)(value) << s->bi_valid;\
s->bi_valid += len;\
}\
}
const XML_Char int len
Definition: expat.h:262
if(nIso!=0)
const XML_Char * s
Definition: expat.h:262
#define Buf_size
Definition: deflate.h:51
#define put_short(s, w)
Definition: trees.cc:176
const XML_Char int const XML_Char * value
Definition: expat.h:331
typedef int(XMLCALL *XML_NotStandaloneHandler)(void *userData)
unsigned short ush
Definition: csz_inflate.cc:210
unsigned length
Definition: inflate.h:101

Definition at line 210 of file trees.cc.

#define send_code (   s,
  c,
  tree 
)    send_bits(s, tree[c].Code, tree[c].Len)

Definition at line 163 of file trees.cc.

#define smaller (   tree,
  n,
  m,
  depth 
)
Value:
(tree[n].Freq < tree[m].Freq || \
(tree[n].Freq == tree[m].Freq && depth[n] <= depth[m]))
static constexpr double m
Definition: G4SIunits.hh:129
tuple tree
Definition: gammaraytel.py:4
const G4int n

Definition at line 438 of file trees.cc.

#define SMALLEST   1

Definition at line 419 of file trees.cc.

Function Documentation

void ZLIB_INTERNAL _tr_align ( deflate_state s)

Definition at line 863 of file trees.cc.

864 {
865  send_bits(s, STATIC_TREES<<1, 3);
867 #ifdef DEBUG
868  s->compressed_len += 10L; /* 3 for block type, 7 for EOB */
869 #endif
870  bi_flush(s);
871 }
local void bi_flush(deflate_state *s)
Definition: trees.cc:1126
local ct_data static_ltree[L_CODES+2]
Definition: trees.cc:86
#define END_BLOCK
Definition: trees.cc:50
#define STATIC_TREES
Definition: zutil.h:71
static constexpr double L
Definition: G4SIunits.hh:124
#define send_code(s, c, tree)
Definition: trees.cc:163
#define send_bits(s, value, length)
Definition: trees.cc:210

Here is the call graph for this function:

Here is the caller graph for this function:

void ZLIB_INTERNAL _tr_flush_bits ( deflate_state s)

Definition at line 854 of file trees.cc.

855 {
856  bi_flush(s);
857 }
local void bi_flush(deflate_state *s)
Definition: trees.cc:1126

Here is the call graph for this function:

Here is the caller graph for this function:

void ZLIB_INTERNAL _tr_flush_block ( deflate_state s,
charf *  buf,
ulg  stored_len,
int  last 
)

Definition at line 877 of file trees.cc.

878 {
879  ulg opt_lenb, static_lenb; /* opt_len and static_len in bytes */
880  int max_blindex = 0; /* index of last bit length code of non zero freq */
881 
882  /* Build the Huffman trees unless a stored block is forced */
883  if (s->level > 0) {
884 
885  /* Check if the file is binary or text */
886  if (s->strm->data_type == Z_UNKNOWN)
887  s->strm->data_type = detect_data_type(s);
888 
889  /* Construct the literal and distance trees */
890  build_tree(s, (tree_desc *)(&(s->l_desc)));
891  Tracev((stderr, "\nlit data: dyn %ld, stat %ld", s->opt_len,
892  s->static_len));
893 
894  build_tree(s, (tree_desc *)(&(s->d_desc)));
895  Tracev((stderr, "\ndist data: dyn %ld, stat %ld", s->opt_len,
896  s->static_len));
897  /* At this point, opt_len and static_len are the total bit lengths of
898  * the compressed block data, excluding the tree representations.
899  */
900 
901  /* Build the bit length tree for the above two trees, and get the index
902  * in bl_order of the last bit length code to send.
903  */
904  max_blindex = build_bl_tree(s);
905 
906  /* Determine the best encoding. Compute the block lengths in bytes. */
907  opt_lenb = (s->opt_len+3+7)>>3;
908  static_lenb = (s->static_len+3+7)>>3;
909 
910  Tracev((stderr, "\nopt %lu(%lu) stat %lu(%lu) stored %lu lit %u ",
911  opt_lenb, s->opt_len, static_lenb, s->static_len, stored_len,
912  s->last_lit));
913 
914  if (static_lenb <= opt_lenb) opt_lenb = static_lenb;
915 
916  } else {
917  Assert(buf != (char*)0, "lost buf");
918  opt_lenb = static_lenb = stored_len + 5; /* force a stored block */
919  }
920 
921 #ifdef FORCE_STORED
922  if (buf != (char*)0) { /* force stored block */
923 #else
924  if (stored_len+4 <= opt_lenb && buf != (char*)0) {
925  /* 4: two words for the lengths */
926 #endif
927  /* The test buf != NULL is only necessary if LIT_BUFSIZE > WSIZE.
928  * Otherwise we can't have processed more than WSIZE input bytes since
929  * the last block flush, because compression would have been
930  * successful. If LIT_BUFSIZE <= WSIZE, it is never too late to
931  * transform a block into a stored block.
932  */
933  _tr_stored_block(s, buf, stored_len, last);
934 
935 #ifdef FORCE_STATIC
936  } else if (static_lenb >= 0) { /* force static trees */
937 #else
938  } else if (s->strategy == Z_FIXED || static_lenb == opt_lenb) {
939 #endif
940  send_bits(s, (STATIC_TREES<<1)+last, 3);
941  compress_block(s, (const ct_data *)static_ltree,
942  (const ct_data *)static_dtree);
943 #ifdef DEBUG
944  s->compressed_len += 3 + s->static_len;
945 #endif
946  } else {
947  send_bits(s, (DYN_TREES<<1)+last, 3);
949  max_blindex+1);
950  compress_block(s, (const ct_data *)s->dyn_ltree,
951  (const ct_data *)s->dyn_dtree);
952 #ifdef DEBUG
953  s->compressed_len += 3 + s->opt_len;
954 #endif
955  }
956  Assert (s->compressed_len == s->bits_sent, "bad compressed size");
957  /* The above check is made mod 2^32, for files larger than 512 MB
958  * and uLong implemented on 32 bits.
959  */
960  init_block(s);
961 
962  if (last) {
963  bi_windup(s);
964 #ifdef DEBUG
965  s->compressed_len += 7; /* align on byte boundary */
966 #endif
967  }
968  Tracev((stderr,"\ncomprlen %lu(%lu) ", s->compressed_len>>3,
969  s->compressed_len-7*last));
970 }
ulg static_len
Definition: deflate.h:248
unsigned long ulg
Definition: csz_inflate.cc:211
void ZLIB_INTERNAL _tr_stored_block(deflate_state *s, charf *buf, ulg stored_len, int last)
Definition: trees.cc:841
local void bi_windup(deflate_state *s)
Definition: trees.cc:1142
#define Z_UNKNOWN
Definition: zlib.h:202
local ct_data static_dtree[D_CODES]
Definition: trees.cc:93
#define Assert(cond, msg)
Definition: zutil.h:230
#define Tracev(x)
Definition: zutil.h:232
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
#define Z_FIXED
Definition: zlib.h:195
local void build_tree(deflate_state *s, tree_desc *desc)
Definition: trees.cc:604
int max_code
Definition: deflate.h:85
local ct_data static_ltree[L_CODES+2]
Definition: trees.cc:86
local int build_bl_tree(deflate_state *s)
Definition: trees.cc:780
z_streamp strm
Definition: deflate.h:98
struct tree_desc_s d_desc
Definition: deflate.h:200
local void send_all_trees(deflate_state *s, int lcodes, int dcodes, int blcodes)
Definition: trees.cc:814
struct ct_data_s dyn_dtree[2 *D_CODES+1]
Definition: deflate.h:196
struct tree_desc_s l_desc
Definition: deflate.h:199
uInt last_lit
Definition: deflate.h:239
#define STATIC_TREES
Definition: zutil.h:71
local void init_block(deflate_state *s)
Definition: trees.cc:405
local void compress_block(deflate_state *s, const ct_data *ltree, const ct_data *dtree)
Definition: trees.cc:1023
#define DYN_TREES
Definition: zutil.h:72
#define send_bits(s, value, length)
Definition: trees.cc:210
local int detect_data_type(deflate_state *s)
Definition: trees.cc:1080

Here is the call graph for this function:

void ZLIB_INTERNAL _tr_init ( deflate_state s)

Definition at line 378 of file trees.cc.

379 {
380  tr_static_init();
381 
382  s->l_desc.dyn_tree = s->dyn_ltree;
384 
385  s->d_desc.dyn_tree = s->dyn_dtree;
387 
388  s->bl_desc.dyn_tree = s->bl_tree;
390 
391  s->bi_buf = 0;
392  s->bi_valid = 0;
393 #ifdef DEBUG
394  s->compressed_len = 0L;
395  s->bits_sent = 0L;
396 #endif
397 
398  /* Initialize the first block of the first file: */
399  init_block(s);
400 }
local static_tree_desc static_l_desc
Definition: trees.cc:125
local static_tree_desc static_bl_desc
Definition: trees.cc:131
local static_tree_desc static_d_desc
Definition: trees.cc:128
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
ct_data * dyn_tree
Definition: deflate.h:84
static_tree_desc * stat_desc
Definition: deflate.h:86
struct tree_desc_s bl_desc
Definition: deflate.h:201
struct tree_desc_s d_desc
Definition: deflate.h:200
local void tr_static_init()
Definition: trees.cc:231
struct ct_data_s dyn_dtree[2 *D_CODES+1]
Definition: deflate.h:196
struct tree_desc_s l_desc
Definition: deflate.h:199
local void init_block(deflate_state *s)
Definition: trees.cc:405
static constexpr double L
Definition: G4SIunits.hh:124
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197

Here is the call graph for this function:

Here is the caller graph for this function:

void ZLIB_INTERNAL _tr_stored_block ( deflate_state s,
charf *  buf,
ulg  stored_len,
int  last 
)

Definition at line 841 of file trees.cc.

842 {
843  send_bits(s, (STORED_BLOCK<<1)+last, 3); /* send block type */
844 #ifdef DEBUG
845  s->compressed_len = (s->compressed_len + 3 + 7) & (ulg)~7L;
846  s->compressed_len += (stored_len + 4) << 3;
847 #endif
848  copy_block(s, buf, (unsigned)stored_len, 1); /* with header */
849 }
unsigned long ulg
Definition: csz_inflate.cc:211
#define STORED_BLOCK
Definition: zutil.h:70
local void copy_block(deflate_state *s, charf *buf, unsigned len, int header)
Definition: trees.cc:1160
static constexpr double L
Definition: G4SIunits.hh:124
#define send_bits(s, value, length)
Definition: trees.cc:210

Here is the call graph for this function:

Here is the caller graph for this function:

int ZLIB_INTERNAL _tr_tally ( deflate_state s,
unsigned  dist,
unsigned  lc 
)

Definition at line 976 of file trees.cc.

977 {
978  s->d_buf[s->last_lit] = (ush)dist;
979  s->l_buf[s->last_lit++] = (uch)lc;
980  if (dist == 0) {
981  /* lc is the unmatched char */
982  s->dyn_ltree[lc].Freq++;
983  } else {
984  s->matches++;
985  /* Here, lc is the match length - MIN_MATCH */
986  dist--; /* dist = match distance - 1 */
987  Assert((ush)dist < (ush)MAX_DIST(s) &&
988  (ush)lc <= (ush)(MAX_MATCH-MIN_MATCH) &&
989  (ush)d_code(dist) < (ush)D_CODES, "_tr_tally: bad match");
990 
991  s->dyn_ltree[_length_code[lc]+LITERALS+1].Freq++;
992  s->dyn_dtree[d_code(dist)].Freq++;
993  }
994 
995 #ifdef TRUNCATE_BLOCK
996  /* Try to guess if it is profitable to stop the current block here */
997  if ((s->last_lit & 0x1fff) == 0 && s->level > 2) {
998  /* Compute an upper bound for the compressed length */
999  ulg out_length = (ulg)s->last_lit*8L;
1000  ulg in_length = (ulg)((long)s->strstart - s->block_start);
1001  int dcode;
1002  for (dcode = 0; dcode < D_CODES; dcode++) {
1003  out_length += (ulg)s->dyn_dtree[dcode].Freq *
1004  (5L+extra_dbits[dcode]);
1005  }
1006  out_length >>= 3;
1007  Tracev((stderr,"\nlast_lit %u, in %ld, out ~%ld(%ld%%) ",
1008  s->last_lit, in_length, out_length,
1009  100L - out_length*100L/in_length));
1010  if (s->matches < s->last_lit/2 && out_length < in_length/2) return 1;
1011  }
1012 #endif
1013  return (s->last_lit == s->lit_bufsize-1);
1014  /* We avoid equality with lit_bufsize because of wraparound at 64K
1015  * on 16 bit machines and because stored blocks are restricted to
1016  * 64K-1 bytes.
1017  */
1018 }
unsigned long ulg
Definition: csz_inflate.cc:211
#define MIN_MATCH
Definition: zutil.h:75
#define Assert(cond, msg)
Definition: zutil.h:230
#define Tracev(x)
Definition: zutil.h:232
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
#define MAX_DIST(s)
Definition: deflate.h:286
#define LITERALS
Definition: deflate.h:33
local const int extra_dbits[D_CODES]
Definition: trees.cc:66
#define MAX_MATCH
Definition: zutil.h:76
uchf * l_buf
Definition: deflate.h:217
uInt lit_bufsize
Definition: deflate.h:219
ushf * d_buf
Definition: deflate.h:241
long block_start
Definition: deflate.h:151
struct ct_data_s dyn_dtree[2 *D_CODES+1]
Definition: deflate.h:196
unsigned char uch
Definition: csz_inflate.cc:209
#define d_code(dist)
Definition: deflate.h:305
uInt last_lit
Definition: deflate.h:239
unsigned short ush
Definition: csz_inflate.cc:210
uInt strstart
Definition: deflate.h:159
uch ZLIB_INTERNAL _length_code[]
Definition: trees.cc:104
uInt matches
Definition: deflate.h:249
static constexpr double L
Definition: G4SIunits.hh:124
#define D_CODES
Definition: deflate.h:39
local void bi_flush ( deflate_state s)

Definition at line 1126 of file trees.cc.

1127 {
1128  if (s->bi_valid == 16) {
1129  put_short(s, s->bi_buf);
1130  s->bi_buf = 0;
1131  s->bi_valid = 0;
1132  } else if (s->bi_valid >= 8) {
1133  put_byte(s, (Byte)s->bi_buf);
1134  s->bi_buf >>= 8;
1135  s->bi_valid -= 8;
1136  }
1137 }
#define put_short(s, w)
Definition: trees.cc:176
#define put_byte(s, c)
Definition: deflate.h:278

Here is the caller graph for this function:

local unsigned bi_reverse ( unsigned  code,
int  len 
)

Definition at line 1113 of file trees.cc.

1114 {
1115  unsigned res = 0;
1116  do {
1117  res |= code & 1;
1118  code >>= 1, res <<= 1;
1119  } while (--len > 0);
1120  return res >> 1;
1121 }
const XML_Char int len
Definition: expat.h:262
Definition: inftrees.h:24

Here is the caller graph for this function:

local void bi_windup ( deflate_state s)

Definition at line 1142 of file trees.cc.

1143 {
1144  if (s->bi_valid > 8) {
1145  put_short(s, s->bi_buf);
1146  } else if (s->bi_valid > 0) {
1147  put_byte(s, (Byte)s->bi_buf);
1148  }
1149  s->bi_buf = 0;
1150  s->bi_valid = 0;
1151 #ifdef DEBUG
1152  s->bits_sent = (s->bits_sent+7) & ~7;
1153 #endif
1154 }
#define put_short(s, w)
Definition: trees.cc:176
#define put_byte(s, c)
Definition: deflate.h:278

Here is the caller graph for this function:

local int build_bl_tree ( deflate_state s)

Definition at line 780 of file trees.cc.

781 {
782  int max_blindex; /* index of last bit length code of non zero freq */
783 
784  /* Determine the bit length frequencies for literal and distance trees */
785  scan_tree(s, (ct_data *)s->dyn_ltree, s->l_desc.max_code);
786  scan_tree(s, (ct_data *)s->dyn_dtree, s->d_desc.max_code);
787 
788  /* Build the bit length tree: */
789  build_tree(s, (tree_desc *)(&(s->bl_desc)));
790  /* opt_len now includes the length of the tree representations, except
791  * the lengths of the bit lengths codes and the 5+5+4 bits for the counts.
792  */
793 
794  /* Determine the number of bit length codes to send. The pkzip format
795  * requires that at least 4 bit length codes be sent. (appnote.txt says
796  * 3 but the actual value used is 4.)
797  */
798  for (max_blindex = BL_CODES-1; max_blindex >= 3; max_blindex--) {
799  if (s->bl_tree[bl_order[max_blindex]].Len != 0) break;
800  }
801  /* Update opt_len to include the bit length tree and counts */
802  s->opt_len += 3*(max_blindex+1) + 5+5+4;
803  Tracev((stderr, "\ndyn trees: dyn %ld, stat %ld",
804  s->opt_len, s->static_len));
805 
806  return max_blindex;
807 }
ulg static_len
Definition: deflate.h:248
local const uch bl_order[BL_CODES]
Definition: trees.cc:72
#define BL_CODES
Definition: deflate.h:42
#define Tracev(x)
Definition: zutil.h:232
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
local void scan_tree(deflate_state *s, ct_data *tree, int max_code)
Definition: trees.cc:690
local void build_tree(deflate_state *s, tree_desc *desc)
Definition: trees.cc:604
int max_code
Definition: deflate.h:85
struct tree_desc_s bl_desc
Definition: deflate.h:201
struct tree_desc_s d_desc
Definition: deflate.h:200
struct ct_data_s dyn_dtree[2 *D_CODES+1]
Definition: deflate.h:196
struct tree_desc_s l_desc
Definition: deflate.h:199
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197

Here is the call graph for this function:

Here is the caller graph for this function:

local void build_tree ( deflate_state s,
tree_desc desc 
)

Definition at line 604 of file trees.cc.

605 {
606  ct_data *tree = desc->dyn_tree;
607  const ct_data *stree = desc->stat_desc->static_tree;
608  int elems = desc->stat_desc->elems;
609  int n, m; /* iterate over heap elements */
610  int max_code = -1; /* largest code with non zero frequency */
611  int node; /* new node being created */
612 
613  /* Construct the initial heap, with least frequent element in
614  * heap[SMALLEST]. The sons of heap[n] are heap[2*n] and heap[2*n+1].
615  * heap[0] is not used.
616  */
617  s->heap_len = 0, s->heap_max = HEAP_SIZE;
618 
619  for (n = 0; n < elems; n++) {
620  if (tree[n].Freq != 0) {
621  s->heap[++(s->heap_len)] = max_code = n;
622  s->depth[n] = 0;
623  } else {
624  tree[n].Len = 0;
625  }
626  }
627 
628  /* The pkzip format requires that at least one distance code exists,
629  * and that at least one bit should be sent even if there is only one
630  * possible code. So to avoid special checks later on we force at least
631  * two codes of non zero frequency.
632  */
633  while (s->heap_len < 2) {
634  node = s->heap[++(s->heap_len)] = (max_code < 2 ? ++max_code : 0);
635  tree[node].Freq = 1;
636  s->depth[node] = 0;
637  s->opt_len--; if (stree) s->static_len -= stree[node].Len;
638  /* node is 0 or 1 so it does not have extra bits */
639  }
640  desc->max_code = max_code;
641 
642  /* The elements heap[heap_len/2+1 .. heap_len] are leaves of the tree,
643  * establish sub-heaps of increasing lengths:
644  */
645  for (n = s->heap_len/2; n >= 1; n--) pqdownheap(s, tree, n);
646 
647  /* Construct the Huffman tree by repeatedly combining the least two
648  * frequent nodes.
649  */
650  node = elems; /* next internal node of the tree */
651  do {
652  pqremove(s, tree, n); /* n = node of least frequency */
653  m = s->heap[SMALLEST]; /* m = node of next least frequency */
654 
655  s->heap[--(s->heap_max)] = n; /* keep the nodes sorted by frequency */
656  s->heap[--(s->heap_max)] = m;
657 
658  /* Create a new node father of n and m */
659  tree[node].Freq = tree[n].Freq + tree[m].Freq;
660  s->depth[node] = (uch)((s->depth[n] >= s->depth[m] ?
661  s->depth[n] : s->depth[m]) + 1);
662  tree[n].Dad = tree[m].Dad = (ush)node;
663 #ifdef DUMP_BL_TREE
664  if (tree == s->bl_tree) {
665  fprintf(stderr,"\nnode %d(%d), sons %d(%d) %d(%d)",
666  node, tree[node].Freq, n, tree[n].Freq, m, tree[m].Freq);
667  }
668 #endif
669  /* and insert the new node in the heap */
670  s->heap[SMALLEST] = node++;
671  pqdownheap(s, tree, SMALLEST);
672 
673  } while (s->heap_len >= 2);
674 
675  s->heap[--(s->heap_max)] = s->heap[SMALLEST];
676 
677  /* At this point, the fields freq and dad are set. We can now
678  * generate the bit lengths.
679  */
680  gen_bitlen(s, (tree_desc *)desc);
681 
682  /* The field len is now set, we can generate the bit codes */
683  gen_codes ((ct_data *)tree, max_code, s->bl_count);
684 }
ulg static_len
Definition: deflate.h:248
int heap[2 *L_CODES+1]
Definition: deflate.h:206
local void pqdownheap(deflate_state *s, ct_data *tree, int k)
Definition: trees.cc:448
ct_data * dyn_tree
Definition: deflate.h:84
static_tree_desc * stat_desc
Definition: deflate.h:86
#define SMALLEST
Definition: trees.cc:419
int max_code
Definition: deflate.h:85
static constexpr double m
Definition: G4SIunits.hh:129
tuple tree
Definition: gammaraytel.py:4
#define pqremove(s, tree, top)
Definition: trees.cc:427
#define HEAP_SIZE
Definition: deflate.h:45
const G4int n
ush bl_count[MAX_BITS+1]
Definition: deflate.h:203
uch depth[2 *L_CODES+1]
Definition: deflate.h:213
unsigned char uch
Definition: csz_inflate.cc:209
local void gen_bitlen(deflate_state *s, tree_desc *desc)
Definition: trees.cc:480
unsigned short ush
Definition: csz_inflate.cc:210
#define Freq
Definition: deflate.h:76
const ct_data * static_tree
Definition: trees.cc:118
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197
local void gen_codes(ct_data *tree, int max_code, ushf *bl_count)
Definition: trees.cc:565

Here is the call graph for this function:

Here is the caller graph for this function:

local void compress_block ( deflate_state s,
const ct_data ltree,
const ct_data dtree 
)

Definition at line 1023 of file trees.cc.

1024 {
1025  unsigned dist; /* distance of matched string */
1026  int lc; /* match length or unmatched char (if dist == 0) */
1027  unsigned lx = 0; /* running index in l_buf */
1028  unsigned code; /* the code to send */
1029  int extra; /* number of extra bits to send */
1030 
1031  if (s->last_lit != 0) do {
1032  dist = s->d_buf[lx];
1033  lc = s->l_buf[lx++];
1034  if (dist == 0) {
1035  send_code(s, lc, ltree); /* send a literal byte */
1036  Tracecv(isgraph(lc), (stderr," '%c' ", lc));
1037  } else {
1038  /* Here, lc is the match length - MIN_MATCH */
1039  code = _length_code[lc];
1040  send_code(s, code+LITERALS+1, ltree); /* send the length code */
1041  extra = extra_lbits[code];
1042  if (extra != 0) {
1043  lc -= base_length[code];
1044  send_bits(s, lc, extra); /* send the extra length bits */
1045  }
1046  dist--; /* dist is now the match distance - 1 */
1047  code = d_code(dist);
1048  Assert (code < D_CODES, "bad d_code");
1049 
1050  send_code(s, code, dtree); /* send the distance code */
1051  extra = extra_dbits[code];
1052  if (extra != 0) {
1053  dist -= base_dist[code];
1054  send_bits(s, dist, extra); /* send the extra distance bits */
1055  }
1056  } /* literal or match pair ? */
1057 
1058  /* Check that the overlay between pending_buf and d_buf+l_buf is ok: */
1059  Assert((uInt)(s->pending) < s->lit_bufsize + 2*lx,
1060  "pendingBuf overflow");
1061 
1062  } while (lx < s->last_lit);
1063 
1064  send_code(s, END_BLOCK, ltree);
1065 }
#define Tracecv(c, x)
Definition: zutil.h:235
#define Assert(cond, msg)
Definition: zutil.h:230
unsigned extra
Definition: inflate.h:104
local int base_length[LENGTH_CODES]
Definition: trees.cc:107
#define LITERALS
Definition: deflate.h:33
local const int extra_dbits[D_CODES]
Definition: trees.cc:66
local const int extra_lbits[LENGTH_CODES]
Definition: trees.cc:63
uchf * l_buf
Definition: deflate.h:217
local int base_dist[D_CODES]
Definition: trees.cc:110
uInt lit_bufsize
Definition: deflate.h:219
ushf * d_buf
Definition: deflate.h:241
Definition: inftrees.h:24
#define END_BLOCK
Definition: trees.cc:50
#define d_code(dist)
Definition: deflate.h:305
uInt last_lit
Definition: deflate.h:239
uInt pending
Definition: deflate.h:103
uch ZLIB_INTERNAL _length_code[]
Definition: trees.cc:104
#define send_code(s, c, tree)
Definition: trees.cc:163
#define D_CODES
Definition: deflate.h:39
#define send_bits(s, value, length)
Definition: trees.cc:210

Here is the caller graph for this function:

local void copy_block ( deflate_state s,
charf *  buf,
unsigned  len,
int  header 
)

Definition at line 1160 of file trees.cc.

1161 {
1162  bi_windup(s); /* align on byte boundary */
1163 
1164  if (header) {
1165  put_short(s, (ush)len);
1166  put_short(s, (ush)~len);
1167 #ifdef DEBUG
1168  s->bits_sent += 2*16;
1169 #endif
1170  }
1171 #ifdef DEBUG
1172  s->bits_sent += (ulg)len<<3;
1173 #endif
1174  while (len--) {
1175  put_byte(s, *buf++);
1176  }
1177 }
const XML_Char int len
Definition: expat.h:262
unsigned long ulg
Definition: csz_inflate.cc:211
local void bi_windup(deflate_state *s)
Definition: trees.cc:1142
#define put_short(s, w)
Definition: trees.cc:176
#define put_byte(s, c)
Definition: deflate.h:278
unsigned short ush
Definition: csz_inflate.cc:210

Here is the call graph for this function:

Here is the caller graph for this function:

local int detect_data_type ( deflate_state s)

Definition at line 1080 of file trees.cc.

1081 {
1082  /* black_mask is the bit mask of black-listed bytes
1083  * set bits 0..6, 14..25, and 28..31
1084  * 0xf3ffc07f = binary 11110011111111111100000001111111
1085  */
1086  unsigned long black_mask = 0xf3ffc07fUL;
1087  int n;
1088 
1089  /* Check for non-textual ("black-listed") bytes. */
1090  for (n = 0; n <= 31; n++, black_mask >>= 1)
1091  if ((black_mask & 1) && (s->dyn_ltree[n].Freq != 0))
1092  return Z_BINARY;
1093 
1094  /* Check for textual ("white-listed") bytes. */
1095  if (s->dyn_ltree[9].Freq != 0 || s->dyn_ltree[10].Freq != 0
1096  || s->dyn_ltree[13].Freq != 0)
1097  return Z_TEXT;
1098  for (n = 32; n < LITERALS; n++)
1099  if (s->dyn_ltree[n].Freq != 0)
1100  return Z_TEXT;
1101 
1102  /* There are no "black-listed" or "white-listed" bytes:
1103  * this stream either is empty or has tolerated ("gray-listed") bytes only.
1104  */
1105  return Z_BINARY;
1106 }
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
#define LITERALS
Definition: deflate.h:33
const G4int n
#define Z_BINARY
Definition: zlib.h:199
#define Z_TEXT
Definition: zlib.h:200

Here is the caller graph for this function:

local void gen_bitlen ( deflate_state s,
tree_desc desc 
)

Definition at line 480 of file trees.cc.

481 {
482  ct_data *tree = desc->dyn_tree;
483  int max_code = desc->max_code;
484  const ct_data *stree = desc->stat_desc->static_tree;
485  const intf *extra = desc->stat_desc->extra_bits;
486  int base = desc->stat_desc->extra_base;
487  int max_length = desc->stat_desc->max_length;
488  int h; /* heap index */
489  int n, m; /* iterate over the tree elements */
490  int bits; /* bit length */
491  int xbits; /* extra bits */
492  ush f; /* frequency */
493  int overflow = 0; /* number of elements with bit length too large */
494 
495  for (bits = 0; bits <= MAX_BITS; bits++) s->bl_count[bits] = 0;
496 
497  /* In a first pass, compute the optimal bit lengths (which may
498  * overflow in the case of the bit length tree).
499  */
500  tree[s->heap[s->heap_max]].Len = 0; /* root of the heap */
501 
502  for (h = s->heap_max+1; h < HEAP_SIZE; h++) {
503  n = s->heap[h];
504  bits = tree[tree[n].Dad].Len + 1;
505  if (bits > max_length) bits = max_length, overflow++;
506  tree[n].Len = (ush)bits;
507  /* We overwrite tree[n].Dad which is no longer needed */
508 
509  if (n > max_code) continue; /* not a leaf node */
510 
511  s->bl_count[bits]++;
512  xbits = 0;
513  if (n >= base) xbits = extra[n-base];
514  f = tree[n].Freq;
515  s->opt_len += (ulg)f * (bits + xbits);
516  if (stree) s->static_len += (ulg)f * (stree[n].Len + xbits);
517  }
518  if (overflow == 0) return;
519 
520  Trace((stderr,"\nbit length overflow\n"));
521  /* This happens for example on obj2 and pic of the Calgary corpus */
522 
523  /* Find the first bit length which could increase: */
524  do {
525  bits = max_length-1;
526  while (s->bl_count[bits] == 0) bits--;
527  s->bl_count[bits]--; /* move one leaf down the tree */
528  s->bl_count[bits+1] += 2; /* move one overflow item as its brother */
529  s->bl_count[max_length]--;
530  /* The brother of the overflow item also moves one step up,
531  * but this does not affect bl_count[max_length]
532  */
533  overflow -= 2;
534  } while (overflow > 0);
535 
536  /* Now recompute all bit lengths, scanning in increasing frequency.
537  * h is still equal to HEAP_SIZE. (It is simpler to reconstruct all
538  * lengths instead of fixing only the wrong ones. This idea is taken
539  * from 'ar' written by Haruhiko Okumura.)
540  */
541  for (bits = max_length; bits != 0; bits--) {
542  n = s->bl_count[bits];
543  while (n != 0) {
544  m = s->heap[--h];
545  if (m > max_code) continue;
546  if ((unsigned) tree[m].Len != (unsigned) bits) {
547  Trace((stderr,"code %d bits %d->%d\n", m, tree[m].Len, bits));
548  s->opt_len += ((long)bits - (long)tree[m].Len)
549  *(long)tree[m].Freq;
550  tree[m].Len = (ush)bits;
551  }
552  n--;
553  }
554  }
555 }
ulg static_len
Definition: deflate.h:248
unsigned long ulg
Definition: csz_inflate.cc:211
const intf * extra_bits
Definition: trees.cc:119
int heap[2 *L_CODES+1]
Definition: deflate.h:206
#define MAX_BITS
Definition: deflate.h:48
unsigned extra
Definition: inflate.h:104
#define Trace(x)
Definition: csz_inflate.cc:235
ct_data * dyn_tree
Definition: deflate.h:84
static_tree_desc * stat_desc
Definition: deflate.h:86
const XML_Char int const XML_Char int const XML_Char * base
Definition: expat.h:331
int max_code
Definition: deflate.h:85
static constexpr double m
Definition: G4SIunits.hh:129
tuple tree
Definition: gammaraytel.py:4
#define HEAP_SIZE
Definition: deflate.h:45
const G4int n
#define Len
Definition: deflate.h:79
ush bl_count[MAX_BITS+1]
Definition: deflate.h:203
unsigned bits
Definition: inflate.h:99
unsigned short ush
Definition: csz_inflate.cc:210
const ct_data * static_tree
Definition: trees.cc:118
for(G4int i1=0;i1< theStableOnes.GetNumberOfIsotopes(static_cast< G4int >(anE->GetZ()));i1++)

Here is the call graph for this function:

Here is the caller graph for this function:

local void gen_codes ( ct_data tree,
int  max_code,
ushf bl_count 
)

Definition at line 565 of file trees.cc.

566 {
567  ush next_code[MAX_BITS+1]; /* next code value for each bit length */
568  ush code = 0; /* running code value */
569  int bits; /* bit index */
570  int n; /* code index */
571 
572  /* The distribution counts are first used to generate the code values
573  * without bit reversal.
574  */
575  for (bits = 1; bits <= MAX_BITS; bits++) {
576  next_code[bits] = code = (code + bl_count[bits-1]) << 1;
577  }
578  /* Check that the bit counts in bl_count are consistent. The last code
579  * must be all ones.
580  */
581  Assert (code + bl_count[MAX_BITS]-1 == (1<<MAX_BITS)-1,
582  "inconsistent bit counts");
583  Tracev((stderr,"\ngen_codes: max_code %d ", max_code));
584 
585  for (n = 0; n <= max_code; n++) {
586  int len = tree[n].Len;
587  if (len == 0) continue;
588  /* Now reverse the bits */
589  tree[n].Code = bi_reverse(next_code[len]++, len);
590 
591  Tracecv(tree != static_ltree, (stderr,"\nn %3d %c l %2d c %4x (%x) ",
592  n, (isgraph(n) ? n : ' '), len, tree[n].Code, next_code[len]-1));
593  }
594 }
const XML_Char int len
Definition: expat.h:262
#define Tracecv(c, x)
Definition: zutil.h:235
#define MAX_BITS
Definition: deflate.h:48
#define Assert(cond, msg)
Definition: zutil.h:230
#define Tracev(x)
Definition: zutil.h:232
local ct_data static_ltree[L_CODES+2]
Definition: trees.cc:86
#define Code
Definition: deflate.h:77
local unsigned bi_reverse(unsigned code, int len)
Definition: trees.cc:1113
const G4int n
Definition: inftrees.h:24
unsigned bits
Definition: inflate.h:99
unsigned short ush
Definition: csz_inflate.cc:210

Here is the call graph for this function:

Here is the caller graph for this function:

local void init_block ( deflate_state s)

Definition at line 405 of file trees.cc.

406 {
407  int n; /* iterates over tree elements */
408 
409  /* Initialize the trees. */
410  for (n = 0; n < L_CODES; n++) s->dyn_ltree[n].Freq = 0;
411  for (n = 0; n < D_CODES; n++) s->dyn_dtree[n].Freq = 0;
412  for (n = 0; n < BL_CODES; n++) s->bl_tree[n].Freq = 0;
413 
414  s->dyn_ltree[END_BLOCK].Freq = 1;
415  s->opt_len = s->static_len = 0L;
416  s->last_lit = s->matches = 0;
417 }
ulg static_len
Definition: deflate.h:248
#define BL_CODES
Definition: deflate.h:42
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
const G4int n
struct ct_data_s dyn_dtree[2 *D_CODES+1]
Definition: deflate.h:196
#define END_BLOCK
Definition: trees.cc:50
uInt last_lit
Definition: deflate.h:239
uInt matches
Definition: deflate.h:249
static constexpr double L
Definition: G4SIunits.hh:124
#define D_CODES
Definition: deflate.h:39
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197
for(G4int i1=0;i1< theStableOnes.GetNumberOfIsotopes(static_cast< G4int >(anE->GetZ()));i1++)
#define L_CODES
Definition: deflate.h:36

Here is the call graph for this function:

Here is the caller graph for this function:

local void pqdownheap OF ( (deflate_state *s, ct_data *tree, int k)  )
local void gen_codes OF ( (ct_data *tree, int max_code, ushf *bl_count)  )
local void scan_tree OF ( (deflate_state *s, ct_data *tree, int max_code)  )
local void send_all_trees OF ( (deflate_state *s, int lcodes, int dcodes, int blcodes)  )
local void compress_block OF ( (deflate_state *s, const ct_data *ltree, const ct_data *dtree)  )
local unsigned bi_reverse OF ( (unsigned value, int length)  )
local void copy_block OF ( (deflate_state *s, charf *buf, unsigned len, int header)  )
local void pqdownheap ( deflate_state s,
ct_data tree,
int  k 
)

Definition at line 448 of file trees.cc.

449 {
450  int v = s->heap[k];
451  int j = k << 1; /* left son of k */
452  while (j <= s->heap_len) {
453  /* Set j to the smallest of the two sons: */
454  if (j < s->heap_len &&
455  smaller(tree, s->heap[j+1], s->heap[j], s->depth)) {
456  j++;
457  }
458  /* Exit if v is smaller than both sons */
459  if (smaller(tree, v, s->heap[j], s->depth)) break;
460 
461  /* Exchange v with the smallest son */
462  s->heap[k] = s->heap[j]; k = j;
463 
464  /* And continue down the tree, setting j to the left son of k */
465  j <<= 1;
466  }
467  s->heap[k] = v;
468 }
int heap[2 *L_CODES+1]
Definition: deflate.h:206
#define smaller(tree, n, m, depth)
Definition: trees.cc:438
tuple v
Definition: test.py:18
uch depth[2 *L_CODES+1]
Definition: deflate.h:213

Here is the caller graph for this function:

local void scan_tree ( deflate_state s,
ct_data tree,
int  max_code 
)

Definition at line 690 of file trees.cc.

691 {
692  int n; /* iterates over all tree elements */
693  int prevlen = -1; /* last emitted length */
694  int curlen; /* length of current code */
695  int nextlen = tree[0].Len; /* length of next code */
696  int count = 0; /* repeat count of the current code */
697  int max_count = 7; /* max repeat count */
698  int min_count = 4; /* min repeat count */
699 
700  if (nextlen == 0) max_count = 138, min_count = 3;
701  tree[max_code+1].Len = (ush)0xffff; /* guard */
702 
703  for (n = 0; n <= max_code; n++) {
704  curlen = nextlen; nextlen = tree[n+1].Len;
705  if (++count < max_count && curlen == nextlen) {
706  continue;
707  } else if (count < min_count) {
708  s->bl_tree[curlen].Freq += count;
709  } else if (curlen != 0) {
710  if (curlen != prevlen) s->bl_tree[curlen].Freq++;
711  s->bl_tree[REP_3_6].Freq++;
712  } else if (count <= 10) {
713  s->bl_tree[REPZ_3_10].Freq++;
714  } else {
715  s->bl_tree[REPZ_11_138].Freq++;
716  }
717  count = 0; prevlen = curlen;
718  if (nextlen == 0) {
719  max_count = 138, min_count = 3;
720  } else if (curlen == nextlen) {
721  max_count = 6, min_count = 3;
722  } else {
723  max_count = 7, min_count = 4;
724  }
725  }
726 }
#define REP_3_6
Definition: trees.cc:53
const G4int n
#define REPZ_11_138
Definition: trees.cc:59
#define REPZ_3_10
Definition: trees.cc:56
unsigned short ush
Definition: csz_inflate.cc:210
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197

Here is the caller graph for this function:

local void send_all_trees ( deflate_state s,
int  lcodes,
int  dcodes,
int  blcodes 
)

Definition at line 814 of file trees.cc.

815 {
816  int rank; /* index in bl_order */
817 
818  Assert (lcodes >= 257 && dcodes >= 1 && blcodes >= 4, "not enough codes");
819  Assert (lcodes <= L_CODES && dcodes <= D_CODES && blcodes <= BL_CODES,
820  "too many codes");
821  Tracev((stderr, "\nbl counts: "));
822  send_bits(s, lcodes-257, 5); /* not +255 as stated in appnote.txt */
823  send_bits(s, dcodes-1, 5);
824  send_bits(s, blcodes-4, 4); /* not -3 as stated in appnote.txt */
825  for (rank = 0; rank < blcodes; rank++) {
826  Tracev((stderr, "\nbl code %2d ", bl_order[rank]));
827  send_bits(s, s->bl_tree[bl_order[rank]].Len, 3);
828  }
829  Tracev((stderr, "\nbl tree: sent %ld", s->bits_sent));
830 
831  send_tree(s, (ct_data *)s->dyn_ltree, lcodes-1); /* literal tree */
832  Tracev((stderr, "\nlit tree: sent %ld", s->bits_sent));
833 
834  send_tree(s, (ct_data *)s->dyn_dtree, dcodes-1); /* distance tree */
835  Tracev((stderr, "\ndist tree: sent %ld", s->bits_sent));
836 }
local const uch bl_order[BL_CODES]
Definition: trees.cc:72
#define BL_CODES
Definition: deflate.h:42
#define Assert(cond, msg)
Definition: zutil.h:230
#define Tracev(x)
Definition: zutil.h:232
struct ct_data_s dyn_ltree[HEAP_SIZE]
Definition: deflate.h:195
local void send_tree(deflate_state *s, ct_data *tree, int max_code)
Definition: trees.cc:732
struct ct_data_s dyn_dtree[2 *D_CODES+1]
Definition: deflate.h:196
#define D_CODES
Definition: deflate.h:39
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197
#define send_bits(s, value, length)
Definition: trees.cc:210
#define L_CODES
Definition: deflate.h:36

Here is the call graph for this function:

Here is the caller graph for this function:

local void send_tree ( deflate_state s,
ct_data tree,
int  max_code 
)

Definition at line 732 of file trees.cc.

733 {
734  int n; /* iterates over all tree elements */
735  int prevlen = -1; /* last emitted length */
736  int curlen; /* length of current code */
737  int nextlen = tree[0].Len; /* length of next code */
738  int count = 0; /* repeat count of the current code */
739  int max_count = 7; /* max repeat count */
740  int min_count = 4; /* min repeat count */
741 
742  /* tree[max_code+1].Len = -1; */ /* guard already set */
743  if (nextlen == 0) max_count = 138, min_count = 3;
744 
745  for (n = 0; n <= max_code; n++) {
746  curlen = nextlen; nextlen = tree[n+1].Len;
747  if (++count < max_count && curlen == nextlen) {
748  continue;
749  } else if (count < min_count) {
750  do { send_code(s, curlen, s->bl_tree); } while (--count != 0);
751 
752  } else if (curlen != 0) {
753  if (curlen != prevlen) {
754  send_code(s, curlen, s->bl_tree); count--;
755  }
756  Assert(count >= 3 && count <= 6, " 3_6?");
757  send_code(s, REP_3_6, s->bl_tree); send_bits(s, count-3, 2);
758 
759  } else if (count <= 10) {
760  send_code(s, REPZ_3_10, s->bl_tree); send_bits(s, count-3, 3);
761 
762  } else {
763  send_code(s, REPZ_11_138, s->bl_tree); send_bits(s, count-11, 7);
764  }
765  count = 0; prevlen = curlen;
766  if (nextlen == 0) {
767  max_count = 138, min_count = 3;
768  } else if (curlen == nextlen) {
769  max_count = 6, min_count = 3;
770  } else {
771  max_count = 7, min_count = 4;
772  }
773  }
774 }
#define REP_3_6
Definition: trees.cc:53
#define Assert(cond, msg)
Definition: zutil.h:230
const G4int n
#define REPZ_11_138
Definition: trees.cc:59
#define REPZ_3_10
Definition: trees.cc:56
#define send_code(s, c, tree)
Definition: trees.cc:163
struct ct_data_s bl_tree[2 *BL_CODES+1]
Definition: deflate.h:197
#define send_bits(s, value, length)
Definition: trees.cc:210

Here is the caller graph for this function:

local void tr_static_init ( )

Definition at line 231 of file trees.cc.

232 {
233 #if defined(GEN_TREES_H) || !defined(STDC)
234  static int static_init_done = 0;
235  int n; /* iterates over tree elements */
236  int bits; /* bit counter */
237  int length; /* length value */
238  int code; /* code value */
239  int dist; /* distance index */
240  ush bl_count[MAX_BITS+1];
241  /* number of codes at each bit length for an optimal tree */
242 
243  if (static_init_done) return;
244 
245  /* For some embedded targets, global variables are not initialized: */
246 #ifdef NO_INIT_GLOBAL_POINTERS
252 #endif
253 
254  /* Initialize the mapping length (0..255) -> length code (0..28) */
255  length = 0;
256  for (code = 0; code < LENGTH_CODES-1; code++) {
257  base_length[code] = length;
258  for (n = 0; n < (1<<extra_lbits[code]); n++) {
259  _length_code[length++] = (uch)code;
260  }
261  }
262  Assert (length == 256, "tr_static_init: length != 256");
263  /* Note that the length 255 (match length 258) can be represented
264  * in two different ways: code 284 + 5 bits or code 285, so we
265  * overwrite length_code[255] to use the best encoding:
266  */
267  _length_code[length-1] = (uch)code;
268 
269  /* Initialize the mapping dist (0..32K) -> dist code (0..29) */
270  dist = 0;
271  for (code = 0 ; code < 16; code++) {
272  base_dist[code] = dist;
273  for (n = 0; n < (1<<extra_dbits[code]); n++) {
274  _dist_code[dist++] = (uch)code;
275  }
276  }
277  Assert (dist == 256, "tr_static_init: dist != 256");
278  dist >>= 7; /* from now on, all distances are divided by 128 */
279  for ( ; code < D_CODES; code++) {
280  base_dist[code] = dist << 7;
281  for (n = 0; n < (1<<(extra_dbits[code]-7)); n++) {
282  _dist_code[256 + dist++] = (uch)code;
283  }
284  }
285  Assert (dist == 256, "tr_static_init: 256+dist != 512");
286 
287  /* Construct the codes of the static literal tree */
288  for (bits = 0; bits <= MAX_BITS; bits++) bl_count[bits] = 0;
289  n = 0;
290  while (n <= 143) static_ltree[n++].Len = 8, bl_count[8]++;
291  while (n <= 255) static_ltree[n++].Len = 9, bl_count[9]++;
292  while (n <= 279) static_ltree[n++].Len = 7, bl_count[7]++;
293  while (n <= 287) static_ltree[n++].Len = 8, bl_count[8]++;
294  /* Codes 286 and 287 do not exist, but we must include them in the
295  * tree construction to get a canonical Huffman tree (longest code
296  * all ones)
297  */
298  gen_codes((ct_data *)static_ltree, L_CODES+1, bl_count);
299 
300  /* The static distance tree is trivial: */
301  for (n = 0; n < D_CODES; n++) {
302  static_dtree[n].Len = 5;
303  static_dtree[n].Code = bi_reverse((unsigned)n, 5);
304  }
305  static_init_done = 1;
306 
307 # ifdef GEN_TREES_H
308  gen_trees_header();
309 # endif
310 #endif /* defined(GEN_TREES_H) || !defined(STDC) */
311 }
local static_tree_desc static_l_desc
Definition: trees.cc:125
const intf * extra_bits
Definition: trees.cc:119
local static_tree_desc static_bl_desc
Definition: trees.cc:131
local static_tree_desc static_d_desc
Definition: trees.cc:128
local const int extra_blbits[BL_CODES]
Definition: trees.cc:69
local ct_data static_dtree[D_CODES]
Definition: trees.cc:93
#define MAX_BITS
Definition: deflate.h:48
#define Assert(cond, msg)
Definition: zutil.h:230
#define LENGTH_CODES
Definition: deflate.h:30
uch ZLIB_INTERNAL _dist_code[]
Definition: trees.cc:98
local int base_length[LENGTH_CODES]
Definition: trees.cc:107
local ct_data static_ltree[L_CODES+2]
Definition: trees.cc:86
local const int extra_dbits[D_CODES]
Definition: trees.cc:66
local unsigned bi_reverse(unsigned code, int len)
Definition: trees.cc:1113
local const int extra_lbits[LENGTH_CODES]
Definition: trees.cc:63
const G4int n
local int base_dist[D_CODES]
Definition: trees.cc:110
Definition: inftrees.h:24
unsigned bits
Definition: inflate.h:99
unsigned char uch
Definition: csz_inflate.cc:209
unsigned short ush
Definition: csz_inflate.cc:210
uch ZLIB_INTERNAL _length_code[]
Definition: trees.cc:104
const ct_data * static_tree
Definition: trees.cc:118
#define D_CODES
Definition: deflate.h:39
local void gen_codes(ct_data *tree, int max_code, ushf *bl_count)
Definition: trees.cc:565
unsigned length
Definition: inflate.h:101
#define L_CODES
Definition: deflate.h:36

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

uch _dist_code[DIST_CODE_LEN]

Definition at line 98 of file trees.cc.

uch _length_code[MAX_MATCH-MIN_MATCH+1]

Definition at line 104 of file trees.cc.

local int base_dist[D_CODES]

Definition at line 110 of file trees.cc.

local int base_length[LENGTH_CODES]

Definition at line 107 of file trees.cc.

local const uch bl_order[BL_CODES] = {16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15}

Definition at line 72 of file trees.cc.

local const int extra_blbits[BL_CODES] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,7}

Definition at line 69 of file trees.cc.

local const int extra_dbits[D_CODES] = {0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13}

Definition at line 66 of file trees.cc.

local const int extra_lbits[LENGTH_CODES] = {0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0}

Definition at line 63 of file trees.cc.

local static_tree_desc static_bl_desc
Initial value:
=
#define BL_CODES
Definition: deflate.h:42
local const int extra_blbits[BL_CODES]
Definition: trees.cc:69
#define MAX_BL_BITS
Definition: trees.cc:47

Definition at line 131 of file trees.cc.

local static_tree_desc static_d_desc
Initial value:
=
local ct_data static_dtree[D_CODES]
Definition: trees.cc:93
#define MAX_BITS
Definition: deflate.h:48
local const int extra_dbits[D_CODES]
Definition: trees.cc:66
#define D_CODES
Definition: deflate.h:39

Definition at line 128 of file trees.cc.

local ct_data static_dtree[D_CODES]

Definition at line 93 of file trees.cc.

local static_tree_desc static_l_desc
Initial value:
=
#define MAX_BITS
Definition: deflate.h:48
local ct_data static_ltree[L_CODES+2]
Definition: trees.cc:86
#define LITERALS
Definition: deflate.h:33
local const int extra_lbits[LENGTH_CODES]
Definition: trees.cc:63
#define L_CODES
Definition: deflate.h:36

Definition at line 125 of file trees.cc.

local ct_data static_ltree[L_CODES+2]

Definition at line 86 of file trees.cc.