From d8b8221f14a6beac75550be92a4a382c993eaf0f Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 11 Nov 2021 13:33:11 +0100 Subject: [PATCH 1/9] Prepare for removal of TextConverter in Pharo: pull out the GRPharoZnUtf8CodecStream from the TextConverter-based code --- .../GRPharoUtf8Codec.class/instance/decode..st | 3 ++- .../GRPharoUtf8Codec.class/instance/decoderFor..st | 5 ++--- .../GRPharoUtf8Codec.class/instance/encoderFor..st | 5 ++--- .../README.md | 0 .../instance/greaseNext.putAll.startingAt..st | 3 +++ .../instance/initializeOn..st | 4 ++++ .../instance/next..st | 8 ++++++++ .../instance/next.st | 7 +++++++ .../instance/nextPut..st | 3 +++ .../instance/nextPutAll..st | 3 +++ .../GRPharoZnUtf8CodecStream.class/properties.json | 13 +++++++++++++ .../instance/nextPutAll..st | 5 ----- .../GRZnUtf8CodecStream.class/properties.json | 14 -------------- 13 files changed, 47 insertions(+), 26 deletions(-) rename repository/Grease-Pharo90-Core.package/{GRZnUtf8CodecStream.class => GRPharoZnUtf8CodecStream.class}/README.md (100%) create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st index 9d34dca9..50487356 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -1,3 +1,4 @@ convenience decode: aByteArray - ^ aByteArray utf8Decoded \ No newline at end of file + "^ super decode: aByteArray asByteArray" + ^ aByteArray asByteArray utf8Decoded \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st index e2ffb007..0c2be49b 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st @@ -1,5 +1,4 @@ conversion decoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: ZnCharacterEncoder utf8 \ No newline at end of file + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st index c3e8d325..0e80cdaf 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st @@ -1,5 +1,4 @@ conversion encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: ZnCharacterEncoder utf8 \ No newline at end of file + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..73411a20 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +accessing +greaseNext: anInteger putAll: aCollection startingAt: startIndex + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st new file mode 100644 index 00000000..ece3cda0 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aStream + super initializeOn: aStream. + encoder := ZnCharacterEncoder utf8 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..b5f1ff9a --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +accessing +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..72be26ab --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st @@ -0,0 +1,7 @@ +accessing +next + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..30014e3d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +accessing +nextPut: aCharacter + encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..a30c4507 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,3 @@ +streaming +nextPutAll: aString + aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..8be438da --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index 848b6f13..00000000 --- a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json deleted file mode 100644 index 5dc73ef1..00000000 --- a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRZnUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file From 44bda627b81e811f9e3c9b6d50ecf4909e710db7 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 11 Nov 2021 14:15:04 +0100 Subject: [PATCH 2/9] include pharo10 --- .../BaselineOfGrease.class/instance/baselinePharo..st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st index 7884ef23..205e9539 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st @@ -45,7 +45,7 @@ baselinePharo: spec group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. spec - for: #'pharo9.x' + for: #(#'pharo9.x' #'pharo10.x') do: [ spec package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ]; From 81d4903e6a45225e97315c94cd629fbee9a49ce0 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 11 Nov 2021 14:15:37 +0100 Subject: [PATCH 3/9] include Pharo10 in the CI actions --- .github/workflows/ci.yml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 5b36f4d1..0ab4e68f 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -8,11 +8,13 @@ jobs: strategy: fail-fast: false matrix: - smalltalk: [ Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.1, GemStone64-3.5.6, 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-10.0, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.2, GemStone64-3.5.6, 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 ] experimental: [ false ] include: - smalltalk: Squeak64-trunk experimental: true + - smalltalk: Pharo64-10 + experimental: true continue-on-error: ${{ matrix.experimental }} name: ${{ matrix.smalltalk }} steps: From 4dbda185a36a26b43b5bb1b1a1605181502002ad Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 11 Nov 2021 14:20:02 +0100 Subject: [PATCH 4/9] typo... --- .github/workflows/ci.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 0ab4e68f..acc4068e 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -8,7 +8,7 @@ jobs: strategy: fail-fast: false matrix: - smalltalk: [ Pharo64-10.0, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.2, GemStone64-3.5.6, 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-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.2, GemStone64-3.5.6, 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 ] experimental: [ false ] include: - smalltalk: Squeak64-trunk From 8f5255d8483bb08408d4f3c84f31fa87309108bd Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Mon, 27 Dec 2021 09:40:18 +0100 Subject: [PATCH 5/9] update gemstone version (mostly to trigger build again) --- .github/workflows/ci.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index acc4068e..bd9cb538 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -8,7 +8,7 @@ jobs: strategy: fail-fast: false matrix: - smalltalk: [ Pharo64-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.2, GemStone64-3.5.6, 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-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 ] experimental: [ false ] include: - smalltalk: Squeak64-trunk From 2c53cddb2ecca9e6629c7f8df119d912c4c715a6 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 16 Jan 2022 16:02:45 +0100 Subject: [PATCH 6/9] - Rename GRPharoUtf8CodecStream to GRPharoDeprecatedUtf8CodecStream - do not fall back to `utf8Decoded` message in `GRPharoUtf8Codec>>decode:` --- .../GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st | 2 +- .../GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st | 2 +- .../README.md | 0 .../class/initialize.st | 0 .../instance/crlf.st | 0 .../instance/encodeDefault..st | 0 .../instance/encodeFast..st | 0 .../instance/greaseNext.putAll.startingAt..st | 0 .../instance/greaseNext.putAllFast.startingAt..st | 0 .../instance/invalidUtf8.st | 0 .../instance/next..st | 0 .../instance/next.st | 0 .../instance/nextPut..st | 0 .../instance/nextPutAll..st | 0 .../properties.json | 2 +- .../GRPharoUtf8Codec.class/instance/decode..st | 5 ++--- .../GRPharoZnUtf8CodecStream.class/instance/next.st | 3 +-- .../GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st | 2 +- 18 files changed, 7 insertions(+), 9 deletions(-) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/README.md (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/class/initialize.st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/crlf.st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/encodeDefault..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/encodeFast..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/greaseNext.putAll.startingAt..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/greaseNext.putAllFast.startingAt..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/invalidUtf8.st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/next..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/next.st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/nextPut..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/instance/nextPutAll..st (100%) rename repository/Grease-Pharo90-Core.package/{GRPharoUtf8CodecStream.class => GRPharoDeprecatedUtf8CodecStream.class}/properties.json (85%) diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st index c5b13f52..9a221440 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st @@ -1,5 +1,5 @@ convenience decoderFor: aStream - ^ GRPharoUtf8CodecStream + ^ GRPharoDeprecatedUtf8CodecStream on: aStream converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st index 21975caa..ad1614eb 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st @@ -1,5 +1,5 @@ convenience encoderFor: aStream - ^ GRPharoUtf8CodecStream + ^ GRPharoDeprecatedUtf8CodecStream on: aStream converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json similarity index 85% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/properties.json rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json index 837ace13..789907b9 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json @@ -9,6 +9,6 @@ "Latin1ToUtf8Map" ], "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", + "name" : "GRPharoDeprecatedUtf8CodecStream", "type" : "normal" } \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st index 50487356..e9869000 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -1,4 +1,3 @@ convenience -decode: aByteArray - "^ super decode: aByteArray asByteArray" - ^ aByteArray asByteArray utf8Decoded \ No newline at end of file +decode: aStringOrByteArray + ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st index 72be26ab..ccde08f3 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st @@ -3,5 +3,4 @@ next | character | stream atEnd ifTrue: [ ^ nil ]. character := encoder nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file + ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st index a30c4507..f8f3e8e4 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st @@ -1,3 +1,3 @@ streaming nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file + aString asString do:[ :each | self nextPut: each ] \ No newline at end of file From c75170bc03778cda4c616343fa67fc368e7ca09b Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 16 Jan 2022 16:34:48 +0100 Subject: [PATCH 7/9] Use the Zn-based utf8 codec in Pharo by default --- .../Grease-Core.package/GRPlatform.class/instance/version.st | 2 +- .../GRPharoPlatform.class/instance/utf8CodecClass.st | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st index c721c9a6..481d901b 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: 7 revision: 5) + ^ (GRVersion major: 1 minor: 8 revision: 0) yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st index 0732dee6..86376f5c 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st @@ -2,7 +2,7 @@ utf8 codec utf8CodecClass ^ utf8DeprecatedCodecFlag - ifNil: [ GRPharoDeprecatedUtf8Codec ] + ifNil: [ GRPharoUtf8Codec ] ifNotNil: [ utf8DeprecatedCodecFlag ifTrue:[ GRPharoDeprecatedUtf8Codec ] ifFalse: [ GRPharoUtf8Codec ] ] \ No newline at end of file From 1e872b6d10771afb532954c063394c0ae227b2d4 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 16 Jan 2022 16:50:09 +0100 Subject: [PATCH 8/9] Added Grease-Pharo10-Core as a copy of Grease-Pharo90-Core and removed the GRDeprecatedUtf8CodecStream class>>initialize method that errored during code load due to the TextConverter not working anymore. --- .../instance/baselinePharo..st | 20 +++++++- .../Grease-Pharo10-Core.package/.filetree | 5 ++ .../Behavior.extension/instance/fullName.st | 5 ++ .../Behavior.extension/properties.json | 3 ++ .../instance/valueWithPossibleArguments..st | 11 +++++ .../BlockClosure.extension/properties.json | 3 ++ .../instance/greaseString.st | 4 ++ .../ByteArray.extension/properties.json | 3 ++ .../instance/greaseInteger.st | 4 ++ .../Character.extension/properties.json | 3 ++ .../Collection.extension/instance/any.st | 3 ++ .../Collection.extension/properties.json | 3 ++ .../Color.extension/instance/asHTMLColor.st | 3 ++ .../Color.extension/properties.json | 3 ++ .../Duration.extension/class/milliseconds..st | 3 ++ .../instance/asMilliseconds.st | 3 ++ .../instance/milliseconds.st | 3 ++ .../Duration.extension/properties.json | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 3 ++ .../properties.json | 3 ++ .../GRDynamicVariable.class/README.md | 0 .../class/defaultValue.st | 3 ++ .../class/use.during..st | 5 ++ .../instance/default.st | 3 ++ .../GRDynamicVariable.class/properties.json | 11 +++++ .../class/greasePharo70Core.st | 7 +++ .../GRPackage.extension/properties.json | 3 ++ .../README.md | 7 +++ .../class/on.converter..st | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 3 ++ .../instance/initializeOn.converter..st | 4 ++ .../instance/next..st | 8 ++++ .../instance/next.st | 6 +++ .../instance/nextPut..st | 3 ++ .../instance/nextPutAll..st | 3 ++ .../properties.json | 13 ++++++ .../README.md | 0 .../class/basicForEncoding..st | 3 ++ .../class/codecs.st | 5 ++ .../class/supportsEncoding..st | 3 ++ .../instance/decode..st | 36 +++++++++++++++ .../instance/decoderFor..st | 5 ++ .../instance/encodedStringClass.st | 3 ++ .../instance/encoderFor..st | 5 ++ .../instance/invalidUtf8.st | 3 ++ .../instance/name.st | 3 ++ .../instance/url.st | 3 ++ .../properties.json | 11 +++++ .../README.md | 1 + .../instance/crlf.st | 4 ++ .../instance/encodeDefault..st | 5 ++ .../instance/encodeFast..st | 14 ++++++ .../instance/greaseNext.putAll.startingAt..st | 5 ++ .../greaseNext.putAllFast.startingAt..st | 17 +++++++ .../instance/invalidUtf8.st | 3 ++ .../instance/next..st | 46 +++++++++++++++++++ .../instance/next.st | 3 ++ .../instance/nextPut..st | 11 +++++ .../instance/nextPutAll..st | 5 ++ .../properties.json | 14 ++++++ .../GRPharoGenericCodec.class/README.md | 0 .../class/basicForEncoding..st | 5 ++ .../GRPharoGenericCodec.class/class/codecs.st | 8 ++++ .../class/supportedEncodingNames.st | 8 ++++ .../class/supportsEncoding..st | 4 ++ .../instance/converter.st | 3 ++ .../instance/decoderFor..st | 3 ++ .../instance/encoderFor..st | 5 ++ .../instance/initializeWithName..st | 7 +++ .../instance/name.st | 3 ++ .../GRPharoGenericCodec.class/instance/url.st | 5 ++ .../GRPharoGenericCodec.class/properties.json | 14 ++++++ .../GRPharoLatin1Codec.class/README.md | 1 + .../class/basicForEncoding..st | 5 ++ .../GRPharoLatin1Codec.class/class/codecs.st | 3 ++ .../class/supportedEncodingNames.st | 3 ++ .../class/supportsEncoding..st | 4 ++ .../instance/decode..st | 5 ++ .../instance/decoderFor..st | 4 ++ .../instance/encoderFor..st | 4 ++ .../instance/initializeWithName..st | 4 ++ .../GRPharoLatin1Codec.class/instance/name.st | 3 ++ .../GRPharoLatin1Codec.class/properties.json | 13 ++++++ .../GRPharoLatin1CodecStream.class/README.md | 1 + .../instance/next..st | 3 ++ .../instance/next.st | 3 ++ .../properties.json | 11 +++++ .../GRPharoPlatform.class/README.md | 1 + .../GRPharoPlatform.class/class/initialize.st | 5 ++ .../class/initializeUrlTable.st | 7 +++ .../class/initializeXmlTable.st | 7 +++ .../GRPharoPlatform.class/class/unload.st | 3 ++ .../instance/addToShutDownList..st | 5 ++ .../instance/addToStartUpList..st | 5 ++ .../asMethodReturningByteArray.named..st | 6 +++ ...sMethodReturningByteArrayLiteral.named..st | 10 ++++ ...ethodReturningByteArrayWithCache.named..st | 10 ++++ .../instance/base64Decode..st | 3 ++ .../instance/bindingOf..st | 4 ++ .../instance/compile.into.classified..st | 3 ++ .../instance/contentsOfFile.binary..st | 3 ++ .../instance/directoriesIn..st | 8 ++++ .../instance/doSilently..st | 3 ++ .../instance/ensureExistenceOfFolder..st | 4 ++ .../instance/fileExists..st | 3 ++ .../instance/filesIn..st | 8 ++++ .../instance/isProcessTerminated..st | 4 ++ .../GRPharoPlatform.class/instance/label.st | 3 ++ .../instance/localNameOf..st | 3 ++ .../instance/newRandom.st | 10 ++++ .../GRPharoPlatform.class/instance/newline.st | 3 ++ .../instance/openDebuggerOn..st | 18 ++++++++ .../instance/pathSeparator.st | 3 ++ .../instance/readFileStreamOn.do.binary..st | 6 +++ .../instance/readWriteByteStream.st | 5 ++ .../instance/readWriteCharacterStream.st | 5 ++ .../instance/removeFromShutDownList..st | 5 ++ .../instance/removeFromStartUpList..st | 5 ++ .../instance/removeSelector.from..st | 3 ++ .../instance/secureHashFor..st | 3 ++ .../instance/semaphoreClass.st | 4 ++ .../setutf8CodectoDeprecatedTextConverter.st | 4 ++ .../instance/setutf8CodectoZinc.st | 4 ++ .../instance/stackDepth.st | 10 ++++ .../instance/terminateProcess..st | 4 ++ .../instance/thisContext.st | 4 ++ .../instance/useByteArrayLiterals.st | 4 ++ .../instance/utf8CodecClass.st | 8 ++++ .../instance/weakDictionaryOfSize..st | 3 ++ .../instance/write.toFile.inFolder..st | 7 +++ .../instance/writeFileStreamOn.do.binary..st | 5 ++ .../GRPharoPlatform.class/properties.json | 16 +++++++ .../GRPharoRandomProvider.class/README.md | 0 .../class/initialize.st | 4 ++ .../class/nextInt..st | 6 +++ .../class/randomClass.st | 3 ++ .../class/randomFrom..st | 11 +++++ .../class/startUp.st | 4 ++ .../class/unload.st | 3 ++ .../properties.json | 14 ++++++ .../GRPharoUtf8Codec.class/README.md | 1 + .../class/basicForEncoding..st | 3 ++ .../GRPharoUtf8Codec.class/class/codecs.st | 5 ++ .../class/supportsEncoding..st | 3 ++ .../instance/decode..st | 3 ++ .../instance/decoderFor..st | 4 ++ .../instance/encodedStringClass.st | 3 ++ .../instance/encoderFor..st | 4 ++ .../instance/invalidUtf8.st | 3 ++ .../GRPharoUtf8Codec.class/instance/name.st | 3 ++ .../GRPharoUtf8Codec.class/instance/url.st | 3 ++ .../GRPharoUtf8Codec.class/properties.json | 11 +++++ .../GRPharoZnUtf8CodecStream.class/README.md | 0 .../instance/greaseNext.putAll.startingAt..st | 3 ++ .../instance/initializeOn..st | 4 ++ .../instance/next..st | 8 ++++ .../instance/next.st | 6 +++ .../instance/nextPut..st | 3 ++ .../instance/nextPutAll..st | 3 ++ .../properties.json | 13 ++++++ .../instance/inspectionItems..st | 15 ++++++ .../properties.json | 3 ++ .../instance/inspectionItems..st | 15 ++++++ .../properties.json | 3 ++ .../Interval.extension/instance/any.st | 6 +++ .../Interval.extension/properties.json | 3 ++ .../instance/argumentCount.st | 3 ++ .../instance/valueWithPossibleArguments..st | 7 +++ .../MessageSend.extension/properties.json | 3 ++ .../Number.extension/instance/milliseconds.st | 3 ++ .../Number.extension/properties.json | 3 ++ .../Object.extension/instance/greaseString.st | 3 ++ .../Object.extension/properties.json | 3 ++ .../Point.extension/instance/greaseString.st | 13 ++++++ .../Point.extension/properties.json | 3 ++ .../instance/greaseUpToAll..st | 5 ++ .../properties.json | 3 ++ .../instance/encodeOn..st | 5 ++ .../instance/greaseString.st | 5 ++ .../ScaledDecimal.extension/properties.json | 3 ++ .../instance/beginsWithSubCollection..st | 4 ++ .../instance/endsWithSubCollection..st | 4 ++ .../properties.json | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 13 ++++++ .../SocketStream.extension/properties.json | 3 ++ .../instance/greaseAsMutator.st | 3 ++ .../Symbol.extension/properties.json | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 4 ++ .../WriteStream.extension/properties.json | 3 ++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../properties.json | 1 + 193 files changed, 1040 insertions(+), 1 deletion(-) create mode 100644 repository/Grease-Pharo10-Core.package/.filetree create mode 100644 repository/Grease-Pharo10-Core.package/Behavior.extension/instance/fullName.st create mode 100644 repository/Grease-Pharo10-Core.package/Behavior.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st create mode 100644 repository/Grease-Pharo10-Core.package/BlockClosure.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/ByteArray.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo10-Core.package/ByteArray.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Character.extension/instance/greaseInteger.st create mode 100644 repository/Grease-Pharo10-Core.package/Character.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Collection.extension/instance/any.st create mode 100644 repository/Grease-Pharo10-Core.package/Collection.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Color.extension/instance/asHTMLColor.st create mode 100644 repository/Grease-Pharo10-Core.package/Color.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Duration.extension/class/milliseconds..st create mode 100644 repository/Grease-Pharo10-Core.package/Duration.extension/instance/asMilliseconds.st create mode 100644 repository/Grease-Pharo10-Core.package/Duration.extension/instance/milliseconds.st create mode 100644 repository/Grease-Pharo10-Core.package/Duration.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/defaultValue.st create mode 100644 repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/use.during..st create mode 100644 repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/instance/default.st create mode 100644 repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo70Core.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPackage.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/codecs.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/converter.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/name.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/url.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/codecs.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decode..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/name.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initialize.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/unload.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/base64Decode..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/bindingOf..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/directoriesIn..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/doSilently..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/fileExists..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/filesIn..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/label.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/localNameOf..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newRandom.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newline.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/pathSeparator.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/secureHashFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/stackDepth.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/terminateProcess..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/thisContext.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/initialize.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/nextInt..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomClass.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomFrom..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/startUp.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/unload.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/codecs.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decode..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/name.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/url.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/README.md create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st create mode 100644 repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st create mode 100644 repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Interval.extension/instance/any.st create mode 100644 repository/Grease-Pharo10-Core.package/Interval.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/argumentCount.st create mode 100644 repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st create mode 100644 repository/Grease-Pharo10-Core.package/MessageSend.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Number.extension/instance/milliseconds.st create mode 100644 repository/Grease-Pharo10-Core.package/Number.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Object.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo10-Core.package/Object.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Point.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo10-Core.package/Point.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/PositionableStream.extension/instance/greaseUpToAll..st create mode 100644 repository/Grease-Pharo10-Core.package/PositionableStream.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/encodeOn..st create mode 100644 repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st create mode 100644 repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st create mode 100644 repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/SocketStream.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/Symbol.extension/instance/greaseAsMutator.st create mode 100644 repository/Grease-Pharo10-Core.package/Symbol.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json create mode 100644 repository/Grease-Pharo10-Core.package/monticello.meta/categories.st create mode 100644 repository/Grease-Pharo10-Core.package/monticello.meta/initializers.st create mode 100644 repository/Grease-Pharo10-Core.package/monticello.meta/package create mode 100644 repository/Grease-Pharo10-Core.package/properties.json diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st index 205e9539..1961bc59 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st @@ -45,7 +45,7 @@ baselinePharo: spec group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. spec - for: #(#'pharo9.x' #'pharo10.x') + for: #(#'pharo9.x') do: [ spec package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ]; @@ -58,6 +58,24 @@ baselinePharo: spec package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ]; package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ]. + spec + group: 'Slime' with: #('Grease-Pharo90-Slime'); + group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. + + spec + for: #(#'pharo10.x') + do: [ + spec + package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo10-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo10-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo10-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ]. + spec group: 'Slime' with: #('Grease-Pharo90-Slime'); group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/.filetree b/repository/Grease-Pharo10-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo10-Core.package/Behavior.extension/instance/fullName.st new file mode 100644 index 00000000..64736adf --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Behavior.extension/instance/fullName.st @@ -0,0 +1,5 @@ +*Grease-Pharo10-Core +fullName + "In VW, will include the namespace" + + ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo10-Core.package/Behavior.extension/properties.json new file mode 100644 index 00000000..c4116c4c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Behavior.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Behavior" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo10-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..37299816 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,11 @@ +*Grease-Pharo10-Core +valueWithPossibleArguments: anArray + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo10-Core.package/BlockClosure.extension/properties.json new file mode 100644 index 00000000..2190e5e2 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/BlockClosure.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BlockClosure" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo10-Core.package/ByteArray.extension/instance/greaseString.st new file mode 100644 index 00000000..01618238 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/ByteArray.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*Grease-Pharo10-Core +greaseString + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo10-Core.package/ByteArray.extension/properties.json new file mode 100644 index 00000000..f81bcb8d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/ByteArray.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ByteArray" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo10-Core.package/Character.extension/instance/greaseInteger.st new file mode 100644 index 00000000..a177a60b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Character.extension/instance/greaseInteger.st @@ -0,0 +1,4 @@ +*Grease-Pharo10-Core +greaseInteger + "Answer an unicode code point of the receiver." + ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Character.extension/properties.json b/repository/Grease-Pharo10-Core.package/Character.extension/properties.json new file mode 100644 index 00000000..5219281d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Character.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Character" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo10-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..aa5b9731 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +any + ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo10-Core.package/Collection.extension/properties.json new file mode 100644 index 00000000..48f9f8d9 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Collection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Collection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo10-Core.package/Color.extension/instance/asHTMLColor.st new file mode 100644 index 00000000..25979e62 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Color.extension/instance/asHTMLColor.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +asHTMLColor + ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Color.extension/properties.json b/repository/Grease-Pharo10-Core.package/Color.extension/properties.json new file mode 100644 index 00000000..8b86fc95 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Color.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Color" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo10-Core.package/Duration.extension/class/milliseconds..st new file mode 100644 index 00000000..c3f008b3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Duration.extension/class/milliseconds..st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +milliseconds: anInteger + ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo10-Core.package/Duration.extension/instance/asMilliseconds.st new file mode 100644 index 00000000..17d32897 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Duration.extension/instance/asMilliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +asMilliseconds + ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo10-Core.package/Duration.extension/instance/milliseconds.st new file mode 100644 index 00000000..94198a88 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Duration.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +milliseconds + ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo10-Core.package/Duration.extension/properties.json new file mode 100644 index 00000000..d141a092 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Duration.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Duration" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..1b3fcdf7 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +greaseNext: anInteger putAll: aCollection startingAt: startIndex + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/properties.json new file mode 100644 index 00000000..5ec29ea0 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRDelegatingStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRDelegatingStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..3d7f6377 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/defaultValue.st @@ -0,0 +1,3 @@ +defaults +defaultValue + ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/use.during..st new file mode 100644 index 00000000..1e03f82f --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/class/use.during..st @@ -0,0 +1,5 @@ +accessing +use: anObject during: aBlock + ^ self + value: anObject + during: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/instance/default.st new file mode 100644 index 00000000..59cb6f1b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/instance/default.st @@ -0,0 +1,3 @@ +accessing +default + ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/properties.json new file mode 100644 index 00000000..f4c6b16e --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "DynamicVariable", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRDynamicVariable", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo70Core.st b/repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo70Core.st new file mode 100644 index 00000000..71a7a5c7 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo70Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo10-Core +greasePharo70Core + ^ self new + name: 'Grease-Pharo90-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo10-Core.package/GRPackage.extension/properties.json new file mode 100644 index 00000000..ae522a7e --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/README.md new file mode 100644 index 00000000..7620280e --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/README.md @@ -0,0 +1,7 @@ +A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st new file mode 100644 index 00000000..de8cd791 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st @@ -0,0 +1,3 @@ +instance creation +on: aStream converter: aConverter + ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..8321e299 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st new file mode 100644 index 00000000..c380485d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aStream converter: aConverter + self initializeOn: aStream. + converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next..st new file mode 100644 index 00000000..ef51837b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +streaming +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next.st new file mode 100644 index 00000000..eee99a1a --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +streaming +next + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..e65f56c4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +streaming +nextPut: aCharacter + converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..a30c4507 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st @@ -0,0 +1,3 @@ +streaming +nextPutAll: aString + aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/properties.json new file mode 100644 index 00000000..84458196 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoConverterCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "pmm 6/25/2012 20:22", + "super" : "GRCodecStream", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "converter" + ], + "name" : "GRPharoConverterCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..d4c4a74b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st @@ -0,0 +1,3 @@ +private +basicForEncoding: aString + ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st new file mode 100644 index 00000000..6e52e620 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st @@ -0,0 +1,5 @@ +accessing +codecs + ^ GRPlatform current utf8CodecClass == self + ifTrue:[ Array with: self new ] + ifFalse: [ Array new ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..cf74d916 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +testing +supportsEncoding: aString + ^ GRPlatform current utf8CodecClass == self and: [(#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st new file mode 100644 index 00000000..60eea74c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st @@ -0,0 +1,36 @@ +convenience +decode: aString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode stream | + stream := aString readStream. + outStream := WriteStream on: (String new: aString size). + [ stream atEnd not ] whileTrue: [ + byte1 := stream next asInteger. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63) ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next asInteger. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63) ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..9a221440 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,5 @@ +convenience +decoderFor: aStream + ^ GRPharoDeprecatedUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..97aca951 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ String \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..ad1614eb --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +convenience +encoderFor: aStream + ^ GRPharoDeprecatedUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st new file mode 100644 index 00000000..bf9b0111 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +convenience +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st new file mode 100644 index 00000000..7886c830 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st new file mode 100644 index 00000000..4696d714 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st @@ -0,0 +1,3 @@ +accessing +url + ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json new file mode 100644 index 00000000..7fbb2356 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoDeprecatedUtf8Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md new file mode 100644 index 00000000..08323f18 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md @@ -0,0 +1 @@ +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st new file mode 100644 index 00000000..ba607092 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st @@ -0,0 +1,4 @@ +streaming +crlf + stream nextPut: Character cr. + stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st new file mode 100644 index 00000000..cdd58a41 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st @@ -0,0 +1,5 @@ +private +encodeDefault: aString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st new file mode 100644 index 00000000..9a8a0dc3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st @@ -0,0 +1,14 @@ +private +encodeFast: aByteString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..cd78fbe0 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,5 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st new file mode 100644 index 00000000..a4c114cb --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st @@ -0,0 +1,17 @@ +private +greaseNext: anInteger putAllFast: aByteString startingAt: startIndex + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st new file mode 100644 index 00000000..e4481c22 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +private +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..116f524d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st @@ -0,0 +1,46 @@ +streaming +next: anInteger + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..4363f086 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st @@ -0,0 +1,3 @@ +streaming +next + ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..ad2d94ab --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,11 @@ +streaming +nextPut: aCharacter + | codePoint shouldEncode | + codePoint := aCharacter codePoint. + codePoint > 255 + ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] + \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..b9136110 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..419803be --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:27", + "super" : "GRPharoConverterCodecStream", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "Latin1ToUtf8Encodings", + "Latin1ToUtf8Map" + ], + "instvars" : [ ], + "name" : "GRPharoDeprecatedUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st new file mode 100644 index 00000000..f6b18bd4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st @@ -0,0 +1,5 @@ +private +basicForEncoding: aString + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/codecs.st new file mode 100644 index 00000000..f1293d05 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/codecs.st @@ -0,0 +1,8 @@ +accessing +codecs + ^ (TextConverter allEncodingNames + select: [ :each | + "exclude UFT-8 which is handeled by WAUtf8Codec" + self supportsEncoding: each ]) + collect: [ :each | + self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..d1c6d00b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st @@ -0,0 +1,8 @@ +private +supportedEncodingNames + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st new file mode 100644 index 00000000..43a27325 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st @@ -0,0 +1,4 @@ +testing +supportsEncoding: aString + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/converter.st new file mode 100644 index 00000000..02b8754b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/converter.st @@ -0,0 +1,3 @@ +private +converter + ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st new file mode 100644 index 00000000..be53dfea --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st @@ -0,0 +1,3 @@ +conversion +decoderFor: aStream + ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st new file mode 100644 index 00000000..94f2fc13 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRPharoConverterCodecStream + on: aStream + converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st new file mode 100644 index 00000000..fe95783c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st @@ -0,0 +1,7 @@ +initialization +initializeWithName: aString + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf-8' ] + ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/name.st new file mode 100644 index 00000000..22077c20 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/url.st new file mode 100644 index 00000000..232ad239 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/instance/url.st @@ -0,0 +1,5 @@ +accessing +url + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/properties.json new file mode 100644 index 00000000..239a5cd3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoGenericCodec.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name", + "urlCodec" + ], + "name" : "GRPharoGenericCodec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/README.md new file mode 100644 index 00000000..3f437d62 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/README.md @@ -0,0 +1 @@ +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..f6b18bd4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st @@ -0,0 +1,5 @@ +private +basicForEncoding: aString + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/codecs.st new file mode 100644 index 00000000..7a96b703 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..e5dca068 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st @@ -0,0 +1,3 @@ +private +supportedEncodingNames + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..bc591573 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st @@ -0,0 +1,4 @@ +private +supportsEncoding: aString + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decode..st new file mode 100644 index 00000000..5f73b526 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decode..st @@ -0,0 +1,5 @@ +conversion +decode: aStringOrByteArray + "Overridden for efficencey." + + ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..256dbac4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st @@ -0,0 +1,4 @@ +conversion +decoderFor: aReadStream + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..20102849 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st @@ -0,0 +1,4 @@ +conversion +encoderFor: aWriteStream + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st new file mode 100644 index 00000000..b0256973 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st @@ -0,0 +1,4 @@ +initialization +initializeWithName: aString + self initialize. + name := aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/name.st new file mode 100644 index 00000000..22077c20 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/properties.json new file mode 100644 index 00000000..a50980da --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1Codec.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodec", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name" + ], + "name" : "GRPharoLatin1Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/README.md new file mode 100644 index 00000000..e1c2471b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/README.md @@ -0,0 +1 @@ +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next..st new file mode 100644 index 00000000..a734bc76 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next..st @@ -0,0 +1,3 @@ +streaming +next: anInteger + ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next.st new file mode 100644 index 00000000..bf70df58 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/instance/next.st @@ -0,0 +1,3 @@ +streaming +next + ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/properties.json new file mode 100644 index 00000000..37d5386d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoLatin1CodecStream.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodecStream", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoLatin1CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/README.md new file mode 100644 index 00000000..f0375aac --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/README.md @@ -0,0 +1 @@ +A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initialize.st new file mode 100644 index 00000000..0c86564c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initialize.st @@ -0,0 +1,5 @@ +class initialization +initialize + self initializeXmlTable. + self initializeUrlTable. + self select \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st new file mode 100644 index 00000000..9abf56b7 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st @@ -0,0 +1,7 @@ +class initialization +initializeUrlTable + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st new file mode 100644 index 00000000..830a5595 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st @@ -0,0 +1,7 @@ +class initialization +initializeXmlTable + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/unload.st new file mode 100644 index 00000000..4c8dd650 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/class/unload.st @@ -0,0 +1,3 @@ +class initialization +unload + self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st new file mode 100644 index 00000000..f8d3ad5f --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st @@ -0,0 +1,5 @@ +startup +addToShutDownList: anObject + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st new file mode 100644 index 00000000..c4ab1dea --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st @@ -0,0 +1,5 @@ +startup +addToStartUpList: aClass + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + SessionManager default registerUserClassNamed: aClass name. \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st new file mode 100644 index 00000000..ba4a0727 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st @@ -0,0 +1,6 @@ +file library +asMethodReturningByteArray: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st new file mode 100644 index 00000000..90bb405c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st @@ -0,0 +1,10 @@ +private-file library +asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st new file mode 100644 index 00000000..a1f9fe07 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st @@ -0,0 +1,10 @@ +private-file library +asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/base64Decode..st new file mode 100644 index 00000000..3fb71b1a --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/base64Decode..st @@ -0,0 +1,3 @@ +encoding +base64Decode: aString + ^ aString base64Decoded asString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/bindingOf..st new file mode 100644 index 00000000..e878c01b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/bindingOf..st @@ -0,0 +1,4 @@ +bindings +bindingOf: aClass + + ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st new file mode 100644 index 00000000..45c37a45 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st @@ -0,0 +1,3 @@ +file library +compile: aString into: aClass classified: aSymbol + aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st new file mode 100644 index 00000000..ecfdc9d4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -0,0 +1,3 @@ +file library +contentsOfFile: aString binary: aBoolean + ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/directoriesIn..st new file mode 100644 index 00000000..c5beee09 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/directoriesIn..st @@ -0,0 +1,8 @@ +file library +directoriesIn: aPathString + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/doSilently..st new file mode 100644 index 00000000..9ea296ff --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/doSilently..st @@ -0,0 +1,3 @@ +private +doSilently: aBlock + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st new file mode 100644 index 00000000..907e0168 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -0,0 +1,4 @@ +file library +ensureExistenceOfFolder: aString + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/fileExists..st new file mode 100644 index 00000000..2a02cc3f --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -0,0 +1,3 @@ +file library +fileExists: aString + ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/filesIn..st new file mode 100644 index 00000000..e3b9a6b0 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/filesIn..st @@ -0,0 +1,8 @@ +file library +filesIn: aPathString + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st new file mode 100644 index 00000000..03b50778 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st @@ -0,0 +1,4 @@ +processes +isProcessTerminated: aProcess + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/label.st new file mode 100644 index 00000000..f3b036e2 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/label.st @@ -0,0 +1,3 @@ +version info +label + ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/localNameOf..st new file mode 100644 index 00000000..8f4efb85 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -0,0 +1,3 @@ +file library +localNameOf: aFilename + ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newRandom.st new file mode 100644 index 00000000..9d90824d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newRandom.st @@ -0,0 +1,10 @@ +factory +newRandom + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newline.st new file mode 100644 index 00000000..1219045d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/newline.st @@ -0,0 +1,3 @@ +file library +newline + ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st new file mode 100644 index 00000000..305157e2 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st @@ -0,0 +1,18 @@ +exceptions +openDebuggerOn: anError + | process | + process := Processor activeProcess. + "If we are running in the UI process, we don't want to suspend the active process. The + error was presumably triggered while stepping in the Debugger. If we simply immediately + signal an UnhandledError, the debugger will catch this and display the signaling context. + It isn't perfect or pretty but it works." + (ProcessBrowser isUIProcess: process) + ifTrue: [ + UnhandledError signalForException: anError ] + ifFalse: [ + WorldState addDeferredUIMessage: [ + UIManager default + requestDebuggerOpeningForProcess: process + named: anError description + inContext: anError signalerContext ]. + process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/pathSeparator.st new file mode 100644 index 00000000..10f88300 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -0,0 +1,3 @@ +file library +pathSeparator + ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st new file mode 100644 index 00000000..1852f83e --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -0,0 +1,6 @@ +file library +readFileStreamOn: aString do: aBlock binary: aBoolean + + ^ aBoolean + ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] + ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st new file mode 100644 index 00000000..db9518ee --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st @@ -0,0 +1,5 @@ +factory +readWriteByteStream + "ByteArray based read write stream" + + ^ ReadWriteStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st new file mode 100644 index 00000000..3f94c5af --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st @@ -0,0 +1,5 @@ +factory +readWriteCharacterStream + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st new file mode 100644 index 00000000..58137e33 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st @@ -0,0 +1,5 @@ +startup +removeFromShutDownList: aClass + "Remove aClass from the shutdown list in the system." + + SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st new file mode 100644 index 00000000..76918209 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st @@ -0,0 +1,5 @@ +startup +removeFromStartUpList: aClass + "Remove aClass from the startup list in the system." + + SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st new file mode 100644 index 00000000..92cbd7ff --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st @@ -0,0 +1,3 @@ +file library +removeSelector: aSymbol from: aClass + aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/secureHashFor..st new file mode 100644 index 00000000..46b9e2d2 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/secureHashFor..st @@ -0,0 +1,3 @@ +cryptography +secureHashFor: aString + ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st new file mode 100644 index 00000000..ceccf9e3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st @@ -0,0 +1,4 @@ +factory +semaphoreClass + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st new file mode 100644 index 00000000..dc394f4f --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st @@ -0,0 +1,4 @@ +utf8 codec +setutf8CodectoDeprecatedTextConverter + "Set to the GRPharoDeprecatedUtf8Codec that uses the deprecated TextConverter for utf8 encoding" + utf8DeprecatedCodecFlag := true \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st new file mode 100644 index 00000000..2f43e9ab --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st @@ -0,0 +1,4 @@ +utf8 codec +setutf8CodectoZinc + "Set to GRPharoUtf8Codec that uses Zinc for utf8 encoding" + utf8DeprecatedCodecFlag := false \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/stackDepth.st new file mode 100644 index 00000000..d7e6feab --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/stackDepth.st @@ -0,0 +1,10 @@ +exceptions +stackDepth + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/terminateProcess..st new file mode 100644 index 00000000..a09b96e1 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/terminateProcess..st @@ -0,0 +1,4 @@ +processes +terminateProcess: aProcess + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/thisContext.st new file mode 100644 index 00000000..c936ecad --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/thisContext.st @@ -0,0 +1,4 @@ +processes +thisContext + + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st new file mode 100644 index 00000000..71b0f2cf --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st @@ -0,0 +1,4 @@ +private-file library +useByteArrayLiterals + "whether ByteArray literals can/should be used" + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st new file mode 100644 index 00000000..86376f5c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st @@ -0,0 +1,8 @@ +utf8 codec +utf8CodecClass + + ^ utf8DeprecatedCodecFlag + ifNil: [ GRPharoUtf8Codec ] + ifNotNil: [ utf8DeprecatedCodecFlag + ifTrue:[ GRPharoDeprecatedUtf8Codec ] + ifFalse: [ GRPharoUtf8Codec ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st new file mode 100644 index 00000000..b0ca3d82 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st @@ -0,0 +1,3 @@ +factory +weakDictionaryOfSize: aNumber + ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st new file mode 100644 index 00000000..bbde965a --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st @@ -0,0 +1,7 @@ +file library +write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + ^ self + writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString + do: [ :stream | stream nextPutAll: aStringOrByteArray ] + binary: aStringOrByteArray isString not \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st new file mode 100644 index 00000000..0b43135e --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -0,0 +1,5 @@ +file library +writeFileStreamOn: aString do: aBlock binary: aBoolean + ^ aBoolean + ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/properties.json new file mode 100644 index 00000000..c2b116eb --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoPlatform.class/properties.json @@ -0,0 +1,16 @@ +{ + "commentStamp" : "pmm 6/1/2008 01:03", + "super" : "GRPlatform", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "UrlTable", + "XmlTable" + ], + "instvars" : [ + "utf8DeprecatedCodecFlag" + ], + "name" : "GRPharoPlatform", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/initialize.st new file mode 100644 index 00000000..04ca54c3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/initialize.st @@ -0,0 +1,4 @@ +private +initialize + Smalltalk addToStartUpList: self. + self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/nextInt..st new file mode 100644 index 00000000..1036c2f7 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/nextInt..st @@ -0,0 +1,6 @@ +public +nextInt: anInteger + + "Answer a random integer in the interval [1, anInteger]" + + ^ mutex critical: [ generator nextInteger: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomClass.st new file mode 100644 index 00000000..85a2db91 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomClass.st @@ -0,0 +1,3 @@ +private +randomClass + ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomFrom..st new file mode 100644 index 00000000..a5fe470c --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/randomFrom..st @@ -0,0 +1,11 @@ +public +randomFrom: aCollection + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/startUp.st new file mode 100644 index 00000000..663a5243 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/startUp.st @@ -0,0 +1,4 @@ +class initialization +startUp + generator := self randomClass new. + mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/unload.st new file mode 100644 index 00000000..fd4cb930 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/class/unload.st @@ -0,0 +1,3 @@ +private +unload + GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/properties.json new file mode 100644 index 00000000..420f8496 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoRandomProvider.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRObject", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ + "mutex", + "generator" + ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoRandomProvider", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/README.md new file mode 100644 index 00000000..c6047951 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/README.md @@ -0,0 +1 @@ +A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..d4c4a74b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st @@ -0,0 +1,3 @@ +private +basicForEncoding: aString + ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/codecs.st new file mode 100644 index 00000000..6e52e620 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/codecs.st @@ -0,0 +1,5 @@ +accessing +codecs + ^ GRPlatform current utf8CodecClass == self + ifTrue:[ Array with: self new ] + ifFalse: [ Array new ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..54e91f2e --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +private +supportsEncoding: aString + ^ GRPlatform current utf8CodecClass == self and: [ (#('utf-8' 'UTF-8' 'utf8') includes: aString) ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decode..st new file mode 100644 index 00000000..e9869000 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -0,0 +1,3 @@ +convenience +decode: aStringOrByteArray + ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..0c2be49b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,4 @@ +conversion +decoderFor: aStream + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..6e5de896 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..0e80cdaf --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,4 @@ +conversion +encoderFor: aStream + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st new file mode 100644 index 00000000..e4481c22 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +private +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/name.st new file mode 100644 index 00000000..7886c830 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/url.st new file mode 100644 index 00000000..4696d714 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/instance/url.st @@ -0,0 +1,3 @@ +accessing +url + ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/properties.json new file mode 100644 index 00000000..6a2947a4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoUtf8Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:51", + "super" : "GRCodec", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoUtf8Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..73411a20 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +accessing +greaseNext: anInteger putAll: aCollection startingAt: startIndex + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st new file mode 100644 index 00000000..ece3cda0 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aStream + super initializeOn: aStream. + encoder := ZnCharacterEncoder utf8 \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..b5f1ff9a --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +accessing +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +accessing +next + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..30014e3d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +accessing +nextPut: aCharacter + encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..f8f3e8e4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,3 @@ +streaming +nextPutAll: aString + aString asString do:[ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..7072b9d4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRPharoZnUtf8CodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo10-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st new file mode 100644 index 00000000..c29d6add --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo10-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/properties.json new file mode 100644 index 00000000..0d78b749 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRSmallDictionary.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..c29d6add --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo10-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/properties.json new file mode 100644 index 00000000..c5c0f1c8 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/GRSmallDictionary2.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary2" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo10-Core.package/Interval.extension/instance/any.st new file mode 100644 index 00000000..428f5133 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Interval.extension/instance/any.st @@ -0,0 +1,6 @@ +*Grease-Pharo10-Core +any + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo10-Core.package/Interval.extension/properties.json new file mode 100644 index 00000000..534eb553 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Interval.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Interval" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/argumentCount.st new file mode 100644 index 00000000..e749e242 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/argumentCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +argumentCount + ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..569d5bc6 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,7 @@ +*Grease-Pharo10-Core +valueWithPossibleArguments: anArray + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo10-Core.package/MessageSend.extension/properties.json new file mode 100644 index 00000000..00669b90 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/MessageSend.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "MessageSend" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo10-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..806c5c4d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +milliseconds + ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Number.extension/properties.json b/repository/Grease-Pharo10-Core.package/Number.extension/properties.json new file mode 100644 index 00000000..71dace88 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Number.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Number" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo10-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..0b9be79a --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Object.extension/properties.json b/repository/Grease-Pharo10-Core.package/Object.extension/properties.json new file mode 100644 index 00000000..f30a86e1 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Object.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo10-Core.package/Point.extension/instance/greaseString.st new file mode 100644 index 00000000..06c93324 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Point.extension/instance/greaseString.st @@ -0,0 +1,13 @@ +*Grease-Pharo10-Core +greaseString + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Point.extension/properties.json b/repository/Grease-Pharo10-Core.package/Point.extension/properties.json new file mode 100644 index 00000000..c6cf8dd5 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Point.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Point" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo10-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..0ee79bee --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -0,0 +1,5 @@ +*Grease-Pharo10-Core +greaseUpToAll: aCollection + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo10-Core.package/PositionableStream.extension/properties.json new file mode 100644 index 00000000..8e090ee3 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/PositionableStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "PositionableStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..530466b4 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,5 @@ +*Grease-Pharo10-Core +encodeOn: aDocument + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..cf75a0b0 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*Grease-Pharo10-Core +greaseString + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/properties.json new file mode 100644 index 00000000..75f85f87 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/ScaledDecimal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ScaledDecimal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st new file mode 100644 index 00000000..28978138 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +1,4 @@ +*Grease-Pharo10-Core +beginsWithSubCollection: aSequenceableCollection + "Some platforms implement #beginsWith: to answer true for an empty argument." + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st new file mode 100644 index 00000000..d6e1bad8 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +1,4 @@ +*Grease-Pharo10-Core +endsWithSubCollection: aSequenceableCollection + "Some platforms implement #endsWith: to answer true for an empty argument." + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json new file mode 100644 index 00000000..a68b7db6 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SequenceableCollection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo10-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..e164123b --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,13 @@ +*Grease-Pharo10-Core +greaseNext: anInteger putAll: aCollection startingAt: startIndex + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo10-Core.package/SocketStream.extension/properties.json new file mode 100644 index 00000000..797e09e5 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/SocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SocketStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo10-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..8d27a1f9 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*Grease-Pharo10-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo10-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..8c6bce81 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/Symbol.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Symbol" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..9ad05459 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,4 @@ +*Grease-Pharo10-Core +greaseNext: anInteger putAll: aCollection startingAt: startIndex + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json new file mode 100644 index 00000000..8688e80d --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "WriteStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo10-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..127df9b0 --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Pharo10-Core'! diff --git a/repository/Grease-Pharo10-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo10-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo10-Core.package/monticello.meta/package b/repository/Grease-Pharo10-Core.package/monticello.meta/package new file mode 100644 index 00000000..dad6b8fe --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo10-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/properties.json b/repository/Grease-Pharo10-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo10-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file From deed35e890227de02503c5a31b539a81f428f5ce Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 16 Jan 2022 17:49:17 +0100 Subject: [PATCH 9/9] remove unused class inst vars on GRGemStoneRandomProvider --- .../GRGemStoneRandomProvider.class/properties.json | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json index f9eb4680..7ca29622 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json +++ b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json @@ -1,8 +1,7 @@ { "category" : "Grease-GemStone-Core", "classinstvars" : [ - "mutex", - "generator" ], + ], "classvars" : [ ], "commentStamp" : "",