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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 18 Nov 1995 18:15:30 +0100
changeset 75 ea3dcbdb0401
parent 74 0554ca14e971
child 76 df46581e46be
*** empty log message ***
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Thu Nov 16 13:44:09 1995 +0100
+++ b/AbstrSCMgr.st	Sat Nov 18 18:15:30 1995 +0100
@@ -44,7 +44,7 @@
 !
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.17 1995-11-16 12:41:03 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.18 1995-11-18 17:15:30 cg Exp $'! !
 
 !AbstractSourceCodeManager class methodsFor:'initialization'!
 
@@ -123,7 +123,7 @@
 	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
 	    ^ false
 	].
-        
+
 	aClass fileOutOn:aStream withTimeStamp:false.
 	aStream close.
 
@@ -132,13 +132,18 @@
 	    ^ false
 	].
 
-	^ self 
+	ok := self 
 	    checkinClass:cls
 	    fileName:classFileName 
 	    directory:packageDir 
 	    module:moduleDir
 	    source:(tempFile name)
-	    logMessage:logMessage
+	    logMessage:logMessage.
+
+	ok ifTrue:[
+	    Class addChangeRecordForClassCheckIn:cls.
+	].
+	^ ok
     ] valueNowOrOnUnwindDo:[
 	tempDir recursiveRemove
     ].
@@ -149,7 +154,7 @@
     "
 
     "Created: 6.11.1995 / 18:56:00 / cg"
-    "Modified: 15.11.1995 / 12:59:29 / cg"
+    "Modified: 18.11.1995 / 17:06:05 / cg"
 !
 
 mostRecentSourceStreamForClassNamed:aClassOrClassName
@@ -185,7 +190,7 @@
     ].
 
     revision := cls revision.
-    revision isNil ifTrue:[ self halt.
+    revision isNil ifTrue:[ 
 	'SOURCEMGR: class ' , cls name , ' has no revision string' infoPrintNL.
 	^ nil.
     ].
@@ -226,13 +231,13 @@
 
     cls := aClass.
     cls isMeta ifTrue:[
-        cls := cls soleInstance
+	cls := cls soleInstance
     ].
 
     sourceInfo := cls sourceCodeInfo.
     sourceInfo isNil ifTrue:[
-        'SOURCEMGR: cannot extract classes sourceInfo' infoPrintNL.
-        ^ false
+	'SOURCEMGR: cannot extract classes sourceInfo' infoPrintNL.
+	^ false
     ].
 
     packageDir := sourceInfo at:#directory.
@@ -240,11 +245,11 @@
     classFileName := Smalltalk fileNameForClass:cls.
 
     ^ self 
-        writeRevisionLogOf:cls
-        fileName:classFileName 
-        directory:packageDir 
-        module:moduleDir
-        to:aStream
+	writeRevisionLogOf:cls
+	fileName:classFileName 
+	directory:packageDir 
+	module:moduleDir
+	to:aStream
 
     "
      SourceCodeManager checkinClass:Array
@@ -253,4 +258,3 @@
     "Created: 6.11.1995 / 18:56:00 / cg"
     "Modified: 15.11.1995 / 18:12:22 / cg"
 ! !
-
--- a/AbstractSourceCodeManager.st	Thu Nov 16 13:44:09 1995 +0100
+++ b/AbstractSourceCodeManager.st	Sat Nov 18 18:15:30 1995 +0100
@@ -44,7 +44,7 @@
 !
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.17 1995-11-16 12:41:03 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.18 1995-11-18 17:15:30 cg Exp $'! !
 
 !AbstractSourceCodeManager class methodsFor:'initialization'!
 
@@ -123,7 +123,7 @@
 	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
 	    ^ false
 	].
-        
+
 	aClass fileOutOn:aStream withTimeStamp:false.
 	aStream close.
 
@@ -132,13 +132,18 @@
 	    ^ false
 	].
 
-	^ self 
+	ok := self 
 	    checkinClass:cls
 	    fileName:classFileName 
 	    directory:packageDir 
 	    module:moduleDir
 	    source:(tempFile name)
-	    logMessage:logMessage
+	    logMessage:logMessage.
+
+	ok ifTrue:[
+	    Class addChangeRecordForClassCheckIn:cls.
+	].
+	^ ok
     ] valueNowOrOnUnwindDo:[
 	tempDir recursiveRemove
     ].
@@ -149,7 +154,7 @@
     "
 
     "Created: 6.11.1995 / 18:56:00 / cg"
-    "Modified: 15.11.1995 / 12:59:29 / cg"
+    "Modified: 18.11.1995 / 17:06:05 / cg"
 !
 
 mostRecentSourceStreamForClassNamed:aClassOrClassName
@@ -185,7 +190,7 @@
     ].
 
     revision := cls revision.
-    revision isNil ifTrue:[ self halt.
+    revision isNil ifTrue:[ 
 	'SOURCEMGR: class ' , cls name , ' has no revision string' infoPrintNL.
 	^ nil.
     ].
@@ -226,13 +231,13 @@
 
     cls := aClass.
     cls isMeta ifTrue:[
-        cls := cls soleInstance
+	cls := cls soleInstance
     ].
 
     sourceInfo := cls sourceCodeInfo.
     sourceInfo isNil ifTrue:[
-        'SOURCEMGR: cannot extract classes sourceInfo' infoPrintNL.
-        ^ false
+	'SOURCEMGR: cannot extract classes sourceInfo' infoPrintNL.
+	^ false
     ].
 
     packageDir := sourceInfo at:#directory.
@@ -240,11 +245,11 @@
     classFileName := Smalltalk fileNameForClass:cls.
 
     ^ self 
-        writeRevisionLogOf:cls
-        fileName:classFileName 
-        directory:packageDir 
-        module:moduleDir
-        to:aStream
+	writeRevisionLogOf:cls
+	fileName:classFileName 
+	directory:packageDir 
+	module:moduleDir
+	to:aStream
 
     "
      SourceCodeManager checkinClass:Array
@@ -253,4 +258,3 @@
     "Created: 6.11.1995 / 18:56:00 / cg"
     "Modified: 15.11.1995 / 18:12:22 / cg"
 ! !
-
hg/stx-libbasic3