diff --git a/README.md b/README.md index c4fa80b6..c9d2d025 100644 --- a/README.md +++ b/README.md @@ -16,7 +16,7 @@ Grease is widely adopted. Implementations exist already for all platforms that s ## Platform compatibility -The latest Grease version is supported on the Pharo and GemStone/S platforms and versions tested in the SmalltalkCI workflow in Github Actions: [![smalltalkCI](https://github.com/SeasideSt/Grease/actions/workflows/ci.yml/badge.svg?branch=master)](https://github.com/SeasideSt/Grease/actions/workflows/ci.yml) [![codecov](https://codecov.io/gh/SeasideSt/Grease/branch/master/graph/badge.svg?token=75NIYAHAGI)](https://codecov.io/gh/SeasideSt/Grease) +The latest Grease version is supported on the Pharo, GemStone/S, Squeak, and VAST (not part of this repository) platforms and versions tested in the SmalltalkCI workflow in Github Actions: [![smalltalkCI](https://github.com/SeasideSt/Grease/actions/workflows/ci.yml/badge.svg?branch=master)](https://github.com/SeasideSt/Grease/actions/workflows/ci.yml) [![codecov](https://codecov.io/gh/SeasideSt/Grease/branch/master/graph/badge.svg?token=75NIYAHAGI)](https://codecov.io/gh/SeasideSt/Grease) ## Installation diff --git a/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st index eeb82dc0..29d3253c 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st @@ -1,3 +1,4 @@ accessing-repositories greaseUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Grease11/main' \ No newline at end of file + "The original URL: http://smalltalkhub.com/mc/Seaside/Grease11/main" + ^ 'https://github.com/SeasideSt/Grease' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st index 4318263e..9c8af671 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st @@ -1,3 +1,4 @@ accessing-repositories seasideAddonsUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Seaside30Addons/main' \ No newline at end of file + "The original URL http://smalltalkhub.com/mc/Seaside/Seaside30Addons/main" + ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st index 7ee4f19a..5e015008 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st @@ -1,3 +1,4 @@ accessing-repositories seasideLGPLUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Seaside30LGPL/main' \ No newline at end of file + "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" + ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st index bca3c123..1981c392 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st @@ -1,3 +1,4 @@ accessing-repositories seasideUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Seaside31/main' \ No newline at end of file + "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" + ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file 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 index 419d7169..0f0bbaf0 100644 --- 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 index 2c0c7aed..5e1bfedd 100644 --- 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 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..76902771 --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st index 61899e24..72943d47 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/version.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/version.st @@ -2,5 +2,5 @@ version info version "Answer the Grease version" - ^ (GRVersion major: 1 minor: 19 revision: 0) + ^ (GRVersion major: 1 minor: 19 revision: 1) yourself \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..d34a7e25 --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..3ed3d44c --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..3ed3d44c --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..3ed3d44c --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..6131cf3d --- /dev/null +++ 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 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st index 2b2644b9..ef7be170 100644 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st +++ b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st @@ -1,5 +1,5 @@ tests testDescription self assert: package description isNil. - package description: 'A hopeless pacakge'. - self assert: package description = 'A hopeless pacakge' \ No newline at end of file + package description: 'A hopeless package'. + self assert: package description = 'A hopeless package' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st index 6b5d9978..cac5ef2b 100644 --- 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 index a02b1ac5..116559bd 100644 --- 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 new file mode 100644 index 00000000..64a5c334 --- /dev/null +++ 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' \ No newline at end of file