equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libbasic2' }" |
14 "{ Package: 'stx:libbasic2' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 ByteArray variableByteSubclass:#UUID |
18 ByteArray variableByteSubclass:#UUID |
15 instanceVariableNames:'' |
19 instanceVariableNames:'' |
16 classVariableNames:'CachedMACAddress Lock SequenceNumber LastTime Increment |
20 classVariableNames:'CachedMACAddress Lock SequenceNumber LastTime Increment |
17 NameSpaceToUuidBytes' |
21 NameSpaceToUuidBytes' |
196 - e.g. an UUID fetched from the Windows OS" |
200 - e.g. an UUID fetched from the Windows OS" |
197 |
201 |
198 |uuid| |
202 |uuid| |
199 |
203 |
200 uuid := self fromBytes:aByteArray. |
204 uuid := self fromBytes:aByteArray. |
201 self isBigEndian ifFalse:[ |
205 IsBigEndian ifFalse:[ |
202 self adjustByteOrder:uuid. |
206 self adjustByteOrder:uuid. |
203 ]. |
207 ]. |
204 ^ uuid. |
208 ^ uuid. |
205 |
209 |
206 " |
210 " |
533 Use this only to pass the UUID to the OS (Windows)" |
537 Use this only to pass the UUID to the OS (Windows)" |
534 |
538 |
535 |bytes| |
539 |bytes| |
536 |
540 |
537 bytes := self asBytes. |
541 bytes := self asBytes. |
538 self class isBigEndian ifFalse:[ |
542 IsBigEndian ifFalse:[ |
539 self class adjustByteOrder:bytes. |
543 self class adjustByteOrder:bytes. |
540 ]. |
544 ]. |
541 ^ bytes. |
545 ^ bytes. |
542 ! |
546 ! |
543 |
547 |
899 ! ! |
903 ! ! |
900 |
904 |
901 !UUID class methodsFor:'documentation'! |
905 !UUID class methodsFor:'documentation'! |
902 |
906 |
903 version |
907 version |
904 ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.47 2013-10-09 08:01:45 stefan Exp $' |
908 ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.48 2015-04-24 12:18:00 stefan Exp $' |
905 ! |
909 ! |
906 |
910 |
907 version_CVS |
911 version_CVS |
908 ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.47 2013-10-09 08:01:45 stefan Exp $' |
912 ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.48 2015-04-24 12:18:00 stefan Exp $' |
909 ! ! |
913 ! ! |
910 |
914 |
911 |
915 |
912 UUID initialize! |
916 UUID initialize! |