vibed_test/vtest/public/js/bert.js

// API

function tuple(){ return { t: 104, v: Array.apply(null, arguments) }; }
function list(){ return { t: 108, v: Array.apply(null, arguments) }; }
function map(){ return { t: 116, v: Array.apply(null, arguments) }; }
function atom(o){ return { t: 118, v: utf8_enc(o) }; }
function string(o){ return { t: 107, v: utf8_enc(o) }; }
function float(o){ return { t: 70, v: o }; }
function number(o){
  var isInteger = (o % 1 === 0);
  if(isInteger && o >= 0 && o < 256){ return { t: 97, v: o }; }
  if(isInteger && o >= -2147483648 && o <= 2147483647){ return {t: 98, v: o}; }
  return {t: 110, v: o};
}

// BigInt to BERT, with https://github.com/peterolson/BigInteger.js
function bignum(o){
  if(bigInt.isInstance(o) === false){ return {t: 999, v: [97, 0]}; } // o is not bigInt
  if(o.greaterOrEquals(0) && o.lesser(256)){
    // t: 97
    return {t: 999, v: [97, o.toJSNumber() ]};
  }
  if(o.greaterOrEquals(-2147483648) && o.lesserOrEquals(2147483647)){
    // t: 98
    return {t: 999, v: [98, o.shiftRight(24).toJSNumber(), o.shiftRight(16).and(255).toJSNumber(), o.shiftRight(8).and(255).toJSNumber(), o.and(255).toJSNumber() ]};
  }
  // t: 110
  if(o.isNegative()){
    var sign = 1;
    var s = bignum_to_bytes(o.abs());
  }else{
    var sign = 0;
    var s = bignum_to_bytes(o);
  }
  return {t: 999, v: [110, s.length, sign].concat(s) };
}

function bin(o){
  return { t: 109, v: o instanceof ArrayBuffer ? new Uint8Array(o) :
                      o instanceof Uint8Array ? o : utf8_enc(o) };
}


// encoder

function enc(o){ return fl([131, ein(o)]); }
function ein(o){
  return Array.isArray(o) ? en_108({ t: 108, v: o }) :
                            (o.t == 999 ? o.v : eval('en_' + o.t)(o) ); // t: 999 = bigInt, already encoded in bignum func
}
function en_undefined(o){ return [106]; }
function unilen(o){
  return (o.v instanceof ArrayBuffer || o.v instanceof Uint8Array) ? o.v.byteLength :
         (new TextEncoder().encode(o.v)).byteLength;
}
function en_70(o){
  var x = Array(8).fill(0).flat();
  write_Float(x, o.v, 0, false, 52, 8);
  return [70].concat(x);
}
function en_97(o){ return [97, o.v]; }
function en_98(o){ return [98, o.v >>> 24, (o.v >>> 16) & 255, (o.v >>> 8) & 255, o.v & 255]; }
function en_99(o){
  var obj = o.v.toExponential(20),
      match = /([^e]+)(e[+-])(\d+)/.exec(obj),
      exponentialPart = match[3].length == 1 ? "0" + match[3] : match[3],
      num = Array.from(bin(match[1] + match[2] + exponentialPart).v);
  return [o.t].concat(num).concat(Array(31 - num.length).fill(0).flat());
}
function en_100(o){ return [100, o.v.length >>> 8, o.v.length & 255, ar(o)]; }
function en_104(o){
  var l = o.v.length,
      r = [];
  for(var i = 0; i < l; i++) r[i] = ein(o.v[i]);
  return [104, l, r];
}
function en_106(o){ return [106]; }
function en_107(o){ return [107, o.v.length >>> 8, o.v.length & 255, ar(o)]; }
function en_108(o){
  var l = o.v.length,
      r = [];
  for(var i = 0; i < l; i++) r.push(ein(o.v[i]));
  return o.v.length == 0 ? [106] :
    [108, l >>> 24, (l >>> 16) & 255, (l >>> 8) & 255, l & 255, r, 106];
}
function en_109(o){
  var l = unilen(o);
  return [109, l >>> 24, (l >>> 16) & 255, (l >>> 8) & 255, l & 255, ar(o)];
}
function en_110(o){
  if(o.v < 0){
    var sign = 1;
    var s = int_to_bytes(-o.v);
  }else{
    var sign = 0;
    var s = int_to_bytes(o.v);
  }
  return [110, s.length, sign].concat(s);
}
function en_115(o){ return [115, o.v.length, ar(o)]; }
function en_116(o){
  var l = o.v.length,
      x = [],
      r = [];
  for(var i = 0; i < l; i++) r.push([ein(o.v[i].k), ein(o.v[i].v)]);
  x = [116, l >>> 24, (l >>> 16) & 255, (l >>> 8) & 255, l & 255];
  return o.v.length == 0 ? x : [x, r];
}
function en_118(o){ return [118, ar(o).length >>> 8, ar(o).length & 255, ar(o)]; }
function en_119(o){ return [119, ar(o).length, ar(o)]; }


// decoder

function nop(b){ return []; }
function big(b){
  var sk = b == 1 ? sx.getUint8(ix++) : sx.getInt32((a = ix, ix += 4, a));
  var ret = 0,
      sig = sx.getUint8(ix++),
      count = sk;
  while(count-- > 0){
    ret = 256 * ret + sx.getUint8(ix + count);
  }
  ix += sk;
  return ret * (sig == 0 ? 1 : -1);
}
function int(b){
  return b == 1 ? sx.getUint8(ix++) : sx.getInt32((a = ix, ix += 4, a));
}
function dec(d){
  sx = new DataView(d);
  ix = 0;
  if(sx.getUint8(ix++) !== 131) throw ("BERT?");
  return din();
}
function str(b){
  var dv,
      sz = (b == 2 ? sx.getUint16(ix) : (b == 1 ? sx.getUint8(ix) : sx.getUint32(ix)));
  ix += b;
  var r = sx.buffer.slice(ix, ix += sz);
  return utf8_arr(r);
}
function run(b){
  var sz = (b == 1 ? sx.getUint8(ix) : sx.getUint32(ix)),
      r = [];
      ix += b;
  for(var i = 0; i < sz; i++) r.push(din());
  if(b == 4) ix++;
  return r;
}
function rut(b){
  var sz = (b == 1 ? sx.getUint8(ix) : sx.getUint32(ix)),
      r = [];
      ix += b;
  for(var i = 0; i < sz; i++) r.push(din());
  din();
  return r;
}
function dic(b){
  var sz = sx.getUint32(ix),
      r = [];
      ix += 4;
  for(var i = 0; i < sz; i++) r.push({k: din(), v: din()});
  return r;
}
function iee(x){
  return read_Float(new Uint8Array(sx.buffer.slice(ix, ix += 8)), 0, false, 52, 8);
}

function flo(x){
  return parseFloat(utf8_arr(sx.buffer.slice(ix, ix += 31)));
}

function arr(b){
  var dv,
      sz = sx.getUint16(ix);
  ix += b;
  return new Uint8Array(sx.buffer.slice(ix, ix += sz));
}

function ref(cr){
  var d,
      adj = sx.getUint8(ix++);
  adj += sx.getUint8(ix++);
  d = din();
  ix += cr + adj * 4;
  return d;
}

function din(){
  var x,
      c = sx.getUint8(ix++);
  switch(c){
    case  70: x = [iee, 0]; break;
    case  90: x = [ref, 4]; break;
    case  97: x = [int, 1]; break;
    case  98: x = [int, 4]; break;
    case  99: x = [flo, 0]; break;
    case 100: x = [str, 2]; break;
    case 104: x = [run, 1]; break;
    case 105: x = [run, 4]; break;
    case 107: x = [arr, 2]; break;
    case 108: x = [rut, 4]; break;
    case 109: x = [str, 4]; break;
    case 110: x = [big, 1]; break;
    case 111: x = [big, 4]; break;
    case 114: x = [ref, 1]; break;
    case 115: x = [str, 1]; break;
    case 116: x = [dic, 4]; break;
    case 118: x = [str, 2]; break;
    case 119: x = [str, 1]; break;
    default: x = [nop, 0];
  } return { t: c, v: x[0](x[1]) };
}


// helpers

function int_to_bytes(Int){
  if(Int % 1 !== 0) return [0];
  var OriginalInt,
      Rem,
      s = [];
  OriginalInt = Int;
  while(Int !== 0){
    Rem = Int % 256;
    s.push(Rem);
    Int = Math.floor(Int / 256);
  }
  if(Int > 0){ throw ("Argument out of range: " + OriginalInt); }
  return s;
}

function bignum_to_bytes(big_Int){
  var v,
      big_Int,
      s = [];
  big_Int2 = big_Int;
  while(big_Int2.isZero() === false){
    v = big_Int2.divmod(256);
    s.push(v.remainder.toJSNumber());
    big_Int2 = v.quotient;
  }
  if(big_Int2.greater(0)){ throw ("Argument out of range::: " + big_Int.toString() ); }
  return s;
}

function uc(u1, u2){
  if(u1.byteLength == 0) return u2;
  if(u2.byteLength == 0) return u1;
  var a = new Uint8Array(u1.byteLength + u2.byteLength);
  a.set(u1, 0);
  a.set(u2, u1.byteLength);
  return a;
}
function ar(o){
  return o.v instanceof ArrayBuffer ? new Uint8Array(o.v) : o.v instanceof Uint8Array ? o.v :
    Array.isArray(o.v) ? new Uint8Array(o.v) : new Uint8Array(utf8_enc(o.v));
}
function fl(a){
  return a.reduce(function(f, t){
    return uc(f, t instanceof Uint8Array ? t :
      Array.isArray(t) ? fl(t) : new Uint8Array([t]));
  }, new Uint8Array());
}


// UTF-8 Support

function utf8_dec(ab){ return (new TextDecoder()).decode(ab); }
function utf8_enc(ab){ return (new TextEncoder("utf-8")).encode(ab); }
function utf8_arr(ab){
  if(!(ab instanceof ArrayBuffer)) ab = new Uint8Array(utf8_enc(ab)).buffer;
  return utf8_dec(ab);
}