hg/stx-libtool: comparison SmalltalkCodeGeneratorTool.st

equal deleted inserted replaced

-:47fb1e0c33a9
+:98245d2f01a2
 createCopyrightMethodFor:copyRightText for:aClass
 "add copyright method containing text,
 but only if not already present."
-|txt log initialYear scm firstRev firstRevDate|
+|txt log thisYear initialYear scm firstRev firstRevDate|
 (aClass includesSelector:#copyright) ifFalse:[
 copyRightText notNil ifTrue:[
-initialYear := Date today year.
+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:[
 ]
 ]
 ]
 ].
 ].
-txt := copyRightText bindWith:initialYear.
+thisYear ~= initialYear ifTrue:[
+txt := copyRightText bindWith:(initialYear printString, '-', thisYear printString).
+] ifFalse:[
+txt := copyRightText bindWith:initialYear.
+].
 self compile:
 'copyright
 "
 ' , txt , '
 "
 ! !
 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.25 2014-03-05 22:11:40 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.26 2014-05-27 08:23:17 stefan Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.25 2014-03-05 22:11:40 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.26 2014-05-27 08:23:17 stefan Exp $'
 !
 version_SVN
-^ '$Id: SmalltalkCodeGeneratorTool.st,v 1.25 2014-03-05 22:11:40 cg Exp $'
+^ '$Id: SmalltalkCodeGeneratorTool.st,v 1.26 2014-05-27 08:23:17 stefan Exp $'
 ! !

changeset 14426	98245d2f01a2
parent 14118	e05c6b42870d
child 14572	3ea2ce89adf0