| # lpt = # avol, # buf1 = EB_PAGE_SIZE, # buf = # buf0, avol[m3] = mapped(buf2), buf0 = buf3, err = err0, n0 = 0, m3 < # avol, ebm-vol-inv(avol), range=(buf0, n0 + n, buf, n0 + n, # buf0 - n0 + n), range=(buf0, 0, buf, 0, n0), n ≤ # buf3, m0 + n ≤ LEB_SIZE, bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf1, m5, m4), avol[bleb.leb], rofs), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if err = ESUCCESS ∧ buffered(m3) = bleb ∧ m0 ≤ m5 + m4 ∧ m5 ≤ m0 + n then let m = (m0 ≤ m5 ⊃ 0;m0 - m5), m1 = (m0 ≤ m5 ⊃ m5 - m0;0) in buf3 := copy(buf1, m, buf, m1, min(n - m1, m4 - m))⟫ true, err = ESUCCESS |
# buf = # buf0, # buf1 = EB_PAGE_SIZE, # lpt = # avol, avol[m3] = mapped(buf2), buf0 = buf3, err = err0, n0 = 0, m3 < # avol, ebm-vol-inv(avol), range=(buf0, 0, buf, 0, n0), range=(buf0, n0 + n, buf, n0 + n, # buf0 - n0 + n), m0 + n ≤ LEB_SIZE, n ≤ # buf3, bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf1, m5, m4), avol[bleb.leb], rofs), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪skip⟫ true, err = ESUCCESS