| err = ESUCCESS, afs-cons(dirs, files), of-cons(of, dirs, files), ⌊err⌋ ∨ err = ESUCCESS ∧ ispath(p, ROOT_INO, ino0, dirs, files) ∧ px-parent(user, p, ROOT_INO, dirs, files) ∨ err = ENOENT ∧ ¬ ispath(p, ROOT_INO, dirs, files) ∨ err = EACCESS ∧ p ≠ ε ∧ p' ⊑ parent(p) ∧ ispath(p', ROOT_INO, dirs, files) ∧ ¬ px(user, p', ROOT_INO, dirs, files) ⊦ ⟪let isdir = false in vfs_may_open#(ino0, isdir, MODE_W, user, dirs, files, asynced; inode, err); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); pageno := 0; if err = ESUCCESS then pageno := inode.size / VFS_PAGE_SIZE; if err = ESUCCESS then {buf-opt := none; afs_truncate#(n, pageno; buf-opt, inode, isdir0, err, dirs, files, asynced)}⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files)) |
isdir ↔ false, err = ESUCCESS, afs-cons(dirs, files), of-cons(of, dirs, files), ⌊err⌋ ∨ err = ESUCCESS ∧ ispath(p, ROOT_INO, ino0, dirs, files) ∧ px-parent(user, p, ROOT_INO, dirs, files) ∨ err = ENOENT ∧ ¬ ispath(p, ROOT_INO, dirs, files) ∨ err = EACCESS ∧ p ≠ ε ∧ p' ⊑ parent(p) ∧ ispath(p', ROOT_INO, dirs, files) ∧ ¬ px(user, p', ROOT_INO, dirs, files) ⊦ ⟪vfs_may_open#(ino0, isdir, MODE_W, user, dirs, files, asynced; inode, err); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); pageno := 0; if err = ESUCCESS then pageno := inode.size / VFS_PAGE_SIZE; if err = ESUCCESS then {buf-opt := none; afs_truncate#(n, pageno; buf-opt, inode, isdir0, err, dirs, files, asynced)}⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files))