| dirs[m] = mkdir(m0, md0, # links(m, dirs), m2, entries), dent = negdentry(str), p_ino = m, afs-cons(dirs, files), m ∈ dirs, links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟪files := (files ++ ino)[ino, mkfile(0, md, 1, ∅)]; dent0 := mkdentry(dent.name, ino); err := ESUCCESS⟫ afs-cons (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) ], files), ino = 0, str ∈ entries, ino ∈ dirs, ino ∈ files |
dirs[m] = mkdir(m0, md0, # links(m, dirs), m2, entries), dent = negdentry(str), p_ino = m, afs-cons(dirs, files), m ∈ dirs, links(m, dirs) ≠ ∅ ∨ m = ROOT_INO ⊦ ⟪dent0 := mkdentry(dent.name, ino); err := ESUCCESS⟫ afs-cons (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) ], (files ++ ino)[ino, mkfile(0, md, 1, ∅)]), ino = 0, ino ∈ files, ino ∈ dirs, str ∈ entries