Mercurial Mercurial > hg > stx-goodies-monticello / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
categories
authorClaus Gittinger <cg@exept.de>
Wed, 12 Feb 2014 15:53:30 +0100
changeset 899 e5b992f2ff33
parent 898 728e7cbc9af0
child 900 34c44e0f7cee
categories
MCSMReleaseRepository.st file | annotate | diff | comparison | revisions 
--- a/MCSMReleaseRepository.st	Fri Sep 20 01:15:27 2013 +0200
+++ b/MCSMReleaseRepository.st	Wed Feb 12 15:53:30 2014 +0100
@@ -8,7 +8,13 @@
 !
 
 
-!MCSMReleaseRepository class methodsFor:'as yet unclassified'!
+!MCSMReleaseRepository class methodsFor:'instance creation'!
+
+package: packageString user: userString password: passString
+	^ self basicNew initializeWithPackage: packageString user: userString password: passString
+! !
+
+!MCSMReleaseRepository class methodsFor:'queries'!
 
 creationTemplate
 	^
@@ -21,20 +27,16 @@
 
 description
 	^ 'SqueakMap Release'
-!
+! !
 
-package: packageString user: userString password: passString
-	^ self basicNew initializeWithPackage: packageString user: userString password: passString
+!MCSMReleaseRepository methodsFor:'accessing'!
+
+description
+	^ 'sm://', packageName
 ! !
 
 !MCSMReleaseRepository methodsFor:'as yet unclassified'!
 
-basicStoreVersion: aVersion
-	| url |
-	url := self uploadVersion: aVersion.
-	self releaseVersion: aVersion url: url
-!
-
 checkResult: resultString
 (#( 'HTTP/1.1 201 ' 'HTTP/1.1 200 ' 'HTTP/1.0 201 ' 'HTTP/1.0 200 ')
 		anySatisfy: [:code | resultString beginsWith: code ])
@@ -42,17 +44,6 @@
 
 !
 
-description
-	^ 'sm://', packageName
-!
-
-initializeWithPackage: packageString user: userString password: passString
-	packageName := packageString.
-	user := userString.
-	password := passString.
-
-!
-
 releaseVersion: aVersion url: urlString
 	| result |
 	result := HTTPSocket
@@ -71,13 +62,6 @@
 
 !
 
-stringForVersion: aVersion
-	| stream |
-	stream := RWBinaryOrTextStream on: String new.
-	aVersion fileOutOn: stream.
-	^ stream contents
-!
-
 uploadVersion: aVersion
 	| result stream |
 	result := HTTPSocket
@@ -91,16 +75,43 @@
 	^ 'http://', stream upToEnd
 ! !
 
+!MCSMReleaseRepository methodsFor:'initialization'!
+
+initializeWithPackage: packageString user: userString password: passString
+	packageName := packageString.
+	user := userString.
+	password := passString.
+
+! !
+
+!MCSMReleaseRepository methodsFor:'printing & storing'!
+
+basicStoreVersion: aVersion
+	| url |
+	url := self uploadVersion: aVersion.
+	self releaseVersion: aVersion url: url
+! !
+
+!MCSMReleaseRepository methodsFor:'queries'!
+
+stringForVersion: aVersion
+	| stream |
+	stream := RWBinaryOrTextStream on: String new.
+	aVersion fileOutOn: stream.
+	^ stream contents
+! !
+
 !MCSMReleaseRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.4 2012-09-11 21:28:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.5 2014-02-12 14:53:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.4 2012-09-11 21:28:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.5 2014-02-12 14:53:30 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: MCSMReleaseRepository.st 5 2010-08-29 07:30:29Z vranyj1 §'
+    ^ '$Id: MCSMReleaseRepository.st,v 1.5 2014-02-12 14:53:30 cg Exp $'
 ! !
+
hg/stx-goodies-monticello