--- a/MCFtpRepository.st Wed Feb 12 15:53:34 2014 +0100
+++ b/MCFtpRepository.st Wed Feb 12 15:53:35 2014 +0100
@@ -8,7 +8,17 @@
!
-!MCFtpRepository class methodsFor:'as yet unclassified'!
+!MCFtpRepository class methodsFor:'instance creation'!
+
+host: host directory: directory user: user password: password
+ ^ self new
+ host: host;
+ directory: directory;
+ user: user;
+ password: password
+! !
+
+!MCFtpRepository class methodsFor:'queries'!
creationTemplate
^
@@ -24,16 +34,26 @@
^ 'FTP'
!
-host: host directory: directory user: user password: password
- ^ self new
- host: host;
- directory: directory;
- user: user;
- password: password
+templateCreationSelector
+ ^ #host:directory:user:password:
+! !
+
+!MCFtpRepository methodsFor:'accessing'!
+
+directory: dirPath
+ directory := dirPath
!
-templateCreationSelector
- ^ #host:directory:user:password:
+host: hostname
+ host := hostname
+!
+
+password: passwordString
+ password := passwordString
+!
+
+user: userString
+ user := userString
! !
!MCFtpRepository methodsFor:'as yet unclassified'!
@@ -46,14 +66,6 @@
^ [aBlock value: client] ensure: [client close]
!
-directory: dirPath
- directory := dirPath
-!
-
-host: hostname
- host := hostname
-!
-
parseDirectoryListing: aString
| stream files line tokens |
stream := aString readStream.
@@ -63,14 +75,6 @@
tokens := line findTokens: ' '.
tokens size > 2 ifTrue: [files add: tokens last]].
^ files
-!
-
-password: passwordString
- password := passwordString
-!
-
-user: userString
- user := userString
! !
!MCFtpRepository methodsFor:'displaying'!
@@ -117,13 +121,14 @@
!MCFtpRepository class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFtpRepository.st,v 1.5 2012-09-11 21:22:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFtpRepository.st,v 1.6 2014-02-12 14:53:35 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFtpRepository.st,v 1.5 2012-09-11 21:22:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFtpRepository.st,v 1.6 2014-02-12 14:53:35 cg Exp $'
!
version_SVN
- ^ '§Id: MCFtpRepository.st 5 2010-08-29 07:30:29Z vranyj1 §'
+ ^ '$Id: MCFtpRepository.st,v 1.6 2014-02-12 14:53:35 cg Exp $'
! !
+