Ported all transformation Slime rules

repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st

@@ -0,0 +1,30 @@
+initialization
+initialize
+	super initialize.
+	self
+		replace: '``@collection withIndexDo: [ :`each :`index |  | `@temps | ``@.body ]'
+			with: '``@collection keysAndValuesDo: [ :`index :`each |  | `@temps | ``@.body ]';
+		replace: '``@collection doWithIndex: [ :`each :`index |  | `@temps | ``@.body ]'
+			with: '``@collection keysAndValuesDo: [ :`index :`each |  | `@temps | ``@.body ]';
+		replace: '``@collection collect: ``@block1 thenDo: ``@block2'
+			with: '(``@collection collect: ``@block1) do: ``@block2';
+		replace: '``@collection collect: ``@block1 thenSelect: ``@block2'
+			with: '(``@collection collect: ``@block1) select: ``@block2';
+		replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]'
+			with: '1 to: ``@collection size by: 2 do:  [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]';
+		replace: '``@collection reject: ``@block1 thenDo: ``@block2'
+			with: '(``@collection reject: ``@block1) do: ``@block2';
+		replace: '``@collection select: ``@block1 thenCollect: ``@block2'
+			with: '(``@collection select: ``@block1) collect: ``@block2';
+		replace: '``@collection select: ``@block1 thenDo: ``@block2'
+			with: '(``@collection select: ``@block1) do: ``@block2';
+		replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]'
+			with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]';
+		replace: '``@collection valuesDo: ``@block'
+			with: '``@collection do: ``@block';
+		replace: '``@collection reversed'
+			with: '``@collection reverse';
+		replace: '``@dictionary keysSortedSafely'
+			with: '``@dictionary keys asSortedCollection';
+		replace: '``@collectionClass new: ``@size withAll: ``@character'
+			with: '(``@collectionClass new: ``@size) atAllPut: ``@character'

repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Collections'

repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.'

repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiCollectionsRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st

@@ -0,0 +1,17 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '``@boolean ifNotNilDo: ``@block'
+			with: '``@boolean ifNotNil: ``@block';
+		replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2'
+			with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2';
+		replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2'
+			with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2';
+		replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]'
+			with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]';
+		replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block '
+			with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block';
+		replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]'
+			with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]'

repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Conditionals'

repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.'

repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiConditionalsRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st

@@ -0,0 +1,7 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '``@object asString' with: '``@object greaseString';
+		replace: '``@object asInteger' with: '``@object greaseInteger'

repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Convertors'

repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'The ANSI standard does not support #asInteger and #asString on Object.'

repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiConvertorRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st

@@ -0,0 +1,7 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '``@block on: `class do: [ | `@temps | ``@.body ]'
+			with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]'

repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Exceptions'

repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'Exception handlers expect exactly one argument in ANSI.'

repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiExceptionsRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st

@@ -0,0 +1,13 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr'
+			with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr';
+		replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf'
+			with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf';
+		replace: '``@stream nextPut: Character cr; nextPut: Character lf'
+			with: '``@stream crlf';
+		replace: '``@collection writeStream'
+			with: 'WriteStream on: ``@collection'

repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Streams'

repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ '#cr and #lf are not part of the ANSI stream protocol.'

repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiStreamsRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st

@@ -0,0 +1,25 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: 'String tab' with: '(String with: Character tab)';
+		replace: 'String cr' with: '(String with: Character cr)';
+		replace: 'String lf' with: '(String with: Character lf)';
+		replace: 'String crlf' with: '(String with: Character cr with: Character lf)';
+		replace: 'String space' with: '(String with: Character space)';
+		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 |
+			| argument |
+			argument := node arguments first.
+			argument isLiteralNode ifTrue: [
+				argument value isArray
+					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ].
+				argument value isCharacter
+					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ].
+			node
+				selector: #subStrings:;
+				yourself ]"

repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Strings'

repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.'

repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiStringsRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'Grease Portability'

repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st

@@ -0,0 +1,9 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '`@collection beginsWith: `@subCollection'
+			with: '`@collection greaseBeginsWith: `@subCollection';
+		replace: '`@collection endsWith: `@subCollection'
+			with: '`@collection greaseEndsWith: `@subCollection'

repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Collections'

repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ '#beginsWith: and #endsWith: are not portable.'

repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRNotPortableCollectionsRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/README.md

@@ -0,0 +1 @@
+I detect senders of Object >> #in:

repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'Grease Portability'

repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/instance/initialize.st

@@ -0,0 +1,7 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '``@object in: [ :`var | | `@temps | `@.statements ]'
+		with: '[ :`var | | `@temps | `@.statements ] value: ``@object'

repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Object>>#in:'

repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'Object>>#in: has different semantics on different Smalltalk dialects.'

repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "pmm 9/12/2009 10:37",
+	"super" : "GRReSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRObjectInRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/README.md

@@ -0,0 +1 @@
+I check for TestCase >> #fail.

repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st

@@ -0,0 +1,8 @@
+hooks
+afterCheck: aNode mappings: mappingsDict
+
+	aNode methodNode methodClass isMeta
+		ifTrue: [ ^ false ].
+	(aNode methodNode methodClass allSuperclasses includes: (Smalltalk at: #TestCase))
+		ifTrue: [ ^ true ].
+	^ false