| p_inode.nlink = fs[ri[inodekey(p_inode.ino)]].nlink, p_inode.nsubdirs = fs[ri[inodekey(p_inode.ino)]].nsubdirs, p_inode.size = fs[ri[inodekey(p_inode.ino)]].size, dent = negdentry(str), fs[ri[inodekey(p_inode.ino)]].directory, p_inode.directory, ro.inodes?, fo.inodes?, file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, ro), replay-cons-strong(fs, ri, ro, fi, fo, log), ri-inj(ri), ri-inj(fi), ubifs-cons(fs, ri, ro, fi, fo, log), inodekey(p_inode.ino) ∈ ri, ¬ inodekey(p_inode.ino) ∈ ro, ¬ dentrykey(p_inode.ino, str) ∈ ri, p_inode.nlink ≠ 0 ∨ p_inode.ino = ROOT_INO ⊦ ⟪aubifs_mkdir#(md, fi, ro, 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)) |
p_inode.nlink = fs[ri[inodekey(p_inode.ino)]].nlink, p_inode.nsubdirs = fs[ri[inodekey(p_inode.ino)]].nsubdirs, p_inode.size = fs[ri[inodekey(p_inode.ino)]].size, dent = negdentry(str), p_inode.directory, fs[ri[inodekey(p_inode.ino)]].directory, fo.inodes?, ro.inodes?, file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, ro), replay-cons-strong(fs, ri, ro, fi, fo, log), ri-inj(fi), ri-inj(ri), ubifs-cons(fs, ri, ro, fi, fo, log), inodekey(p_inode.ino) ∈ ri, p_inode.nlink ≠ 0 ∨ p_inode.ino = ROOT_INO ⊦ ⟪if pre-mkdir(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 + 1, p_inode.size + 1); nd0 := dentrynode(key0, key.ino); nd := inodenode(key, md, true, 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, ro, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro)), inodekey(p_inode.ino) ∈ ro, dentrykey(p_inode.ino, str) ∈ ri
Used simplifier rules: mkdir: ⊦ ;