if (!key.equalsExactly( get_key(rec) )) {
return null;
}
}
EInteger incr;
ETuple one;
if ((incr=upd.testInteger()) != null) {
int idx = keypos1+1;
rec = update(rec, idx, incr);
if (rec == null) return null;
map = map.assoc(get_key(rec), rec);
set(map);
return rec.elm(idx);
} else if ((one=upd.testTuple()) != null) {
if (one.arity() == 2) {
ESmall eidx = one.elm(1).testSmall();
incr = one.elm(2).testInteger();
if (eidx == null || eidx.value > rec.arity() || incr == null) return null;
int idx = eidx.value;
rec = update(rec, idx, incr);
if (rec == null) return null;
map = map.assoc(get_key(rec), rec);
set(map);
return rec.elm(idx);
} else if (one.arity() == 4){
ESmall eidx = one.elm(1).testSmall();
incr = one.elm(2).testInteger();
EInteger threshold = one.elm(3).testInteger();
EInteger setvalue = one.elm(4).testInteger();
if (eidx == null || eidx.value > rec.arity() || incr == null
|| threshold == null || setvalue == null) return null;
int idx = eidx.value;
rec = update(rec, idx, incr, threshold, setvalue);
if (rec == null) return null;
map = map.assoc(get_key(rec), rec);
set(map);
return rec.elm(idx);
} else {
return null;
}
} else {
throw new NotImplemented();
}
}
private ETuple update(ETuple rec, int idx, EInteger incr) {
EInteger old = rec.elm(idx).testInteger();
if (old == null) return null;
EObject val = old.add(incr);
rec = ErlBif.setelement(idx, rec, val);
return rec;
}
private ETuple update(ETuple rec, int idx, EInteger incr, EInteger threshold, EInteger setvalue) {
EInteger old = rec.elm(idx).testInteger();
if (old == null) return null;
ENumber val = old.add(incr);
if (incr.is_ge(ESmall.ZERO)) {
if (threshold.is_lt(val)) {
val = setvalue;