| afs-cons(dirs, files), ispath(q, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), px-parent(user, q, ROOT_INO, dirs, files), ⌊err0⌋ , ino0 ∈ dirs ∨ ino0 ∈ files ⊦ ⟪err := err0; if err = ESUCCESS then if ¬ inode.directory then err := ENOTDIR else if ¬ px(user, inode.meta) ∨ ¬ pw(user, inode.meta) then err := EACCESS else {dent := negdentry((q + str ').last); afs_lookup#(ino0, dirs, files, asynced; dent, err); if err = ESUCCESS then err := EEXISTS else if err = ENOENT then err := ESUCCESS}; if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); if err = ESUCCESS then {dent := negdentry((q + str ').last); afs_mkdir#(md; inode, c_inode, dent, err, dirs, files; asynced)}⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files)) |
err = err0, afs-cons(dirs, files), ispath(q, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), px-parent(user, q, ROOT_INO, dirs, files), ⌊err0⌋ , ino0 ∈ dirs ∨ ino0 ∈ files ⊦ ⟪if err = ESUCCESS then if ¬ inode.directory then err := ENOTDIR else if ¬ px(user, inode.meta) ∨ ¬ pw(user, inode.meta) then err := EACCESS else {dent := negdentry((q + str ').last); afs_lookup#(ino0, dirs, files, asynced; dent, err); if err = ESUCCESS then err := EEXISTS else if err = ENOENT then err := ESUCCESS}; if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); if err = ESUCCESS then {dent := negdentry((q + str ').last); afs_mkdir#(md; inode, c_inode, dent, err, dirs, files; asynced)}⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files))