--- a/AbstrSCMgr.st Thu Dec 07 11:16:00 1995 +0100
+++ b/AbstrSCMgr.st Thu Dec 07 12:49:25 1995 +0100
@@ -435,6 +435,54 @@
"Modified: 25.11.1995 / 11:56:16 / cg"
!
+revisionLogOf:aClass fromRevision:rev1
+ "return info about the repository container and
+ (part of) the revisionlog as a collection of revision entries.
+ Return nil on failure.
+
+ The returned information is a structure (IdentityDictionary)
+ filled with:
+ #container -> the RCS container file name
+ #filename -> the actual source file name
+ #newestRevision -> the revisionString of the newest revision
+ #numberOfRevisions -> the number of revisions in the container
+ #revisions -> collection of per-revision info (see below)
+
+ for some classes, additional info is returned:
+
+ #renamed -> true if the class has been renamed or copied
+ and the sourceInfo is from the previous one
+ #expectedFileName -> the filename we would expect (i.e. for the new class)
+
+ rev1 / rev2 specify from which revisions a logEntry is wanted:
+ If rev1 is nil, the first revision is the initial revision
+ otherwise, the log starts with that revision.
+ If rev2 is nil, the last revision is the newest revision
+ otherwise, the log ends with that revision.
+ If both are nil, no logEntries are extracted (i.e. only the header).
+
+ per revision info consists of one record per revision:
+
+ #revision -> the revision string
+ #author -> who checked that revision into the repository
+ #date -> when was it checked in
+ #state -> the RCS state
+ #numberOfChangedLines -> the number of changed line w.r.t the previous
+
+ revisions are ordered newest first
+ (i.e. the last entry is for the initial revision; the first for the most recent one)
+ "
+
+ ^ self revisionLogOf:aClass fromRevision:rev1 toRevision:nil
+
+ "
+ SourceCodeManager revisionLogOf:Array fromRevision:'1.40'
+ "
+
+ "Created: 6.11.1995 / 18:56:00 / cg"
+ "Modified: 7.12.1995 / 11:51:15 / cg"
+!
+
revisionLogOf:aClass fromRevision:rev1 toRevision:rev2
"return info about the repository container and
(part of) the revisionlog as a collection of revision entries.
@@ -607,4 +655,4 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.25 1995-12-07 10:15:52 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.26 1995-12-07 11:49:25 cg Exp $'! !
--- a/AbstractSourceCodeManager.st Thu Dec 07 11:16:00 1995 +0100
+++ b/AbstractSourceCodeManager.st Thu Dec 07 12:49:25 1995 +0100
@@ -435,6 +435,54 @@
"Modified: 25.11.1995 / 11:56:16 / cg"
!
+revisionLogOf:aClass fromRevision:rev1
+ "return info about the repository container and
+ (part of) the revisionlog as a collection of revision entries.
+ Return nil on failure.
+
+ The returned information is a structure (IdentityDictionary)
+ filled with:
+ #container -> the RCS container file name
+ #filename -> the actual source file name
+ #newestRevision -> the revisionString of the newest revision
+ #numberOfRevisions -> the number of revisions in the container
+ #revisions -> collection of per-revision info (see below)
+
+ for some classes, additional info is returned:
+
+ #renamed -> true if the class has been renamed or copied
+ and the sourceInfo is from the previous one
+ #expectedFileName -> the filename we would expect (i.e. for the new class)
+
+ rev1 / rev2 specify from which revisions a logEntry is wanted:
+ If rev1 is nil, the first revision is the initial revision
+ otherwise, the log starts with that revision.
+ If rev2 is nil, the last revision is the newest revision
+ otherwise, the log ends with that revision.
+ If both are nil, no logEntries are extracted (i.e. only the header).
+
+ per revision info consists of one record per revision:
+
+ #revision -> the revision string
+ #author -> who checked that revision into the repository
+ #date -> when was it checked in
+ #state -> the RCS state
+ #numberOfChangedLines -> the number of changed line w.r.t the previous
+
+ revisions are ordered newest first
+ (i.e. the last entry is for the initial revision; the first for the most recent one)
+ "
+
+ ^ self revisionLogOf:aClass fromRevision:rev1 toRevision:nil
+
+ "
+ SourceCodeManager revisionLogOf:Array fromRevision:'1.40'
+ "
+
+ "Created: 6.11.1995 / 18:56:00 / cg"
+ "Modified: 7.12.1995 / 11:51:15 / cg"
+!
+
revisionLogOf:aClass fromRevision:rev1 toRevision:rev2
"return info about the repository container and
(part of) the revisionlog as a collection of revision entries.
@@ -607,4 +655,4 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.25 1995-12-07 10:15:52 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.26 1995-12-07 11:49:25 cg Exp $'! !