--- a/ChangeSet.st Wed Jan 28 21:44:19 2015 +0100
+++ b/ChangeSet.st Sat Jan 31 15:23:47 2015 +0100
@@ -445,6 +445,10 @@
fromBeeStream:aStream while:aConditionBlock
"build a changeSet from a Bee Smalltalk .bsc stream, containing chunks
+ Pass each change to the conditionBlock and stop whenever that
+ returns false. This allows skipping reamaining chunks, and speeding up
+ reading, if only parts need to be extracted
+ (for example: only documentation methods).
Return the changeSet."
|changeSet|
@@ -501,14 +505,14 @@
!
fromDirectory: aStringOfFilename asSmalltalkXPackage: isSmalltalkXPackage
- "Read all .st files (non-recursively) from `aStringOrFilename`
- Return the resuling ChangeSet.
-
- If `isSmalltalkXPacklage` is true, then treat directory as Smalltalk/X
- package directory as checked out from a VCS. Read only those files
- present in abbrev.stc (if present).
- "
- | directory abbrevFile filter |
+ "Read all .st files (non-recursively) from `aStringOrFilename`
+ Return the resuling ChangeSet.
+
+ If `isSmalltalkXPacklage` is true, then treat directory as Smalltalk/X
+ package directory as checked out from a VCS. Read only those files
+ present in abbrev.stc (if present)."
+
+ | directory abbrevFile filter |
directory := aStringOfFilename asFilename.
(isSmalltalkXPackage and:[(abbrevFile := directory asFilename / 'abbrev.stc') exists]) ifTrue:[
@@ -532,9 +536,9 @@
fromDirectory: aStringOrFilename filter: filter
"Read all files (non-recursively) from `aStringOrFilename` for which the
filter return true. Return the resuling ChangeSet"
-
| d cs files step |
+
d := aStringOrFilename asFilename.
cs := self new.
files := (d directoryContentsAsFilenames) select:filter.
@@ -567,7 +571,11 @@
!
fromDolphinPACStream:aStream while:aConditionBlock
- "build a changeSet from a stream, containing dolphin pac file chunks."
+ "build a changeSet from a stream, containing dolphin pac file chunks.
+ Pass each change to the conditionBlock and stop whenever that
+ returns false. This allows skipping reamaining chunks, and speeding up
+ reading, if only parts need to be extracted
+ (for example: only documentation methods)."
|changeSet|
@@ -585,6 +593,10 @@
!
fromFile:filenameOrString
+ "build a changeSet from a file, which contains chunks.
+ (i.e. either a classes sourceFile or a change-file).
+ Return the changeSet."
+
|filename mime stream changeSet|
filename := filenameOrString asFilename.
@@ -641,8 +653,8 @@
!
fromFileOrDirectory: fileOrDirectory
-
| f |
+
f := fileOrDirectory asFilename.
^(f isDirectory
ifTrue:[self fromDirectory: f]
@@ -651,7 +663,7 @@
yourself.
"
- ChangeSet fromFileOrDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
+ ChangeSet fromFileOrDirectory: (Smalltalk getPackageDirectoryForPackage:'stx:libbasic')
"
"Created: / 02-04-2011 / 00:50:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -668,6 +680,10 @@
fromSIFStream:aStream while:aConditionBlock
"build a changeSet from a SIF stream, containing chunks
in smalltalk interchange format.
+ Pass each change to the conditionBlock and stop whenever that
+ returns false. This allows skipping reamaining chunks, and speeding up
+ reading, if only parts need to be extracted
+ (for example: only documentation methods).
Return the changeSet."
|changeSet|
@@ -705,6 +721,10 @@
fromStream:aStream while:aConditionBlock
"build a changeSet from a stream, containing chunks.
(i.e. either a classes sourceFile or a change-file).
+ Pass each change to the conditionBlock and stop whenever that
+ returns false. This allows skipping reamaining chunks, and speeding up
+ reading, if only parts need to be extracted
+ (for example: only documentation methods).
Return the changeSet."
|changeSet|
@@ -763,7 +783,6 @@
"Created: / 27.10.1997 / 13:52:54 / cg"
! !
-
!ChangeSet class methodsFor:'Compatibility-VW'!
component: component definition: anObject change: changeSymbol
@@ -4171,7 +4190,7 @@
!
version_SVN
- ^ '$Id: ChangeSet.st,v 1.253 2014-12-31 09:06:59 cg Exp $'
+ ^ '$Id: ChangeSet.st,v 1.254 2015-01-31 14:23:47 cg Exp $'
! !
!ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
@@ -4850,11 +4869,11 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.253 2014-12-31 09:06:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.254 2015-01-31 14:23:47 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.253 2014-12-31 09:06:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.254 2015-01-31 14:23:47 cg Exp $'
!
version_HG
@@ -4863,6 +4882,6 @@
!
version_SVN
- ^ '$Id: ChangeSet.st,v 1.253 2014-12-31 09:06:59 cg Exp $'
+ ^ '$Id: ChangeSet.st,v 1.254 2015-01-31 14:23:47 cg Exp $'
! !