--- a/AbstractSourceCodeManager.st Tue Jul 24 16:47:21 2012 +0100
+++ b/AbstractSourceCodeManager.st Wed Jul 25 09:46:08 2012 +0100
@@ -547,6 +547,14 @@
"Modified: 14.2.1997 / 21:19:11 / cg"
!
+createContainerFor:cls inModule:moduleName package:packageDir container:classFileName
+ "create a new container & check into it an initial version of aClass"
+
+ ^ self checkinClass:cls fileName:classFileName directory:packageDir module:moduleName logMessage:'Initial check in' force:false.
+
+ "Created: / 23-07-2012 / 19:14:34 / cg"
+!
+
createModule:moduleName
"create a new module directory"
@@ -800,6 +808,12 @@
"Modified (format): / 21-12-2011 / 18:58:53 / cg"
! !
+!AbstractSourceCodeManager class methodsFor:'others'!
+
+version_CVS
+ ^ '§Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.294 2012/07/24 07:43:36 cg Exp §'
+! !
+
!AbstractSourceCodeManager class methodsFor:'private'!
checkMethodPackagesOf:aClass
@@ -2694,6 +2708,69 @@
"Modified: / 22-10-2008 / 20:18:58 / cg"
!
+revisionInfoFromStandardVersionString:aString
+ "{ Pragma: +optSpace }"
+
+ "return a VersionInfo object filled with revision info.
+ This extracts the relevant info from aString which is in the format as created
+ by standardRevisionStringFor:...."
+
+ |info path version user ts timeStamp idx1 idx2|
+
+ "/ 'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
+
+ idx1 := aString indexOfSubCollection:'Path: '.
+ idx1 ~~ 0 ifTrue:[
+ idx1 := idx1 + 'Path: ' size.
+ idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
+ path := aString copyFrom:idx1 to:idx2-1.
+ ].
+ idx1 := aString indexOfSubCollection:'Version: '.
+ idx1 ~~ 0 ifTrue:[
+ idx1 := idx1 + 'Version: ' size.
+ idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
+ idx2 == 0 ifTrue:[
+ version := aString copyFrom:idx1
+ ] ifFalse:[
+ version := aString copyFrom:idx1 to:idx2-1.
+ ].
+ ].
+ idx1 := aString indexOfSubCollection:'User: '.
+ idx1 ~~ 0 ifTrue:[
+ idx1 := idx1 + 'User: ' size.
+ idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
+ idx2 == 0 ifTrue:[
+ user := aString copyFrom:idx1
+ ] ifFalse:[
+ user := aString copyFrom:idx1 to:idx2-1.
+ ].
+ ].
+ idx1 := aString indexOfSubCollection:'Time: '.
+ idx1 ~~ 0 ifTrue:[
+ idx1 := idx1 + 'Time: ' size.
+ idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
+ idx2 == 0 ifTrue:[
+ ts := aString copyFrom:idx1
+ ] ifFalse:[
+ ts := aString copyFrom:idx1 to:idx2-1.
+ ].
+ timeStamp := Timestamp readIso8601FormatFrom:ts
+ ].
+
+ info := VersionInfo new.
+ path notNil ifTrue:[ info fileName:(path asFilename baseName) ].
+ info revision:version.
+ user notNil ifTrue:[ info user:user ].
+ timeStamp notNil ifTrue:[ info timeStamp:timeStamp ].
+ ^ info
+
+ "
+ self revisionInfoFromString:'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
+ "
+
+ "Created: / 23-07-2012 / 18:45:41 / cg"
+!
+
revisionInfoFromString:aString
"{ Pragma: +optSpace }"
@@ -3126,6 +3203,29 @@
"Created: 19.4.1996 / 17:24:34 / cg"
!
+standardRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
+ "utility function: return a string usable as initial revision string"
+
+ ^ 'Path: %1/%2/%3, Version: %4, User: %5, Time: %6'
+ bindWith:moduleDir
+ with:packageDir
+ with:fileName
+ with:revisionString
+ with:(OperatingSystem getLoginName)
+ with:(Timestamp now printStringIso8601Format)
+
+ "
+ self
+ revisionStringFor:Array
+ inModule:'stx'
+ directory:'libbasic'
+ container:'Array.st'
+ revision:'123'
+ "
+
+ "Created: / 23-07-2012 / 18:46:29 / cg"
+!
+
withSourceRewriteHandlerDo:aBlock
"hook for just-in-time rewriting of a method's sourceCode while filing out
used when saving version_XXX methods in a non-XXX sourceCodeManager"
@@ -3639,15 +3739,11 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Id: AbstractSourceCodeManager.st 1933 2012-07-19 13:01:17Z vranyj1 $'
-!
-
-version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.293 2012-07-19 14:05:10 +0100 vrany Exp §'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.294 2012/07/24 07:43:36 cg Exp $'
!
version_SVN
- ^ '$Id: AbstractSourceCodeManager.st 1933 2012-07-19 13:01:17Z vranyj1 $'
+ ^ '$Id: AbstractSourceCodeManager.st 1937 2012-07-25 08:46:08Z vranyj1 $'
! !
AbstractSourceCodeManager initialize!
--- a/DataBaseSourceCodeManager.st Tue Jul 24 16:47:21 2012 +0100
+++ b/DataBaseSourceCodeManager.st Wed Jul 25 09:46:08 2012 +0100
@@ -444,54 +444,7 @@
"return a VersionInfo object filled with revision info.
This extracts the relevant info from aString."
- |info path version user ts timeStamp idx1 idx2|
-
- "/ 'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
-
- idx1 := aString indexOfSubCollection:'Path: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'Path: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- path := aString copyFrom:idx1 to:idx2-1.
- ].
- idx1 := aString indexOfSubCollection:'Version: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'Version: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- idx2 == 0 ifTrue:[
- version := aString copyFrom:idx1
- ] ifFalse:[
- version := aString copyFrom:idx1 to:idx2-1.
- ].
- ].
- idx1 := aString indexOfSubCollection:'User: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'User: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- idx2 == 0 ifTrue:[
- user := aString copyFrom:idx1
- ] ifFalse:[
- user := aString copyFrom:idx1 to:idx2-1.
- ].
- ].
- idx1 := aString indexOfSubCollection:'Time: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'Time: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- idx2 == 0 ifTrue:[
- ts := aString copyFrom:idx1
- ] ifFalse:[
- ts := aString copyFrom:idx1 to:idx2-1.
- ].
- timeStamp := Timestamp readIso8601FormatFrom:ts
- ].
-
- info := VersionInfo new.
- path notNil ifTrue:[ info fileName:(path asFilename baseName) ].
- info revision:version.
- user notNil ifTrue:[ info user:user ].
- timeStamp notNil ifTrue:[ info timeStamp:timeStamp ].
- ^ info
+ ^ self revisionInfoFromStandardVersionString:aString
"
self revisionInfoFromString:'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
@@ -566,18 +519,17 @@
!
revisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
- "return a string usable as initial revision string"
+ "utility function: return a string usable as initial revision string"
- ^ 'Path: %1/%2/%3, Version: %4, User: %5, Time: %6'
- bindWith:moduleDir
- with:packageDir
- with:fileName
- with:revisionString
- with:(OperatingSystem getLoginName)
- with:(Timestamp now printStringIso8601Format)
+ ^ self standardRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
"
- self revisionStringFor:Array inModule:'stx' directory:'libbasic' container:'Array.st' revision:'123'
+ self
+ revisionStringFor:Array
+ inModule:'stx'
+ directory:'libbasic'
+ container:'Array.st'
+ revision:'123'
"
"Created: / 21-12-2011 / 19:33:33 / cg"
@@ -597,13 +549,13 @@
!DataBaseSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Id: DataBaseSourceCodeManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.10 2012/07/24 07:44:39 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.9 2012/01/19 15:19:52 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.10 2012/07/24 07:44:39 cg Exp §'
!
version_SVN
- ^ '$Id: DataBaseSourceCodeManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+ ^ '$Id: DataBaseSourceCodeManager.st 1937 2012-07-25 08:46:08Z vranyj1 $'
! !
--- a/FileBasedSourceCodeManager.st Tue Jul 24 16:47:21 2012 +0100
+++ b/FileBasedSourceCodeManager.st Wed Jul 25 09:46:08 2012 +0100
@@ -363,54 +363,7 @@
"return a VersionInfo object filled with revision info.
This extracts the relevant info from aString."
- |info path version user ts timeStamp idx1 idx2|
-
- "/ 'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
-
- idx1 := aString indexOfSubCollection:'Path: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'Path: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- path := aString copyFrom:idx1 to:idx2-1.
- ].
- idx1 := aString indexOfSubCollection:'Version: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'Version: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- idx2 == 0 ifTrue:[
- version := aString copyFrom:idx1
- ] ifFalse:[
- version := aString copyFrom:idx1 to:idx2-1.
- ].
- ].
- idx1 := aString indexOfSubCollection:'User: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'User: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- idx2 == 0 ifTrue:[
- user := aString copyFrom:idx1
- ] ifFalse:[
- user := aString copyFrom:idx1 to:idx2-1.
- ].
- ].
- idx1 := aString indexOfSubCollection:'Time: '.
- idx1 ~~ 0 ifTrue:[
- idx1 := idx1 + 'Time: ' size.
- idx2 := aString indexOfSubCollection:', ' startingAt:idx1.
- idx2 == 0 ifTrue:[
- ts := aString copyFrom:idx1
- ] ifFalse:[
- ts := aString copyFrom:idx1 to:idx2-1.
- ].
- timeStamp := Timestamp readIso8601FormatFrom:ts
- ].
-
- info := VersionInfo new.
- path notNil ifTrue:[ info fileName:(path asFilename baseName) ].
- info revision:version.
- user notNil ifTrue:[ info user:user ].
- timeStamp notNil ifTrue:[ info timeStamp:timeStamp ].
- ^ info
+ ^ self revisionInfoFromStandardVersionString:aString
"
self revisionInfoFromString:'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
@@ -482,18 +435,17 @@
!
revisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
- "return a string usable as initial revision string"
+ "utility function: return a string usable as initial revision string"
- ^ 'Path: %1/%2/%3, Version: %4, User: %5, Time: %6'
- bindWith:moduleDir
- with:packageDir
- with:fileName
- with:revisionString
- with:(OperatingSystem getLoginName)
- with:(Timestamp now printStringIso8601Format)
+ ^ self standardRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
"
- self revisionStringFor:Array inModule:'stx' directory:'libbasic' container:'Array.st' revision:'123'
+ self
+ revisionStringFor:Array
+ inModule:'stx'
+ directory:'libbasic'
+ container:'Array.st'
+ revision:'123'
"
"Created: / 21-12-2011 / 19:33:33 / cg"
@@ -512,11 +464,11 @@
!FileBasedSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Id: FileBasedSourceCodeManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/FileBasedSourceCodeManager.st,v 1.7 2012/07/24 07:41:42 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/FileBasedSourceCodeManager.st,v 1.6 2012/01/19 15:20:07 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic3/FileBasedSourceCodeManager.st,v 1.7 2012/07/24 07:41:42 cg Exp §'
!
version_FileRepository
@@ -524,5 +476,5 @@
!
version_SVN
- ^ '$Id: FileBasedSourceCodeManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+ ^ '$Id: FileBasedSourceCodeManager.st 1937 2012-07-25 08:46:08Z vranyj1 $'
! !
--- a/GitSourceCodeManager.st Tue Jul 24 16:47:21 2012 +0100
+++ b/GitSourceCodeManager.st Wed Jul 25 09:46:08 2012 +0100
@@ -122,12 +122,12 @@
dir recursiveMakeDirectory.
].
(dir construct:'.git') exists ifFalse:[
- OperatingSystem executeCommand:'git init' inDirectory:dir pathName
+ self executeGitCommand:'init' inDirectory:dir
].
"Created: / 13-08-1997 / 17:20:57 / cg"
"Modified: / 25-09-1997 / 12:28:05 / stefan"
- "Modified: / 02-03-2012 / 17:02:22 / cg"
+ "Modified: / 23-07-2012 / 16:16:57 / cg"
!
initializeRepository
@@ -138,6 +138,36 @@
!GitSourceCodeManager class methodsFor:'accessing'!
+executeGitCommand:cmd inDirectory:dir
+ |retCode out err|
+
+ retCode := self
+ executeGitCommand:cmd
+ outputTo:(out := WriteStream on:(String new:100))
+ errorTo:(err := WriteStream on:(String new:100))
+ inDirectory:dir.
+ retCode ifFalse:[
+ Transcript showCR:'-----------------------------------------------'.
+ Transcript showCR:'out:'.
+ Transcript showCR:out contents.
+ Transcript showCR:'err:'.
+ Transcript showCR:err contents.
+ ].
+ ^ retCode
+
+ "Created: / 23-07-2012 / 16:17:06 / cg"
+!
+
+executeGitCommand:cmd outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:dir
+ ^ OperatingSystem
+ executeCommand:'git ',cmd
+ outputTo:outStreamOrNil
+ errorTo:errStreamOrNil
+ inDirectory:dir asFilename pathName.
+
+ "Created: / 24-07-2012 / 09:33:29 / cg"
+!
+
gitBinDirectory:ignoredString
"ignored - for backward compatibility (to read old settings files)"
"Created: / 14-01-2012 / 20:49:46 / cg"
@@ -340,10 +370,152 @@
!GitSourceCodeManager class methodsFor:'basic administration'!
+checkForExistingContainer:fileName inModule:moduleName directory:dirName
+ "check for a container to be present"
+
+ |path subDir|
+
+ path := (self repositoryName asFilename construct:moduleName) construct:dirName.
+ path exists ifFalse:[
+ subDir := moduleName asFilename construct:dirName.
+ self executeGitCommand:'checkout ',subDir name inDirectory:self repositoryName.
+ ].
+ ^ (path construct:fileName) exists
+
+ "Created: / 23-07-2012 / 16:21:02 / cg"
+!
+
+checkForExistingModule:moduleName
+ "check for a module to be present"
+
+ |path subDir|
+
+ path := self repositoryName asFilename construct:moduleName.
+ path exists ifFalse:[
+ subDir := moduleName asFilename.
+ self executeGitCommand:'checkout ',subDir name inDirectory:self repositoryName.
+self halt.
+ ].
+ ^ path exists
+
+ "Created: / 23-07-2012 / 18:44:27 / cg"
+!
+
+checkForExistingModule:moduleName directory:packageDir
+ "check for a package directory to be present"
+
+ |path subDir|
+
+ path := (self repositoryName asFilename construct:moduleName) construct:packageDir.
+ path exists ifFalse:[
+ subDir := moduleName asFilename construct:packageDir.
+ self executeGitCommand:'checkout ',subDir name inDirectory:self repositoryName.
+ ].
+ ^ path exists
+
+ "Created: / 23-07-2012 / 19:07:34 / cg"
+!
+
+checkinClass:aClass fileName:classFileName directory:packageDir module:moduleDir source:sourceFile logMessage:logMessage force:force
+ "checkin of a class into the source repository.
+ Return true if ok, false if not."
+
+ |path relPath logArg out err|
+
+ relPath := (moduleDir asFilename construct:packageDir) construct:classFileName.
+ path := self repositoryName asFilename construct:relPath.
+ sourceFile asFilename moveTo: path.
+
+ (self executeGitCommand:'add ',relPath name inDirectory:self repositoryName) ifFalse:[
+ self halt
+ ].
+
+ out := WriteStream on:(String new:100).
+ err := WriteStream on:(String new:100).
+ (self executeGitCommand:'status --porcelain' outputTo:out errorTo:err inDirectory:self repositoryName) ifFalse:[
+ self halt.
+ ].
+ (out contents withoutSeparators isEmptyOrNil) ifTrue:[
+ (err contents withoutSeparators isEmptyOrNil) ifTrue:[
+ "/ nothing to commit
+ ^ true
+ ].
+ ].
+ logArg := logMessage copyReplaceAll:$" withAll:''''''.
+ (self executeGitCommand:'commit -m "',logArg,'"' inDirectory:self repositoryName) ifFalse:[
+ self halt
+ ].
+ ^ true
+
+ "Created: / 23-07-2012 / 20:05:14 / cg"
+!
+
createContainerFor:aClass inModule:moduleName directory:dirName container:fileName
"create a new container & check into it an initial version of aClass"
^ self shouldImplement
+!
+
+createModule:moduleName
+ "create a new module directory"
+
+ |dir|
+
+ dir := self repositoryName asFilename construct:moduleName.
+ dir exists ifTrue:[^ true].
+ dir recursiveMakeDirectory.
+ ^ dir exists.
+
+ "Created: / 23-07-2012 / 19:04:51 / cg"
+!
+
+createModule:moduleName directory:directory
+ "create a new package directory"
+
+ |dir|
+
+ dir := (self repositoryName asFilename construct:moduleName) construct:directory.
+ dir exists ifTrue:[^ true].
+ dir recursiveMakeDirectory.
+ ^ dir exists.
+
+ "Created: / 23-07-2012 / 19:08:22 / cg"
+!
+
+initialRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName
+ "return a string usable as initial revision string"
+
+ ^ self
+ revisionStringFor:aClass
+ inModule:moduleDir
+ directory:packageDir
+ container:fileName
+ revision:'1'
+
+ "Created: / 23-07-2012 / 18:40:25 / cg"
+!
+
+revisionInfoFromString:aString
+ "{ Pragma: +optSpace }"
+
+ "return a VersionInfo object filled with revision info.
+ This extracts the relevant info from aString."
+
+ ^ self revisionInfoFromStandardVersionString:aString
+
+ "
+ self revisionInfoFromString:'Path: stx/libbasic/Array.st, Version: 123, User: cg, Time: 2011-12-21T21:03:08.826'
+ "
+
+ "Created: / 23-07-2012 / 19:02:56 / cg"
+!
+
+revisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
+ "utility function: return a string usable as initial revision string"
+
+ ^ self standardRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
+
+ "Created: / 23-07-2012 / 19:01:17 / cg"
! !
!GitSourceCodeManager class methodsFor:'debugging'!
@@ -425,15 +597,15 @@
!GitSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Id: GitSourceCodeManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.5 2012/07/24 07:38:58 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.4 2012/03/20 18:05:42 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.5 2012/07/24 07:38:58 cg Exp §'
!
version_SVN
- ^ '$Id:: GitSourceCodeManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+ ^ '$Id:: GitSourceCodeManager.st 1937 2012-07-25 08:46:08Z vranyj1 $'
! !
GitSourceCodeManager initialize!
--- a/PerforceSourceCodeManager.st Tue Jul 24 16:47:21 2012 +0100
+++ b/PerforceSourceCodeManager.st Wed Jul 25 09:46:08 2012 +0100
@@ -9,6 +9,8 @@
other person. No title to or ownership of the software is
hereby transferred.
"
+"{ Package: '__NoProject__' }"
+
AbstractSourceCodeManager subclass:#PerforceSourceCodeManager
instanceVariableNames:''
classVariableNames:'PerforceExecutable PerforceModuleRoots PerforceClient
@@ -751,10 +753,7 @@
"Modified: / 25-10-2006 / 17:41:46 / cg"
!
-createContainerFor:cls inModule:moduleName package:packageDir container:classFileName
- ^ self checkinClass:cls fileName:classFileName directory:packageDir module:moduleName logMessage:'Initial check in' force:false.
-!
createContainerFor:cls inModule:moduleName package:packageDir container:classFileName logMessage:logMessage
@@ -1882,7 +1881,7 @@
Timestamp now printOn:s format:'%h-%m-%s.%i'.
versionInfo time:s contents.
PerforceVersionInfo fromRCSString:versionInfo getVersionString.
- PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.26 2012/06/01 11:33:16 cg Exp $'
+ PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.27 2012/07/24 07:42:22 cg Exp $'
"
"Modified: / 01-06-2012 / 13:32:40 / cg"
@@ -1983,13 +1982,13 @@
!PerforceSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.26 2012/06/01 11:33:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.27 2012/07/24 07:42:22 cg Exp $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.26 2012/06/01 11:33:16 cg Exp '
+ ^ '§Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.27 2012/07/24 07:42:22 cg Exp §'
!
version_SVN
- ^ '$Id: PerforceSourceCodeManager.st 1925 2012-06-05 13:52:00Z vranyj1 $'
+ ^ '$Id: PerforceSourceCodeManager.st 1937 2012-07-25 08:46:08Z vranyj1 $'
! !
--- a/stx_libbasic3.st Tue Jul 24 16:47:21 2012 +0100
+++ b/stx_libbasic3.st Wed Jul 25 09:46:08 2012 +0100
@@ -11,7 +11,7 @@
"
"{ Package: 'stx:libbasic3' }"
-LibraryDefinition subclass:#stx_libbasic3
+LibraryDefinition subclass:#'stx_libbasic3'
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -42,7 +42,7 @@
!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/stx_libbasic3.st,v 1.69 2012/03/15 16:37:03 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/stx_libbasic3.st,v 1.70 2012/07/18 17:12:40 cg Exp $'
! !
!stx_libbasic3 class methodsFor:'description'!
@@ -209,9 +209,9 @@
legalCopyright
"Return a copyright string which will appear in <lib>.rc"
- ^ 'Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011'
+ ^ 'Copyright Claus Gittinger 1988-2012\nCopyright eXept Software AG 1998-2012'
- "Modified: / 01-02-2011 / 11:55:43 / cg"
+ "Modified: / 18-07-2012 / 19:11:26 / cg"
! !
!stx_libbasic3 class methodsFor:'description - svn'!
@@ -235,13 +235,13 @@
!stx_libbasic3 class methodsFor:'documentation'!
version
- ^ '$Id: stx_libbasic3.st 1923 2012-05-18 17:58:53Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/stx_libbasic3.st,v 1.70 2012/07/18 17:12:40 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/stx_libbasic3.st,v 1.69 2012/03/15 16:37:03 stefan Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic3/stx_libbasic3.st,v 1.70 2012/07/18 17:12:40 cg Exp §'
!
version_SVN
- ^ '$Id:: stx_libbasic3.st 1923 2012-05-18 17:58:53Z vranyj1 $'
+ ^ '$ Id: stx_libbasic3.st 1867 2011-06-08 21:57:08Z vranyj1 $'
! !