hg/stx-libtool: comparison SmalltalkCodeGeneratorTool.st

equal deleted inserted replaced

-:8e342f783ecb
+:7c4957a4261d
-"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2002 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 initialYear := thisYear := Date today year.
 (copyRightText includes:$%) ifTrue:[
 scm := aClass theNonMetaclass sourceCodeManager.
 scm == CVSSourceCodeManager ifTrue:[
 log := CVSSourceCodeManager revisionLogOf:aClass fromRevision:'1.1' toRevision:'1.1'.
-(firstRev := (log at:#revisions) firstIfEmpty:nil) notNil ifTrue:[
+log isNil ifTrue:[
-firstRevDate := firstRev at:#date ifAbsent:nil.
+initialYear := thisYear
-firstRevDate notNil ifTrue:[
+] ifFalse:[
-firstRevDate := Date readFrom:firstRevDate onError:nil.
+(firstRev := (log at:#revisions) firstIfEmpty:nil) notNil ifTrue:[
-firstRevDate notNil ifTrue:[
+firstRevDate := firstRev at:#date ifAbsent:nil.
-initialYear := firstRevDate year.
+firstRevDate notNil ifTrue:[
+firstRevDate := Date readFrom:firstRevDate onError:nil.
+firstRevDate notNil ifTrue:[
+initialYear := firstRevDate year.
+]
 ]
 ]
-]
+].
 ].
 ].
 thisYear ~= initialYear ifTrue:[
 txt := copyRightText bindWith:(initialYear printString, '-', thisYear printString).
 ] ifFalse:[
 ! !
 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.37 2015-03-06 12:37:16 cg Exp $'
+^ '$Header$'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.37 2015-03-06 12:37:16 cg Exp $'
+^ '$Header$'
 !
 version_SVN
-^ '$Id: SmalltalkCodeGeneratorTool.st,v 1.37 2015-03-06 12:37:16 cg Exp $'
+^ '$Id$'
 ! !

branch	jv
changeset 15709	7c4957a4261d
parent 15566	184cea584be5
parent 15708	1b35e4573788
child 16093	a0705d7461fd