| cache_icache[m] = mkientry(boolvar, mkinode(m1, md1, boolvar0, m2, m4, m5)), cache_dirs[m] = mkdir(m0, md0, # links(m, cache_dirs), m3, entries), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, cache_dirs0 = cache_dirs, dirs = cache_dirs, err = err0, files = afs_files, inode = mkinode(m, md, true, # links(m, cache_dirs), m3, m0), afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), afs-cons(cache_dirs, cache_files), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_icache, m ∈ cache_dirs, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨if pre-write-inode(inode, dirs, files) then { {if inode.directory then dirs[inode.ino].meta := inode.meta else {files[inode.ino].meta := inode.meta; files[inode.ino].size := inode.size}; err := ESUCCESS} or fail#(; ; err); asynced := ?} else abort⟩ ( dirs = cache_dirs0[m, cache_dirs0[m].meta:= md] ∧ files = (cache_files ⊕ cache_pcache) ⊕ cache_icache[m1, mkientry(false, mkinode(m1, md, boolvar0, m2, m4, m5))] ∧ (asynced ↔ asynced0) ∧ ESUCCESS = err) |
cache_dirs[m] = mkdir(m0, md0, # links(m, cache_dirs), m3, entries), cache_icache[m] = mkientry(boolvar, mkinode(m1, md1, boolvar0, m2, m4, m5)), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, cache_dirs0 = cache_dirs, dirs = cache_dirs, err = err0, files = afs_files, inode = mkinode(m, md, true, # links(m, cache_dirs), m3, m0), afs-cons(cache_dirs, cache_files), afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), pre-write-inode(inode, dirs, files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_dirs, m ∈ cache_icache, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨ {if inode.directory then dirs[inode.ino].meta := inode.meta else {files[inode.ino].meta := inode.meta; files[inode.ino].size := inode.size}; err := ESUCCESS} or fail#(; ; err); asynced := ?⟩ ( dirs = cache_dirs0[m, cache_dirs0[m].meta:= md] ∧ files = (cache_files ⊕ cache_pcache) ⊕ cache_icache[m1, mkientry(false, mkinode(m1, md, boolvar0, m2, m4, m5))] ∧ (asynced ↔ asynced0) ∧ ESUCCESS = err)
cache_dirs[m] = mkdir(m0, md0, # links(m, cache_dirs), m3, entries), cache_icache[m] = mkientry(boolvar, mkinode(m1, md1, boolvar0, m2, m4, m5)), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, cache_dirs0 = cache_dirs, dirs = cache_dirs, err = err0, files = afs_files, inode = mkinode(m, md, true, # links(m, cache_dirs), m3, m0), afs-cons(cache_dirs, cache_files), afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_dirs, m ∈ cache_icache, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨abort⟩ ( dirs = cache_dirs0[m, cache_dirs0[m].meta:= md] ∧ files = (cache_files ⊕ cache_pcache) ⊕ cache_icache[m1, mkientry(false, mkinode(m1, md, boolvar0, m2, m4, m5))] ∧ (asynced ↔ asynced0) ∧ ESUCCESS = err), pre-write-inode(inode, dirs, files)