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

uui: remove trailing spaces.

db4
John Benediktsson 2013-03-06 09:20:59 -08:00
parent 45f49775ec
commit fe9448533f
1 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
basis/uuid/uuid.factor
View File

@ -7,78 +7,76 @@ IN: uuid
<PRIVATE <PRIVATE
: (timestamp) ( -- time_high time_mid time_low ) : (timestamp) ( -- time_high time_mid time_low )
! 0x01b21dd213814000L is the number of 100-ns intervals ! 0x01b21dd213814000L is the number of 100-ns intervals
! between the UUID epoch 1582-10-15 00:00:00 and the ! between the UUID epoch 1582-10-15 00:00:00 and the
! Unix epoch 1970-01-01 00:00:00. ! Unix epoch 1970-01-01 00:00:00.
gmt timestamp>micros 10 * 0x01b21dd213814000 + gmt timestamp>micros 10 * 0x01b21dd213814000 +
[ -48 shift 0x0fff bitand ] [ -48 shift 0x0fff bitand ]
[ -32 shift 0xffff bitand ] [ -32 shift 0xffff bitand ]
[ 0xffffffff bitand ] [ 0xffffffff bitand ]
tri ; tri ;
: (hardware) ( -- address ) : (hardware) ( -- address )
! Choose a random 48-bit number with eighth bit ! Choose a random 48-bit number with eighth bit
! set to 1 (as recommended in RFC 4122) ! set to 1 (as recommended in RFC 4122)
48 random-bits 0x010000000000 bitor ; 48 random-bits 0x010000000000 bitor ;
: (clock) ( -- clockseq ) : (clock) ( -- clockseq )
! Choose a random 14-bit number ! Choose a random 14-bit number
14 random-bits ; 14 random-bits ;
: <uuid> ( address clockseq time_high time_mid time_low -- n ) : <uuid> ( address clockseq time_high time_mid time_low -- n )
96 shift 96 shift
[ 80 shift ] dip bitor [ 80 shift ] dip bitor
[ 64 shift ] dip bitor [ 64 shift ] dip bitor
[ 48 shift ] dip bitor [ 48 shift ] dip bitor
bitor ; bitor ;
: (version) ( n version -- n' ) : (version) ( n version -- n' )
[ [
0xc000 48 shift bitnot bitand 0xc000 48 shift bitnot bitand
0x8000 48 shift bitor 0x8000 48 shift bitor
0xf000 64 shift bitnot bitand 0xf000 64 shift bitnot bitand
] dip 76 shift bitor ; ] dip 76 shift bitor ;
: uuid>string ( n -- string ) : uuid>string ( n -- string )
>hex 32 CHAR: 0 pad-head >hex 32 CHAR: 0 pad-head
[ CHAR: - 20 ] dip insert-nth [ CHAR: - 20 ] dip insert-nth
[ CHAR: - 16 ] dip insert-nth [ CHAR: - 16 ] dip insert-nth
[ CHAR: - 12 ] dip insert-nth [ CHAR: - 12 ] dip insert-nth
[ CHAR: - 8 ] dip insert-nth ; [ CHAR: - 8 ] dip insert-nth ;
: string>uuid ( string -- n ) : string>uuid ( string -- n )
[ CHAR: - = not ] filter hex> ; [ CHAR: - = not ] filter hex> ;
PRIVATE> PRIVATE>
: uuid-parse ( string -- byte-array ) : uuid-parse ( string -- byte-array )
string>uuid 16 >be ; string>uuid 16 >be ;
: uuid-unparse ( byte-array -- string ) : uuid-unparse ( byte-array -- string )
be> uuid>string ; be> uuid>string ;
: uuid1 ( -- string ) : uuid1 ( -- string )
(hardware) (clock) (timestamp) <uuid> (hardware) (clock) (timestamp) <uuid>
1 (version) uuid>string ; 1 (version) uuid>string ;
: uuid3 ( namespace name -- string ) : uuid3 ( namespace name -- string )
[ uuid-parse ] dip append [ uuid-parse ] dip append
md5 checksum-bytes 16 short head be> md5 checksum-bytes 16 short head be>
3 (version) uuid>string ; 3 (version) uuid>string ;
: uuid4 ( -- string ) : uuid4 ( -- string )
128 random-bits 128 random-bits
4 (version) uuid>string ; 4 (version) uuid>string ;
: uuid5 ( namespace name -- string ) : uuid5 ( namespace name -- string )
[ uuid-parse ] dip append [ uuid-parse ] dip append
sha1 checksum-bytes 16 short head be> sha1 checksum-bytes 16 short head be>
5 (version) uuid>string ; 5 (version) uuid>string ;
CONSTANT: NAMESPACE_DNS "6ba7b810-9dad-11d1-80b4-00c04fd430c8" CONSTANT: NAMESPACE_DNS "6ba7b810-9dad-11d1-80b4-00c04fd430c8"
CONSTANT: NAMESPACE_URL "6ba7b811-9dad-11d1-80b4-00c04fd430c8" CONSTANT: NAMESPACE_URL "6ba7b811-9dad-11d1-80b4-00c04fd430c8"
CONSTANT: NAMESPACE_OID "6ba7b812-9dad-11d1-80b4-00c04fd430c8" CONSTANT: NAMESPACE_OID "6ba7b812-9dad-11d1-80b4-00c04fd430c8"
CONSTANT: NAMESPACE_X500 "6ba7b814-9dad-11d1-80b4-00c04fd430c8" CONSTANT: NAMESPACE_X500 "6ba7b814-9dad-11d1-80b4-00c04fd430c8"