| err = ESUCCESS, ¬ isdir ⊦ [vfs_read_block#(ino1, ino0, inode, dirs, files, asynced; buf, ino, isdir, err)] (⌊err⌋ ∨ err = ESUCCESS) |
buf0 = buf, err = ESUCCESS, ino0 = ino, ino1 = ino4, ino2 = ino3, ¬ isdir ⊦ [let pageno = (ino2 + ino0) / VFS_PAGE_SIZE, ino = (ino2 + ino0) % VFS_PAGE_SIZE, buf = mkbuf(VFS_PAGE_SIZE) in let n = min(ino1 - ino2 + ino0, VFS_PAGE_SIZE - ino, inode.size - ino2 + ino0) in if n ≠ 0 then {afs_readpage#(inode, pageno, dirs, files, asynced; buf, err); if err = ESUCCESS then {buf0 := copy(buf, ino, buf0, ino0, n); ino0 := ino0 + n}} else isdir := true] (⌊err⌋ ∨ err = ESUCCESS)
Used simplifier rules: vfs_read_block# (START, END, INODE, DIRS, FILES, ASYNCED; BUF, TOTAL, DONE, ERR) {let PAGENO = (START + TOTAL) / VFS_PAGE_SIZE, OFFSET = (START + TOTAL) % VFS_PAGE_SIZE, PBUF = mkbuf(VFS_PAGE_SIZE) in let N = min (END - START + TOTAL, VFS_PAGE_SIZE - OFFSET, INODE.size - START + TOTAL) in if N ≠ 0 then {afs_readpage# (INODE, PAGENO, DIRS, FILES, ASYNCED; PBUF, ERR); if ERR = ESUCCESS then {BUF := copy(PBUF, OFFSET, BUF, TOTAL, N); TOTAL := TOTAL + N}} else DONE := true };