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