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>
Wed, 15 Nov 1995 17:11:49 +0100
changeset 72 e64fba2dcb10
parent 71 a8c7364b9bb6
child 73 90ab44bd6bff
*** empty log message ***
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions
CVSSCMgr.st file | annotate | diff | comparison | revisions
CVSSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Wed Nov 15 13:15:09 1995 +0100
+++ b/AbstrSCMgr.st	Wed Nov 15 17:11:49 1995 +0100
@@ -44,7 +44,7 @@
 !
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.15 1995-11-15 12:15:09 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.16 1995-11-15 16:11:47 cg Exp $'! !
 
 !AbstractSourceCodeManager class methodsFor:'initialization'!
 
@@ -92,7 +92,7 @@
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
 
-checkinClass:aClass
+checkinClass:aClass logMessage:logMessage
     "checkin of a class into the source repository.
      Return true if ok, false if not."
 
@@ -100,13 +100,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.
@@ -115,31 +115,32 @@
 
     tempDir := (Filename newTemporaryIn:nil) makeDirectory.
     [
-        |aStream|
+	|aStream|
 
-        tempFile := tempDir construct:(classFileName,'.st').
-        aStream := tempFile writeStream.
-        aStream isNil ifTrue:[
-            'SOURCEMGR: temporary fileout failed' infoPrintNL.
-            ^ false
-        ].
+	tempFile := tempDir construct:(classFileName,'.st').
+	aStream := tempFile writeStream.
+	aStream isNil ifTrue:[
+	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
+	    ^ false
+	].
         
-        aClass fileOutOn:aStream withTimeStamp:false.
-        aStream close.
+	aClass fileOutOn:aStream withTimeStamp:false.
+	aStream close.
 
-        (tempFile := tempDir construct:(classFileName,'.st')) exists ifFalse:[
-            'SOURCEMGR: temporary fileout failed' infoPrintNL.
-            ^ false
-        ].
+	(tempFile := tempDir construct:(classFileName,'.st')) exists ifFalse:[
+	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
+	    ^ false
+	].
 
-        ^ self 
-            checkinClass:cls
-            fileName:classFileName 
-            directory:packageDir 
-            module:moduleDir
-            source:(tempFile name)
+	^ self 
+	    checkinClass:cls
+	    fileName:classFileName 
+	    directory:packageDir 
+	    module:moduleDir
+	    source:(tempFile name)
+	    logMessage:logMessage
     ] valueNowOrOnUnwindDo:[
-        tempDir recursiveRemove
+	tempDir recursiveRemove
     ].
     ^ false
 
--- a/AbstractSourceCodeManager.st	Wed Nov 15 13:15:09 1995 +0100
+++ b/AbstractSourceCodeManager.st	Wed Nov 15 17:11:49 1995 +0100
@@ -44,7 +44,7 @@
 !
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.15 1995-11-15 12:15:09 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.16 1995-11-15 16:11:47 cg Exp $'! !
 
 !AbstractSourceCodeManager class methodsFor:'initialization'!
 
@@ -92,7 +92,7 @@
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
 
-checkinClass:aClass
+checkinClass:aClass logMessage:logMessage
     "checkin of a class into the source repository.
      Return true if ok, false if not."
 
@@ -100,13 +100,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.
@@ -115,31 +115,32 @@
 
     tempDir := (Filename newTemporaryIn:nil) makeDirectory.
     [
-        |aStream|
+	|aStream|
 
-        tempFile := tempDir construct:(classFileName,'.st').
-        aStream := tempFile writeStream.
-        aStream isNil ifTrue:[
-            'SOURCEMGR: temporary fileout failed' infoPrintNL.
-            ^ false
-        ].
+	tempFile := tempDir construct:(classFileName,'.st').
+	aStream := tempFile writeStream.
+	aStream isNil ifTrue:[
+	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
+	    ^ false
+	].
         
-        aClass fileOutOn:aStream withTimeStamp:false.
-        aStream close.
+	aClass fileOutOn:aStream withTimeStamp:false.
+	aStream close.
 
-        (tempFile := tempDir construct:(classFileName,'.st')) exists ifFalse:[
-            'SOURCEMGR: temporary fileout failed' infoPrintNL.
-            ^ false
-        ].
+	(tempFile := tempDir construct:(classFileName,'.st')) exists ifFalse:[
+	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
+	    ^ false
+	].
 
-        ^ self 
-            checkinClass:cls
-            fileName:classFileName 
-            directory:packageDir 
-            module:moduleDir
-            source:(tempFile name)
+	^ self 
+	    checkinClass:cls
+	    fileName:classFileName 
+	    directory:packageDir 
+	    module:moduleDir
+	    source:(tempFile name)
+	    logMessage:logMessage
     ] valueNowOrOnUnwindDo:[
-        tempDir recursiveRemove
+	tempDir recursiveRemove
     ].
     ^ false
 
--- a/CVSSCMgr.st	Wed Nov 15 13:15:09 1995 +0100
+++ b/CVSSCMgr.st	Wed Nov 15 17:11:49 1995 +0100
@@ -22,7 +22,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/CVSSCMgr.st,v 1.11 1995-11-14 19:07:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/CVSSCMgr.st,v 1.12 1995-11-15 16:11:49 cg Exp $'
 !
 
 documentation
@@ -198,14 +198,16 @@
     "Modified: 9.11.1995 / 14:32:55 / cg"
 !
 
-checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName
+checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName logMessage:logMessage
     "enter a classes source code (which has been already filed out into sourceFileName)
      into the source repository.
      Return true if ok, false if not."
 
     |tempdir dir cmd checkoutName logMessage|
 
-    logMessage := 'checkin from browser'.
+    logMessage isNil ifTrue:[
+	logMessage := 'checkin from browser'.
+    ].
 
     "/
     "/ in CVS, we have to checkout the file first, in order
--- a/CVSSourceCodeManager.st	Wed Nov 15 13:15:09 1995 +0100
+++ b/CVSSourceCodeManager.st	Wed Nov 15 17:11:49 1995 +0100
@@ -22,7 +22,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.11 1995-11-14 19:07:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.12 1995-11-15 16:11:49 cg Exp $'
 !
 
 documentation
@@ -198,14 +198,16 @@
     "Modified: 9.11.1995 / 14:32:55 / cg"
 !
 
-checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName
+checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName logMessage:logMessage
     "enter a classes source code (which has been already filed out into sourceFileName)
      into the source repository.
      Return true if ok, false if not."
 
     |tempdir dir cmd checkoutName logMessage|
 
-    logMessage := 'checkin from browser'.
+    logMessage isNil ifTrue:[
+	logMessage := 'checkin from browser'.
+    ].
 
     "/
     "/ in CVS, we have to checkout the file first, in order
hg/stx-libbasic3