| VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, files1[m] = mkfile(m1, md1, # links(m, dirs), content0), files = files0, files0 = files1 [m, mkfile(m1, md1, # links(m, dirs), content0[m2 / VFS_PAGE_SIZE, fill(content0[m2 / VFS_PAGE_SIZE], zero, m2 % VFS_PAGE_SIZE, n0)] upto m2) ], ino = inode.ino, inode = mkinode(m, md, false, # links(m, dirs), 0, n), afs-cons(dirs, files1), dcache-cons(dcache, dirs, files1), icache-cons(icache, dirs, files1), pcache-cons(pcache, dirs, files1), synced(dirs, icache, pcache), m2 / VFS_PAGE_SIZE ∈ content0, m ∈ files1, m2 ≤ n, asynced2 → synced(files1, icache, pcache) ⊦ [if ino ∈ files then {files[ino].size := inode.size; files[ino].meta := inode.meta} else if ino ∈ dirs then dirs[ino].meta := inode.meta; inode0 := (m ∈ dirs ⊃ mkinode(m, dirs[m].meta, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); err := ESUCCESS; asynced := ?] ( afs-cons(dirs, files) → ⟪asynced4 := true; if err = ESUCCESS then let asynced = false in {icache_set#(inode0, asynced; err, icache); pcache_truncate#(inode0.ino, m2, n; err, pcache); if asynced4 then pcache_set# (inode0.ino, m2 / VFS_PAGE_SIZE, some(fill(files1[m].content[m2 / VFS_PAGE_SIZE], zero, m2 % VFS_PAGE_SIZE, n0)).buf, asynced ; err, pcache)}; if ¬ asynced4 ∨ err ≠ ESUCCESS then buf-opt := none⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ synced(dirs, icache, pcache) ∧ (asynced2 → synced(files, icache, pcache)))), m2 % VFS_PAGE_SIZE = 0, datakey(m, m2 / VFS_PAGE_SIZE) ∈ pcache |
VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, files1[m] = mkfile(m1, md1, # links(m, dirs), content0), files = files0, files0 = files1 [m, mkfile(m1, md1, # links(m, dirs), content0[m2 / VFS_PAGE_SIZE, fill(content0[m2 / VFS_PAGE_SIZE], zero, m2 % VFS_PAGE_SIZE, n0)] upto m2) ], ino = inode.ino, inode = mkinode(m, md, false, # links(m, dirs), 0, n), afs-cons(dirs, files1), dcache-cons(dcache, dirs, files1), icache-cons(icache, dirs, files1), pcache-cons(pcache, dirs, files1), synced(dirs, icache, pcache), ino ∈ files, m ∈ files1, m2 / VFS_PAGE_SIZE ∈ content0, m2 ≤ n, asynced2 → synced(files1, icache, pcache) ⊦ [files[ino].size := inode.size; files[ino].meta := inode.meta; inode0 := (m ∈ dirs ⊃ mkinode(m, dirs[m].meta, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); err := ESUCCESS; asynced := ?] ( afs-cons(dirs, files) → ⟪asynced4 := true; if err = ESUCCESS then let asynced = false in {icache_set#(inode0, asynced; err, icache); pcache_truncate#(inode0.ino, m2, n; err, pcache); if asynced4 then pcache_set# (inode0.ino, m2 / VFS_PAGE_SIZE, some(fill(files1[m].content[m2 / VFS_PAGE_SIZE], zero, m2 % VFS_PAGE_SIZE, n0)).buf, asynced ; err, pcache)}; if ¬ asynced4 ∨ err ≠ ESUCCESS then buf-opt := none⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ synced(dirs, icache, pcache) ∧ (asynced2 → synced(files, icache, pcache)))), m2 % VFS_PAGE_SIZE = 0, datakey(m, m2 / VFS_PAGE_SIZE) ∈ pcache
VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, files1[m] = mkfile(m1, md1, # links(m, dirs), content0), files = files0, files0 = files1 [m, mkfile(m1, md1, # links(m, dirs), content0[m2 / VFS_PAGE_SIZE, fill(content0[m2 / VFS_PAGE_SIZE], zero, m2 % VFS_PAGE_SIZE, n0)] upto m2) ], ino = inode.ino, inode = mkinode(m, md, false, # links(m, dirs), 0, n), afs-cons(dirs, files1), dcache-cons(dcache, dirs, files1), icache-cons(icache, dirs, files1), pcache-cons(pcache, dirs, files1), synced(dirs, icache, pcache), m ∈ files1, m2 / VFS_PAGE_SIZE ∈ content0, m2 ≤ n, asynced2 → synced(files1, icache, pcache) ⊦ [if ino ∈ dirs then dirs[ino].meta := inode.meta; inode0 := (m ∈ dirs ⊃ mkinode(m, dirs[m].meta, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); err := ESUCCESS; asynced := ?] ( afs-cons(dirs, files) → ⟪asynced4 := true; if err = ESUCCESS then let asynced = false in {icache_set#(inode0, asynced; err, icache); pcache_truncate#(inode0.ino, m2, n; err, pcache); if asynced4 then pcache_set# (inode0.ino, m2 / VFS_PAGE_SIZE, some(fill(files1[m].content[m2 / VFS_PAGE_SIZE], zero, m2 % VFS_PAGE_SIZE, n0)).buf, asynced ; err, pcache)}; if ¬ asynced4 ∨ err ≠ ESUCCESS then buf-opt := none⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ synced(dirs, icache, pcache) ∧ (asynced2 → synced(files, icache, pcache)))), m2 % VFS_PAGE_SIZE = 0, datakey(m, m2 / VFS_PAGE_SIZE) ∈ pcache, ino ∈ files