apply-delta ( delta -- )

Vocabulary

git

Inputs

delta

an object

Outputs

None

Definition

USING: accessors combinators io kernel ;

IN: git

: apply-delta ( delta -- )
    {
        { [ dup insert? ] [ bytes>> write ] }
        {
            [ dup copy? ]
            [
                [ offset>> seek-absolute seek-input ]
                [ size>> read write ] bi
            ]
        }
        [ unknown-delta-operation ]
    } cond ;