| icache[m] = mkientry(true, inode0), files[m] = mkfile(m0, md0, # links(m, dirs), content), asynced0, err = ESUCCESS, 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, m ∈ icache ⊦ ⟪icache_get#(m, icache; asynced0, inode, err); if err = ESUCCESS ∧ asynced0 then afs_write_inode#(inode; err, dirs, files; asynced1); if err = ESUCCESS then {asynced := false; icache_set_status#(m, 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) |
asynced ↔ asynced0, files[m] = mkfile(m0, md0, # links(m, dirs), content), icache[m] = mkientry(true, inode0), asynced0, err = ESUCCESS, ino = m, 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 ∈ icache, m ∈ files ⊦ ⟪if ino ∈ icache then {inode := icache[ino].inode; asynced := true} else asynced := false; err := ESUCCESS; if err = ESUCCESS ∧ asynced then afs_write_inode#(inode; err, dirs, files; asynced1); if err = ESUCCESS then {asynced := false; icache_set_status#(m, 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: icache_get#(INO, ICACHE; HIT, INODE, ERR) {if INO ∈ ICACHE then {INODE := ICACHE[INO].inode; HIT := true} else HIT := false; ERR := ESUCCESS };