Change class names back to previous class names (i.e. 'GRReXXX' to 'GRXXX')

Johan Brichau · Johan Brichau · commit 1031a70fafec · 2024-01-07T20:46:06.000+01:00
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st
@@ -11,8 +11,8 @@ initialize
 		replace: '`@string includesSubString: `@subString'
 			with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0';
 		replace: '`@string includesSubstring: `@subString'
-			with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'
-		"replace: '``@string findTokens: ``@arg' withValueFrom: [ :node |
+			with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0';
+		replace: '``@string findTokens: ``@arg' byEvaluating: [ :node |
 			| argument |
 			argument := node arguments first.
 			argument isLiteralNode ifTrue: [
@@ -22,4 +22,4 @@ initialize
 					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ].
 			node
 				selector: #subStrings:;
-				yourself ]"
+				yourself ]
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeBlockLintRule",
+	"super" : "GRSlimeBlockLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeParseTreeLintRule",
+	"super" : "GRSlimeParseTreeLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRInvalidObjectInitializationRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeBlockLintRule",
+	"super" : "GRSlimeBlockLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRNonPortableMessageRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeBlockLintRule",
+	"super" : "GRSlimeBlockLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "pmm 9/12/2009 10:37",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/class/isVisible.st
diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st
diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/class/isVisible.st
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/README.md
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st
@@ -0,0 +1,4 @@
+testing
+isVisible
+
+	^ self name ~= #GRSlimeBlockLintRule
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/properties.json
@@ -6,6 +6,6 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [ ],
-	"name" : "GRReSlimeBlockLintRule",
+	"name" : "GRSlimeBlockLintRule",
 	"type" : "normal"
 }
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/README.md
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st
@@ -0,0 +1,4 @@
+testing
+isVisible
+
+	^ self name ~= #GRSlimeParseTreeLintRule
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/properties.json
@@ -6,6 +6,6 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [ ],
-	"name" : "GRReSlimeParseTreeLintRule",
+	"name" : "GRSlimeParseTreeLintRule",
 	"type" : "normal"
 }
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/README.md
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st
@@ -0,0 +1,4 @@
+testing
+isVisible
+
+	^ self name ~= #GRSlimeTransformationRule
diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/properties.json
@@ -6,6 +6,6 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [ ],
-	"name" : "GRReSlimeTransformationRule",
+	"name" : "GRSlimeTransformationRule",
 	"type" : "normal"
 }
diff --git a/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "pmm 8/17/2014 11:24",
-	"super" : "GRReSlimeTransformationRule",
+	"super" : "GRSlimeTransformationRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeParseTreeLintRule",
+	"super" : "GRSlimeParseTreeLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRUsesClassForHashRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeParseTreeLintRule",
+	"super" : "GRSlimeParseTreeLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/class/isAbstract.st b/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/class/isAbstract.st
@@ -1,4 +1,4 @@
 testing
 isAbstract 
 
-	^ self == GRUsesNotPortableClassRule
+	^ self name = #GRUsesNotPortableClassRule
diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/class/isVisible.st
@@ -0,0 +1,4 @@
+testing
+isVisible
+
+	^ self name ~= #GRUsesNotPortableClassRule
diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/properties.json
@@ -1,6 +1,6 @@
 {
 	"commentStamp" : "",
-	"super" : "GRReSlimeBlockLintRule",
+	"super" : "GRSlimeBlockLintRule",
 	"category" : "Grease-Pharo110-Slime",
 	"classinstvars" : [ ],
 	"pools" : [ ],
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st
@@ -2,7 +2,7 @@ running
 rules
 
 	^ (OrderedCollection new
-		addAll: GRReSlimeBlockLintRule allSubclasses;
-		addAll: GRReSlimeParseTreeLintRule allSubclasses;
-		addAll: GRReSlimeTransformationRule allSubclasses;
+		addAll: GRSlimeBlockLintRule allSubclasses;
+		addAll: GRSlimeParseTreeLintRule allSubclasses;
+		addAll: GRSlimeTransformationRule allSubclasses;
 		yourself) reject: #isAbstract

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`{`
`2`	`2`	`"commentStamp" : "",`
`3`		`- "super" : "GRReSlimeTransformationRule",`
	`3`	`+ "super" : "GRSlimeTransformationRule",`
`4`	`4`	`"category" : "Grease-Pharo110-Slime",`
`5`	`5`	`"classinstvars" : [ ],`
`6`	`6`	`"pools" : [ ],`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`{`
`2`	`2`	`"commentStamp" : "",`
`3`		`- "super" : "GRReSlimeBlockLintRule",`
	`3`	`+ "super" : "GRSlimeBlockLintRule",`
`4`	`4`	`"category" : "Grease-Pharo110-Slime",`
`5`	`5`	`"classinstvars" : [ ],`
`6`	`6`	`"pools" : [ ],`