sourcecodestring retrieval across dialects (#189)

jbrichau · web-flow · commit a1954f83a831 · 2025-07-24T16:43:44.000+03:00
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st b/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st
@@ -1,4 +1,4 @@
-file library
+meta-object-protocol
 compile: aString into: aClass classified: aSymbol
 	"The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test.
 	This also makes running tests much faster."
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st
@@ -1,3 +1,3 @@
-file library
+meta-object-protocol
 removeSelector: aSymbol from: aClass
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	self subclassResponsibility
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod _sourceString
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st
@@ -1,4 +1,4 @@
-tests-file library
+tests-mop
 testCompileAsciiString
 	| selector expected source |
 	
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st
@@ -1,4 +1,4 @@
-tests-file library
+tests-mop
 testCompileUnicodeString
 	| selector expected source |
 	selector := #stringMethod.
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
@@ -0,0 +1,11 @@
+tests-mop
+testSourceCodeStringOf
+
+	| sourceCodeString |
+	sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:.
+	self
+		assert: sourceCodeString
+		equals: 'sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	self subclassResponsibility'

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-file library`
	`1`	`+meta-object-protocol`
`2`	`2`	`compile: aString into: aClass classified: aSymbol`
`3`	`3`	`"The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test.`
`4`	`4`	`This also makes running tests much faster."`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-tests-file library`
	`1`	`+tests-mop`
`2`	`2`	`testCompileAsciiString`
`3`	`3`	`\| selector expected source \|`
`4`	`4`