Changeset 771 for ccr/trunk/p

Timestamp:

May 20, 2010, 5:45:02 PM (15 years ago)

Author:

George Lilly

Message:

new UUID from Wally.

File:

• ccr/trunk/p/C0CUTIL.m (modified) (1 diff)

ccr/trunk/p/C0CUTIL.m

@@ -22 +22 @@
  Q
  ;
-UUID() ; GENERATE A RANDOM UUID (Version 4)
+UUID()  ; thanks to Wally for this.
+        N R,I,J,N 
+        S N="",R="" F  S N=N_$R(100000) Q:$L(N)>64 
+        F I=1:2:64 S R=R_$E("0123456789abcdef",($E(N,I,I+1)#16+1)) 
+        Q $E(R,1,8)_"-"_$E(R,9,12)_"-4"_$E(R,14,16)_"-"_$E("89ab",$E(N,17)#4+1)_$E(R,18,20)_"-"_$E(R,21,32)
+        ;
+OLDUUID() ; GENERATE A RANDOM UUID (Version 4)
  N I,J,ZS
  S ZS="0123456789abcdef" S J=""