Rebol Programming/cvs-version
USAGE: edit
CVS-VERSION str
DESCRIPTION: edit
Converts CVS version number.
CVS-VERSION is a function value.
ARGUMENTS edit
- str -- (Type: any)
SOURCE CODE edit
cvs-version: func [ "Converts CVS version number." str /local rev ver ][ parse str [ thru #":" copy ver to #"." skip copy rev [to #"." | to #" "] ( rev: to-integer trim rev ver: to-integer (to-integer trim ver) + (rev / 256) rev: rev // 256 str: to-tuple reduce [ver rev] ) ] str ]