forked from sheetjs/sheetjs
		
	
		
			
				
	
	
		
			1079 lines
		
	
	
		
			31 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
			
		
		
	
	
			1079 lines
		
	
	
		
			31 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
| /* [MS-XLS] 2.5.19 */
 | |
| function parse_XLSCell(blob/*::, length*/)/*:Cell*/ {
 | |
| 	var rw = blob.read_shift(2); // 0-indexed
 | |
| 	var col = blob.read_shift(2);
 | |
| 	var ixfe = blob.read_shift(2);
 | |
| 	return ({r:rw, c:col, ixfe:ixfe}/*:any*/);
 | |
| }
 | |
| function write_XLSCell(R/*:number*/, C/*:number*/, ixfe/*:?number*/, o) {
 | |
| 	if(!o) o = new_buf(6);
 | |
| 	o.write_shift(2, R);
 | |
| 	o.write_shift(2, C);
 | |
| 	o.write_shift(2, ixfe||0);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.134 */
 | |
| function parse_frtHeader(blob) {
 | |
| 	var rt = blob.read_shift(2);
 | |
| 	var flags = blob.read_shift(2); // TODO: parse these flags
 | |
| 	blob.l += 8;
 | |
| 	return {type: rt, flags: flags};
 | |
| }
 | |
| 
 | |
| 
 | |
| 
 | |
| function parse_OptXLUnicodeString(blob, length, opts) { return length === 0 ? "" : parse_XLUnicodeString2(blob, length, opts); }
 | |
| 
 | |
| /* [MS-XLS] 2.5.344 */
 | |
| function parse_XTI(blob, length, opts) {
 | |
| 	var w = opts.biff > 8 ? 4 : 2;
 | |
| 	var iSupBook = blob.read_shift(w), itabFirst = blob.read_shift(w,'i'), itabLast = blob.read_shift(w,'i');
 | |
| 	return [iSupBook, itabFirst, itabLast];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.218 */
 | |
| function parse_RkRec(blob) {
 | |
| 	var ixfe = blob.read_shift(2);
 | |
| 	var RK = parse_RkNumber(blob);
 | |
| 	return [ixfe, RK];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.1 */
 | |
| function parse_AddinUdf(blob, length, opts) {
 | |
| 	blob.l += 4; length -= 4;
 | |
| 	var l = blob.l + length;
 | |
| 	var udfName = parse_ShortXLUnicodeString(blob, length, opts);
 | |
| 	var cb = blob.read_shift(2);
 | |
| 	l -= blob.l;
 | |
| 	if(cb !== l) throw new Error("Malformed AddinUdf: padding = " + l + " != " + cb);
 | |
| 	blob.l += cb;
 | |
| 	return udfName;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.209 TODO: Check sizes */
 | |
| function parse_Ref8U(blob/*::, length*/) {
 | |
| 	var rwFirst = blob.read_shift(2);
 | |
| 	var rwLast = blob.read_shift(2);
 | |
| 	var colFirst = blob.read_shift(2);
 | |
| 	var colLast = blob.read_shift(2);
 | |
| 	return {s:{c:colFirst, r:rwFirst}, e:{c:colLast,r:rwLast}};
 | |
| }
 | |
| function write_Ref8U(r/*:Range*/, o) {
 | |
| 	if(!o) o = new_buf(8);
 | |
| 	o.write_shift(2, r.s.r);
 | |
| 	o.write_shift(2, r.e.r);
 | |
| 	o.write_shift(2, r.s.c);
 | |
| 	o.write_shift(2, r.e.c);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.211 */
 | |
| function parse_RefU(blob/*::, length*/) {
 | |
| 	var rwFirst = blob.read_shift(2);
 | |
| 	var rwLast = blob.read_shift(2);
 | |
| 	var colFirst = blob.read_shift(1);
 | |
| 	var colLast = blob.read_shift(1);
 | |
| 	return {s:{c:colFirst, r:rwFirst}, e:{c:colLast,r:rwLast}};
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.207 */
 | |
| var parse_Ref = parse_RefU;
 | |
| 
 | |
| /* [MS-XLS] 2.5.143 */
 | |
| function parse_FtCmo(blob/*::, length*/) {
 | |
| 	blob.l += 4;
 | |
| 	var ot = blob.read_shift(2);
 | |
| 	var id = blob.read_shift(2);
 | |
| 	var flags = blob.read_shift(2);
 | |
| 	blob.l+=12;
 | |
| 	return [id, ot, flags];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.149 */
 | |
| function parse_FtNts(blob) {
 | |
| 	var out = {};
 | |
| 	blob.l += 4;
 | |
| 	blob.l += 16; // GUID TODO
 | |
| 	out.fSharedNote = blob.read_shift(2);
 | |
| 	blob.l += 4;
 | |
| 	return out;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.142 */
 | |
| function parse_FtCf(blob) {
 | |
| 	var out = {};
 | |
| 	blob.l += 4;
 | |
| 	blob.cf = blob.read_shift(2);
 | |
| 	return out;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.140 - 2.5.154 and friends */
 | |
| function parse_FtSkip(blob) { blob.l += 2; blob.l += blob.read_shift(2); }
 | |
| var FtTab = {
 | |
| 	/*::[*/0x00/*::]*/: parse_FtSkip,      /* FtEnd */
 | |
| 	/*::[*/0x04/*::]*/: parse_FtSkip,      /* FtMacro */
 | |
| 	/*::[*/0x05/*::]*/: parse_FtSkip,      /* FtButton */
 | |
| 	/*::[*/0x06/*::]*/: parse_FtSkip,      /* FtGmo */
 | |
| 	/*::[*/0x07/*::]*/: parse_FtCf,        /* FtCf */
 | |
| 	/*::[*/0x08/*::]*/: parse_FtSkip,      /* FtPioGrbit */
 | |
| 	/*::[*/0x09/*::]*/: parse_FtSkip,      /* FtPictFmla */
 | |
| 	/*::[*/0x0A/*::]*/: parse_FtSkip,      /* FtCbls */
 | |
| 	/*::[*/0x0B/*::]*/: parse_FtSkip,      /* FtRbo */
 | |
| 	/*::[*/0x0C/*::]*/: parse_FtSkip,      /* FtSbs */
 | |
| 	/*::[*/0x0D/*::]*/: parse_FtNts,       /* FtNts */
 | |
| 	/*::[*/0x0E/*::]*/: parse_FtSkip,      /* FtSbsFmla */
 | |
| 	/*::[*/0x0F/*::]*/: parse_FtSkip,      /* FtGboData */
 | |
| 	/*::[*/0x10/*::]*/: parse_FtSkip,      /* FtEdoData */
 | |
| 	/*::[*/0x11/*::]*/: parse_FtSkip,      /* FtRboData */
 | |
| 	/*::[*/0x12/*::]*/: parse_FtSkip,      /* FtCblsData */
 | |
| 	/*::[*/0x13/*::]*/: parse_FtSkip,      /* FtLbsData */
 | |
| 	/*::[*/0x14/*::]*/: parse_FtSkip,      /* FtCblsFmla */
 | |
| 	/*::[*/0x15/*::]*/: parse_FtCmo
 | |
| };
 | |
| function parse_FtArray(blob, length/*::, ot*/) {
 | |
| 	var tgt = blob.l + length;
 | |
| 	var fts = [];
 | |
| 	while(blob.l < tgt) {
 | |
| 		var ft = blob.read_shift(2);
 | |
| 		blob.l-=2;
 | |
| 		try {
 | |
| 			fts.push(FtTab[ft](blob, tgt - blob.l));
 | |
| 		} catch(e) { blob.l = tgt; return fts; }
 | |
| 	}
 | |
| 	if(blob.l != tgt) blob.l = tgt; //throw new Error("bad Object Ft-sequence");
 | |
| 	return fts;
 | |
| }
 | |
| 
 | |
| /* --- 2.4 Records --- */
 | |
| 
 | |
| /* [MS-XLS] 2.4.21 */
 | |
| function parse_BOF(blob, length) {
 | |
| 	var o = {BIFFVer:0, dt:0};
 | |
| 	o.BIFFVer = blob.read_shift(2); length -= 2;
 | |
| 	if(length >= 2) { o.dt = blob.read_shift(2); blob.l -= 2; }
 | |
| 	switch(o.BIFFVer) {
 | |
| 		case 0x0600: /* BIFF8 */
 | |
| 		case 0x0500: /* BIFF5 */
 | |
| 		case 0x0400: /* BIFF4 */
 | |
| 		case 0x0300: /* BIFF3 */
 | |
| 		case 0x0200: /* BIFF2 */
 | |
| 		case 0x0002: case 0x0007: /* BIFF2 */
 | |
| 			break;
 | |
| 		default: if(length > 6) throw new Error("Unexpected BIFF Ver " + o.BIFFVer);
 | |
| 	}
 | |
| 
 | |
| 	blob.read_shift(length);
 | |
| 	return o;
 | |
| }
 | |
| function write_BOF(wb/*:Workbook*/, t/*:number*/, o) {
 | |
| 	var h = 0x0600, w = 16;
 | |
| 	switch(o.bookType) {
 | |
| 		case 'biff8': break;
 | |
| 		case 'biff5': h = 0x0500; w = 8; break;
 | |
| 		case 'biff4': h = 0x0004; w = 6; break;
 | |
| 		case 'biff3': h = 0x0003; w = 6; break;
 | |
| 		case 'biff2': h = 0x0002; w = 4; break;
 | |
| 		case 'xla': break;
 | |
| 		default: throw new Error("unsupported BIFF version");
 | |
| 	}
 | |
| 	var out = new_buf(w);
 | |
| 	out.write_shift(2, h);
 | |
| 	out.write_shift(2, t);
 | |
| 	if(w > 4) out.write_shift(2, 0x7262);
 | |
| 	if(w > 6) out.write_shift(2, 0x07CD);
 | |
| 	if(w > 8) {
 | |
| 		out.write_shift(2, 0xC009);
 | |
| 		out.write_shift(2, 0x0001);
 | |
| 		out.write_shift(2, 0x0706);
 | |
| 		out.write_shift(2, 0x0000);
 | |
| 	}
 | |
| 	return out;
 | |
| }
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.146 */
 | |
| function parse_InterfaceHdr(blob, length) {
 | |
| 	if(length === 0) return 0x04b0;
 | |
| 	if((blob.read_shift(2))!==0x04b0){/* empty */}
 | |
| 	return 0x04b0;
 | |
| }
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.349 */
 | |
| function parse_WriteAccess(blob, length, opts) {
 | |
| 	if(opts.enc) { blob.l += length; return ""; }
 | |
| 	var l = blob.l;
 | |
| 	// TODO: make sure XLUnicodeString doesnt overrun
 | |
| 	var UserName = parse_XLUnicodeString2(blob, 0, opts);
 | |
| 	blob.read_shift(length + l - blob.l);
 | |
| 	return UserName;
 | |
| }
 | |
| function write_WriteAccess(s/*:string*/, opts) {
 | |
| 	var b8 = !opts || opts.biff == 8;
 | |
| 	var o = new_buf(b8 ? 112 : 54);
 | |
| 	o.write_shift(opts.biff == 8 ? 2 : 1, 7);
 | |
| 	if(b8) o.write_shift(1, 0);
 | |
| 	o.write_shift(4, 0x33336853);
 | |
| 	o.write_shift(4, (0x00534A74 | (b8 ? 0 : 0x20000000)));
 | |
| 	while(o.l < o.length) o.write_shift(1, (b8 ? 0 : 32));
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.351 */
 | |
| function parse_WsBool(blob, length, opts) {
 | |
| 	var flags = opts && opts.biff == 8 || length == 2 ? blob.read_shift(2) : (blob.l += length, 0);
 | |
| 	return { fDialog: flags & 0x10 };
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.28 */
 | |
| function parse_BoundSheet8(blob, length, opts) {
 | |
| 	var pos = blob.read_shift(4);
 | |
| 	var hidden = blob.read_shift(1) & 0x03;
 | |
| 	var dt = blob.read_shift(1);
 | |
| 	switch(dt) {
 | |
| 		case 0: dt = 'Worksheet'; break;
 | |
| 		case 1: dt = 'Macrosheet'; break;
 | |
| 		case 2: dt = 'Chartsheet'; break;
 | |
| 		case 6: dt = 'VBAModule'; break;
 | |
| 	}
 | |
| 	var name = parse_ShortXLUnicodeString(blob, 0, opts);
 | |
| 	if(name.length === 0) name = "Sheet1";
 | |
| 	return { pos:pos, hs:hidden, dt:dt, name:name };
 | |
| }
 | |
| function write_BoundSheet8(data, opts) {
 | |
| 	var w = (!opts || opts.biff >= 8 ? 2 : 1);
 | |
| 	var o = new_buf(8 + w * data.name.length);
 | |
| 	o.write_shift(4, data.pos);
 | |
| 	o.write_shift(1, data.hs || 0);
 | |
| 	o.write_shift(1, data.dt);
 | |
| 	o.write_shift(1, data.name.length);
 | |
| 	if(opts.biff >= 8) o.write_shift(1, 1);
 | |
| 	o.write_shift(w * data.name.length, data.name, opts.biff < 8 ? 'sbcs' : 'utf16le');
 | |
| 	var out = o.slice(0, o.l);
 | |
| 	out.l = o.l; return out;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.265 TODO */
 | |
| function parse_SST(blob, length)/*:SST*/ {
 | |
| 	var end = blob.l + length;
 | |
| 	var cnt = blob.read_shift(4);
 | |
| 	var ucnt = blob.read_shift(4);
 | |
| 	var strs/*:SST*/ = ([]/*:any*/);
 | |
| 	for(var i = 0; i != ucnt && blob.l < end; ++i) {
 | |
| 		strs.push(parse_XLUnicodeRichExtendedString(blob));
 | |
| 	}
 | |
| 	strs.Count = cnt; strs.Unique = ucnt;
 | |
| 	return strs;
 | |
| }
 | |
| function write_SST(sst, opts) {
 | |
| 	var header = new_buf(8);
 | |
| 	header.write_shift(4, sst.Count);
 | |
| 	header.write_shift(4, sst.Unique);
 | |
| 	var strs = [];
 | |
| 	for(var j = 0; j < sst.length; ++j) strs[j] = write_XLUnicodeRichExtendedString(sst[j], opts);
 | |
| 	var o = bconcat([header].concat(strs));
 | |
| 	/*::(*/o/*:: :any)*/.parts = [header.length].concat(strs.map(function(str) { return str.length; }));
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.107 */
 | |
| function parse_ExtSST(blob, length) {
 | |
| 	var extsst = {};
 | |
| 	extsst.dsst = blob.read_shift(2);
 | |
| 	blob.l += length-2;
 | |
| 	return extsst;
 | |
| }
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.221 TODO: check BIFF2-4 */
 | |
| function parse_Row(blob) {
 | |
| 	var z = ({}/*:any*/);
 | |
| 	z.r = blob.read_shift(2);
 | |
| 	z.c = blob.read_shift(2);
 | |
| 	z.cnt = blob.read_shift(2) - z.c;
 | |
| 	var miyRw = blob.read_shift(2);
 | |
| 	blob.l += 4; // reserved(2), unused(2)
 | |
| 	var flags = blob.read_shift(1); // various flags
 | |
| 	blob.l += 3; // reserved(8), ixfe(12), flags(4)
 | |
| 	if(flags & 0x07) z.level = flags & 0x07;
 | |
| 	// collapsed: flags & 0x10
 | |
| 	if(flags & 0x20) z.hidden = true;
 | |
| 	if(flags & 0x40) z.hpt = miyRw / 20;
 | |
| 	return z;
 | |
| }
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.125 */
 | |
| function parse_ForceFullCalculation(blob) {
 | |
| 	var header = parse_frtHeader(blob);
 | |
| 	if(header.type != 0x08A3) throw new Error("Invalid Future Record " + header.type);
 | |
| 	var fullcalc = blob.read_shift(4);
 | |
| 	return fullcalc !== 0x0;
 | |
| }
 | |
| 
 | |
| 
 | |
| 
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.215 rt */
 | |
| function parse_RecalcId(blob) {
 | |
| 	blob.read_shift(2);
 | |
| 	return blob.read_shift(4);
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.87 */
 | |
| function parse_DefaultRowHeight(blob, length, opts) {
 | |
| 	var f = 0;
 | |
| 	if(!(opts && opts.biff == 2)) {
 | |
| 		f = blob.read_shift(2);
 | |
| 	}
 | |
| 	var miyRw = blob.read_shift(2);
 | |
| 	if((opts && opts.biff == 2)) {
 | |
| 		f = 1 - (miyRw >> 15); miyRw &= 0x7fff;
 | |
| 	}
 | |
| 	var fl = {Unsynced:f&1,DyZero:(f&2)>>1,ExAsc:(f&4)>>2,ExDsc:(f&8)>>3};
 | |
| 	return [fl, miyRw];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.345 TODO */
 | |
| function parse_Window1(blob) {
 | |
| 	var xWn = blob.read_shift(2), yWn = blob.read_shift(2), dxWn = blob.read_shift(2), dyWn = blob.read_shift(2);
 | |
| 	var flags = blob.read_shift(2), iTabCur = blob.read_shift(2), iTabFirst = blob.read_shift(2);
 | |
| 	var ctabSel = blob.read_shift(2), wTabRatio = blob.read_shift(2);
 | |
| 	return { Pos: [xWn, yWn], Dim: [dxWn, dyWn], Flags: flags, CurTab: iTabCur,
 | |
| 		FirstTab: iTabFirst, Selected: ctabSel, TabRatio: wTabRatio };
 | |
| }
 | |
| function write_Window1(/*::opts*/) {
 | |
| 	var o = new_buf(18);
 | |
| 	o.write_shift(2, 0);
 | |
| 	o.write_shift(2, 0);
 | |
| 	o.write_shift(2, 0x7260);
 | |
| 	o.write_shift(2, 0x44c0);
 | |
| 	o.write_shift(2, 0x38);
 | |
| 	o.write_shift(2, 0);
 | |
| 	o.write_shift(2, 0);
 | |
| 	o.write_shift(2, 1);
 | |
| 	o.write_shift(2, 0x01f4);
 | |
| 	return o;
 | |
| }
 | |
| /* [MS-XLS] 2.4.346 TODO */
 | |
| function parse_Window2(blob, length, opts) {
 | |
| 	if(opts && opts.biff >= 2 && opts.biff < 5) return {};
 | |
| 	var f = blob.read_shift(2);
 | |
| 	return { RTL: f & 0x40 };
 | |
| }
 | |
| function write_Window2(view) {
 | |
| 	var o = new_buf(18), f = 0x6b6;
 | |
| 	if(view && view.RTL) f |= 0x40;
 | |
| 	o.write_shift(2, f);
 | |
| 	o.write_shift(4, 0);
 | |
| 	o.write_shift(4, 64);
 | |
| 	o.write_shift(4, 0);
 | |
| 	o.write_shift(4, 0);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.189 TODO */
 | |
| function parse_Pane(/*blob, length, opts*/) {
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.122 TODO */
 | |
| function parse_Font(blob, length, opts) {
 | |
| 	var o/*:any*/ = {
 | |
| 		dyHeight: blob.read_shift(2),
 | |
| 		fl: blob.read_shift(2)
 | |
| 	};
 | |
| 	switch((opts && opts.biff) || 8) {
 | |
| 		case 2: break;
 | |
| 		case 3: case 4: blob.l += 2; break;
 | |
| 		default: blob.l += 10; break;
 | |
| 	}
 | |
| 	o.name = parse_ShortXLUnicodeString(blob, 0, opts);
 | |
| 	return o;
 | |
| }
 | |
| function write_Font(data, opts) {
 | |
| 	var name = data.name || "Arial";
 | |
| 	var b5 = (opts && (opts.biff == 5)), w = (b5 ? (15 + name.length) : (16 + 2 * name.length));
 | |
| 	var o = new_buf(w);
 | |
| 	o.write_shift(2, (data.sz || 12) * 20);
 | |
| 	o.write_shift(4, 0);
 | |
| 	o.write_shift(2, 400);
 | |
| 	o.write_shift(4, 0);
 | |
| 	o.write_shift(2, 0);
 | |
| 	o.write_shift(1, name.length);
 | |
| 	if(!b5) o.write_shift(1, 1);
 | |
| 	o.write_shift((b5 ? 1 : 2) * name.length, name, (b5 ? "sbcs" : "utf16le"));
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.149 */
 | |
| function parse_LabelSst(blob) {
 | |
| 	var cell = parse_XLSCell(blob);
 | |
| 	cell.isst = blob.read_shift(4);
 | |
| 	return cell;
 | |
| }
 | |
| function write_LabelSst(R/*:number*/, C/*:number*/, v/*:number*/, os/*:number*/ /*::, opts*/) {
 | |
| 	var o = new_buf(10);
 | |
| 	write_XLSCell(R, C, os, o);
 | |
| 	o.write_shift(4, v);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.148 */
 | |
| function parse_Label(blob, length, opts) {
 | |
| 	var target = blob.l + length;
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	if(opts.biff == 2) blob.l++;
 | |
| 	var str = parse_XLUnicodeString(blob, target - blob.l, opts);
 | |
| 	cell.val = str;
 | |
| 	return cell;
 | |
| }
 | |
| function write_Label(R/*:number*/, C/*:number*/, v/*:string*/, os/*:number*/, opts) {
 | |
| 	var b8 = !opts || opts.biff == 8;
 | |
| 	var o = new_buf(6 + 2 + (+b8) + (1 + b8) * v.length);
 | |
| 	write_XLSCell(R, C, os, o);
 | |
| 	o.write_shift(2, v.length);
 | |
| 	if(b8) o.write_shift(1, 1);
 | |
| 	o.write_shift((1 + b8) * v.length, v, b8 ? 'utf16le' : 'sbcs');
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.126 Number Formats */
 | |
| function parse_Format(blob, length, opts) {
 | |
| 	var numFmtId = blob.read_shift(2);
 | |
| 	var fmtstr = parse_XLUnicodeString2(blob, 0, opts);
 | |
| 	return [numFmtId, fmtstr];
 | |
| }
 | |
| function write_Format(i/*:number*/, f/*:string*/, opts, o) {
 | |
| 	var b5 = (opts && (opts.biff == 5));
 | |
| 	if(!o) o = new_buf(b5 ? (3 + f.length) : (5 + 2 * f.length));
 | |
| 	o.write_shift(2, i);
 | |
| 	o.write_shift((b5 ? 1 : 2), f.length);
 | |
| 	if(!b5) o.write_shift(1, 1);
 | |
| 	o.write_shift((b5 ? 1 : 2) * f.length, f, (b5 ? 'sbcs' : 'utf16le'));
 | |
| 	var out = (o.length > o.l) ? o.slice(0, o.l) : o;
 | |
| 	if(out.l == null) out.l = out.length;
 | |
| 	return out;
 | |
| }
 | |
| var parse_BIFF2Format = parse_XLUnicodeString2;
 | |
| 
 | |
| /* [MS-XLS] 2.4.90 */
 | |
| function parse_Dimensions(blob, length, opts) {
 | |
| 	var end = blob.l + length;
 | |
| 	var w = opts.biff == 8 || !opts.biff ? 4 : 2;
 | |
| 	var r = blob.read_shift(w), R = blob.read_shift(w);
 | |
| 	var c = blob.read_shift(2), C = blob.read_shift(2);
 | |
| 	blob.l = end;
 | |
| 	return {s: {r:r, c:c}, e: {r:R, c:C}};
 | |
| }
 | |
| function write_Dimensions(range, opts) {
 | |
| 	var w = opts.biff == 8 || !opts.biff ? 4 : 2;
 | |
| 	var o = new_buf(2*w + 6);
 | |
| 	o.write_shift(w, range.s.r);
 | |
| 	o.write_shift(w, range.e.r + 1);
 | |
| 	o.write_shift(2, range.s.c);
 | |
| 	o.write_shift(2, range.e.c + 1);
 | |
| 	o.write_shift(2, 0);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.220 */
 | |
| function parse_RK(blob) {
 | |
| 	var rw = blob.read_shift(2), col = blob.read_shift(2);
 | |
| 	var rkrec = parse_RkRec(blob);
 | |
| 	return {r:rw, c:col, ixfe:rkrec[0], rknum:rkrec[1]};
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.175 */
 | |
| function parse_MulRk(blob, length) {
 | |
| 	var target = blob.l + length - 2;
 | |
| 	var rw = blob.read_shift(2), col = blob.read_shift(2);
 | |
| 	var rkrecs = [];
 | |
| 	while(blob.l < target) rkrecs.push(parse_RkRec(blob));
 | |
| 	if(blob.l !== target) throw new Error("MulRK read error");
 | |
| 	var lastcol = blob.read_shift(2);
 | |
| 	if(rkrecs.length != lastcol - col + 1) throw new Error("MulRK length mismatch");
 | |
| 	return {r:rw, c:col, C:lastcol, rkrec:rkrecs};
 | |
| }
 | |
| /* [MS-XLS] 2.4.174 */
 | |
| function parse_MulBlank(blob, length) {
 | |
| 	var target = blob.l + length - 2;
 | |
| 	var rw = blob.read_shift(2), col = blob.read_shift(2);
 | |
| 	var ixfes = [];
 | |
| 	while(blob.l < target) ixfes.push(blob.read_shift(2));
 | |
| 	if(blob.l !== target) throw new Error("MulBlank read error");
 | |
| 	var lastcol = blob.read_shift(2);
 | |
| 	if(ixfes.length != lastcol - col + 1) throw new Error("MulBlank length mismatch");
 | |
| 	return {r:rw, c:col, C:lastcol, ixfe:ixfes};
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.20 2.5.249 TODO: interpret values here */
 | |
| function parse_CellStyleXF(blob, length, style, opts) {
 | |
| 	var o = {};
 | |
| 	var a = blob.read_shift(4), b = blob.read_shift(4);
 | |
| 	var c = blob.read_shift(4), d = blob.read_shift(2);
 | |
| 	o.patternType = XLSFillPattern[c >> 26];
 | |
| 
 | |
| 	if(!opts.cellStyles) return o;
 | |
| 	o.alc = a & 0x07;
 | |
| 	o.fWrap = (a >> 3) & 0x01;
 | |
| 	o.alcV = (a >> 4) & 0x07;
 | |
| 	o.fJustLast = (a >> 7) & 0x01;
 | |
| 	o.trot = (a >> 8) & 0xFF;
 | |
| 	o.cIndent = (a >> 16) & 0x0F;
 | |
| 	o.fShrinkToFit = (a >> 20) & 0x01;
 | |
| 	o.iReadOrder = (a >> 22) & 0x02;
 | |
| 	o.fAtrNum = (a >> 26) & 0x01;
 | |
| 	o.fAtrFnt = (a >> 27) & 0x01;
 | |
| 	o.fAtrAlc = (a >> 28) & 0x01;
 | |
| 	o.fAtrBdr = (a >> 29) & 0x01;
 | |
| 	o.fAtrPat = (a >> 30) & 0x01;
 | |
| 	o.fAtrProt = (a >> 31) & 0x01;
 | |
| 
 | |
| 	o.dgLeft = b & 0x0F;
 | |
| 	o.dgRight = (b >> 4) & 0x0F;
 | |
| 	o.dgTop = (b >> 8) & 0x0F;
 | |
| 	o.dgBottom = (b >> 12) & 0x0F;
 | |
| 	o.icvLeft = (b >> 16) & 0x7F;
 | |
| 	o.icvRight = (b >> 23) & 0x7F;
 | |
| 	o.grbitDiag = (b >> 30) & 0x03;
 | |
| 
 | |
| 	o.icvTop = c & 0x7F;
 | |
| 	o.icvBottom = (c >> 7) & 0x7F;
 | |
| 	o.icvDiag = (c >> 14) & 0x7F;
 | |
| 	o.dgDiag = (c >> 21) & 0x0F;
 | |
| 
 | |
| 	o.icvFore = d & 0x7F;
 | |
| 	o.icvBack = (d >> 7) & 0x7F;
 | |
| 	o.fsxButton = (d >> 14) & 0x01;
 | |
| 	return o;
 | |
| }
 | |
| //function parse_CellXF(blob, length, opts) {return parse_CellStyleXF(blob,length,0, opts);}
 | |
| //function parse_StyleXF(blob, length, opts) {return parse_CellStyleXF(blob,length,1, opts);}
 | |
| 
 | |
| /* [MS-XLS] 2.4.353 TODO: actually do this right */
 | |
| function parse_XF(blob, length, opts) {
 | |
| 	var o = {};
 | |
| 	o.ifnt = blob.read_shift(2); o.numFmtId = blob.read_shift(2); o.flags = blob.read_shift(2);
 | |
| 	o.fStyle = (o.flags >> 2) & 0x01;
 | |
| 	length -= 6;
 | |
| 	o.data = parse_CellStyleXF(blob, length, o.fStyle, opts);
 | |
| 	return o;
 | |
| }
 | |
| function write_XF(data, ixfeP, opts, o) {
 | |
| 	var b5 = (opts && (opts.biff == 5));
 | |
| 	if(!o) o = new_buf(b5 ? 16 : 20);
 | |
| 	o.write_shift(2, 0);
 | |
| 	if(data.style) {
 | |
| 		o.write_shift(2, (data.numFmtId||0));
 | |
| 		o.write_shift(2, 0xFFF4);
 | |
| 	} else {
 | |
| 		o.write_shift(2, (data.numFmtId||0));
 | |
| 		o.write_shift(2, (ixfeP<<4));
 | |
| 	}
 | |
| 	o.write_shift(4, 0);
 | |
| 	o.write_shift(4, 0);
 | |
| 	if(!b5) o.write_shift(4, 0);
 | |
| 	o.write_shift(2, 0);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.134 */
 | |
| function parse_Guts(blob) {
 | |
| 	blob.l += 4;
 | |
| 	var out = [blob.read_shift(2), blob.read_shift(2)];
 | |
| 	if(out[0] !== 0) out[0]--;
 | |
| 	if(out[1] !== 0) out[1]--;
 | |
| 	if(out[0] > 7 || out[1] > 7) throw new Error("Bad Gutters: " + out.join("|"));
 | |
| 	return out;
 | |
| }
 | |
| function write_Guts(guts/*:Array<number>*/) {
 | |
| 	var o = new_buf(8);
 | |
| 	o.write_shift(4, 0);
 | |
| 	o.write_shift(2, guts[0] ? guts[0] + 1 : 0);
 | |
| 	o.write_shift(2, guts[1] ? guts[1] + 1 : 0);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.24 */
 | |
| function parse_BoolErr(blob, length, opts) {
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	if(opts.biff == 2) ++blob.l;
 | |
| 	var val = parse_Bes(blob, 2);
 | |
| 	cell.val = val;
 | |
| 	cell.t = (val === true || val === false) ? 'b' : 'e';
 | |
| 	return cell;
 | |
| }
 | |
| function write_BoolErr(R/*:number*/, C/*:number*/, v, os/*:number*/, opts, t/*:string*/) {
 | |
| 	var o = new_buf(8);
 | |
| 	write_XLSCell(R, C, os, o);
 | |
| 	write_Bes(v, t, o);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.180 Number */
 | |
| function parse_Number(blob) {
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	var xnum = parse_Xnum(blob, 8);
 | |
| 	cell.val = xnum;
 | |
| 	return cell;
 | |
| }
 | |
| function write_Number(R/*:number*/, C/*:number*/, v, os/*:: :number, opts*/) {
 | |
| 	var o = new_buf(14);
 | |
| 	write_XLSCell(R, C, os, o);
 | |
| 	write_Xnum(v, o);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| var parse_XLHeaderFooter = parse_OptXLUnicodeString; // TODO: parse 2.4.136
 | |
| 
 | |
| /* [MS-XLS] 2.4.271 */
 | |
| function parse_SupBook(blob, length, opts) {
 | |
| 	var end = blob.l + length;
 | |
| 	var ctab = blob.read_shift(2);
 | |
| 	var cch = blob.read_shift(2);
 | |
| 	opts.sbcch = cch;
 | |
| 	if(cch == 0x0401 || cch == 0x3A01) return [cch, ctab];
 | |
| 	if(cch < 0x01 || cch >0xff) throw new Error("Unexpected SupBook type: "+cch);
 | |
| 	var virtPath = parse_XLUnicodeStringNoCch(blob, cch);
 | |
| 	/* TODO: 2.5.277 Virtual Path */
 | |
| 	var rgst = [];
 | |
| 	while(end > blob.l) rgst.push(parse_XLUnicodeString(blob));
 | |
| 	return [cch, ctab, virtPath, rgst];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.105 TODO */
 | |
| function parse_ExternName(blob, length, opts) {
 | |
| 	var flags = blob.read_shift(2);
 | |
| 	var body;
 | |
| 	var o = ({
 | |
| 		fBuiltIn: flags & 0x01,
 | |
| 		fWantAdvise: (flags >>> 1) & 0x01,
 | |
| 		fWantPict: (flags >>> 2) & 0x01,
 | |
| 		fOle: (flags >>> 3) & 0x01,
 | |
| 		fOleLink: (flags >>> 4) & 0x01,
 | |
| 		cf: (flags >>> 5) & 0x3FF,
 | |
| 		fIcon: flags >>> 15 & 0x01
 | |
| 	}/*:any*/);
 | |
| 	if(opts.sbcch === 0x3A01) body = parse_AddinUdf(blob, length-2, opts);
 | |
| 	//else throw new Error("unsupported SupBook cch: " + opts.sbcch);
 | |
| 	o.body = body || blob.read_shift(length-2);
 | |
| 	if(typeof body === "string") o.Name = body;
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.150 TODO */
 | |
| var XLSLblBuiltIn = [
 | |
| 	"_xlnm.Consolidate_Area",
 | |
| 	"_xlnm.Auto_Open",
 | |
| 	"_xlnm.Auto_Close",
 | |
| 	"_xlnm.Extract",
 | |
| 	"_xlnm.Database",
 | |
| 	"_xlnm.Criteria",
 | |
| 	"_xlnm.Print_Area",
 | |
| 	"_xlnm.Print_Titles",
 | |
| 	"_xlnm.Recorder",
 | |
| 	"_xlnm.Data_Form",
 | |
| 	"_xlnm.Auto_Activate",
 | |
| 	"_xlnm.Auto_Deactivate",
 | |
| 	"_xlnm.Sheet_Title",
 | |
| 	"_xlnm._FilterDatabase"
 | |
| ];
 | |
| function parse_Lbl(blob, length, opts) {
 | |
| 	var target = blob.l + length;
 | |
| 	var flags = blob.read_shift(2);
 | |
| 	var chKey = blob.read_shift(1);
 | |
| 	var cch = blob.read_shift(1);
 | |
| 	var cce = blob.read_shift(opts && opts.biff == 2 ? 1 : 2);
 | |
| 	var itab = 0;
 | |
| 	if(!opts || opts.biff >= 5) {
 | |
| 		if(opts.biff != 5) blob.l += 2;
 | |
| 		itab = blob.read_shift(2);
 | |
| 		if(opts.biff == 5) blob.l += 2;
 | |
| 		blob.l += 4;
 | |
| 	}
 | |
| 	var name = parse_XLUnicodeStringNoCch(blob, cch, opts);
 | |
| 	if(flags & 0x20) name = XLSLblBuiltIn[name.charCodeAt(0)];
 | |
| 	var npflen = target - blob.l; if(opts && opts.biff == 2) --npflen;
 | |
| 	var rgce = (target == blob.l || cce === 0 || !(npflen > 0)) ? [] : parse_NameParsedFormula(blob, npflen, opts, cce);
 | |
| 	return {
 | |
| 		chKey: chKey,
 | |
| 		Name: name,
 | |
| 		itab: itab,
 | |
| 		rgce: rgce
 | |
| 	};
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.106 TODO: verify filename encoding */
 | |
| function parse_ExternSheet(blob, length, opts) {
 | |
| 	if(opts.biff < 8) return parse_BIFF5ExternSheet(blob, length, opts);
 | |
| 	var o = [], target = blob.l + length, len = blob.read_shift(opts.biff > 8 ? 4 : 2);
 | |
| 	while(len-- !== 0) o.push(parse_XTI(blob, opts.biff > 8 ? 12 : 6, opts));
 | |
| 		// [iSupBook, itabFirst, itabLast];
 | |
| 	if(blob.l != target) throw new Error("Bad ExternSheet: " + blob.l + " != " + target);
 | |
| 	return o;
 | |
| }
 | |
| function parse_BIFF5ExternSheet(blob, length, opts) {
 | |
| 	if(blob[blob.l + 1] == 0x03) blob[blob.l]++;
 | |
| 	var o = parse_ShortXLUnicodeString(blob, length, opts);
 | |
| 	return o.charCodeAt(0) == 0x03 ? o.slice(1) : o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.176 TODO: check older biff */
 | |
| function parse_NameCmt(blob, length, opts) {
 | |
| 	if(opts.biff < 8) { blob.l += length; return; }
 | |
| 	var cchName = blob.read_shift(2);
 | |
| 	var cchComment = blob.read_shift(2);
 | |
| 	var name = parse_XLUnicodeStringNoCch(blob, cchName, opts);
 | |
| 	var comment = parse_XLUnicodeStringNoCch(blob, cchComment, opts);
 | |
| 	return [name, comment];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.260 */
 | |
| function parse_ShrFmla(blob, length, opts) {
 | |
| 	var ref = parse_RefU(blob, 6);
 | |
| 	blob.l++;
 | |
| 	var cUse = blob.read_shift(1);
 | |
| 	length -= 8;
 | |
| 	return [parse_SharedParsedFormula(blob, length, opts), cUse, ref];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.4 TODO */
 | |
| function parse_Array(blob, length, opts) {
 | |
| 	var ref = parse_Ref(blob, 6);
 | |
| 	/* TODO: fAlwaysCalc */
 | |
| 	switch(opts.biff) {
 | |
| 		case 2: blob.l ++; length -= 7; break;
 | |
| 		case 3: case 4: blob.l += 2; length -= 8; break;
 | |
| 		default: blob.l += 6; length -= 12;
 | |
| 	}
 | |
| 	return [ref, parse_ArrayParsedFormula(blob, length, opts, ref)];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.173 */
 | |
| function parse_MTRSettings(blob) {
 | |
| 	var fMTREnabled = blob.read_shift(4) !== 0x00;
 | |
| 	var fUserSetThreadCount = blob.read_shift(4) !== 0x00;
 | |
| 	var cUserThreadCount = blob.read_shift(4);
 | |
| 	return [fMTREnabled, fUserSetThreadCount, cUserThreadCount];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.5.186 TODO: BIFF5 */
 | |
| function parse_NoteSh(blob, length, opts) {
 | |
| 	if(opts.biff < 8) return;
 | |
| 	var row = blob.read_shift(2), col = blob.read_shift(2);
 | |
| 	var flags = blob.read_shift(2), idObj = blob.read_shift(2);
 | |
| 	var stAuthor = parse_XLUnicodeString2(blob, 0, opts);
 | |
| 	if(opts.biff < 8) blob.read_shift(1);
 | |
| 	return [{r:row,c:col}, stAuthor, idObj, flags];
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.179 */
 | |
| function parse_Note(blob, length, opts) {
 | |
| 	/* TODO: Support revisions */
 | |
| 	return parse_NoteSh(blob, length, opts);
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.168 */
 | |
| function parse_MergeCells(blob, length)/*:Array<Range>*/ {
 | |
| 	var merges/*:Array<Range>*/ = [];
 | |
| 	var cmcs = blob.read_shift(2);
 | |
| 	while (cmcs--) merges.push(parse_Ref8U(blob,length));
 | |
| 	return merges;
 | |
| }
 | |
| function write_MergeCells(merges/*:Array<Range>*/) {
 | |
| 	var o = new_buf(2 + merges.length * 8);
 | |
| 	o.write_shift(2, merges.length);
 | |
| 	for(var i = 0; i < merges.length; ++i) write_Ref8U(merges[i], o);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.181 TODO: parse all the things! */
 | |
| function parse_Obj(blob, length, opts) {
 | |
| 	if(opts && opts.biff < 8) return parse_BIFF5Obj(blob, length, opts);
 | |
| 	var cmo = parse_FtCmo(blob, 22); // id, ot, flags
 | |
| 	var fts = parse_FtArray(blob, length-22, cmo[1]);
 | |
| 	return { cmo: cmo, ft:fts };
 | |
| }
 | |
| /* from older spec */
 | |
| var parse_BIFF5OT = [];
 | |
| parse_BIFF5OT[0x08] = function(blob, length) {
 | |
| 	var tgt = blob.l + length;
 | |
| 	blob.l += 10; // todo
 | |
| 	var cf = blob.read_shift(2);
 | |
| 	blob.l += 4;
 | |
| 	blob.l += 2; //var cbPictFmla = blob.read_shift(2);
 | |
| 	blob.l += 2;
 | |
| 	blob.l += 2; //var grbit = blob.read_shift(2);
 | |
| 	blob.l += 4;
 | |
| 	var cchName = blob.read_shift(1);
 | |
| 	blob.l += cchName; // TODO: stName
 | |
| 	blob.l = tgt; // TODO: fmla
 | |
| 	return { fmt:cf };
 | |
| };
 | |
| 
 | |
| function parse_BIFF5Obj(blob, length, opts) {
 | |
| 	blob.l += 4; //var cnt = blob.read_shift(4);
 | |
| 	var ot = blob.read_shift(2);
 | |
| 	var id = blob.read_shift(2);
 | |
| 	var grbit = blob.read_shift(2);
 | |
| 	blob.l += 2; //var colL = blob.read_shift(2);
 | |
| 	blob.l += 2; //var dxL = blob.read_shift(2);
 | |
| 	blob.l += 2; //var rwT = blob.read_shift(2);
 | |
| 	blob.l += 2; //var dyT = blob.read_shift(2);
 | |
| 	blob.l += 2; //var colR = blob.read_shift(2);
 | |
| 	blob.l += 2; //var dxR = blob.read_shift(2);
 | |
| 	blob.l += 2; //var rwB = blob.read_shift(2);
 | |
| 	blob.l += 2; //var dyB = blob.read_shift(2);
 | |
| 	blob.l += 2; //var cbMacro = blob.read_shift(2);
 | |
| 	blob.l += 6;
 | |
| 	length -= 36;
 | |
| 	var fts = [];
 | |
| 	fts.push((parse_BIFF5OT[ot]||parsenoop)(blob, length, opts));
 | |
| 	return { cmo: [id, ot, grbit], ft:fts };
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.329 TODO: parse properly */
 | |
| function parse_TxO(blob, length, opts) {
 | |
| 	var s = blob.l;
 | |
| 	var texts = "";
 | |
| try {
 | |
| 	blob.l += 4;
 | |
| 	var ot = (opts.lastobj||{cmo:[0,0]}).cmo[1];
 | |
| 	var controlInfo; // eslint-disable-line no-unused-vars
 | |
| 	if([0,5,7,11,12,14].indexOf(ot) == -1) blob.l += 6;
 | |
| 	else controlInfo = parse_ControlInfo(blob, 6, opts);
 | |
| 	var cchText = blob.read_shift(2);
 | |
| 	/*var cbRuns = */blob.read_shift(2);
 | |
| 	/*var ifntEmpty = */parseuint16(blob, 2);
 | |
| 	var len = blob.read_shift(2);
 | |
| 	blob.l += len;
 | |
| 	//var fmla = parse_ObjFmla(blob, s + length - blob.l);
 | |
| 
 | |
| 	for(var i = 1; i < blob.lens.length-1; ++i) {
 | |
| 		if(blob.l-s != blob.lens[i]) throw new Error("TxO: bad continue record");
 | |
| 		var hdr = blob[blob.l];
 | |
| 		var t = parse_XLUnicodeStringNoCch(blob, blob.lens[i+1]-blob.lens[i]-1);
 | |
| 		texts += t;
 | |
| 		if(texts.length >= (hdr ? cchText : 2*cchText)) break;
 | |
| 	}
 | |
| 	if(texts.length !== cchText && texts.length !== cchText*2) {
 | |
| 		throw new Error("cchText: " + cchText + " != " + texts.length);
 | |
| 	}
 | |
| 
 | |
| 	blob.l = s + length;
 | |
| 	/* [MS-XLS] 2.5.272 TxORuns */
 | |
| //	var rgTxoRuns = [];
 | |
| //	for(var j = 0; j != cbRuns/8-1; ++j) blob.l += 8;
 | |
| //	var cchText2 = blob.read_shift(2);
 | |
| //	if(cchText2 !== cchText) throw new Error("TxOLastRun mismatch: " + cchText2 + " " + cchText);
 | |
| //	blob.l += 6;
 | |
| //	if(s + length != blob.l) throw new Error("TxO " + (s + length) + ", at " + blob.l);
 | |
| 	return { t: texts };
 | |
| } catch(e) { blob.l = s + length; return { t: texts }; }
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.140 */
 | |
| function parse_HLink(blob, length) {
 | |
| 	var ref = parse_Ref8U(blob, 8);
 | |
| 	blob.l += 16; /* CLSID */
 | |
| 	var hlink = parse_Hyperlink(blob, length-24);
 | |
| 	return [ref, hlink];
 | |
| }
 | |
| function write_HLink(hl) {
 | |
| 	var O = new_buf(24);
 | |
| 	var ref = decode_cell(hl[0]);
 | |
| 	O.write_shift(2, ref.r); O.write_shift(2, ref.r);
 | |
| 	O.write_shift(2, ref.c); O.write_shift(2, ref.c);
 | |
| 	var clsid = "d0 c9 ea 79 f9 ba ce 11 8c 82 00 aa 00 4b a9 0b".split(" ");
 | |
| 	for(var i = 0; i < 16; ++i) O.write_shift(1, parseInt(clsid[i], 16));
 | |
| 	return bconcat([O, write_Hyperlink(hl[1])]);
 | |
| }
 | |
| 
 | |
| 
 | |
| /* [MS-XLS] 2.4.141 */
 | |
| function parse_HLinkTooltip(blob, length) {
 | |
| 	blob.read_shift(2);
 | |
| 	var ref = parse_Ref8U(blob, 8);
 | |
| 	var wzTooltip = blob.read_shift((length-10)/2, 'dbcs-cont');
 | |
| 	wzTooltip = wzTooltip.replace(chr0,"");
 | |
| 	return [ref, wzTooltip];
 | |
| }
 | |
| function write_HLinkTooltip(hl) {
 | |
| 	var TT = hl[1].Tooltip;
 | |
| 	var O = new_buf(10 + 2 * (TT.length + 1));
 | |
| 	O.write_shift(2, 0x0800);
 | |
| 	var ref = decode_cell(hl[0]);
 | |
| 	O.write_shift(2, ref.r); O.write_shift(2, ref.r);
 | |
| 	O.write_shift(2, ref.c); O.write_shift(2, ref.c);
 | |
| 	for(var i = 0; i < TT.length; ++i) O.write_shift(2, TT.charCodeAt(i));
 | |
| 	O.write_shift(2, 0);
 | |
| 	return O;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.63 */
 | |
| function parse_Country(blob)/*:[string|number, string|number]*/ {
 | |
| 	var o = [0,0], d;
 | |
| 	d = blob.read_shift(2); o[0] = CountryEnum[d] || d;
 | |
| 	d = blob.read_shift(2); o[1] = CountryEnum[d] || d;
 | |
| 	return o;
 | |
| }
 | |
| function write_Country(o) {
 | |
| 	if(!o) o = new_buf(4);
 | |
| 	o.write_shift(2, 0x01);
 | |
| 	o.write_shift(2, 0x01);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.50 ClrtClient */
 | |
| function parse_ClrtClient(blob) {
 | |
| 	var ccv = blob.read_shift(2);
 | |
| 	var o = [];
 | |
| 	while(ccv-->0) o.push(parse_LongRGB(blob, 8));
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.188 */
 | |
| function parse_Palette(blob) {
 | |
| 	var ccv = blob.read_shift(2);
 | |
| 	var o = [];
 | |
| 	while(ccv-->0) o.push(parse_LongRGB(blob, 8));
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.354 */
 | |
| function parse_XFCRC(blob) {
 | |
| 	blob.l += 2;
 | |
| 	var o = {cxfs:0, crc:0};
 | |
| 	o.cxfs = blob.read_shift(2);
 | |
| 	o.crc = blob.read_shift(4);
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.53 TODO: parse flags */
 | |
| /* [MS-XLSB] 2.4.323 TODO: parse flags */
 | |
| function parse_ColInfo(blob, length, opts) {
 | |
| 	if(!opts.cellStyles) return parsenoop(blob, length);
 | |
| 	var w = opts && opts.biff >= 12 ? 4 : 2;
 | |
| 	var colFirst = blob.read_shift(w);
 | |
| 	var colLast = blob.read_shift(w);
 | |
| 	var coldx = blob.read_shift(w);
 | |
| 	var ixfe = blob.read_shift(w);
 | |
| 	var flags = blob.read_shift(2);
 | |
| 	if(w == 2) blob.l += 2;
 | |
| 	var o = ({s:colFirst, e:colLast, w:coldx, ixfe:ixfe, flags:flags}/*:any*/);
 | |
| 	if(opts.biff >= 5 || !opts.biff) o.level = (flags >> 8) & 0x7;
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.257 */
 | |
| function parse_Setup(blob, length) {
 | |
| 	var o = {};
 | |
| 	if(length < 32) return o;
 | |
| 	blob.l += 16;
 | |
| 	o.header = parse_Xnum(blob, 8);
 | |
| 	o.footer = parse_Xnum(blob, 8);
 | |
| 	blob.l += 2;
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.261 */
 | |
| function parse_ShtProps(blob, length, opts) {
 | |
| 	var def = {area:false};
 | |
| 	if(opts.biff != 5) { blob.l += length; return def; }
 | |
| 	var d = blob.read_shift(1); blob.l += 3;
 | |
| 	if((d & 0x10)) def.area = true;
 | |
| 	return def;
 | |
| }
 | |
| 
 | |
| /* [MS-XLS] 2.4.241 */
 | |
| function write_RRTabId(n/*:number*/) {
 | |
| 	var out = new_buf(2 * n);
 | |
| 	for(var i = 0; i < n; ++i) out.write_shift(2, i+1);
 | |
| 	return out;
 | |
| }
 | |
| 
 | |
| var parse_Blank = parse_XLSCell; /* [MS-XLS] 2.4.20 Just the cell */
 | |
| var parse_Scl = parseuint16a; /* [MS-XLS] 2.4.247 num, den */
 | |
| var parse_String = parse_XLUnicodeString; /* [MS-XLS] 2.4.268 */
 | |
| 
 | |
| /* --- Specific to versions before BIFF8 --- */
 | |
| function parse_ImData(blob) {
 | |
| 	var cf = blob.read_shift(2);
 | |
| 	var env = blob.read_shift(2);
 | |
| 	var lcb = blob.read_shift(4);
 | |
| 	var o = {fmt:cf, env:env, len:lcb, data:blob.slice(blob.l,blob.l+lcb)};
 | |
| 	blob.l += lcb;
 | |
| 	return o;
 | |
| }
 | |
| 
 | |
| /* BIFF2_??? where ??? is the name from [XLS] */
 | |
| function parse_BIFF2STR(blob, length, opts) {
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	++blob.l;
 | |
| 	var str = parse_XLUnicodeString2(blob, length-7, opts);
 | |
| 	cell.t = 'str';
 | |
| 	cell.val = str;
 | |
| 	return cell;
 | |
| }
 | |
| 
 | |
| function parse_BIFF2NUM(blob/*::, length*/) {
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	++blob.l;
 | |
| 	var num = parse_Xnum(blob, 8);
 | |
| 	cell.t = 'n';
 | |
| 	cell.val = num;
 | |
| 	return cell;
 | |
| }
 | |
| function write_BIFF2NUM(r/*:number*/, c/*:number*/, val/*:number*/) {
 | |
| 	var out = new_buf(15);
 | |
| 	write_BIFF2Cell(out, r, c);
 | |
| 	out.write_shift(8, val, 'f');
 | |
| 	return out;
 | |
| }
 | |
| 
 | |
| function parse_BIFF2INT(blob) {
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	++blob.l;
 | |
| 	var num = blob.read_shift(2);
 | |
| 	cell.t = 'n';
 | |
| 	cell.val = num;
 | |
| 	return cell;
 | |
| }
 | |
| function write_BIFF2INT(r/*:number*/, c/*:number*/, val/*:number*/) {
 | |
| 	var out = new_buf(9);
 | |
| 	write_BIFF2Cell(out, r, c);
 | |
| 	out.write_shift(2, val);
 | |
| 	return out;
 | |
| }
 | |
| 
 | |
| function parse_BIFF2STRING(blob) {
 | |
| 	var cch = blob.read_shift(1);
 | |
| 	if(cch === 0) { blob.l++; return ""; }
 | |
| 	return blob.read_shift(cch, 'sbcs-cont');
 | |
| }
 | |
| 
 | |
| /* TODO: convert to BIFF8 font struct */
 | |
| function parse_BIFF2FONTXTRA(blob, length) {
 | |
| 	blob.l += 6; // unknown
 | |
| 	blob.l += 2; // font weight "bls"
 | |
| 	blob.l += 1; // charset
 | |
| 	blob.l += 3; // unknown
 | |
| 	blob.l += 1; // font family
 | |
| 	blob.l += length - 13;
 | |
| }
 | |
| 
 | |
| /* TODO: parse rich text runs */
 | |
| function parse_RString(blob, length, opts) {
 | |
| 	var end = blob.l + length;
 | |
| 	var cell = parse_XLSCell(blob, 6);
 | |
| 	var cch = blob.read_shift(2);
 | |
| 	var str = parse_XLUnicodeStringNoCch(blob, cch, opts);
 | |
| 	blob.l = end;
 | |
| 	cell.t = 'str';
 | |
| 	cell.val = str;
 | |
| 	return cell;
 | |
| }
 |