#DOCUMENTATION by mawalch
authormawalch
Mon, 22 May 2017 11:53:11 +0200
changeset 4239 635990f888e1
parent 4238 e3824d6ddfb7
child 4240 b26382c7a3eb
#DOCUMENTATION by mawalch class: CVSSourceCodeManager class comment/format in: #setSymbolicName:revision:overWrite:pathes: pathes -> paths
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Wed May 17 12:52:38 2017 +0200
+++ b/CVSSourceCodeManager.st	Mon May 22 11:53:11 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
               All Rights Reserved
@@ -4501,17 +4499,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.
                         ].
@@ -4519,7 +4517,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 , '$'.
@@ -5240,7 +5238,7 @@
     "Modified: / 12-09-2006 / 12:37:20 / cg"
 !
 
-setSymbolicName:symbolicNameArg revision:rev overWrite:overWriteBool pathes:pathesInRepository
+setSymbolicName:symbolicNameArg revision:rev overWrite:overWriteBool pathes:pathsInRepository
     "set a symbolicName for revision rev.
      If rev is nil, set it for the head (most recent) revision.
      If rev is 0, delete the symbolic name.
@@ -5256,18 +5254,18 @@
                         ifTrue:[ '"',symbolicNameArg,'"' ]
                         ifFalse:[ symbolicNameArg ].
 
-    pathesInRepository size > 1 ifTrue:[
+    pathsInRepository size > 1 ifTrue:[
         self assert:(rev isNil or:[rev == 0]) "revision must be nil (for head) or 0 (for delete) with multiple paths"
     ].
 
-    moduleDirs := pathesInRepository
+    moduleDirs := pathsInRepository
                     collect:[:pathInRepository |
                         (pathInRepository asCollectionOfSubstringsSeparatedByAny:'/\') first.
                     ].
     moduleDirs do:[:moduleDir |
         |pathsInModule pathsInModuleAsArgument|
 
-        pathsInModule := pathesInRepository
+        pathsInModule := pathsInRepository
                     select:[:pathInRepository |
                         |moduleOfThisPath|
 
@@ -5800,7 +5798,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 '.
@@ -5830,12 +5828,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