equal
deleted
inserted
replaced
2560 ,(Date today printStringFormat:'%y-%m-%d'),' ' |
2560 ,(Date today printStringFormat:'%y-%m-%d'),' ' |
2561 ,(Time now printStringFormat:'%h:%m:%s'),' ' |
2561 ,(Time now printStringFormat:'%h:%m:%s'),' ' |
2562 ,'+0000 ' |
2562 ,'+0000 ' |
2563 ,(OperatingSystem getLoginName),' Exp $'. |
2563 ,(OperatingSystem getLoginName),' Exp $'. |
2564 ]. |
2564 ]. |
2565 CVSSourceCodeManager updateVersionMethodOf:aClass for:newString. |
2565 mgr updateVersionMethodOf:aClass for:newString. |
2566 ] |
2566 ] |
2567 ]. |
2567 ]. |
2568 ]. |
2568 ]. |
2569 ]. |
2569 ]. |
2570 |
2570 |
2571 " |
2571 " |
2572 self compareClassWithRepository:Array |
2572 self compareClassWithRepository:Array |
2573 " |
2573 " |
2574 |
2574 |
2575 "Modified: / 01-07-2011 / 13:04:28 / cg" |
2575 "Modified: / 02-12-2011 / 14:09:20 / cg" |
2576 ! |
2576 ! |
2577 |
2577 |
2578 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
2578 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
2579 |diffSet| |
2579 |diffSet| |
2580 |
2580 |
2805 answer isNil ifTrue:[^ false]. |
2805 answer isNil ifTrue:[^ false]. |
2806 ] ifTrue:[ |
2806 ] ifTrue:[ |
2807 answer := true. |
2807 answer := true. |
2808 ]. |
2808 ]. |
2809 answer ifTrue:[ |
2809 answer ifTrue:[ |
2810 CVSSourceCodeManager |
2810 mgr |
2811 updateVersionMethodOf:aClass |
2811 updateVersionMethodOf:aClass |
2812 for:(mgr initialRevisionStringFor:aClass |
2812 for:(mgr initialRevisionStringFor:aClass |
2813 inModule:module |
2813 inModule:module |
2814 directory:directory |
2814 directory:directory |
2815 container:fileName). |
2815 container:fileName). |
2854 ifFalse:[ |
2854 ifFalse:[ |
2855 ^ false. |
2855 ^ false. |
2856 ]. |
2856 ]. |
2857 ]. |
2857 ]. |
2858 |
2858 |
2859 CVSSourceCodeManager |
2859 mgr |
2860 updateVersionMethodOf:aClass |
2860 updateVersionMethodOf:aClass |
2861 for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion |
2861 for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion |
2862 |
2862 |
2863 oldFileName notNil ifTrue:[ |
2863 oldFileName notNil ifTrue:[ |
2864 msg := ('forced checkin / source container change from ' , oldFileName). |
2864 msg := ('forced checkin / source container change from ' , oldFileName). |
2921 self warn:(resources string:'Failed to create container.'). |
2921 self warn:(resources string:'Failed to create container.'). |
2922 ^ false. |
2922 ^ false. |
2923 ]. |
2923 ]. |
2924 ^ true |
2924 ^ true |
2925 |
2925 |
2926 "Modified: / 21-11-2006 / 17:35:02 / cg" |
2926 "Modified: / 02-12-2011 / 14:08:57 / cg" |
2927 ! |
2927 ! |
2928 |
2928 |
2929 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
2929 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
2930 |classesInImage filesInImage module directory perProjectInfo |
2930 |classesInImage filesInImage module directory perProjectInfo |
2931 classesNotInRepository filesNotInImage classesDeletedInRepository |
2931 classesNotInRepository filesNotInImage classesDeletedInRepository |
4267 ! ! |
4267 ! ! |
4268 |
4268 |
4269 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
4269 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
4270 |
4270 |
4271 version |
4271 version |
4272 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.230 2011-10-31 10:47:07 cg Exp $' |
4272 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.231 2011-12-04 14:36:41 cg Exp $' |
4273 ! |
4273 ! |
4274 |
4274 |
4275 version_CVS |
4275 version_CVS |
4276 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.230 2011-10-31 10:47:07 cg Exp $' |
4276 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.231 2011-12-04 14:36:41 cg Exp $' |
4277 ! ! |
4277 ! ! |