| files[m] = mkfile(m1, md0, # links(m, dirs), content), err = ESUCCESS, ino = (ino2 + ino0) % VFS_PAGE_SIZE, ino0 = n, ino1 = n5 + n0 + n, ino2 = n0, inode = mkinode(m, md, false, # links(m, dirs), 0, m2), ¬ isdir, n1 = n5 + n0 + n, pageno = (ino2 + ino0) / VFS_PAGE_SIZE, afs-cons(dirs, files), m ∈ files, n ≤ # buf, n5 + n ≤ # buf, ∀ n2, n3, n4, files, m, m1, md0, dirs, content, inode, md, m2, isdir, buf, err, asynced. n2 - n3 + n4 < n5 → files[m] = mkfile(m1, md0, # links(m, dirs), content) ∧ inode = mkinode(m, md, false, # links(m, dirs), 0, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n3, inode, buf, n2, dirs; n4, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink) ⊦ ⟪let n = min(ino1 - ino2 + ino0, VFS_PAGE_SIZE - ino) in if n ≠ 0 then {vfs_writepage#(inode, pageno, buf, ino0, ino, n, dirs; err, files, asynced); if err = ESUCCESS then ino0 := ino0 + n} else isdir := true; inode := mkinode(m, md, false, # links(m, dirs), 0, m2); n := ino0; while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n0, inode, buf, n1, dirs; n, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink), VFS_PAGE_SIZE = 0 |
files[m] = mkfile(m1, md0, # links(m, dirs), content), err = ESUCCESS, ino = (ino2 + ino0) % VFS_PAGE_SIZE, ino0 = n6, ino1 = n5 + n0 + n6, ino2 = n0, inode = mkinode(m, md, false, # links(m, dirs), 0, m2), ¬ isdir, n = min(ino1 - ino2 + ino0, VFS_PAGE_SIZE - ino), n1 = n5 + n0 + n6, pageno = (ino2 + ino0) / VFS_PAGE_SIZE, afs-cons(dirs, files), m ∈ files, n5 + n6 ≤ # buf, n6 ≤ # buf, ino1 ≥ ino2 + ino0, VFS_PAGE_SIZE ≥ ino, ∀ n2, n3, n4, files, m, m1, md0, dirs, content, inode, md, m2, isdir, buf, err, asynced. n2 - n3 + n4 < n5 → files[m] = mkfile(m1, md0, # links(m, dirs), content) ∧ inode = mkinode(m, md, false, # links(m, dirs), 0, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n3, inode, buf, n2, dirs; n4, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink) ⊦ ⟪if n ≠ 0 then {vfs_writepage#(inode, pageno, buf, ino0, ino, n, dirs; err, files, asynced); if err = ESUCCESS then ino0 := ino0 + n} else isdir := true; inode := mkinode(m, md, false, # links(m, dirs), 0, m2); n6 := ino0; while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n0, inode, buf, n1, dirs; n6, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink), VFS_PAGE_SIZE = 0
files[m] = mkfile(m1, md0, # links(m, dirs), content), err = ESUCCESS, ino = (ino2 + ino0) % VFS_PAGE_SIZE, ino0 = n, ino1 = n5 + n0 + n, ino2 = n0, inode = mkinode(m, md, false, # links(m, dirs), 0, m2), ¬ isdir, n1 = n5 + n0 + n, pageno = (ino2 + ino0) / VFS_PAGE_SIZE, afs-cons(dirs, files), m ∈ files, n5 + n ≤ # buf, n ≤ # buf, ∀ n2, n3, n4, files, m, m1, md0, dirs, content, inode, md, m2, isdir, buf, err, asynced. n2 - n3 + n4 < n5 → files[m] = mkfile(m1, md0, # links(m, dirs), content) ∧ inode = mkinode(m, md, false, # links(m, dirs), 0, m2) ∧ ¬ isdir ∧ afs-cons(dirs, files) ∧ m ∈ files ∧ n4 ≤ # buf ∧ n3 + n4 ≤ n2 ∧ n2 ≤ # buf + n3 → ⟪while err = ESUCCESS ∧ ¬ isdir do vfs_write_block#(n3, inode, buf, n2, dirs; n4, isdir, err, files, asynced)⟫ (m ∈ files ∧ # links(m, dirs) = files[m].nlink) ⊦ VFS_PAGE_SIZE = 0, ino1 ≥ ino2 + ino0 ∧ VFS_PAGE_SIZE ≥ ino