| # links(m, cache_dirs) = 0, asynced ↔ cache_asynced, cache_dirs[m] = mkdir(m0, md0, 0, m2, 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, 0, m2, 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), pre-evict(inode, dirs, files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_dirs, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨let ino = inode.ino in if ino ∈ dirs then if dirs[ino].nlink = 0 then dirs := dirs -- ino else if files[ino].nlink = 0 then files := files -- ino⟩ (dirs = cache_dirs0 -- m ∧ files = (cache_files ⊕ cache_pcache) ⊕ (cache_icache -- m) ∧ ESUCCESS = ESUCCESS), m = ROOT_INO |
# links(m, cache_dirs) = 0, asynced ↔ cache_asynced, cache_dirs[m] = mkdir(m0, md0, 0, m2, entries), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, cache_dirs0 = cache_dirs, dirs = cache_dirs, err = err0, files = afs_files, ino = inode.ino, inode = mkinode(m, md, true, 0, m2, 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-evict(inode, dirs, files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_dirs, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨if ino ∈ dirs then if dirs[ino].nlink = 0 then dirs := dirs -- ino else if files[ino].nlink = 0 then files := files -- ino⟩ (dirs = cache_dirs0 -- m ∧ files = (cache_files ⊕ cache_pcache) ⊕ (cache_icache -- m) ∧ ESUCCESS = ESUCCESS), m = ROOT_INO