first-semver-slot ( semver -- class )

Vocabulary

semver

Inputs

semver

an object

Outputs

class

an object

Definition

USING: accessors combinators kernel math sequences ;

IN: semver

: first-semver-slot ( semver -- class )
    {
        { [ dup major>> 0 > ] [ drop major ] }
        { [ dup minor>> 0 > ] [ drop minor ] }
        { [ dup patch>> 0 > ] [ drop patch ] }
        { [ dup prerelease>> length 0 > ] [ drop prerelease ] }
        { [ dup build>> length 0 > ] [ drop build ] }
        [ drop major ]
    } cond ;