Merge branch 'dev'

glassdb · Dec 11, 2014 · 859cd29 · 859cd29
2 parents c0f1477 + 09d543a
commit 859cd29
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 1 deletion.
diff --git a/repository/Core.package/UUID.class/instance/asString36.st b/repository/Core.package/UUID.class/instance/asString36.st
@@ -0,0 +1,17 @@
+converting
+asString36
+	"Encode the UUID as a base 36 string using 0-9 and lowercase a-z.
+	This is the shortest representation still being able to work as
+	filenames etc since it does not depend on case nor characters
+	that might cause problems, and it fits into short filenames like on
+	the old MacOS HFS filesystem. The check for 36r is to make this code
+	work in versions before Squeak 3.8."
+
+	| num candidate |
+	num := 0.
+	1 to: self size do: [:i | num := num + ((256 raisedTo: i - 1) * (self at: i))].
+	candidate := num printStringBase: 36.
+	^((candidate beginsWith: '36r')
+			ifTrue: [candidate copyFrom: 4 to: candidate size]
+			ifFalse: [candidate]) asLowercase
+
diff --git a/repository/Core.package/UUID.class/methodProperties.json b/repository/Core.package/UUID.class/methodProperties.json
@@ -7,6 +7,7 @@
 		">" : "sig 01/03/2009 12:09",
 		">=" : "sig 01/03/2009 12:10",
 		"asString" : "dkh 06/05/2007 21:30",
+		"asString36" : "JohanBrichau 06/22/2013 09:25",
 		"asUUID:" : "dkh 06/05/2007 21:30",
 		"printHexAt:to:" : "dkh 06/05/2007 21:30",
 		"printOn:" : "dkh 06/05/2007 21:30",