def step.read

bend-kit-tar@0.3.0.0 · tar.bend:525

import Base
import bend-kit-bytes@0.3.3.0/bytes.bend as Bytes

525def step.read(pax: Pax, acc: List<&1, Entry>, r: Bytes.Cursor & Maybe<&2, Hdr>) -> Bytes.Cursor & St:
526  (c, m) = r
527  match m:
528    case Some{Hdr{+sum, +ok, +size, +size_ok, +t}}:
529      step.zero(U32.is_eq(sum, 0), ok, size, size_ok, t, c, pax, acc)
530    case None{}:
531      (c, SFail{})