parse-dot-git-file ( path -- path' )

Vocabulary

git

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.encodings.utf8 io.files kernel sequences splitting ;

IN: git

: parse-dot-git-file ( path -- path' )
    dup utf8 file-lines ?first "gitdir: " ?head
    [ nip ] [ drop unknown-dot-git ] if ;