feenkcom · JurajKubelka · Mar 30, 2023 · Jul 23, 2022 · Jul 23, 2022 · Jul 23, 2022
diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
@@ -3,50 +3,30 @@ name: smalltalkCI
 on: [push, pull_request]
 
 jobs:
-  build:
-    runs-on: ubuntu-18.04
+  test:
+    runs-on: ubuntu-20.04
     strategy:
       fail-fast: false
       matrix:
-        smalltalk: [ Pharo64-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.3, GemStone64-3.5.7, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6, Squeak64-5.3, Squeak64-5.2, Squeak64-5.1 ]
+        smalltalk: [ Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, GemStone64-3.6.5, GemStone64-3.5.7, Squeak64-5.3 ]
         experimental: [ false ]
         include:
-          - smalltalk: Squeak64-trunk
+          - smalltalk: Squeak64-6.0
             experimental: true
     continue-on-error: ${{ matrix.experimental }}
     name: ${{ matrix.smalltalk }}
     steps:
-      - name: Get current date
-        id: date
-        run: echo "::set-output name=date::$(date +'%Y-%m-%dT%H:%M:%S')"
-      - name: Log date
-        run: echo "${{ steps.date.outputs.date }}"
-      - name: Set default run status
-        run: echo "::set-output name=last_run_status::default" > last_run_status
-      - name: Restore last run status
-        id: last_run
-        uses: actions/cache@v2
-        with:
-          path: |
-            last_run_status
-          key: ${{ github.run_id }}-${{ matrix.smalltalk }}-${{ steps.date.outputs.date }}
-          restore-keys: |
-            ${{ github.run_id }}-${{ matrix.smalltalk }}-
-      - name: Set last run status
-        id: last_run_status
-        run: cat last_run_status
-      - uses: actions/checkout@v2
-        with:
-          ref: ${{ github.event.workflow_dispatch.ref }}
-      - uses: hpi-swa/setup-smalltalkCI@v1
+      - uses: actions/checkout@v3
+      - uses: dalehenrich/setup-smalltalkCI@solo
         with:
           smalltalk-image: ${{ matrix.smalltalk }}
       - name: Run tests
-        id: test_run
-        if: steps.last_run_status.outputs.last_run_status != 'success'
         run: smalltalkci -s ${{ matrix.smalltalk }}
+        env:
+          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
         shell: bash
         timeout-minutes: 20
-      - name: Save run status
-        if: steps.last_run_status.outputs.last_run_status != 'success'
-        run: echo "::set-output name=last_run_status::${{ steps.test_run.outcome }}" > last_run_status
+      - name: Upload coverage to Codecov
+        uses: codecov/codecov-action@v3
+        with:
+          name: ${{ matrix.smalltalk }}
diff --git a/.smalltalk.ston b/.smalltalk.ston
@@ -20,5 +20,15 @@ SmalltalkCISpec {
       #load : [ 'Tests' ],
       #platforms : [ #gemstone ]
     }
-  ]
+  ],
+  #testing : {
+      #defaultTimeout : 30,
+			#include : {
+				#classes : [ #SentButNotImplementedTest , #UndefinedSymbolsTest ]
+			},
+      #coverage : {
+        #packages: [ 'Grease*' ],
+        #format: #lcov
+      }
+	}
 }
diff --git a/LICENSE.md b/LICENSE.md
@@ -0,0 +1,24 @@
+# MIT License
+
+Copyright © 2001 –- 2009 Avi Bryant, Julian Fitzell
+Copyright © 2007 –- 2009 Lukas Renggli, Michel Bany, Philippe Marschall
+Copyright © Seaside Contributors https://github.com/SeasideSt/Seaside/wiki/Contributors
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
diff --git 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)
+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)
 
 ## Installation
 

diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st
@@ -1,17 +1,6 @@
 baselines
 baselinePharo: spec
 
-	spec
-		for: #(#'pharo5.x')
-		do: [ spec
-				package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo30-Core') ];
-				package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ];
-				package: 'Grease-Tests-Core'
-					with: [ spec
-						requires: #('Grease-Pharo30-Core');
-						includes: #('Grease-Tests-Pharo-Core') ];
-				package: 'Grease-Pharo30-Core' with: [ spec requires: #('Grease-Core') ] ].
-
 	spec
 		for: #'pharo6.x'
 		do: [ spec
@@ -36,7 +25,7 @@ baselinePharo: spec
 
 	spec
 		for: #(#'pharo6.x' #'pharo7.x' #'pharo8.x')
-		do: [ 
+		do: [
 			spec
 				package: 'Grease-Pharo40-Slime' with: [ spec requires: #('Grease-Core') ];
 				package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo40-Slime') ].
@@ -46,7 +35,7 @@ baselinePharo: spec
 
 	spec
 		for: #(#'pharo9.x')
-		do: [ 
+		do: [
 			spec
 				package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ];
 				package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ];
@@ -61,10 +50,10 @@ baselinePharo: spec
 			spec
 				group: 'Slime' with: #('Grease-Pharo90-Slime');
 				group: 'Slime Tests' with: #('Grease-Tests-Slime') ].
-				
+
 	spec
-		for: #(#'pharo10.x')
-		do: [ 
+		for: #(#'pharo10.x' #'pharo11.x')
+		do: [
 			spec
 				package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo100-Core') ];
 				package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ];
@@ -78,4 +67,4 @@ baselinePharo: spec
 
 			spec
 				group: 'Slime' with: #('Grease-Pharo90-Slime');
-				group: 'Slime Tests' with: #('Grease-Tests-Slime') ].
+				group: 'Slime Tests' with: #('Grease-Tests-Slime') ]
diff --git a/repository/BaselineOfGrease.package/monticello.meta/categories.st b/repository/BaselineOfGrease.package/monticello.meta/categories.st
@@ -1 +1,2 @@
 SystemOrganization addCategory: #BaselineOfGrease!
+SystemOrganization addCategory: #'BaselineOfGrease-Manifest'!
diff --git a/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st b/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st
@@ -2,7 +2,7 @@ instance creation
 forEncoding: aString
 	"Answer a new codec instance for the given encoding name. Raise an WAUnsupportedEncodingError if the encoding name is not supported by this image."
 
-	self allSubclassesDo: [ :each | 
+	self allSubclassesDo: [ :each |
 		(each supportsEncoding: aString)
 			ifTrue: [ ^ each basicForEncoding: aString ] ].
 	^ self unsupportedEncoding: aString
diff --git a/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st b/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st
@@ -1,5 +1,5 @@
 conversion
 decoderFor: aReadStream
-	"Wrap aReadStream with an decoder for the codec of the receiver. Answer a read stream that delegates to and shares the state of aReadStream." 
-	
+	"Wrap aReadStream with an decoder for the codec of the receiver. Answer a read stream that delegates to and shares the state of aReadStream."
+
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st b/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st
@@ -1,5 +1,5 @@
 conversion
 encoderFor: aWriteStream
 	"Wrap aWriteStream with an encoder for the codec of the receiver. Answer a write stream that delegates to and shares the state of aWriteStream."
-	
+
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st
@@ -1,6 +1,6 @@
 instance creation
-receiver: anObject selector: aSymbol 
-	^ self basicNew 
+receiver: anObject selector: aSymbol
+	^ self basicNew
 		initializeWithReceiver: anObject
 			message: (GRUnboundMessage selector: aSymbol);
 		yourself
diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st
@@ -1,6 +1,6 @@
 instance creation
-receiver: anObject selector: aSymbol arguments: anArray 
-	^ self basicNew 
+receiver: anObject selector: aSymbol arguments: anArray
+	^ self basicNew
 		initializeWithReceiver: anObject
 			message: (GRBoundMessage selector: aSymbol arguments: anArray);
 		yourself
diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st b/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st
@@ -1,5 +1,5 @@
 accessing
 argumentCount
 	"Answer the number of arguments that must be provided to the receiver when sending it."
-	
+
 	^ message argumentCount
diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st
@@ -1,5 +1,5 @@
 delegation
 argumentCount
 	"Answer the number of arguments that must be provided when sending this message."
-	
+
 	self subclassResponsibility
diff --git a/...sitory/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st b/...sitory/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st
@@ -2,5 +2,5 @@ delegation
 valueFor: receiver withArguments: anArray
 	"Send the message to receiver with the arguments in anArray. Answer the result.
 	Signal an error if the number of arguments does not match the selector."
-	
+
 	^ self basicPerformFor: receiver withArguments: (self mergeArguments: anArray)
diff --git a/...rease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st b/...rease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st
@@ -5,7 +5,7 @@ valueFor: receiver withPossibleArguments: anArray
 
 	| allArguments |
 	allArguments := self mergeArguments: anArray.
-	
+
 	^ allArguments size < selector numArgs
 		ifTrue: [ self invalidArgumentCount ]
 		ifFalse: [ self basicPerformFor: receiver withArguments: (allArguments first: selector numArgs) ]
diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st
@@ -0,0 +1,3 @@
+accessing
+position: anInteger
+	^ stream position: anInteger
diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st b/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st
@@ -1,6 +1,6 @@
 instance creation
 block: aBlock next: aPrinter
-	^ self new 
+	^ self new
 		block: aBlock;
 		next: aPrinter;
 		yourself
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st
@@ -1,5 +1,5 @@
 evaluating
 use: anObject during: aBlock
 	"Set the dynamic value of the receiver to anObject during the evaluation of aBlock."
-	
+
 	^ aBlock on: self do: [ :notification | notification resume: anObject ]
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st
@@ -1,5 +1,5 @@
 evaluating
 value
 	"Answer the dynamic value of the receiver."
-	
+
 	^ self signal
diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st b/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st
@@ -1,4 +1,4 @@
 conversion
-decoderFor: aReadStream 
+decoderFor: aReadStream
 	"wrap to avoid String vs ByteArray issues"
 	^ GRNullCodecStream on: aReadStream
diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st b/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st
@@ -1,4 +1,4 @@
 conversion
-encoderFor: aWriteStream 
+encoderFor: aWriteStream
 	"wrap to avoid String vs ByteArray issues"
 	^ GRNullCodecStream on: aWriteStream
diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/url.st b/repository/Grease-Core.package/GRNullCodec.class/instance/url.st
@@ -1,5 +1,5 @@
 accessing
 url
 	"The selfish method. Let's do it with ourselves."
-	
+
 	^ self
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st
@@ -1,5 +1,5 @@
 accessing
 accuracy: aFloat
 	"Round towards the nearest number that is a multiple of aFloat."
-	
+
 	accuracy := aFloat
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st
@@ -8,7 +8,7 @@ digitsOf: aNumber base: aBaseInteger
 	stream := WriteStream on: (String new: 10).
 	[ integer > 0 ] whileTrue: [
 		next := integer quo: aBaseInteger.
-		stream nextPut: (characters 
+		stream nextPut: (characters
 			at: 1 + integer - (next * aBaseInteger)).
 		integer := next ].
 	^ stream contents reverse
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st
@@ -1,5 +1,5 @@
 accessing
 infinite: aString
 	"The string that should be displayed if the number is positive or negative infinity."
-	
+
 	infinite := aString
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st
@@ -7,7 +7,7 @@ lengthOf: aNumber base: aBaseInteger
 	integer := aNumber truncated abs.
 	length := 1.
 	current := aBaseInteger.
-	[ current <= integer ] whileTrue: [ 
+	[ current <= integer ] whileTrue: [
 		length := length + 1.
 		current := current * aBaseInteger ].
 	^ length
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st
@@ -1,5 +1,5 @@
 accessing
 nan: aString
 	"The string that should be displayed if the number is not a number."
-	
+
 	nan := aString
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st
@@ -1,5 +1,5 @@
 accessing
 precision: anInteger
 	"The number of digits to be printed in the fraction part."
-	
+
 	precision := anInteger
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st
@@ -2,7 +2,7 @@ printing
 print: aNumber on: aStream
 	aNumber isNaN
 		ifTrue: [ ^ self printNaN: aNumber on: aStream ].
-	aNumber isInfinite 
+	aNumber isInfinite
 		ifTrue: [ ^ self printInfinite: aNumber on: aStream ].
 	precision = 0
 		ifTrue: [ self printInteger: aNumber on: aStream ]

diff --git a/...sitory/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st b/...sitory/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st
@@ -9,7 +9,7 @@ printDigitsOf: aNumber withLength: aLengthInteger on: aStream
 		| divisor current |
 		divisor := base raisedTo: aLengthInteger - index.
 		current := rest // divisor.
-		separator isNil ifFalse: [ 
+		separator isNil ifFalse: [
 			 (index ~= 1 and: [ (aLengthInteger - index) \\ 3 = 2 ])
 				ifTrue: [ aStream nextPut: separator ] ].
 		aStream nextPut: (characters at: current + 1).

diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st
@@ -2,8 +2,8 @@ printing
 printInteger: aNumber on: aStream
 	| length |
 	length := self lengthOf: aNumber base: base.
-	
+
 	(digits notNil and: [ padding notNil ])
 		ifTrue: [ self padLeft: padding to: (digits - length) on: aStream ].
-	
+
 	self printDigitsOf: aNumber withLength: length on: aStream
diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st
@@ -1,7 +1,7 @@
 utilities
 separate: aString left: aCharacter on: aStream
 	"Separate from the left side every 3 characters with aCharacter."
-		
+
 	| size |
 	size := aString size.
 	1 to: size do: [ :index |
Original file line number	Diff line number	Diff line change
		@@ -1 +1,2 @@
		SystemOrganization addCategory: #BaselineOfGrease!
		SystemOrganization addCategory: #'BaselineOfGrease-Manifest'!