diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 5b36f4d1..67d01c8c 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -8,7 +8,7 @@ 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, 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 diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st index 7884ef23..69725fe7 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') 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-Pharo100-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo100-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo100-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-Pharo30-Core.package/.filetree b/repository/BaselineOfGreaseForGToolkit.package/.filetree similarity index 100% rename from repository/Grease-Pharo30-Core.package/.filetree rename to repository/BaselineOfGreaseForGToolkit.package/.filetree diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/README.md b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/README.md rename to repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/README.md diff --git a/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/instance/baseline..st b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/instance/baseline..st new file mode 100644 index 00000000..ec60f67c --- /dev/null +++ b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/instance/baseline..st @@ -0,0 +1,18 @@ +baselines +baseline: spec + + + spec + for: #common + do: [ + spec blessing: #baseline. + + spec + package: 'Grease-Core'; + package: 'Grease-Tests-Pharo-Core' with: [ + spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' with: [ + spec requires: #('Grease-Pharo90-Core') ]; + package: 'Grease-Pharo90-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') ] ] \ No newline at end of file diff --git a/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/instance/projectClass.st b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/instance/projectClass.st new file mode 100644 index 00000000..1d4f6564 --- /dev/null +++ b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/instance/projectClass.st @@ -0,0 +1,4 @@ +accessing +projectClass + Smalltalk at: #'MetacelloCypressBaselineProject' ifPresent: [ :cl | ^ cl ]. + ^ super projectClass \ No newline at end of file diff --git a/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/properties.json b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/properties.json new file mode 100644 index 00000000..4553e40c --- /dev/null +++ b/repository/BaselineOfGreaseForGToolkit.package/BaselineOfGreaseForGToolkit.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "BaselineOf", + "category" : "BaselineOfGreaseForGToolkit", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "BaselineOfGreaseForGToolkit", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/categories.st b/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/categories.st new file mode 100644 index 00000000..999041af --- /dev/null +++ b/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #BaselineOfGreaseForGToolkit! diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/initializers.st b/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/monticello.meta/initializers.st rename to repository/BaselineOfGreaseForGToolkit.package/monticello.meta/initializers.st diff --git a/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/package b/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/package new file mode 100644 index 00000000..2ba052c0 --- /dev/null +++ b/repository/BaselineOfGreaseForGToolkit.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'BaselineOfGreaseForGToolkit') \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/properties.json b/repository/BaselineOfGreaseForGToolkit.package/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/properties.json rename to repository/BaselineOfGreaseForGToolkit.package/properties.json diff --git a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st index d7d8a964..2707d7f0 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st +++ b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st @@ -14,13 +14,15 @@ resolveWith: aDictionary "try -Pharo70-" aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') ifAbsent: [ "try -Pharo90-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [ - "try -Squeak-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ - "try -Squeak5-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [ - "try -Squeak6-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [ - "specific for Grease-Slime" - aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [ - self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] \ No newline at end of file + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [ + "try -Pharo100-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo100-') ifAbsent: [ + "try -Squeak-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ + "try -Squeak5-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [ + "try -Squeak6-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [ + "specific for Grease-Slime" + aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [ + self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..7b885531 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +file library +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st index c721c9a6..1649dccd 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: 9 revision: 0) yourself \ No newline at end of file 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" : "", diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st new file mode 100644 index 00000000..18d3673a --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st @@ -0,0 +1,7 @@ +accessing +tempNamed: aString + | index | + index := self tempNames indexOf: aString asSymbol. + index = 0 + ifTrue: [ Error raiseSignal: 'No such temp: ' , aString ]. + ^ self tempAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/.filetree b/repository/Grease-Pharo100-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st similarity index 72% rename from repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st rename to repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st index f3df9e7a..5ccb78b4 100644 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st +++ b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core fullName "In VW, will include the namespace" diff --git a/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json new file mode 100644 index 00000000..c4116c4c --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Behavior" +} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st similarity index 92% rename from repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st rename to repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st index 4518c27b..916023ee 100644 --- a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core valueWithPossibleArguments: anArray | args | (anArray size == self numArgs) diff --git a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/BlockClosure.extension/properties.json rename to repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st similarity index 85% rename from repository/Grease-Pharo30-Core.package/ByteArray.extension/instance/greaseString.st rename to repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st index 9a0e01d6..cf96e73f 100644 --- a/repository/Grease-Pharo30-Core.package/ByteArray.extension/instance/greaseString.st +++ b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-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-Pharo30-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/ByteArray.extension/properties.json rename to repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st similarity index 78% rename from repository/Grease-Pharo30-Core.package/Character.extension/instance/greaseInteger.st rename to repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st index 12ba7efd..90558d5a 100644 --- a/repository/Grease-Pharo30-Core.package/Character.extension/instance/greaseInteger.st +++ b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core greaseInteger "Answer an unicode code point of the receiver." ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Character.extension/properties.json b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Character.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Character.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..544e14eb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +any + ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Collection.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Collection.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st new file mode 100644 index 00000000..34cc7fbd --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +asHTMLColor + ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Color.extension/properties.json b/repository/Grease-Pharo100-Core.package/Color.extension/properties.json new file mode 100644 index 00000000..8b86fc95 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Color.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Color" +} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st similarity index 71% rename from repository/Grease-Pharo30-Core.package/Duration.extension/class/milliseconds..st rename to repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st index a758d02a..f5c51190 100644 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/class/milliseconds..st +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core milliseconds: anInteger ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st similarity index 62% rename from repository/Grease-Pharo30-Core.package/Duration.extension/instance/asMilliseconds.st rename to repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st index 285ff98d..043bbad2 100644 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/asMilliseconds.st +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core asMilliseconds ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st similarity index 67% rename from repository/Grease-Pharo30-Core.package/Duration.extension/instance/milliseconds.st rename to repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st index 1e639bfd..215916e7 100644 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/milliseconds.st +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core milliseconds ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Duration.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Duration.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st similarity index 86% rename from repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st index 5a9acb64..c3a17a33 100644 --- a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-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-Pharo30-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/README.md rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st similarity index 65% rename from repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/defaultValue.st rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st index b0275614..3d7f6377 100644 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st @@ -1,3 +1,3 @@ -accessing +defaults defaultValue ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/use.during..st rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/default.st rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json similarity index 66% rename from repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json index 7c37da28..2867fd3d 100644 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json @@ -1,7 +1,7 @@ { - "commentStamp" : "MaxLeske 5/16/2017 22:05", + "commentStamp" : "", "super" : "DynamicVariable", - "category" : "Grease-Pharo30-Core", + "category" : "Grease-Pharo100-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st similarity index 50% rename from repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st rename to repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st index a88ea6ba..241c674a 100644 --- a/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st +++ b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st @@ -1,7 +1,7 @@ -*Grease-Pharo30-Core -greasePharo30Core +*Grease-Pharo100-Core +greasePharo100Core ^ self new - name: 'Grease-Pharo30-Core'; + name: 'Grease-Pharo100-Core'; addDependency: 'Grease-Core'; url: #greaseUrl; yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decode..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json similarity index 84% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json index 9c4baf85..1ffad917 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "GRNullCodec", - "category" : "Grease-Pharo30-Core", + "category" : "Grease-Pharo100-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json similarity index 84% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json index f842b80b..5d9ede87 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "GRNullCodecStream", - "category" : "Grease-Pharo30-Core", + "category" : "Grease-Pharo100-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st similarity index 58% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st index ecbbe65e..c4ab1dea 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st @@ -1,5 +1,5 @@ startup -addToStartUpList: anObject +addToStartUpList: aClass "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - Smalltalk addToStartUpList: anObject \ No newline at end of file + SessionManager default registerUserClassNamed: aClass name. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st new file mode 100644 index 00000000..3fb71b1a --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st new file mode 100644 index 00000000..ecfdc9d4 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo30-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/directoriesIn..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/doSilently..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/label.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..272bb249 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +file library +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newline.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st similarity index 79% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st index b98446f9..305157e2 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st @@ -11,8 +11,8 @@ openDebuggerOn: anError UnhandledError signalForException: anError ] ifFalse: [ WorldState addDeferredUIMessage: [ - process - debug: anError signalerContext - title: anError description - full: true ]. + UIManager default + requestDebuggerOpeningForProcess: process + named: anError description + inContext: anError signalerContext ]. process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st new file mode 100644 index 00000000..1852f83e --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st similarity index 57% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st index 35251d7b..db9518ee 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st @@ -2,4 +2,4 @@ factory readWriteByteStream "ByteArray based read write stream" - ^ RWBinaryOrTextStream on: (ByteArray new: 4096) \ No newline at end of file + ^ ReadWriteStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st new file mode 100644 index 00000000..58137e33 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st new file mode 100644 index 00000000..76918209 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo30-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/stackDepth.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/terminateProcess..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/thisContext.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st new file mode 100644 index 00000000..bbde965a --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st new file mode 100644 index 00000000..0b43135e --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo30-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json similarity index 85% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json index fd949a23..740444f6 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "pmm 6/1/2008 01:03", "super" : "GRPlatform", - "category" : "Grease-Pharo30-Core", + "category" : "Grease-Pharo100-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ diff --git a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/initialize.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st similarity index 60% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st index 593aee36..1036c2f7 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st @@ -1,5 +1,6 @@ public nextInt: anInteger + "Answer a random integer in the interval [1, anInteger]" - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file + ^ mutex critical: [ generator nextInteger: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomClass.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomFrom..st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/startUp.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/unload.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json similarity index 84% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json index 5c8d294a..05172896 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "GRObject", - "category" : "Grease-Pharo30-Core", + "category" : "Grease-Pharo100-Core", "classinstvars" : [ "mutex", "generator" diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st new file mode 100644 index 00000000..068914b5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st @@ -0,0 +1,4 @@ +accessing +codecs + ^ self supportedEncodingNames + collect: [ :each | self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..b424dff3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st @@ -0,0 +1,13 @@ +accessing +supportedEncodingNames + "answers the names of the encodings supported by this class" + + | all | + all := ZnCharacterEncoder knownEncodingIdentifiers asOrderedCollection. + (all includes: 'utf8') + ifTrue:[ all addAll: #('utf-8' 'UTF-8') ]. + (all includes: 'utf16') + ifTrue:[ all addAll: #('utf-16' 'UTF-16') ]. + (all includes: 'macroman') + ifTrue:[ all add: 'mac-roman' ]. + ^ all \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st new file mode 100644 index 00000000..d50a4862 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +accessing +supportsEncoding: aName + ^ self supportedEncodingNames includes: aName \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st new file mode 100644 index 00000000..e9869000 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.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-Pharo30-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st similarity index 64% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st index be53dfea..0e839208 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st @@ -1,3 +1,3 @@ conversion -decoderFor: aStream +decoderFor: aStream ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..6e5de896 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st new file mode 100644 index 00000000..e64e8135 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRPharoZnCodecStream + on: aStream + withEncoder: (ZnCharacterEncoder newForEncoding: self name) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st new file mode 100644 index 00000000..57f52136 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st @@ -0,0 +1,7 @@ +initialization +initializeWithName: aString + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252' 'utf8' 'utf-8' 'UTF-8') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf8' ] + ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/url.st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json similarity index 70% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json index 3fd04eb8..f45c54aa 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "GRCodec", - "category" : "Grease-Pharo30-Core", + "category" : "Grease-Pharo100-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], @@ -9,6 +9,6 @@ "name", "urlCodec" ], - "name" : "GRPharoGenericCodec", + "name" : "GRPharoZnCodec", "type" : "normal" } \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st new file mode 100644 index 00000000..a91977ca --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st @@ -0,0 +1,3 @@ +instance creation +on: aStream withEncoder: aZnEncoder + ^ self basicNew initializeOn: aStream withEncoder: aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 93% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st index 8321e299..73411a20 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -1,3 +1,3 @@ -streaming +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-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st new file mode 100644 index 00000000..8fc52caa --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st @@ -0,0 +1,5 @@ +initialization +initializeOn: aStream withEncoder: aZnEncoder + self initialize. + stream := aStream. + encoder := aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st similarity index 95% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st index ef51837b..b5f1ff9a 100644 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st @@ -1,4 +1,4 @@ -streaming +accessing next: anInteger | writeStream | writeStream := WriteStream on: (String new: anInteger). diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st new file mode 100644 index 00000000..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.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-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..3cad62a0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.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-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..f8f3e8e4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.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-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json new file mode 100644 index 00000000..44040131 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st new file mode 100644 index 00000000..0f446672 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo100-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-Pharo30-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..0f446672 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo100-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-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json new file mode 100644 index 00000000..c5c0f1c8 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary2" +} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st similarity index 86% rename from repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st rename to repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st index 6c9daea2..5568eb95 100644 --- a/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st +++ b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core any "#first (used by SequenceableCollection>>anyOne) is an accessor of Interval and does not error on an empty Interval." diff --git a/repository/Grease-Pharo30-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Interval.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Interval.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st similarity index 71% rename from repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st rename to repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st index 1c64d870..df74aff3 100644 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core argumentCount ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st similarity index 91% rename from repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st rename to repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st index 2838be96..0a56ac34 100644 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core valueWithPossibleArguments: anArray "Evaluate the block represented by the receiver. If the block requires one argument, use anArg, if it requires more than one, diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json rename to repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st similarity index 60% rename from repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st rename to repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st index 0efe7b61..fb4e6ce5 100644 --- a/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st +++ b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core milliseconds ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Number.extension/properties.json b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Number.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Number.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st similarity index 56% rename from repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st rename to repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st index e2b437b6..f23889b4 100644 --- a/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st +++ b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st @@ -1,3 +1,3 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core greaseString ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Object.extension/properties.json b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Object.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Object.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st similarity index 93% rename from repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st rename to repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st index ecde7ba6..1cded0cc 100644 --- a/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st +++ b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core greaseString "Reimplemented because in Pharo 1.4 (4 @ 2) greaseString diff --git a/repository/Grease-Pharo30-Core.package/Point.extension/properties.json b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Point.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Point.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st similarity index 87% rename from repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st rename to repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st index 483cb725..348d9987 100644 --- a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core greaseUpToAll: aCollection "Needed for Seaside ports to other dialects where #upToAll: may have different semantics" diff --git a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st similarity index 87% rename from repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st rename to repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st index 5d361f76..90680805 100644 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core encodeOn: aDocument | converter | converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st similarity index 85% rename from repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st rename to repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st index 7fea0e16..10a8dc02 100644 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-Core greaseString | converter | converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json rename to repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st similarity index 88% rename from repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st rename to repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st index 3acb2e9e..2cd270c8 100644 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-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-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st similarity index 88% rename from repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st rename to repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st index 371cdf37..d3b8f6eb 100644 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-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-Pharo30-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json rename to repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st similarity index 96% rename from repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st index c384e1eb..5e08d17f 100644 --- a/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-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." diff --git a/repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st similarity index 60% rename from repository/Grease-Pharo30-Core.package/Symbol.extension/instance/greaseAsMutator.st rename to repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st index 03f13f59..365aad78 100644 --- a/repository/Grease-Pharo30-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -1,3 +1,3 @@ -*grease-pharo30-core +*Grease-Pharo100-Core greaseAsMutator ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Symbol.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st similarity index 89% rename from repository/Grease-Pharo30-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st index a99cb85a..4059a121 100644 --- a/repository/Grease-Pharo30-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -1,4 +1,4 @@ -*Grease-Pharo30-Core +*Grease-Pharo100-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-Pharo30-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/WriteStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..ecc9aa78 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Pharo100-Core'! diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/package b/repository/Grease-Pharo100-Core.package/monticello.meta/package new file mode 100644 index 00000000..7239cac4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo100-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/properties.json b/repository/Grease-Pharo100-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo30-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 26137218..00000000 --- a/repository/Grease-Pharo30-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index 8083d8aa..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -I represent a dynamic variable i.e., a variable that is -1. process local, that -2. is defined for a given block and that -3. can be nested. - -For example: - -GRDynamicVariable - use: 1 - during: [ - self assert: GRDynamicVariable value = 1. - GRDynamicVariable - use: 2 - during: [ self assert: GRDynamicVariable value = 2 ]. - self assert: GRDynamicVariable value = 1 ]. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/value.during..st b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/value.during..st deleted file mode 100644 index ef0ce8bd..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/value.during..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -value: anObject during: aBlock - | p oldValue | - p := Processor activeProcess. - oldValue := p psValueAt: index. - ^ [ - p psValueAt: index put: anObject. - aBlock value ] ensure: [ p psValueAt: index put: oldValue ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index 7620280e..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -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-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 78d23224..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:22", - "super" : "GRCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "converter" - ], - "name" : "GRPharoConverterCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index f1293d05..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -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-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ TextConverter allEncodingNames - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -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-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -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-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 119ba39b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 09cc5c70..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: anObject - "Remove anObject from the shutdown list in the system." - - Smalltalk removeFromShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index ecd7d527..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: anObject - "Remove anObject from the startup list in the system." - - Smalltalk removeFromStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index e77ae8c1..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,15 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - | folder stream fullFilePath | - folder := FileSystem disk resolveString: aFolderString. - fullFilePath := (folder / aFileNameString) asFileReference. - stream := aStringOrByteArray isString - ifTrue: [ - (MultiByteFileStream forceNewFileNamed: fullFilePath fullName) - ascii; - wantsLineEndConversion: true; - yourself ] - ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st +++ /dev/null @@ -1,4 +0,0 @@ -factory -writeCharacterStreamOn: aString - - ^ GRWorkingWriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -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-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 14e538f0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:51", - "super" : "GRCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index c71cb642..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index f7176f32..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index cbadc3b5..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo30-Core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index e413f59a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I'm a work around for bugs in the Pharo stream classes. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -positioning -reset - self resetToStart \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index df3388a3..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/25/2011 18:30", - "super" : "WriteStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRWorkingWriteStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 4341e0e2..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json b/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json deleted file mode 100644 index f94cdffb..00000000 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "TBehavior" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st deleted file mode 100644 index 71924e52..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo30-Core'! diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/package b/repository/Grease-Pharo30-Core.package/monticello.meta/package deleted file mode 100644 index bd865be3..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo30-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md index f0375aac..e71bb46d 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md @@ -1 +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. +A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..272bb249 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +file library +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json index 6c67d70a..ab8c26b8 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "pmm 6/1/2008 01:03", + "commentStamp" : "pmm 2/1/2014 13:28", "super" : "GRPlatform", "category" : "Grease-Pharo70-Core", "classinstvars" : [ ], 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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo30-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-Pharo30-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/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..272bb249 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +file library +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / UUID new asString \ 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 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..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,3 +1,3 @@ convenience -decode: aByteArray - ^ aByteArray 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/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/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -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-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md new file mode 100644 index 00000000..e69de29b 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..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo90-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-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..f8f3e8e4 --- /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 diff --git a/repository/Grease-Squeak-Core.package/.filetree b/repository/Grease-Squeak-Core.package/.filetree index 8998102c..57a67973 100644 --- a/repository/Grease-Squeak-Core.package/.filetree +++ b/repository/Grease-Squeak-Core.package/.filetree @@ -1,4 +1,5 @@ { - "noMethodMetaData" : true, "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..ec935dad --- /dev/null +++ b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +file library +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileDirectory default / UUID new asString \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json index b07c70d3..5f39af5c 100644 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json +++ b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Squeak-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakPlatform", - "pools" : [ - ], "super" : "GRPharoPlatform", - "type" : "normal" } + "category" : "Grease-Squeak-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSqueakPlatform", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/Object.extension/properties.json b/repository/Grease-Squeak-Core.package/Object.extension/properties.json index 3d3b9ec4..f30a86e1 100644 --- a/repository/Grease-Squeak-Core.package/Object.extension/properties.json +++ b/repository/Grease-Squeak-Core.package/Object.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "Object" } + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json index d2d9ab4a..ca9cd21f 100644 --- a/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json +++ b/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "SmallInteger" } + "name" : "SmallInteger" +} \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/properties.json b/repository/Grease-Squeak-Core.package/properties.json index f037444a..6f31cf5a 100644 --- a/repository/Grease-Squeak-Core.package/properties.json +++ b/repository/Grease-Squeak-Core.package/properties.json @@ -1,2 +1 @@ -{ - } +{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st index fd515dd9..d8fecfc7 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st @@ -1,18 +1,27 @@ tests testThisContext - | methodContext block | + | methodContext block ctx | + "This is just a basic test to see if thisContext works" methodContext := self platform thisContext. block := [ | blockContext | - blockContext := self platform thisContext. - self assert: blockContext sender = methodContext. - "The following is a difference between Gemstone and Pharo... " - (Smalltalk includesKey: #GRGemStonePlatform) - ifTrue: [ self assert: blockContext receiver = block ] - ifFalse: [ - self assert: blockContext receiver = self. - self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ]. - self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ]. + blockContext := self platform thisContext. + self assert: blockContext sender = methodContext. + "The following is a difference between Gemstone and Pharo... " + (Smalltalk includesKey: #GRGemStonePlatform) + ifTrue: [ self assert: blockContext receiver = block ] + ifFalse: [ + self assert: blockContext receiver = self. + (blockContext respondsTo: #tempNamed:) + ifTrue:[ self assert: (blockContext tempNamed: 'blockContext') == blockContext ] + ifFalse:[ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ] ]. + (blockContext respondsTo: #tempNamed:) + ifTrue:[ self assert: (blockContext tempNamed: 'methodContext') == methodContext ] + ifFalse: [ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ] ]. + block value. self assert: self returnSender = methodContext. self assert: methodContext receiver = self. - self assert: (self platform thisContext namedTempAt: (self platform thisContext tempNames indexOf: #block)) == block \ No newline at end of file + ctx := self platform thisContext. + (ctx respondsTo: #tempNamed:) + ifTrue:[ self assert: (ctx tempNamed: 'block') == block ] + ifFalse: [ self assert: (ctx namedTempAt: (ctx tempNames indexOf: #block)) == block ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st deleted file mode 100644 index 1207dc5f..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testLanguageTag - - "this makes sure the encoder doesn't fall on the nose with unicode" - - "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" - - | leading hiraA hiraO hiraAO | - SystemVersion current major >= 9 ifTrue: [ - GRPlatform current setutf8CodectoDeprecatedTextConverter ]. - [ - leading := (Smalltalk classNamed: #JapaneseEnvironment) leadingChar. - hiraA := (Character leadingChar: leading code: 12354) greaseString. "HIRAGANA LETTER A" - hiraO := (Character leadingChar: leading code: 12362) greaseString. "HIRAGANA LETTER O" - hiraAO := hiraA , hiraO. - self assertEncodingIgnoresLanguageTat: hiraA. - self assertEncodingIgnoresLanguageTat: hiraO. - self assertEncodingIgnoresLanguageTat: hiraAO - ] ensure: [ - SystemVersion current major >= 9 ifTrue: [ - GRPlatform current setutf8CodectoZinc ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st index 28ee8c57..341866ff 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st @@ -1,6 +1,7 @@ tests testNoAmbiguities - #('utf-8' 'UTF-8' 'utf8') do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ]. - GRPharoLatin1Codec supportedEncodingNames do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ] \ No newline at end of file + (Smalltalk includesKey: #GRPharoGenericCodec) ifTrue:[ + #('utf-8' 'UTF-8' 'utf8') do: [ :each | + self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ]. + GRPharoLatin1Codec supportedEncodingNames do: [ :each | + self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st index b62275e7..c6c6c2ea 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st @@ -4,11 +4,4 @@ testGreaseIntegerOnCharacter character := Character codePoint: 19982. self assert: character greaseInteger = 19982. character := Unicode value: 19982. - self assert: character greaseInteger = 19982. - LanguageEnvironment allSubclassesDo: [ :each | - (each class selectors includes: #leadingChar) ifTrue: [ - "fuck me gently with a chainsaw" - character := Character - leadingChar: each leadingChar - code: 19982. - self assert: character greaseInteger = 19982 ] ] \ No newline at end of file + self assert: character greaseInteger = 19982 \ No newline at end of file