CVSSourceCodeManager.st
changeset 4411 493c05fdb9a7
parent 4401 414d2875e720
child 4414 7bdf532163ba
--- a/CVSSourceCodeManager.st	Tue Mar 12 11:51:11 2019 +0100
+++ b/CVSSourceCodeManager.st	Tue Mar 12 11:52:22 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
               All Rights Reserved
@@ -1350,7 +1348,7 @@
             #('date:'   #date
               'author:' #author 
               'state:'  #state 
-              'lines:'  #numberOfChangedLines
+              'lines:'  #changedLinesInfo
              ) pairWiseDo:[:word :key |
                 s := subEntry restAfter:word withoutSeparators:true.
                 s notNil ifTrue:[
@@ -1361,8 +1359,8 @@
         ].
 
         "first revision does not have a 'lines:' entry"
-        (record at:#numberOfChangedLines ifAbsent:[nil]) isNil ifTrue:[
-            record at:#numberOfChangedLines put:''
+        (record at:#changedLinesInfo ifAbsent:[nil]) isNil ifTrue:[
+            record at:#changedLinesInfo put:''
         ].
 
         s := nil.
@@ -1387,6 +1385,7 @@
     ^record.
 
     "Modified: / 20-09-2017 / 20:16:45 / stefan"
+    "Modified: / 12-03-2019 / 10:59:24 / Stefan Vogel"
 !
 
 releaseAndRemove:tempdir module:moduleDir outputTo:outputFilename
@@ -4636,17 +4635,17 @@
             "/ The repair code will be removed at some time in the future...
 
             "/ temporary fix Felix' bad string translation:
-            (aString startsWith:'§Header:') ifTrue:[
-                (aString endsWith:'Exp §') ifTrue:[
+            (aString startsWith:'§Header:') ifTrue:[
+                (aString endsWith:'Exp §') ifTrue:[
                     fixedString := '$' , (aString copyFrom:3 to:(aString size - 2)) , '$'.
 
                     aClass isNil ifTrue:[
                         autoFixHolder value ifFalse:[
-                            Dialog information:'Attention: the CVS version string is corrupted (§-bug). Please fix it manually'.
+                            Dialog information:'Attention: the CVS version string is corrupted (§-bug). Please fix it manually'.
                         ]
                     ] ifFalse:[
                         (autoFixHolder value 
-                            or:[ Dialog confirm:('Attention: the CVS version string is corrupted in "%1" (§-bug). Fix it?' withCRs bindWith:aClass name) ]
+                            or:[ Dialog confirm:('Attention: the CVS version string is corrupted in "%1" (§-bug). Fix it?' withCRs bindWith:aClass name) ]
                         ) ifTrue:[
                             self updateVersionMethodOf:aClass for:fixedString.
                         ].
@@ -4654,7 +4653,7 @@
                 ].
             ].
 
-            "/ temporary fix Jan's bad Umlaut-removal (which results in Felix's bad § being removed):
+            "/ temporary fix Jan's bad Umlaut-removal (which results in Felix's bad § being removed):
             (aString startsWith:'Header: ') ifTrue:[
                 (aString endsWith:'Exp ') ifTrue:[
                     fixedString := '$' , aString , '$'.
@@ -5984,7 +5983,7 @@
     "/ $-Revision: rev $
     "/ $-Id:       fileName rev date time user state $
     "/
-    (firstWord = '$Header:' or:[firstWord = '§Header:']) ifTrue:[
+    (firstWord = '$Header:' or:[firstWord = '§Header:']) ifTrue:[
         d := firstWord first.
         s skipSeparators.
         nm := s throughAll:',v '.
@@ -6014,12 +6013,12 @@
         ^ info
     ].
 
-    (firstWord = '$Revision:' or:[firstWord = '§Revision:']) ifTrue:[
+    (firstWord = '$Revision:' or:[firstWord = '§Revision:']) ifTrue:[
         info revision:(s upToEnd asCollectionOfWords first).
         ^ info
     ].
 
-    (firstWord = '$Id:' or:[firstWord = '§Id:']) ifTrue:[
+    (firstWord = '$Id:' or:[firstWord = '§Id:']) ifTrue:[
         "/commented out by Jan Vrany, 2009/10/20
         "/according to http://svnbook.red-bean.com/en/1.5/svn.advanced.props.special.keywords.html
         "/svn has no support for $ Header $ expansion. Therefore