forked from sheetjs/sheetjs
		
	- ExtendScript write quirks (fixes #986 h/t @grefel) - BIFF8 write number formats (fixes #987 h/t @scwood) - xlsx.extendscript.js library script - readFile / writeFile support ExtendScript - flow update
		
			
				
	
	
		
			73 lines
		
	
	
		
			2.4 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
			
		
		
	
	
			73 lines
		
	
	
		
			2.4 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
| /* [MS-XLSB] 2.1.4 Record */
 | |
| function recordhopper(data, cb/*:RecordHopperCB*/, opts/*:?any*/) {
 | |
| 	if(!data) return;
 | |
| 	var tmpbyte, cntbyte, length;
 | |
| 	prep_blob(data, data.l || 0);
 | |
| 	var L = data.length, RT = 0, tgt = 0;
 | |
| 	while(data.l < L) {
 | |
| 		RT = data.read_shift(1);
 | |
| 		if(RT & 0x80) RT = (RT & 0x7F) + ((data.read_shift(1) & 0x7F)<<7);
 | |
| 		var R = XLSBRecordEnum[RT] || XLSBRecordEnum[0xFFFF];
 | |
| 		tmpbyte = data.read_shift(1);
 | |
| 		length = tmpbyte & 0x7F;
 | |
| 		for(cntbyte = 1; cntbyte <4 && (tmpbyte & 0x80); ++cntbyte) length += ((tmpbyte = data.read_shift(1)) & 0x7F)<<(7*cntbyte);
 | |
| 		tgt = data.l + length;
 | |
| 		var d = (R.f||parsenoop)(data, length, opts);
 | |
| 		data.l = tgt;
 | |
| 		if(cb(d, R.n, RT)) return;
 | |
| 	}
 | |
| }
 | |
| 
 | |
| /* control buffer usage for fixed-length buffers */
 | |
| function buf_array()/*:BufArray*/ {
 | |
| 	var bufs/*:Array<Block>*/ = [], blksz = has_buf ? 256 : 2048;
 | |
| 	var newblk = function ba_newblk(sz/*:number*/)/*:Block*/ {
 | |
| 		var o/*:Block*/ = (new_buf(sz)/*:any*/);
 | |
| 		prep_blob(o, 0);
 | |
| 		return o;
 | |
| 	};
 | |
| 
 | |
| 	var curbuf/*:Block*/ = newblk(blksz);
 | |
| 
 | |
| 	var endbuf = function ba_endbuf() {
 | |
| 		if(!curbuf) return;
 | |
| 		if(curbuf.length > curbuf.l) { curbuf = curbuf.slice(0, curbuf.l); curbuf.l = curbuf.length; }
 | |
| 		if(curbuf.length > 0) bufs.push(curbuf);
 | |
| 		curbuf = null;
 | |
| 	};
 | |
| 
 | |
| 	var next = function ba_next(sz/*:number*/)/*:Block*/ {
 | |
| 		if(curbuf && (sz < (curbuf.length - curbuf.l))) return curbuf;
 | |
| 		endbuf();
 | |
| 		return (curbuf = newblk(Math.max(sz+1, blksz)));
 | |
| 	};
 | |
| 
 | |
| 	var end = function ba_end() {
 | |
| 		endbuf();
 | |
| 		return __toBuffer([bufs]);
 | |
| 	};
 | |
| 
 | |
| 	var push = function ba_push(buf) { endbuf(); curbuf = buf; if(curbuf.l == null) curbuf.l = curbuf.length; next(blksz); };
 | |
| 
 | |
| 	return ({ next:next, push:push, end:end, _bufs:bufs }/*:any*/);
 | |
| }
 | |
| 
 | |
| function write_record(ba/*:BufArray*/, type/*:string*/, payload, length/*:?number*/) {
 | |
| 	var t/*:number*/ = +XLSBRE[type], l;
 | |
| 	if(isNaN(t)) return; // TODO: throw something here?
 | |
| 	if(!length) length = XLSBRecordEnum[t].p || (payload||[]).length || 0;
 | |
| 	l = 1 + (t >= 0x80 ? 1 : 0) + 1/* + length*/;
 | |
| 	if(length >= 0x80) ++l; if(length >= 0x4000) ++l; if(length >= 0x200000) ++l;
 | |
| 	var o = ba.next(l);
 | |
| 	if(t <= 0x7F) o.write_shift(1, t);
 | |
| 	else {
 | |
| 		o.write_shift(1, (t & 0x7F) + 0x80);
 | |
| 		o.write_shift(1, (t >> 7));
 | |
| 	}
 | |
| 	for(var i = 0; i != 4; ++i) {
 | |
| 		if(length >= 0x80) { o.write_shift(1, (length & 0x7F)+0x80); length >>= 7; }
 | |
| 		else { o.write_shift(1, length); break; }
 | |
| 	}
 | |
| 	if(/*:: length != null &&*/length > 0 && is_buf(payload)) ba.push(payload);
 | |
| }
 |