mirror of
				https://github.com/flynx/PortableMag.git
				synced 2025-10-31 03:50:16 +00:00 
			
		
		
		
	
		
			
	
	
		
			781 lines
		
	
	
		
			20 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
		
		
			
		
	
	
			781 lines
		
	
	
		
			20 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
|  | /* | ||
|  |  * Port of a script by Masanao Izumo. | ||
|  |  * | ||
|  |  * Only changes : wrap all the variables in a function and add the  | ||
|  |  * main function to JSZip (DEFLATE compression method). | ||
|  |  * Everything else was written by M. Izumo. | ||
|  |  * | ||
|  |  * Original code can be found here: http://www.onicos.com/staff/iz/amuse/javascript/expert/inflate.txt
 | ||
|  |  */ | ||
|  | 
 | ||
|  | if(!JSZip) { | ||
|  |    throw "JSZip not defined"; | ||
|  | } | ||
|  | 
 | ||
|  | /* | ||
|  |  * Original: | ||
|  |  *   http://www.onicos.com/staff/iz/amuse/javascript/expert/inflate.txt
 | ||
|  |  */ | ||
|  | 
 | ||
|  | (function(){ | ||
|  |   // the original implementation leaks a global variable.
 | ||
|  |   // Defining the variable here doesn't break anything.
 | ||
|  |   var zip_fixed_bd; | ||
|  | 
 | ||
|  | /* Copyright (C) 1999 Masanao Izumo <iz@onicos.co.jp> | ||
|  |  * Version: 1.0.0.1 | ||
|  |  * LastModified: Dec 25 1999 | ||
|  |  */ | ||
|  | 
 | ||
|  | /* Interface: | ||
|  |  * data = zip_inflate(src); | ||
|  |  */ | ||
|  | 
 | ||
|  | /* constant parameters */ | ||
|  | var zip_WSIZE = 32768;		// Sliding Window size
 | ||
|  | var zip_STORED_BLOCK = 0; | ||
|  | var zip_STATIC_TREES = 1; | ||
|  | var zip_DYN_TREES    = 2; | ||
|  | 
 | ||
|  | /* for inflate */ | ||
|  | var zip_lbits = 9; 		// bits in base literal/length lookup table
 | ||
|  | var zip_dbits = 6; 		// bits in base distance lookup table
 | ||
|  | var zip_INBUFSIZ = 32768;	// Input buffer size
 | ||
|  | var zip_INBUF_EXTRA = 64;	// Extra buffer
 | ||
|  | 
 | ||
|  | /* variables (inflate) */ | ||
|  | var zip_slide; | ||
|  | var zip_wp;			// current position in slide
 | ||
|  | var zip_fixed_tl = null;	// inflate static
 | ||
|  | var zip_fixed_td;		// inflate static
 | ||
|  | var zip_fixed_bl, fixed_bd;	// inflate static
 | ||
|  | var zip_bit_buf;		// bit buffer
 | ||
|  | var zip_bit_len;		// bits in bit buffer
 | ||
|  | var zip_method; | ||
|  | var zip_eof; | ||
|  | var zip_copy_leng; | ||
|  | var zip_copy_dist; | ||
|  | var zip_tl, zip_td;	// literal/length and distance decoder tables
 | ||
|  | var zip_bl, zip_bd;	// number of bits decoded by tl and td
 | ||
|  | 
 | ||
|  | var zip_inflate_data; | ||
|  | var zip_inflate_pos; | ||
|  | 
 | ||
|  | 
 | ||
|  | /* constant tables (inflate) */ | ||
|  | var zip_MASK_BITS = new Array( | ||
|  |     0x0000, | ||
|  |     0x0001, 0x0003, 0x0007, 0x000f, 0x001f, 0x003f, 0x007f, 0x00ff, | ||
|  |     0x01ff, 0x03ff, 0x07ff, 0x0fff, 0x1fff, 0x3fff, 0x7fff, 0xffff); | ||
|  | // Tables for deflate from PKZIP's appnote.txt.
 | ||
|  | var zip_cplens = new Array( // Copy lengths for literal codes 257..285
 | ||
|  |     3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 23, 27, 31, | ||
|  |     35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227, 258, 0, 0); | ||
|  | /* note: see note #13 above about the 258 in this list. */ | ||
|  | var zip_cplext = new Array( // Extra bits for literal codes 257..285
 | ||
|  |     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, 99, 99); // 99==invalid
 | ||
|  | var zip_cpdist = new Array( // Copy offsets for distance codes 0..29
 | ||
|  |     1, 2, 3, 4, 5, 7, 9, 13, 17, 25, 33, 49, 65, 97, 129, 193, | ||
|  |     257, 385, 513, 769, 1025, 1537, 2049, 3073, 4097, 6145, | ||
|  |     8193, 12289, 16385, 24577); | ||
|  | var zip_cpdext = new Array( // Extra bits for distance 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); | ||
|  | var zip_border = new Array(  // Order of the bit length code lengths
 | ||
|  |     16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15); | ||
|  | /* objects (inflate) */ | ||
|  | 
 | ||
|  | function zip_HuftList() { | ||
|  |     this.next = null; | ||
|  |     this.list = null; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_HuftNode() { | ||
|  |     this.e = 0; // number of extra bits or operation
 | ||
|  |     this.b = 0; // number of bits in this code or subcode
 | ||
|  | 
 | ||
|  |     // union
 | ||
|  |     this.n = 0; // literal, length base, or distance base
 | ||
|  |     this.t = null; // (zip_HuftNode) pointer to next level of table
 | ||
|  | } | ||
|  | 
 | ||
|  | function zip_HuftBuild(b,	// code lengths in bits (all assumed <= BMAX)
 | ||
|  | 		       n,	// number of codes (assumed <= N_MAX)
 | ||
|  | 		       s,	// number of simple-valued codes (0..s-1)
 | ||
|  | 		       d,	// list of base values for non-simple codes
 | ||
|  | 		       e,	// list of extra bits for non-simple codes
 | ||
|  | 		       mm	// maximum lookup bits
 | ||
|  | 		   ) { | ||
|  |     this.BMAX = 16;   // maximum bit length of any code
 | ||
|  |     this.N_MAX = 288; // maximum number of codes in any set
 | ||
|  |     this.status = 0;	// 0: success, 1: incomplete table, 2: bad input
 | ||
|  |     this.root = null;	// (zip_HuftList) starting table
 | ||
|  |     this.m = 0;		// maximum lookup bits, returns actual
 | ||
|  | 
 | ||
|  | /* Given a list of code lengths and a maximum table size, make a set of | ||
|  |    tables to decode that set of codes.	Return zero on success, one if | ||
|  |    the given code set is incomplete (the tables are still built in this | ||
|  |    case), two if the input is invalid (all zero length codes or an | ||
|  |    oversubscribed set of lengths), and three if not enough memory. | ||
|  |    The code with value 256 is special, and the tables are constructed | ||
|  |    so that no bits beyond that code are fetched when that code is | ||
|  |    decoded. */ | ||
|  |     { | ||
|  | 	var a;			// counter for codes of length k
 | ||
|  | 	var c = new Array(this.BMAX+1);	// bit length count table
 | ||
|  | 	var el;			// length of EOB code (value 256)
 | ||
|  | 	var f;			// i repeats in table every f entries
 | ||
|  | 	var g;			// maximum code length
 | ||
|  | 	var h;			// table level
 | ||
|  | 	var i;			// counter, current code
 | ||
|  | 	var j;			// counter
 | ||
|  | 	var k;			// number of bits in current code
 | ||
|  | 	var lx = new Array(this.BMAX+1);	// stack of bits per table
 | ||
|  | 	var p;			// pointer into c[], b[], or v[]
 | ||
|  | 	var pidx;		// index of p
 | ||
|  | 	var q;			// (zip_HuftNode) points to current table
 | ||
|  | 	var r = new zip_HuftNode(); // table entry for structure assignment
 | ||
|  | 	var u = new Array(this.BMAX); // zip_HuftNode[BMAX][]  table stack
 | ||
|  | 	var v = new Array(this.N_MAX); // values in order of bit length
 | ||
|  | 	var w; | ||
|  | 	var x = new Array(this.BMAX+1);// bit offsets, then code stack
 | ||
|  | 	var xp;			// pointer into x or c
 | ||
|  | 	var y;			// number of dummy codes added
 | ||
|  | 	var z;			// number of entries in current table
 | ||
|  | 	var o; | ||
|  | 	var tail;		// (zip_HuftList)
 | ||
|  | 
 | ||
|  | 	tail = this.root = null; | ||
|  | 	for(i = 0; i < c.length; i++) | ||
|  | 	    c[i] = 0; | ||
|  | 	for(i = 0; i < lx.length; i++) | ||
|  | 	    lx[i] = 0; | ||
|  | 	for(i = 0; i < u.length; i++) | ||
|  | 	    u[i] = null; | ||
|  | 	for(i = 0; i < v.length; i++) | ||
|  | 	    v[i] = 0; | ||
|  | 	for(i = 0; i < x.length; i++) | ||
|  | 	    x[i] = 0; | ||
|  | 
 | ||
|  | 	// Generate counts for each bit length
 | ||
|  | 	el = n > 256 ? b[256] : this.BMAX; // set length of EOB code, if any
 | ||
|  | 	p = b; pidx = 0; | ||
|  | 	i = n; | ||
|  | 	do { | ||
|  | 	    c[p[pidx]]++;	// assume all entries <= BMAX
 | ||
|  | 	    pidx++; | ||
|  | 	} while(--i > 0); | ||
|  | 	if(c[0] == n) {	// null input--all zero length codes
 | ||
|  | 	    this.root = null; | ||
|  | 	    this.m = 0; | ||
|  | 	    this.status = 0; | ||
|  | 	    return; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	// Find minimum and maximum length, bound *m by those
 | ||
|  | 	for(j = 1; j <= this.BMAX; j++) | ||
|  | 	    if(c[j] != 0) | ||
|  | 		break; | ||
|  | 	k = j;			// minimum code length
 | ||
|  | 	if(mm < j) | ||
|  | 	    mm = j; | ||
|  | 	for(i = this.BMAX; i != 0; i--) | ||
|  | 	    if(c[i] != 0) | ||
|  | 		break; | ||
|  | 	g = i;			// maximum code length
 | ||
|  | 	if(mm > i) | ||
|  | 	    mm = i; | ||
|  | 
 | ||
|  | 	// Adjust last length count to fill out codes, if needed
 | ||
|  | 	for(y = 1 << j; j < i; j++, y <<= 1) | ||
|  | 	    if((y -= c[j]) < 0) { | ||
|  | 		this.status = 2;	// bad input: more codes than bits
 | ||
|  | 		this.m = mm; | ||
|  | 		return; | ||
|  | 	    } | ||
|  | 	if((y -= c[i]) < 0) { | ||
|  | 	    this.status = 2; | ||
|  | 	    this.m = mm; | ||
|  | 	    return; | ||
|  | 	} | ||
|  | 	c[i] += y; | ||
|  | 
 | ||
|  | 	// Generate starting offsets into the value table for each length
 | ||
|  | 	x[1] = j = 0; | ||
|  | 	p = c; | ||
|  | 	pidx = 1; | ||
|  | 	xp = 2; | ||
|  | 	while(--i > 0)		// note that i == g from above
 | ||
|  | 	    x[xp++] = (j += p[pidx++]); | ||
|  | 
 | ||
|  | 	// Make a table of values in order of bit lengths
 | ||
|  | 	p = b; pidx = 0; | ||
|  | 	i = 0; | ||
|  | 	do { | ||
|  | 	    if((j = p[pidx++]) != 0) | ||
|  | 		v[x[j]++] = i; | ||
|  | 	} while(++i < n); | ||
|  | 	n = x[g];			// set n to length of v
 | ||
|  | 
 | ||
|  | 	// Generate the Huffman codes and for each, make the table entries
 | ||
|  | 	x[0] = i = 0;		// first Huffman code is zero
 | ||
|  | 	p = v; pidx = 0;		// grab values in bit order
 | ||
|  | 	h = -1;			// no tables yet--level -1
 | ||
|  | 	w = lx[0] = 0;		// no bits decoded yet
 | ||
|  | 	q = null;			// ditto
 | ||
|  | 	z = 0;			// ditto
 | ||
|  | 
 | ||
|  | 	// go through the bit lengths (k already is bits in shortest code)
 | ||
|  | 	for(; k <= g; k++) { | ||
|  | 	    a = c[k]; | ||
|  | 	    while(a-- > 0) { | ||
|  | 		// here i is the Huffman code of length k bits for value p[pidx]
 | ||
|  | 		// make tables up to required level
 | ||
|  | 		while(k > w + lx[1 + h]) { | ||
|  | 		    w += lx[1 + h]; // add bits already decoded
 | ||
|  | 		    h++; | ||
|  | 
 | ||
|  | 		    // compute minimum size table less than or equal to *m bits
 | ||
|  | 		    z = (z = g - w) > mm ? mm : z; // upper limit
 | ||
|  | 		    if((f = 1 << (j = k - w)) > a + 1) { // try a k-w bit table
 | ||
|  | 			// too few codes for k-w bit table
 | ||
|  | 			f -= a + 1;	// deduct codes from patterns left
 | ||
|  | 			xp = k; | ||
|  | 			while(++j < z) { // try smaller tables up to z bits
 | ||
|  | 			    if((f <<= 1) <= c[++xp]) | ||
|  | 				break;	// enough codes to use up j bits
 | ||
|  | 			    f -= c[xp];	// else deduct codes from patterns
 | ||
|  | 			} | ||
|  | 		    } | ||
|  | 		    if(w + j > el && w < el) | ||
|  | 			j = el - w;	// make EOB code end at table
 | ||
|  | 		    z = 1 << j;	// table entries for j-bit table
 | ||
|  | 		    lx[1 + h] = j; // set table size in stack
 | ||
|  | 
 | ||
|  | 		    // allocate and link in new table
 | ||
|  | 		    q = new Array(z); | ||
|  | 		    for(o = 0; o < z; o++) { | ||
|  | 			q[o] = new zip_HuftNode(); | ||
|  | 		    } | ||
|  | 
 | ||
|  | 		    if(tail == null) | ||
|  | 			tail = this.root = new zip_HuftList(); | ||
|  | 		    else | ||
|  | 			tail = tail.next = new zip_HuftList(); | ||
|  | 		    tail.next = null; | ||
|  | 		    tail.list = q; | ||
|  | 		    u[h] = q;	// table starts after link
 | ||
|  | 
 | ||
|  | 		    /* connect to last table, if there is one */ | ||
|  | 		    if(h > 0) { | ||
|  | 			x[h] = i;		// save pattern for backing up
 | ||
|  | 			r.b = lx[h];	// bits to dump before this table
 | ||
|  | 			r.e = 16 + j;	// bits in this table
 | ||
|  | 			r.t = q;		// pointer to this table
 | ||
|  | 			j = (i & ((1 << w) - 1)) >> (w - lx[h]); | ||
|  | 			u[h-1][j].e = r.e; | ||
|  | 			u[h-1][j].b = r.b; | ||
|  | 			u[h-1][j].n = r.n; | ||
|  | 			u[h-1][j].t = r.t; | ||
|  | 		    } | ||
|  | 		} | ||
|  | 
 | ||
|  | 		// set up table entry in r
 | ||
|  | 		r.b = k - w; | ||
|  | 		if(pidx >= n) | ||
|  | 		    r.e = 99;		// out of values--invalid code
 | ||
|  | 		else if(p[pidx] < s) { | ||
|  | 		    r.e = (p[pidx] < 256 ? 16 : 15); // 256 is end-of-block code
 | ||
|  | 		    r.n = p[pidx++];	// simple code is just the value
 | ||
|  | 		} else { | ||
|  | 		    r.e = e[p[pidx] - s];	// non-simple--look up in lists
 | ||
|  | 		    r.n = d[p[pidx++] - s]; | ||
|  | 		} | ||
|  | 
 | ||
|  | 		// fill code-like entries with r //
 | ||
|  | 		f = 1 << (k - w); | ||
|  | 		for(j = i >> w; j < z; j += f) { | ||
|  | 		    q[j].e = r.e; | ||
|  | 		    q[j].b = r.b; | ||
|  | 		    q[j].n = r.n; | ||
|  | 		    q[j].t = r.t; | ||
|  | 		} | ||
|  | 
 | ||
|  | 		// backwards increment the k-bit code i
 | ||
|  | 		for(j = 1 << (k - 1); (i & j) != 0; j >>= 1) | ||
|  | 		    i ^= j; | ||
|  | 		i ^= j; | ||
|  | 
 | ||
|  | 		// backup over finished tables
 | ||
|  | 		while((i & ((1 << w) - 1)) != x[h]) { | ||
|  | 		    w -= lx[h];		// don't need to update q
 | ||
|  | 		    h--; | ||
|  | 		} | ||
|  | 	    } | ||
|  | 	} | ||
|  | 
 | ||
|  | 	/* return actual size of base table */ | ||
|  | 	this.m = lx[1]; | ||
|  | 
 | ||
|  | 	/* Return true (1) if we were given an incomplete table */ | ||
|  | 	this.status = ((y != 0 && g != 1) ? 1 : 0); | ||
|  |     } /* end of constructor */ | ||
|  | } | ||
|  | 
 | ||
|  | 
 | ||
|  | /* routines (inflate) */ | ||
|  | 
 | ||
|  | function zip_GET_BYTE() { | ||
|  |     if(zip_inflate_data.length == zip_inflate_pos) | ||
|  | 	return -1; | ||
|  |     return zip_inflate_data.charCodeAt(zip_inflate_pos++) & 0xff; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_NEEDBITS(n) { | ||
|  |     while(zip_bit_len < n) { | ||
|  | 	zip_bit_buf |= zip_GET_BYTE() << zip_bit_len; | ||
|  | 	zip_bit_len += 8; | ||
|  |     } | ||
|  | } | ||
|  | 
 | ||
|  | function zip_GETBITS(n) { | ||
|  |     return zip_bit_buf & zip_MASK_BITS[n]; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_DUMPBITS(n) { | ||
|  |     zip_bit_buf >>= n; | ||
|  |     zip_bit_len -= n; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate_codes(buff, off, size) { | ||
|  |     /* inflate (decompress) the codes in a deflated (compressed) block. | ||
|  |        Return an error code or zero if it all goes ok. */ | ||
|  |     var e;		// table entry flag/number of extra bits
 | ||
|  |     var t;		// (zip_HuftNode) pointer to table entry
 | ||
|  |     var n; | ||
|  | 
 | ||
|  |     if(size == 0) | ||
|  |       return 0; | ||
|  | 
 | ||
|  |     // inflate the coded data
 | ||
|  |     n = 0; | ||
|  |     for(;;) {			// do until end of block
 | ||
|  | 	zip_NEEDBITS(zip_bl); | ||
|  | 	t = zip_tl.list[zip_GETBITS(zip_bl)]; | ||
|  | 	e = t.e; | ||
|  | 	while(e > 16) { | ||
|  | 	    if(e == 99) | ||
|  | 		return -1; | ||
|  | 	    zip_DUMPBITS(t.b); | ||
|  | 	    e -= 16; | ||
|  | 	    zip_NEEDBITS(e); | ||
|  | 	    t = t.t[zip_GETBITS(e)]; | ||
|  | 	    e = t.e; | ||
|  | 	} | ||
|  | 	zip_DUMPBITS(t.b); | ||
|  | 
 | ||
|  | 	if(e == 16) {		// then it's a literal
 | ||
|  | 	    zip_wp &= zip_WSIZE - 1; | ||
|  | 	    buff[off + n++] = zip_slide[zip_wp++] = t.n; | ||
|  | 	    if(n == size) | ||
|  | 		return size; | ||
|  | 	    continue; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	// exit if end of block
 | ||
|  | 	if(e == 15) | ||
|  | 	    break; | ||
|  | 
 | ||
|  | 	// it's an EOB or a length
 | ||
|  | 
 | ||
|  | 	// get length of block to copy
 | ||
|  | 	zip_NEEDBITS(e); | ||
|  | 	zip_copy_leng = t.n + zip_GETBITS(e); | ||
|  | 	zip_DUMPBITS(e); | ||
|  | 
 | ||
|  | 	// decode distance of block to copy
 | ||
|  | 	zip_NEEDBITS(zip_bd); | ||
|  | 	t = zip_td.list[zip_GETBITS(zip_bd)]; | ||
|  | 	e = t.e; | ||
|  | 
 | ||
|  | 	while(e > 16) { | ||
|  | 	    if(e == 99) | ||
|  | 		return -1; | ||
|  | 	    zip_DUMPBITS(t.b); | ||
|  | 	    e -= 16; | ||
|  | 	    zip_NEEDBITS(e); | ||
|  | 	    t = t.t[zip_GETBITS(e)]; | ||
|  | 	    e = t.e; | ||
|  | 	} | ||
|  | 	zip_DUMPBITS(t.b); | ||
|  | 	zip_NEEDBITS(e); | ||
|  | 	zip_copy_dist = zip_wp - t.n - zip_GETBITS(e); | ||
|  | 	zip_DUMPBITS(e); | ||
|  | 
 | ||
|  | 	// do the copy
 | ||
|  | 	while(zip_copy_leng > 0 && n < size) { | ||
|  | 	    zip_copy_leng--; | ||
|  | 	    zip_copy_dist &= zip_WSIZE - 1; | ||
|  | 	    zip_wp &= zip_WSIZE - 1; | ||
|  | 	    buff[off + n++] = zip_slide[zip_wp++] | ||
|  | 		= zip_slide[zip_copy_dist++]; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	if(n == size) | ||
|  | 	    return size; | ||
|  |     } | ||
|  | 
 | ||
|  |     zip_method = -1; // done
 | ||
|  |     return n; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate_stored(buff, off, size) { | ||
|  |     /* "decompress" an inflated type 0 (stored) block. */ | ||
|  |     var n; | ||
|  | 
 | ||
|  |     // go to byte boundary
 | ||
|  |     n = zip_bit_len & 7; | ||
|  |     zip_DUMPBITS(n); | ||
|  | 
 | ||
|  |     // get the length and its complement
 | ||
|  |     zip_NEEDBITS(16); | ||
|  |     n = zip_GETBITS(16); | ||
|  |     zip_DUMPBITS(16); | ||
|  |     zip_NEEDBITS(16); | ||
|  |     if(n != ((~zip_bit_buf) & 0xffff)) | ||
|  | 	return -1;			// error in compressed data
 | ||
|  |     zip_DUMPBITS(16); | ||
|  | 
 | ||
|  |     // read and output the compressed data
 | ||
|  |     zip_copy_leng = n; | ||
|  | 
 | ||
|  |     n = 0; | ||
|  |     while(zip_copy_leng > 0 && n < size) { | ||
|  | 	zip_copy_leng--; | ||
|  | 	zip_wp &= zip_WSIZE - 1; | ||
|  | 	zip_NEEDBITS(8); | ||
|  | 	buff[off + n++] = zip_slide[zip_wp++] = | ||
|  | 	    zip_GETBITS(8); | ||
|  | 	zip_DUMPBITS(8); | ||
|  |     } | ||
|  | 
 | ||
|  |     if(zip_copy_leng == 0) | ||
|  |       zip_method = -1; // done
 | ||
|  |     return n; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate_fixed(buff, off, size) { | ||
|  |     /* decompress an inflated type 1 (fixed Huffman codes) block.  We should | ||
|  |        either replace this with a custom decoder, or at least precompute the | ||
|  |        Huffman tables. */ | ||
|  | 
 | ||
|  |     // if first time, set up tables for fixed blocks
 | ||
|  |     if(zip_fixed_tl == null) { | ||
|  | 	var i;			// temporary variable
 | ||
|  | 	var l = new Array(288);	// length list for huft_build
 | ||
|  | 	var h;	// zip_HuftBuild
 | ||
|  | 
 | ||
|  | 	// literal table
 | ||
|  | 	for(i = 0; i < 144; i++) | ||
|  | 	    l[i] = 8; | ||
|  | 	for(; i < 256; i++) | ||
|  | 	    l[i] = 9; | ||
|  | 	for(; i < 280; i++) | ||
|  | 	    l[i] = 7; | ||
|  | 	for(; i < 288; i++)	// make a complete, but wrong code set
 | ||
|  | 	    l[i] = 8; | ||
|  | 	zip_fixed_bl = 7; | ||
|  | 
 | ||
|  | 	h = new zip_HuftBuild(l, 288, 257, zip_cplens, zip_cplext, | ||
|  | 			      zip_fixed_bl); | ||
|  | 	if(h.status != 0) { | ||
|  | 	    alert("HufBuild error: "+h.status); | ||
|  | 	    return -1; | ||
|  | 	} | ||
|  | 	zip_fixed_tl = h.root; | ||
|  | 	zip_fixed_bl = h.m; | ||
|  | 
 | ||
|  | 	// distance table
 | ||
|  | 	for(i = 0; i < 30; i++)	// make an incomplete code set
 | ||
|  | 	    l[i] = 5; | ||
|  | 	zip_fixed_bd = 5; | ||
|  | 
 | ||
|  | 	h = new zip_HuftBuild(l, 30, 0, zip_cpdist, zip_cpdext, zip_fixed_bd); | ||
|  | 	if(h.status > 1) { | ||
|  | 	    zip_fixed_tl = null; | ||
|  | 	    alert("HufBuild error: "+h.status); | ||
|  | 	    return -1; | ||
|  | 	} | ||
|  | 	zip_fixed_td = h.root; | ||
|  | 	zip_fixed_bd = h.m; | ||
|  |     } | ||
|  | 
 | ||
|  |     zip_tl = zip_fixed_tl; | ||
|  |     zip_td = zip_fixed_td; | ||
|  |     zip_bl = zip_fixed_bl; | ||
|  |     zip_bd = zip_fixed_bd; | ||
|  |     return zip_inflate_codes(buff, off, size); | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate_dynamic(buff, off, size) { | ||
|  |     // decompress an inflated type 2 (dynamic Huffman codes) block.
 | ||
|  |     var i;		// temporary variables
 | ||
|  |     var j; | ||
|  |     var l;		// last length
 | ||
|  |     var n;		// number of lengths to get
 | ||
|  |     var t;		// (zip_HuftNode) literal/length code table
 | ||
|  |     var nb;		// number of bit length codes
 | ||
|  |     var nl;		// number of literal/length codes
 | ||
|  |     var nd;		// number of distance codes
 | ||
|  |     var ll = new Array(286+30); // literal/length and distance code lengths
 | ||
|  |     var h;		// (zip_HuftBuild)
 | ||
|  | 
 | ||
|  |     for(i = 0; i < ll.length; i++) | ||
|  | 	ll[i] = 0; | ||
|  | 
 | ||
|  |     // read in table lengths
 | ||
|  |     zip_NEEDBITS(5); | ||
|  |     nl = 257 + zip_GETBITS(5);	// number of literal/length codes
 | ||
|  |     zip_DUMPBITS(5); | ||
|  |     zip_NEEDBITS(5); | ||
|  |     nd = 1 + zip_GETBITS(5);	// number of distance codes
 | ||
|  |     zip_DUMPBITS(5); | ||
|  |     zip_NEEDBITS(4); | ||
|  |     nb = 4 + zip_GETBITS(4);	// number of bit length codes
 | ||
|  |     zip_DUMPBITS(4); | ||
|  |     if(nl > 286 || nd > 30) | ||
|  |       return -1;		// bad lengths
 | ||
|  | 
 | ||
|  |     // read in bit-length-code lengths
 | ||
|  |     for(j = 0; j < nb; j++) | ||
|  |     { | ||
|  | 	zip_NEEDBITS(3); | ||
|  | 	ll[zip_border[j]] = zip_GETBITS(3); | ||
|  | 	zip_DUMPBITS(3); | ||
|  |     } | ||
|  |     for(; j < 19; j++) | ||
|  | 	ll[zip_border[j]] = 0; | ||
|  | 
 | ||
|  |     // build decoding table for trees--single level, 7 bit lookup
 | ||
|  |     zip_bl = 7; | ||
|  |     h = new zip_HuftBuild(ll, 19, 19, null, null, zip_bl); | ||
|  |     if(h.status != 0) | ||
|  | 	return -1;	// incomplete code set
 | ||
|  | 
 | ||
|  |     zip_tl = h.root; | ||
|  |     zip_bl = h.m; | ||
|  | 
 | ||
|  |     // read in literal and distance code lengths
 | ||
|  |     n = nl + nd; | ||
|  |     i = l = 0; | ||
|  |     while(i < n) { | ||
|  | 	zip_NEEDBITS(zip_bl); | ||
|  | 	t = zip_tl.list[zip_GETBITS(zip_bl)]; | ||
|  | 	j = t.b; | ||
|  | 	zip_DUMPBITS(j); | ||
|  | 	j = t.n; | ||
|  | 	if(j < 16)		// length of code in bits (0..15)
 | ||
|  | 	    ll[i++] = l = j;	// save last length in l
 | ||
|  | 	else if(j == 16) {	// repeat last length 3 to 6 times
 | ||
|  | 	    zip_NEEDBITS(2); | ||
|  | 	    j = 3 + zip_GETBITS(2); | ||
|  | 	    zip_DUMPBITS(2); | ||
|  | 	    if(i + j > n) | ||
|  | 		return -1; | ||
|  | 	    while(j-- > 0) | ||
|  | 		ll[i++] = l; | ||
|  | 	} else if(j == 17) {	// 3 to 10 zero length codes
 | ||
|  | 	    zip_NEEDBITS(3); | ||
|  | 	    j = 3 + zip_GETBITS(3); | ||
|  | 	    zip_DUMPBITS(3); | ||
|  | 	    if(i + j > n) | ||
|  | 		return -1; | ||
|  | 	    while(j-- > 0) | ||
|  | 		ll[i++] = 0; | ||
|  | 	    l = 0; | ||
|  | 	} else {		// j == 18: 11 to 138 zero length codes
 | ||
|  | 	    zip_NEEDBITS(7); | ||
|  | 	    j = 11 + zip_GETBITS(7); | ||
|  | 	    zip_DUMPBITS(7); | ||
|  | 	    if(i + j > n) | ||
|  | 		return -1; | ||
|  | 	    while(j-- > 0) | ||
|  | 		ll[i++] = 0; | ||
|  | 	    l = 0; | ||
|  | 	} | ||
|  |     } | ||
|  | 
 | ||
|  |     // build the decoding tables for literal/length and distance codes
 | ||
|  |     zip_bl = zip_lbits; | ||
|  |     h = new zip_HuftBuild(ll, nl, 257, zip_cplens, zip_cplext, zip_bl); | ||
|  |     if(zip_bl == 0)	// no literals or lengths
 | ||
|  | 	h.status = 1; | ||
|  |     if(h.status != 0) { | ||
|  | 	if(h.status == 1) | ||
|  | 	    ;// **incomplete literal tree**
 | ||
|  | 	return -1;		// incomplete code set
 | ||
|  |     } | ||
|  |     zip_tl = h.root; | ||
|  |     zip_bl = h.m; | ||
|  | 
 | ||
|  |     for(i = 0; i < nd; i++) | ||
|  | 	ll[i] = ll[i + nl]; | ||
|  |     zip_bd = zip_dbits; | ||
|  |     h = new zip_HuftBuild(ll, nd, 0, zip_cpdist, zip_cpdext, zip_bd); | ||
|  |     zip_td = h.root; | ||
|  |     zip_bd = h.m; | ||
|  | 
 | ||
|  |     if(zip_bd == 0 && nl > 257) {   // lengths but no distances
 | ||
|  | 	// **incomplete distance tree**
 | ||
|  | 	return -1; | ||
|  |     } | ||
|  | 
 | ||
|  |     if(h.status == 1) { | ||
|  | 	;// **incomplete distance tree**
 | ||
|  |     } | ||
|  |     if(h.status != 0) | ||
|  | 	return -1; | ||
|  | 
 | ||
|  |     // decompress until an end-of-block code
 | ||
|  |     return zip_inflate_codes(buff, off, size); | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate_start() { | ||
|  |     var i; | ||
|  | 
 | ||
|  |     if(zip_slide == null) | ||
|  | 	zip_slide = new Array(2 * zip_WSIZE); | ||
|  |     zip_wp = 0; | ||
|  |     zip_bit_buf = 0; | ||
|  |     zip_bit_len = 0; | ||
|  |     zip_method = -1; | ||
|  |     zip_eof = false; | ||
|  |     zip_copy_leng = zip_copy_dist = 0; | ||
|  |     zip_tl = null; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate_internal(buff, off, size) { | ||
|  |     // decompress an inflated entry
 | ||
|  |     var n, i; | ||
|  | 
 | ||
|  |     n = 0; | ||
|  |     while(n < size) { | ||
|  | 	if(zip_eof && zip_method == -1) | ||
|  | 	    return n; | ||
|  | 
 | ||
|  | 	if(zip_copy_leng > 0) { | ||
|  | 	    if(zip_method != zip_STORED_BLOCK) { | ||
|  | 		// STATIC_TREES or DYN_TREES
 | ||
|  | 		while(zip_copy_leng > 0 && n < size) { | ||
|  | 		    zip_copy_leng--; | ||
|  | 		    zip_copy_dist &= zip_WSIZE - 1; | ||
|  | 		    zip_wp &= zip_WSIZE - 1; | ||
|  | 		    buff[off + n++] = zip_slide[zip_wp++] = | ||
|  | 			zip_slide[zip_copy_dist++]; | ||
|  | 		} | ||
|  | 	    } else { | ||
|  | 		while(zip_copy_leng > 0 && n < size) { | ||
|  | 		    zip_copy_leng--; | ||
|  | 		    zip_wp &= zip_WSIZE - 1; | ||
|  | 		    zip_NEEDBITS(8); | ||
|  | 		    buff[off + n++] = zip_slide[zip_wp++] = zip_GETBITS(8); | ||
|  | 		    zip_DUMPBITS(8); | ||
|  | 		} | ||
|  | 		if(zip_copy_leng == 0) | ||
|  | 		    zip_method = -1; // done
 | ||
|  | 	    } | ||
|  | 	    if(n == size) | ||
|  | 		return n; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	if(zip_method == -1) { | ||
|  | 	    if(zip_eof) | ||
|  | 		break; | ||
|  | 
 | ||
|  | 	    // read in last block bit
 | ||
|  | 	    zip_NEEDBITS(1); | ||
|  | 	    if(zip_GETBITS(1) != 0) | ||
|  | 		zip_eof = true; | ||
|  | 	    zip_DUMPBITS(1); | ||
|  | 
 | ||
|  | 	    // read in block type
 | ||
|  | 	    zip_NEEDBITS(2); | ||
|  | 	    zip_method = zip_GETBITS(2); | ||
|  | 	    zip_DUMPBITS(2); | ||
|  | 	    zip_tl = null; | ||
|  | 	    zip_copy_leng = 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	switch(zip_method) { | ||
|  | 	  case 0: // zip_STORED_BLOCK
 | ||
|  | 	    i = zip_inflate_stored(buff, off + n, size - n); | ||
|  | 	    break; | ||
|  | 
 | ||
|  | 	  case 1: // zip_STATIC_TREES
 | ||
|  | 	    if(zip_tl != null) | ||
|  | 		i = zip_inflate_codes(buff, off + n, size - n); | ||
|  | 	    else | ||
|  | 		i = zip_inflate_fixed(buff, off + n, size - n); | ||
|  | 	    break; | ||
|  | 
 | ||
|  | 	  case 2: // zip_DYN_TREES
 | ||
|  | 	    if(zip_tl != null) | ||
|  | 		i = zip_inflate_codes(buff, off + n, size - n); | ||
|  | 	    else | ||
|  | 		i = zip_inflate_dynamic(buff, off + n, size - n); | ||
|  | 	    break; | ||
|  | 
 | ||
|  | 	  default: // error
 | ||
|  | 	    i = -1; | ||
|  | 	    break; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	if(i == -1) { | ||
|  | 	    if(zip_eof) | ||
|  | 		return 0; | ||
|  | 	    return -1; | ||
|  | 	} | ||
|  | 	n += i; | ||
|  |     } | ||
|  |     return n; | ||
|  | } | ||
|  | 
 | ||
|  | function zip_inflate(str) { | ||
|  |     var out, buff; | ||
|  |     var i, j; | ||
|  | 
 | ||
|  |     zip_inflate_start(); | ||
|  |     zip_inflate_data = str; | ||
|  |     zip_inflate_pos = 0; | ||
|  | 
 | ||
|  |     buff = new Array(1024); | ||
|  |     out = ""; | ||
|  |     while((i = zip_inflate_internal(buff, 0, buff.length)) > 0) { | ||
|  | 	for(j = 0; j < i; j++) | ||
|  | 	    out += String.fromCharCode(buff[j]); | ||
|  |     } | ||
|  |     zip_inflate_data = null; // G.C.
 | ||
|  |     return out; | ||
|  | } | ||
|  | 
 | ||
|  | //
 | ||
|  | // end of the script of Masanao Izumo.
 | ||
|  | //
 | ||
|  | 
 | ||
|  | // we add the compression method for JSZip
 | ||
|  | if(!JSZip.compressions["DEFLATE"]) { | ||
|  |   JSZip.compressions["DEFLATE"] = { | ||
|  |     magic : "\x08\x00", | ||
|  |     uncompress : zip_inflate | ||
|  |   } | ||
|  | } else { | ||
|  |   JSZip.compressions["DEFLATE"].uncompress = zip_inflate; | ||
|  | } | ||
|  | 
 | ||
|  | })(); | ||
|  | 
 | ||
|  | // enforcing Stuk's coding style
 | ||
|  | // vim: set shiftwidth=3 softtabstop=3:
 |