def pk.ug

bend-osdev-pkcs7@0.1.0.0 · PROOF.bend:1304

import Base
import bend-osdev-bytes@0.1.1.0/bytes.bend as B
import bend-osdev-mode-core@0.1.0.0/mode_core.bend as M
import bend-osdev-pkcs7@0.1.0.0/pkcs7.bend as P

1304# Pkcs7.unpad's checks and its unpad.oct, with what they compute as
1305# arguments, so that each can be rewritten on its own
1306def pk.ug(+bs: Nat, +m: B.Octets, +n: Nat, +md: Nat) -> Result<&2, &2, M.CmError, B.Octets>:
1307  do Result<&2, &2, M.CmError, B.Octets>:
1308    M.cm.check(Nat.is_lt(0n, n), M.CmTooShort{n})
1309    M.cm.check(Nat.is_eq(md, 0n), M.CmNotBlockMultiple{n})
1310    P.pkcs7.unpad.oct(bs, m, n)