Skip to content

sourcecodestring retrieval across dialects #189

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
jbrichau merged 9 commits into from
Jul 24, 2025
Merged

sourcecodestring retrieval across dialects #189

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
3f36c42
added a method to retrieve source code from a compiledmethod to GRPla…
Jul 23, 2025
e1dca3b
add test
Jul 23, 2025
bebf68a
Merge branch 'master' into devwork
Jul 23, 2025
d67ab30
moved implementation of sourcecodeStringOf: to Pharo package
Jul 23, 2025
79e4951
fix test
Jul 23, 2025
a1e4973
added Squeak and GemStone implementations
Jul 23, 2025
874b2aa
correct Squeak version
Jul 23, 2025
f5f3d5a
add to pharo 7-8-9
Jul 23, 2025
25c3529
fix
Jul 24, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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."
Expand Down
2 changes: 1 addition & 1 deletion repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
file library
meta-object-protocol
removeSelector: aSymbol from: aClass
self subclassResponsibility
5 changes: 5 additions & 0 deletions repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
meta-object-protocol
sourceCodeStringOf: aCompiledMethod
"Return a String with the source code for a compiled method."

self subclassResponsibility
5 changes: 5 additions & 0 deletions ...ory/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
meta-object-protocol
sourceCodeStringOf: aCompiledMethod
"Return a String with the source code for a compiled method."

^ self convertToSmalltalkNewlines: aCompiledMethod _sourceString
5 changes: 5 additions & 0 deletions ...sitory/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
meta-object-protocol
sourceCodeStringOf: aCompiledMethod
"Return a String with the source code for a compiled method."

^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
5 changes: 5 additions & 0 deletions repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
meta-object-protocol
sourceCodeStringOf: aCompiledMethod
"Return a String with the source code for a compiled method."

^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
5 changes: 5 additions & 0 deletions repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
meta-object-protocol
sourceCodeStringOf: aCompiledMethod
"Return a String with the source code for a compiled method."

^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
5 changes: 5 additions & 0 deletions ...sitory/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
meta-object-protocol
sourceCodeStringOf: aCompiledMethod
"Return a String with the source code for a compiled method."

^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile
2 changes: 1 addition & 1 deletion repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
tests-file library
tests-mop
testCompileAsciiString
| selector expected source |

Expand Down
2 changes: 1 addition & 1 deletion ...itory/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
tests-file library
tests-mop
testCompileUnicodeString
| selector expected source |
selector := #stringMethod.
Expand Down
11 changes: 11 additions & 0 deletions repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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'
Loading