Mercurial Mercurial > hg > stx-libbasic3 / 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.
added query for newestRevision string
authorClaus Gittinger <cg@exept.de>
Wed, 10 Apr 1996 23:47:49 +0200
changeset 207 9366df6c32ea
parent 206 ed078efb276d
child 208 943b0ed2fa1d
added query for newestRevision string
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Wed Apr 10 15:48:31 1996 +0200
+++ b/AbstrSCMgr.st	Wed Apr 10 23:47:49 1996 +0200
@@ -670,6 +670,24 @@
     "Modified: 9.12.1995 / 19:54:26 / cg"
 !
 
+newestRevisionOf:aClass
+    "return the newest revision (as string) found in the repository.
+     Return nil on failure."
+
+    |log|
+
+    log := self revisionLogOf:aClass.
+    log isNil ifTrue:[^ nil].
+    ^ log at:#newestRevision ifAbsent:nil
+
+    "
+     SourceCodeManager newestRevisionOf:Array       
+     SourceCodeManager newestRevisionOf:Connection 
+    "
+
+    "Modified: 10.4.1996 / 23:14:24 / cg"
+!
+
 revisionLogOf:aClass
     "return info about the repository container and
      the revisionlog as a collection of revision entries.
@@ -925,6 +943,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.51 1996-03-08 15:57:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.52 1996-04-10 21:47:49 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Wed Apr 10 15:48:31 1996 +0200
+++ b/AbstractSourceCodeManager.st	Wed Apr 10 23:47:49 1996 +0200
@@ -670,6 +670,24 @@
     "Modified: 9.12.1995 / 19:54:26 / cg"
 !
 
+newestRevisionOf:aClass
+    "return the newest revision (as string) found in the repository.
+     Return nil on failure."
+
+    |log|
+
+    log := self revisionLogOf:aClass.
+    log isNil ifTrue:[^ nil].
+    ^ log at:#newestRevision ifAbsent:nil
+
+    "
+     SourceCodeManager newestRevisionOf:Array       
+     SourceCodeManager newestRevisionOf:Connection 
+    "
+
+    "Modified: 10.4.1996 / 23:14:24 / cg"
+!
+
 revisionLogOf:aClass
     "return info about the repository container and
      the revisionlog as a collection of revision entries.
@@ -925,6 +943,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.51 1996-03-08 15:57:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.52 1996-04-10 21:47:49 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3