| files[m] = mkfile(m0, md0, # links(m, dirs), content), inode = mkinode(m, md, false, # links(m, dirs), 0, m2), 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 ⊦ ⟪cache_fsync-inode#(; inode, err, dirs, files, icache, asynced)⟫ ( 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) |
asynced1 ↔ asynced, files[m] = mkfile(m0, md0, # links(m, dirs), content), inode = mkinode(m, md, false, # links(m, dirs), 0, m2), 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 ⊦ ⟪let ino = inode.ino, asynced0 = ?, asynced = ? in {icache_check_inode#(ino, icache; asynced0, asynced, err); 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)
Used simplifier rules: fsync-inode: ⊦ ;