git-object-id ( filename rev -- id/f )

Vocabulary

vocabs.git.private

Inputs

filename	an object
rev	an object

Outputs

id/f

an object

Definition

USING: io io.directories io.encodings.ascii io.launcher
io.pathnames kernel sequences splitting ;

IN: vocabs.git.private

: git-object-id ( filename rev -- id/f )
    [ [ parent-directory ] [ file-name ] bi ] dip swap
    [ [ [ { "git" "ls-tree" } ] ] dip [ suffix ] curry compose ]
    dip [
        suffix ascii [
            readln
            [ " " split1 nip " " split1 nip "\t" split1 drop ]
            [ f ] if*
        ] with-process-reader
    ] curry compose with-directory ;