| c_inode.ino = fs[ri[dentrykey(ino, str)]].ino, p_inode.nlink = fs[ri[inodekey(p_inode.ino)]].nlink, c_inode.nlink = fs[ri[inodekey(c_inode.ino)]].nlink, p_inode.nsubdirs = fs[ri[inodekey(p_inode.ino)]].nsubdirs, c_inode.nsubdirs = fs[ri[inodekey(c_inode.ino)]].nsubdirs, p_inode.size = fs[ri[inodekey(p_inode.ino)]].size, new_dent = negdentry(str0), fs[ri[inodekey(ino)]].directory, 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), dentrykey(ino, str) ∈ ri, inodekey(p_inode.ino) ∈ ri, inodekey(c_inode.ino) ∈ ri, inodekey(ino) ∈ ri, ¬ c_inode.directory, ¬ fs[ri[inodekey(c_inode.ino)]].directory, ¬ inodekey(c_inode.ino) ∈ ro, ¬ dentrykey(p_inode.ino, str0) ∈ ri, ¬ inodekey(p_inode.ino) ∈ ro, ¬ inodekey(ino) ∈ ro, fs[ri[inodekey(ino)]].nlink ≠ 0 ∨ ino = ROOT_INO, p_inode.nlink ≠ 0 ∨ p_inode.ino = ROOT_INO ⊦ ⟪aubifs_link#(mkdentry(str, fs[ri[dentrykey(ino, str)]].ino), fi, ro, fo; p_inode, c_inode, new_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)) |
c_inode.ino = fs[ri[dentrykey(ino, str)]].ino, c_inode.nlink = fs[ri[inodekey(c_inode.ino)]].nlink, p_inode.nlink = fs[ri[inodekey(p_inode.ino)]].nlink, c_inode.nsubdirs = fs[ri[inodekey(c_inode.ino)]].nsubdirs, p_inode.nsubdirs = fs[ri[inodekey(p_inode.ino)]].nsubdirs, p_inode.size = fs[ri[inodekey(p_inode.ino)]].size, new_dent = negdentry(str0), old_dent = mkdentry(str, fs[ri[dentrykey(ino, str)]].ino), fs[ri[dentrykey(ino, str)]].dentry?, p_inode.directory, fs[ri[inodekey(p_inode.ino)]].directory, fs[ri[inodekey(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), ri[dentrykey(ino, str)] ∈ fs, inodekey(ino) ∈ ri, inodekey(c_inode.ino) ∈ ri, inodekey(p_inode.ino) ∈ ri, dentrykey(ino, str) ∈ ri, p_inode.nlink ≠ 0 ∨ p_inode.ino = ROOT_INO, fs[ri[inodekey(ino)]].nlink ≠ 0 ∨ ino = ROOT_INO ⊦ ⟪if pre-link(p_inode, c_inode, old_dent, new_dent, fs, ri, ro) then choose ino, adr1, adr0, adr, key1, key0, key, nd1, nd0, nd with ino = c_inode.ino in {key1 := inodekey(p_inode.ino); key0 := dentrykey(p_inode.ino, new_dent.name); key := inodekey(ino); nd1 := inodenode(key1, p_inode.meta, p_inode.directory, p_inode.nlink, p_inode.nsubdirs, p_inode.size + 1); nd0 := dentrynode(key0, ino); nd := inodenode(key, c_inode.meta, c_inode.directory, c_inode.nlink + 1, c_inode.nsubdirs, c_inode.size); 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); new_dent := mkdentry(new_dent.name, ino); p_inode := mkinode(p_inode.ino, nd1.meta, nd1.directory, nd1.nlink, nd1.nsubdirs, nd1.size); c_inode := mkinode(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)), c_inode.directory, fs[ri[inodekey(c_inode.ino)]].directory, inodekey(c_inode.ino) ∈ ro, dentrykey(p_inode.ino, str0) ∈ ri, inodekey(p_inode.ino) ∈ ro, inodekey(ino) ∈ ro
Used simplifier rules: link: ⊦ ;%dentry-ubifs-cons: ⊦ dentrykey(ino, str) ∈ ri ∧ ri[dentrykey(ino, str)] ∈ fs ∧ ubifs-cons(fs, ri, ro, fi, fo, log) → fs[ri[dentrykey(ino, str)]].dentry?;% ⊦ key ∈ ri ∧ ubifs-cons(fs, ri, ro, fi, fo, log) → ri[key] ∈ fs; (ss)