steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add other comparison words

Maximilian Lupke 2010-02-22 21:29:37 +01:00
parent fe2b65d8d2
commit aa62a10f6f
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/semantic-versioning/semantic-versioning.factor
View File

@ -20,3 +20,18 @@ IN: semantic-versioning
{ [ drop 2dup [ length ] bi@ >=< dup +eq+ = not ] [ 2nip ] } { [ drop 2dup [ length ] bi@ >=< dup +eq+ = not ] [ 2nip ] }
[ drop [ first ] bi@ <=> ] [ drop [ first ] bi@ <=> ]
} cond ; } cond ;
: version< ( version1 version2 -- ? )
version<=> +lt+ = ;
: version<= ( version1 version2 -- ? )
version<=> [ +lt+ = ] [ +eq+ = ] either? ;
: version= ( version1 version2 -- ? )
version<=> +eq+ = ;
: version>= ( version1 version2 -- ? )
version<=> [ +gt+ = ] [ +eq+ = ] either? ;
: version> ( version1 version2 -- ? )
version<=> +gt+ = ;