| VFS_PAGE_SIZE = n3 + (n0 + n2) % VFS_PAGE_SIZE, files1[m] = mkfile(m3, md0, m4, content), buf = copy(buf1, n2, getpage((n0 + n2) / VFS_PAGE_SIZE, content), (n0 + n2) % VFS_PAGE_SIZE, min(n1 - n0 + n2, n3)), err = ESUCCESS, files = files1, inode = mkinode(m, md, boolvar, m0, m1, m2), n = min(n1 - n0 + n2, n3), pageno = (n0 + n2) / VFS_PAGE_SIZE, pre-writepage(inode, pageno, buf, dirs, files), write-inv(n0, n1, mkinode(m, md, boolvar, m0, m1, m2), buf1, n2, dirs, files0, files1), n0 + n2 ≤ n1, n2 + min(n1 - n0 + n2, n3) ≤ # buf1, (n0 + n2) % VFS_PAGE_SIZE + min(n1 - n0 + n2, n3) ≤ # getpage((n0 + n2) / VFS_PAGE_SIZE, content), n1 ≥ n0 + n2 ⊦ VFS_PAGE_SIZE = 0, min(n1 - n0 + n2, n3) = 0, write-inv (n0, n1, mkinode(m, md, boolvar, m0, m1, m2), buf1, n2 + n, dirs, files0, files[inode.ino, files[inode.ino].content:= files[inode.ino].content[pageno, buf]]) |
# getpage((n0 + n2) / VFS_PAGE_SIZE, content) = VFS_PAGE_SIZE, VFS_PAGE_SIZE = n3 + (n0 + n2) % VFS_PAGE_SIZE, files1[m] = mkfile(m3, md0, m4, content), write-inv(n0, n1, mkinode(m, md, boolvar, m0, m1, m2), buf1, n2, dirs, files0, files1), m ∈ files1, n2 + min(n1 - n0 + n2, n3) ≤ # buf1, (n0 + n2) % VFS_PAGE_SIZE + min(n1 - n0 + n2, n3) ≤ VFS_PAGE_SIZE, n0 + n2 ≤ n1 ⊦ min(n1 - n0 + n2, n3) = 0, write-inv (n0, n1, mkinode(m, md, boolvar, m0, m1, m2), buf1, n2 + min(n1 - n0 + n2, n3), dirs, files0, files1 [m, mkfile (m3, md0, m4, content[(n0 + n2) / VFS_PAGE_SIZE, copy(buf1, n2, getpage((n0 + n2) / VFS_PAGE_SIZE, content), (n0 + n2) % VFS_PAGE_SIZE, min(n1 - n0 + n2, n3))]) ])
Used simplifier rules: ⊦ mkfile(m, md, m0, content).content:= content0 = mkfile(m, md, m0, content0); (s)% ⊦ mkfile(m, md, m0, content).content = content; (s)% ⊦ # copy(buf, m, buf0, m0, n) = # buf0; (s)% ⊦ valid-file-ino(ino, dirs, files) ↔ ino ∈ files; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)%⊦ pre-writepage(inode, n, buf, dirs, files) ↔ valid-file-ino(inode.ino, dirs, files) ∧ # buf = VFS_PAGE_SIZE; (s)% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ VFS_PAGE_SIZE ≠ 0; (s)