| # links(m, dirs) = m1, dirs[m] = mkdir(m0, md2, # links(m, dirs), m2, entries0), dent = negdentry(str), p_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 ∈ dirs, asynced1 → synced(files, icache, pcache), links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ [dirs := dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino].size + 1) ]; dirs[p_ino].nsubdirs := dirs[p_ino].nsubdirs + 1; dirs := dirs ++ ino; dirs[ino] := mkdir(0, md, 1, 0, ∅); dent := mkdentry(dent.name, ino); err := ESUCCESS; afs_inode_sync#(mkinode(m, md0, true, m1, m2, m0); dirs, files); p_inode := (m ∈ dirs ⊃ mkinode(m, dirs[m].meta, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); c_inode := getinode(dent.ino, dirs, files); asynced := ?] ( afs-cons(dirs, files) → ⟪if err = ESUCCESS then let asynced = false in {icache_set#(p_inode, asynced; err, icache); icache_set#(c_inode, asynced; err, icache); dcache_set#(p_inode.ino, dent.name, dent; err, dcache)}⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ synced(dirs, icache, pcache) ∧ (asynced1 → synced(files, icache, pcache)))), ino = 0, str ∈ entries0, ino ∈ files, ino ∈ dirs |
# links(m, dirs) = m1, dirs[m] = mkdir(m0, md2, # links(m, dirs), m2, entries0), dent = negdentry(str), p_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 ∈ dirs, asynced1 → synced(files, icache, pcache), links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ [dirs := dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino].size + 1) ] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino].size + 1) ] [p_ino ] .nsubdirs:= ( dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino].size + 1) ] [p_ino ] .nsubdirs + 1) ]; dirs := dirs ++ ino; dirs[ino] := mkdir(0, md, 1, 0, ∅); dent := mkdentry(dent.name, ino); err := ESUCCESS; afs_inode_sync#(mkinode(m, md0, true, m1, m2, m0); dirs, files); p_inode := (m ∈ dirs ⊃ mkinode(m, dirs[m].meta, true, dirs[m].nlink, dirs[m].nsubdirs, dirs[m].size) ;mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size) ); c_inode := getinode(dent.ino, dirs, files); asynced := ?] ( afs-cons(dirs, files) → ⟪if err = ESUCCESS then let asynced = false in {icache_set#(p_inode, asynced; err, icache); icache_set#(c_inode, asynced; err, icache); dcache_set#(p_inode.ino, dent.name, dent; err, dcache)}⟫ ( icache-cons(icache, dirs, files) ∧ dcache-cons(dcache, dirs, files) ∧ pcache-cons(pcache, dirs, files) ∧ synced(dirs, icache, pcache) ∧ (asynced1 → synced(files, icache, pcache)))), ino = 0, ino ∈ dirs, ino ∈ files, str ∈ entries0