| # buf-opt0.buf = VFS_PAGE_SIZE, 0 = fs[ri[inodekey(m)]].nsubdirs, VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, adr4 = adr1, dirs = abs-dirs(fs, ri), files = abs-files(fs, ri), m0 = fs[ri[inodekey(m)]].nlink, nd = datanode(datakey(m, m2 / VFS_PAGE_SIZE), fill(datanode(datakey(m, m2 / VFS_PAGE_SIZE), buf-opt0.buf).data, zero, m2 % VFS_PAGE_SIZE, n0)), nd0 = inodenode(inodekey(m), md, false, m0, 0, n), nd1 = truncnode(inodekey(m), m2), ro = orphans(fs, ri), ro0 = orphans(fs, ri), datanode(datakey(m, m2 / VFS_PAGE_SIZE), buf-opt0.buf).data?, fo.inodes?, orphans(fs, ri).inodes?, buf-opt0.some?, 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, m2 % VFS_PAGE_SIZE + n0 ≤ # datanode(datakey(m, m2 / VFS_PAGE_SIZE), buf-opt0.buf).data, m2 ≤ n, asynced → boolvar4 ⊦ [if ri-cons(ri, fs) ∧ node-cons(nd1.key, nd1) ∧ node-cons(nd0.key, nd0) ∧ node-cons(nd.key, nd) then { choose adr1, adr2, adr3 with new(adr1 ' + (adr2 ' + adr3), fs) ∧ ¬ dups(adr1 ' + adr2 ' + adr3 ') in {adr4 := adr1, adr0 := adr2, adr := adr3; fs := fs[adr4, nd1][adr0, nd0][adr, nd], log := ((log + adr4) + adr0) + adr, err := ESUCCESS} ifnone err := ENOSPC or {fail#(; ; err); adr4 := ?, adr0 := ?, adr := ?}; boolvar := ?} else abort; key := datakey(m, m2 / VFS_PAGE_SIZE); boolvar4 := boolvar; if err = ESUCCESS then aubifs_core_index_store#(key, adr, fi, ro0, fo, fs, log, boolvar4; ri); pageno0 := m2 % VFS_PAGE_SIZE; nd0 := inodenode(inodekey(m), md, false, m0, 0, n); buf-opt := buf-opt0; boolvar3 := boolvar2; inode := mkinode(m, md, false, m0, 0, m2); if err = ESUCCESS then {aubifs_core_index_store#(inodekey(m), adr0, fi, ro0, fo, fs, log, boolvar4; ri); aubifs_core_index_truncate#(inodekey(m), min(n, m2), fi, ro0, fo, fs, log, boolvar4; ri); boolvar3 := true; inode := mkinode(inode.ino, nd0.meta, nd0.directory, nd0.nlink, nd0.nsubdirs, nd0.size); nd := datanode(key, buf-opt.buf); if boolvar3 then buf-opt := some((nd.data:= fill(nd.data, zero, pageno0, VFS_PAGE_SIZE - pageno0)).data)}] ( 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) → ⟨p_inode := mkinode(m, md, false, m0, 0, m2); afs_truncate#(n, m2 / VFS_PAGE_SIZE; buf-opt0, p_inode, boolvar2, 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 → boolvar4) ∧ buf-opt = buf-opt0 ∧ inode = p_inode ∧ (boolvar3 ↔ boolvar2) ∧ err = err0)), m2 % VFS_PAGE_SIZE = 0, VFS_PAGE_SIZE = 0, fs[ri[inodekey(m)]].directory |
# buf-opt0.buf = VFS_PAGE_SIZE, 0 = fs[ri[inodekey(m)]].nsubdirs, VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, adr4 = adr1, dirs = abs-dirs(fs, ri), files = abs-files(fs, ri), m0 = fs[ri[inodekey(m)]].nlink, nd = datanode(datakey(m, m2 / VFS_PAGE_SIZE), fill(datanode(datakey(m, m2 / VFS_PAGE_SIZE), buf-opt0.buf).data, zero, m2 % VFS_PAGE_SIZE, n0)), nd0 = inodenode(inodekey(m), md, false, m0, 0, n), nd1 = truncnode(inodekey(m), m2), ro = orphans(fs, ri), ro0 = orphans(fs, ri), datanode(datakey(m, m2 / VFS_PAGE_SIZE), buf-opt0.buf).data?, orphans(fs, ri).inodes?, fo.inodes?, buf-opt0.some?, 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, m2 ≤ n, m2 % VFS_PAGE_SIZE + n0 ≤ # datanode(datakey(m, m2 / VFS_PAGE_SIZE), buf-opt0.buf).data, asynced → boolvar4 ⊦ [ choose adr1, adr2, adr3 with new(adr1 ' + (adr2 ' + adr3), fs) ∧ ¬ dups(adr1 ' + adr2 ' + adr3 ') in {adr4 := adr1, adr0 := adr2, adr := adr3; fs := fs[adr4, nd1][adr0, nd0][adr, nd], log := ((log + adr4) + adr0) + adr, err := ESUCCESS} ifnone err := ENOSPC or {fail#(; ; err); adr4 := ?, adr0 := ?, adr := ?}; boolvar := ?; key := datakey(m, m2 / VFS_PAGE_SIZE); boolvar4 := boolvar; if err = ESUCCESS then aubifs_core_index_store#(key, adr, fi, ro0, fo, fs, log, boolvar4; ri); pageno0 := m2 % VFS_PAGE_SIZE; nd0 := inodenode(inodekey(m), md, false, m0, 0, n); buf-opt := buf-opt0; boolvar3 := boolvar2; inode := mkinode(m, md, false, m0, 0, m2); if err = ESUCCESS then {aubifs_core_index_store#(inodekey(m), adr0, fi, ro0, fo, fs, log, boolvar4; ri); aubifs_core_index_truncate#(inodekey(m), min(n, m2), fi, ro0, fo, fs, log, boolvar4; ri); boolvar3 := true; inode := mkinode(inode.ino, nd0.meta, nd0.directory, nd0.nlink, nd0.nsubdirs, nd0.size); nd := datanode(key, buf-opt.buf); if boolvar3 then buf-opt := some((nd.data:= fill(nd.data, zero, pageno0, VFS_PAGE_SIZE - pageno0)).data)}] ( 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) → ⟨p_inode := mkinode(m, md, false, m0, 0, m2); afs_truncate#(n, m2 / VFS_PAGE_SIZE; buf-opt0, p_inode, boolvar2, 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 → boolvar4) ∧ buf-opt = buf-opt0 ∧ inode = p_inode ∧ (boolvar3 ↔ boolvar2) ∧ err = err0)), m2 % VFS_PAGE_SIZE = 0, VFS_PAGE_SIZE = 0, fs[ri[inodekey(m)]].directory
Used simplifier rules: ⊦ ubifs-cons(fs, ri, ro, fi, fo, log) → ri-cons(ri, fs); (ss)% ⊦ truncnode(key, m).key = key; (s)% ⊦ node-cons(key0, truncnode(key1, n)) ↔ key0.inode?; (s)% ⊦ inodekey(m).inode?; (s)% ⊦ inodenode(key, md, boolvar, m, m0, m1).key = key; (s)%⊦ node-cons(key0, inodenode(key1, md, boolvar, n, n0, m)) ↔ key0.inode? ∧ key0.ino ≠ 0; (s)% ⊦ inodekey(m).ino = m; (s)% ⊦ datanode(key, buf).data = buf; (s)% ⊦ datanode(key, buf).key = key; (s)% ⊦ node-cons(key0, datanode(key1, buf)) ↔ key0.data?; (s)% ⊦ datakey(m, m0).data?; (s)% ⊦ VFS_PAGE_SIZE ≠ 0; (s)% ⊦ ubifs-cons(fs, ri, ro, fi, fo, log) → ¬ inodekey(0) ∈ ri; (s)