| isdir ↔ false, err = ESUCCESS, ino = ino0, dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), px-parent(user, p, ROOT_INO, dirs, files) ⊦ ⟪if pre-iget(ino, dirs, files) then {{inode := getinode(ino, dirs, files); err := ESUCCESS} or fail#(; ; err)} else abort; if err = ESUCCESS then if ¬(inode.directory ↔ isdir) then err := (inode.directory ⊃ EISDIR;ENOTDIR) else if (mode = MODE_R ∨ mode = MODE_RW) ∧ ¬ pr(user, inode.meta) ∨ (mode = MODE_W ∨ mode = MODE_RW) ∧ ¬ pw(user, inode.meta) then err := EACCESS; if err = ESUCCESS then {of[ino1] := mkfile(ino0, mode, 0); fd := ino1; ino1 := ino1 + 1}⟫ (of-cons(of, dirs, files) ∧ dom of < ino1) |
isdir ↔ false, err = ESUCCESS, ino = ino0, dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pre-iget(ino, dirs, files), px-parent(user, p, ROOT_INO, dirs, files) ⊦ ⟪{inode := getinode(ino, dirs, files); err := ESUCCESS} or fail#(; ; err); if err = ESUCCESS then if ¬(inode.directory ↔ isdir) then err := (inode.directory ⊃ EISDIR;ENOTDIR) else if (mode = MODE_R ∨ mode = MODE_RW) ∧ ¬ pr(user, inode.meta) ∨ (mode = MODE_W ∨ mode = MODE_RW) ∧ ¬ pw(user, inode.meta) then err := EACCESS; if err = ESUCCESS then {of[ino1] := mkfile(ino0, mode, 0); fd := ino1; ino1 := ino1 + 1}⟫ (of-cons(of, dirs, files) ∧ dom of < ino1)
isdir ↔ false, err = ESUCCESS, ino = ino0, dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), px-parent(user, p, ROOT_INO, dirs, files) ⊦ ⟪abort; if err = ESUCCESS then if ¬(inode.directory ↔ isdir) then err := (inode.directory ⊃ EISDIR;ENOTDIR) else if (mode = MODE_R ∨ mode = MODE_RW) ∧ ¬ pr(user, inode.meta) ∨ (mode = MODE_W ∨ mode = MODE_RW) ∧ ¬ pw(user, inode.meta) then err := EACCESS; if err = ESUCCESS then {of[ino1] := mkfile(ino0, mode, 0); fd := ino1; ino1 := ino1 + 1}⟫ (of-cons(of, dirs, files) ∧ dom of < ino1), pre-iget(ino, dirs, files)