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