--- a/MCHttpRepository.st Wed Feb 12 15:53:39 2014 +0100
+++ b/MCHttpRepository.st Wed Feb 12 15:53:40 2014 +0100
@@ -15,7 +15,16 @@
! !
-!MCHttpRepository class methodsFor:'as yet unclassified'!
+!MCHttpRepository class methodsFor:'instance creation'!
+
+location: location user: user password: password
+ ^ self new
+ location: location;
+ user: user;
+ password: password
+! !
+
+!MCHttpRepository class methodsFor:'queries'!
creationTemplate
^self creationTemplateLocation: 'http://www.squeaksource.com/'
@@ -39,20 +48,9 @@
description
^ 'HTTP'
-!
-
-location: location user: user password: password
- ^ self new
- location: location;
- user: user;
- password: password
! !
-!MCHttpRepository methodsFor:'as yet unclassified'!
-
-asCreationTemplate
- ^self class creationTemplateLocation: location user: user password: password
-!
+!MCHttpRepository methodsFor:'accessing'!
location
^location
@@ -68,18 +66,6 @@
ifFalse: [location, '/']
!
-parseFileNamesFromStream: aStream
- | names fullName |
- names := OrderedCollection new.
- [aStream atEnd] whileFalse:
- [[aStream upTo: $<. {$a. $A. nil} includes: aStream next] whileFalse.
- aStream upTo: $".
- aStream atEnd ifFalse: [
- fullName := aStream upTo: $".
- names add: fullName unescapePercents]].
- ^ names
-!
-
password
self userAndPasswordFromSettingsDo: [:usr :pwd | ^pwd].
@@ -104,12 +90,6 @@
password := passwordString
!
-urlForFileNamed: aString
- ^ self locationWithTrailingSlash, aString utf8Encoded
-
- "Modified: / 14-09-2010 / 19:32:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
user
self userAndPasswordFromSettingsDo: [:usr :pwd | ^usr].
"not in settings"
@@ -118,6 +98,24 @@
user: userString
user := userString
+! !
+
+!MCHttpRepository methodsFor:'as yet unclassified'!
+
+asCreationTemplate
+ ^self class creationTemplateLocation: location user: user password: password
+!
+
+parseFileNamesFromStream: aStream
+ | names fullName |
+ names := OrderedCollection new.
+ [aStream atEnd] whileFalse:
+ [[aStream upTo: $<. {$a. $A. nil} includes: aStream next] whileFalse.
+ aStream upTo: $".
+ aStream atEnd ifFalse: [
+ fullName := aStream upTo: $".
+ names add: fullName unescapePercents]].
+ ^ names
!
userAndPasswordFromSettingsDo: aBlock
@@ -179,6 +177,14 @@
"Created: / 14-09-2010 / 23:20:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!MCHttpRepository methodsFor:'queries'!
+
+urlForFileNamed: aString
+ ^ self locationWithTrailingSlash, aString utf8Encoded
+
+ "Modified: / 14-09-2010 / 19:32:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!MCHttpRepository methodsFor:'required'!
allFileNames
@@ -229,14 +235,14 @@
!MCHttpRepository class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.6 2013-04-03 19:51:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.7 2014-02-12 14:53:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.6 2013-04-03 19:51:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.7 2014-02-12 14:53:40 cg Exp $'
!
version_SVN
- ^ '§Id: MCHttpRepository.st 13 2010-09-16 14:56:21Z vranyj1 §'
+ ^ '$Id: MCHttpRepository.st,v 1.7 2014-02-12 14:53:40 cg Exp $'
! !