sclass ShortArrayInputStream extends InputStream {
  short[] buf;
  int iBuf;
  int mark_iBuf;
  bool bigEndian;
  
  *(short[] *buf) {}
  
  public bool markSupported() { true; }
  
  public void mark(int n) {
    mark_iBuf = iBuf;
  }
  
  public void reset() {
    iBuf = mark_iBuf;
  }
  
  public int read() {
    if (iBuf >= l(buf)*2) ret -1;
    short s = buf[iBuf/2];
    int i = (odd(iBuf) != bigEndian ? s >> 8 : s) & 0xFF;
    iBuf++;
    ret i;
  }
}

Began life as a copy of #1019269