| c_inode = p_inode1, dent = negdentry(str), dirs = abs-dirs(fs, ri), err = err0, files = abs-files(fs, ri), m0 = fs[ri[inodekey(m)]].nlink, m1 = fs[ri[inodekey(m)]].nsubdirs, m2 = fs[ri[inodekey(m)]].size, p_inode = mkinode(m, md0, true, fs[ri[inodekey(m)]].nlink, fs[ri[inodekey(m)]].nsubdirs, fs[ri[inodekey(m)]].size), ro = orphans(fs, ri), fs[ri[inodekey(m)]].directory, orphans(fs, ri).inodes?, fo.inodes?, afs-cons(abs-dirs(fs, ri), abs-files(fs, ri)), file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, orphans(fs, ri)), replay-cons-strong(fs, ri, orphans(fs, ri), fi, fo, log), ri-inj(ri), ri-inj(fi), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), inodekey(m) ∈ ri, ¬ dentrykey(m, str) ∈ ri, asynced → boolvar, links(m, abs-dirs(fs, ri)) ≠ ∅ ∨ m = ROOT_INO, fs[ri[inodekey(m)]].nlink ≠ 0 ∨ m = ROOT_INO ⊦ [aubifs_create#(md, fi, orphans(fs, ri), fo; p_inode, c_inode, dent, err, ri, fs, log, boolvar)] ( ubifs-cons(fs, ri, ro, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro) ∧ ri-inj(ri) ∧ log-cons(log, fs) → ⟨old_dent := negdentry(str); p_inode0 := mkinode(m, md0, true, m0, m1, m2); afs_create#(md; p_inode0, p_inode1, old_dent, err0, dirs, files; asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro) ∧ (asynced → boolvar) ∧ p_inode = p_inode0 ∧ c_inode = p_inode1 ∧ dent = old_dent ∧ err = err0)), fs[ri[inodekey(m)]].nlink = 0 ∧ m ≠ ROOT_INO |
c_inode = p_inode1, dent = negdentry(str), dirs = abs-dirs(fs, ri), err = err0, files = abs-files(fs, ri), m0 = fs[ri[inodekey(m)]].nlink, m1 = fs[ri[inodekey(m)]].nsubdirs, m2 = fs[ri[inodekey(m)]].size, p_inode = mkinode(m, md0, true, fs[ri[inodekey(m)]].nlink, fs[ri[inodekey(m)]].nsubdirs, fs[ri[inodekey(m)]].size), ro = orphans(fs, ri), ro0 = orphans(fs, ri), fs[ri[inodekey(m)]].directory, fo.inodes?, orphans(fs, ri).inodes?, afs-cons(abs-dirs(fs, ri), abs-files(fs, ri)), file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, orphans(fs, ri)), replay-cons-strong(fs, ri, orphans(fs, ri), fi, fo, log), ri-inj(fi), ri-inj(ri), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), inodekey(m) ∈ ri, asynced → boolvar, fs[ri[inodekey(m)]].nlink ≠ 0 ∨ m = ROOT_INO, links(m, abs-dirs(fs, ri)) ≠ ∅ ∨ m = ROOT_INO ⊦ [if pre-create(p_inode, dent, md, fs, ri, ro) then choose adr1, adr0, adr, key1, key0, key, nd1, nd0, nd with true in {key1 := inodekey(p_inode.ino); key0 := dentrykey(p_inode.ino, dent.name); aubifs_core_index_newino#(ri, fi, ro, fo, fs, log, boolvar; key); nd1 := inodenode(key1, p_inode.meta, p_inode.directory, p_inode.nlink, p_inode.nsubdirs, p_inode.size + 1); nd0 := dentrynode(key0, key.ino); nd := inodenode(key, md, false, 1, 0, 0); aubifs_core_journal_add3#(nd1, nd0, nd, ri, fi, ro, fo; adr1, adr0, adr, fs, log; boolvar, err); if err = ESUCCESS then {aubifs_core_index_store#(key1, adr1, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_store#(key0, adr0, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_store#(key, adr, fi, ro, fo, fs, log, boolvar; ri); dent := mkdentry(dent.name, key.ino); p_inode := mkinode(p_inode.ino, nd1.meta, nd1.directory, nd1.nlink, nd1.nsubdirs, nd1.size); c_inode := mkinode(key.ino, nd.meta, nd.directory, nd.nlink, nd.nsubdirs, nd.size)}} else abort] ( ubifs-cons(fs, ri, ro0, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro0, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro0) ∧ ri-inj(ri) ∧ log-cons(log, fs) → ⟨old_dent := negdentry(str); p_inode0 := mkinode(m, md0, true, m0, m1, m2); afs_create#(md; p_inode0, p_inode1, old_dent, err0, dirs, files; asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro0) ∧ (asynced → boolvar) ∧ p_inode = p_inode0 ∧ c_inode = p_inode1 ∧ dent = old_dent ∧ err = err0)), dentrykey(m, str) ∈ ri, fs[ri[inodekey(m)]].nlink = 0 ∧ m ≠ ROOT_INO
Used simplifier rules: aubifs_create# (MD, FI, RO, FO; P_INODE, C_INODE, DENT, ERR, RI, FS, LOG, CSYNCED) {if pre-create(P_INODE, DENT, MD, FS, RI, RO) then choose ADR1, ADR2, ADR3, KEY1, KEY2, KEY3, ND1, ND2, ND3 with true in {KEY1 := inodekey(P_INODE.ino); KEY2 := dentrykey(P_INODE.ino, DENT.name); aubifs_core_index_newino# (RI, FI, RO, FO, FS, LOG, CSYNCED; KEY3); ND1 := inodenode (KEY1, P_INODE.meta, P_INODE.directory, P_INODE.nlink, P_INODE.nsubdirs, P_INODE.size + 1); ND2 := dentrynode(KEY2, KEY3.ino); ND3 := inodenode(KEY3, MD, false, 1, 0, 0); aubifs_core_journal_add3# (ND1, ND2, ND3, RI, FI, RO, FO ; ADR1, ADR2, ADR3, FS, LOG ; CSYNCED, ERR); if ERR = ESUCCESS then {aubifs_core_index_store# (KEY1, ADR1, FI, RO, FO, FS, LOG, CSYNCED; RI); aubifs_core_index_store# (KEY2, ADR2, FI, RO, FO, FS, LOG, CSYNCED; RI); aubifs_core_index_store# (KEY3, ADR3, FI, RO, FO, FS, LOG, CSYNCED; RI); DENT := mkdentry(DENT.name, KEY3.ino); P_INODE := mkinode (P_INODE.ino, ND1.meta, ND1.directory, ND1.nlink, ND1.nsubdirs, ND1.size); C_INODE := mkinode (KEY3.ino, ND3.meta, ND3.directory, ND3.nlink, ND3.nsubdirs, ND3.size)}} else abort };