| files[m] = mkfile(m0, md0, # links(m, dirs), content), ino = m, afs-cons(dirs, files), dcache-cons(dcache, dirs, files), icache-cons(icache, dirs, files), pcache-cons(pcache, dirs, files), synced(dirs, icache, pcache), ino ∈ icache, m ∈ files ⊦ ⟪asynced0 := true; asynced := icache[ino].dirty; inode := mkinode(m, md, false, # links(m, dirs), 0, m2); ino := m; if err = ESUCCESS ∧ asynced0 ∧ asynced then icache_get#(ino, icache; asynced0, inode, err); if err = ESUCCESS ∧ asynced0 ∧ asynced then afs_write_inode#(inode; err, dirs, files; asynced1); if err = ESUCCESS then {asynced := false; icache_set_status#(ino, asynced; err, icache)}⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ afs-cons(dirs, files) ∧ synced(dirs, icache, pcache) ∧ inode.ino ∈ files ∧ inode.nlink = files[inode.ino].nlink ∧ inode.nsubdirs = 0 ∧ ¬ inode.directory) |
asynced0 ↔ true, files[m] = mkfile(m0, md0, # links(m, dirs), content), ino = m, afs-cons(dirs, files), dcache-cons(dcache, dirs, files), icache-cons(icache, dirs, files), pcache-cons(pcache, dirs, files), synced(dirs, icache, pcache), m ∈ files, ino ∈ icache ⊦ ⟪asynced := icache[ino].dirty; inode := mkinode(m, md, false, # links(m, dirs), 0, m2); ino := m; if err = ESUCCESS ∧ asynced0 ∧ asynced then icache_get#(ino, icache; asynced0, inode, err); if err = ESUCCESS ∧ asynced0 ∧ asynced then afs_write_inode#(inode; err, dirs, files; asynced1); if err = ESUCCESS then {asynced := false; icache_set_status#(ino, asynced; err, icache)}⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ afs-cons(dirs, files) ∧ synced(dirs, icache, pcache) ∧ inode.ino ∈ files ∧ inode.nlink = files[inode.ino].nlink ∧ inode.nsubdirs = 0 ∧ ¬ inode.directory)