| VFS_PAGE_SIZE = n7 + (n0 + n6) % VFS_PAGE_SIZE, files[m] = mkfile(m3, md0, # links(m, dirs), content), err = ESUCCESS, ino0 = n6, m2 ≠ n0 + n6, n5 ≠ 0, n7 ≠ 0, n0 + n6 < m2, afs-cons(dirs, files), m ∈ files, n6 ≤ # buf1, n5 + n6 ≤ # buf1, ¬ (n0 + n6) / VFS_PAGE_SIZE ∈ content, ∀ n2, n3, n4, err, inode, m, md, boolvar, m0, m1, m2, isdir, dirs, files, buf, asynced. n2 - n3 + n4 < n5 → err = ESUCCESS ∧ inode = mkinode(m, md, boolvar, m0, m1, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ m2 ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪vfs_read_block#(n3, n2, inode, dirs, files, asynced; buf, n4, isdir, err); while err = ESUCCESS ∧ ¬ isdir do vfs_read_block#(n3, n2, inode, dirs, files, asynced; buf, n4, isdir, err)⟫ true ⊦ ⟪buf0 := buf1; if err = ESUCCESS then {buf0 := copy(zeropage, (n0 + n6) % VFS_PAGE_SIZE, buf0, ino0, min(n5 + n0 + n6 - n0 + n6, n7, m2 - n0 + n6)); ino0 := ino0 + min(n5 + n0 + n6 - n0 + n6, n7, m2 - n0 + n6)}; inode := mkinode(m, md, boolvar, m0, m1, m2); n := ino0, buf1 := buf0; n1 := n5 + n0 + n6; isdir := false; while err = ESUCCESS ∧ ¬ isdir do vfs_read_block#(n0, n1, inode, dirs, files, asynced; buf1, n, isdir, err)⟫ true |
VFS_PAGE_SIZE = n7 + (n0 + n6) % VFS_PAGE_SIZE, files[m] = mkfile(m3, md0, # links(m, dirs), content), buf0 = buf1, err = ESUCCESS, ino0 = n6, n0 + n6 < m2, afs-cons(dirs, files), m ∈ files, n5 + n6 ≤ # buf1, n6 ≤ # buf1, ∀ n2, n3, n4, err, inode, m, md, boolvar, m0, m1, m2, isdir, dirs, files, buf, asynced. n2 - n3 + n4 < n5 → err = ESUCCESS ∧ inode = mkinode(m, md, boolvar, m0, m1, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ m2 ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪vfs_read_block#(n3, n2, inode, dirs, files, asynced; buf, n4, isdir, err); while err = ESUCCESS ∧ ¬ isdir do vfs_read_block#(n3, n2, inode, dirs, files, asynced; buf, n4, isdir, err)⟫ true ⊦ ⟪if err = ESUCCESS then {buf0 := copy(zeropage, (n0 + n6) % VFS_PAGE_SIZE, buf0, ino0, min(n5 + n0 + n6 - n0 + n6, n7, m2 - n0 + n6)); ino0 := ino0 + min(n5 + n0 + n6 - n0 + n6, n7, m2 - n0 + n6)}; inode := mkinode(m, md, boolvar, m0, m1, m2); n := ino0, buf1 := buf0; n1 := n5 + n0 + n6; isdir := false; while err = ESUCCESS ∧ ¬ isdir do vfs_read_block#(n0, n1, inode, dirs, files, asynced; buf1, n, isdir, err)⟫ true, m2 = n0 + n6, n5 = 0, n7 = 0, (n0 + n6) / VFS_PAGE_SIZE ∈ content