From 94f262df33a3e0b133936c24116bbdddbe9f57ce Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 19 Mar 2022 18:48:13 +0100 Subject: [PATCH] rename package Pharo10 to Pharo100 to avoid confusion with Pharo1 --- .../instance/baselinePharo..st | 6 +-- .../Grease-Pharo100-Core.package/.filetree | 5 ++ .../Behavior.extension/instance/fullName.st | 5 ++ .../Behavior.extension/properties.json | 3 ++ .../instance/valueWithPossibleArguments..st | 11 +++++ .../BlockClosure.extension/properties.json | 3 ++ .../instance/greaseString.st | 4 ++ .../ByteArray.extension/properties.json | 3 ++ .../instance/greaseInteger.st | 4 ++ .../Character.extension/properties.json | 3 ++ .../Collection.extension/instance/any.st | 3 ++ .../Collection.extension/properties.json | 3 ++ .../Color.extension/instance/asHTMLColor.st | 3 ++ .../Color.extension/properties.json | 3 ++ .../Duration.extension/class/milliseconds..st | 3 ++ .../instance/asMilliseconds.st | 3 ++ .../instance/milliseconds.st | 3 ++ .../Duration.extension/properties.json | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 3 ++ .../properties.json | 3 ++ .../GRDynamicVariable.class/README.md | 0 .../class/defaultValue.st | 3 ++ .../class/use.during..st | 5 ++ .../instance/default.st | 3 ++ .../GRDynamicVariable.class/properties.json | 11 +++++ .../class/greasePharo70Core.st | 7 +++ .../GRPackage.extension/properties.json | 3 ++ .../README.md | 7 +++ .../class/on.converter..st | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 3 ++ .../instance/initializeOn.converter..st | 4 ++ .../instance/next..st | 8 ++++ .../instance/next.st | 6 +++ .../instance/nextPut..st | 3 ++ .../instance/nextPutAll..st | 3 ++ .../properties.json | 13 ++++++ .../README.md | 1 + .../instance/crlf.st | 4 ++ .../instance/encodeDefault..st | 5 ++ .../instance/encodeFast..st | 14 ++++++ .../instance/greaseNext.putAll.startingAt..st | 5 ++ .../greaseNext.putAllFast.startingAt..st | 17 +++++++ .../instance/invalidUtf8.st | 3 ++ .../instance/next..st | 46 +++++++++++++++++++ .../instance/next.st | 3 ++ .../instance/nextPut..st | 11 +++++ .../instance/nextPutAll..st | 5 ++ .../properties.json | 14 ++++++ .../GRPharoLatin1Codec.class/README.md | 1 + .../class/basicForEncoding..st | 5 ++ .../GRPharoLatin1Codec.class/class/codecs.st | 3 ++ .../class/supportedEncodingNames.st | 3 ++ .../class/supportsEncoding..st | 4 ++ .../instance/decode..st | 5 ++ .../instance/decoderFor..st | 4 ++ .../instance/encoderFor..st | 4 ++ .../instance/initializeWithName..st | 4 ++ .../GRPharoLatin1Codec.class/instance/name.st | 3 ++ .../GRPharoLatin1Codec.class/properties.json | 13 ++++++ .../GRPharoLatin1CodecStream.class/README.md | 1 + .../instance/next..st | 3 ++ .../instance/next.st | 3 ++ .../properties.json | 11 +++++ .../GRPharoPlatform.class/README.md | 1 + .../GRPharoPlatform.class/class/initialize.st | 5 ++ .../class/initializeUrlTable.st | 7 +++ .../class/initializeXmlTable.st | 7 +++ .../GRPharoPlatform.class/class/unload.st | 3 ++ .../instance/addToShutDownList..st | 5 ++ .../instance/addToStartUpList..st | 5 ++ .../asMethodReturningByteArray.named..st | 6 +++ ...sMethodReturningByteArrayLiteral.named..st | 10 ++++ ...ethodReturningByteArrayWithCache.named..st | 10 ++++ .../instance/base64Decode..st | 3 ++ .../instance/bindingOf..st | 4 ++ .../instance/compile.into.classified..st | 3 ++ .../instance/contentsOfFile.binary..st | 3 ++ .../instance/directoriesIn..st | 8 ++++ .../instance/doSilently..st | 3 ++ .../instance/ensureExistenceOfFolder..st | 4 ++ .../instance/fileExists..st | 3 ++ .../instance/filesIn..st | 8 ++++ .../instance/isProcessTerminated..st | 4 ++ .../GRPharoPlatform.class/instance/label.st | 3 ++ .../instance/localNameOf..st | 3 ++ .../instance/newRandom.st | 10 ++++ .../GRPharoPlatform.class/instance/newline.st | 3 ++ .../instance/openDebuggerOn..st | 18 ++++++++ .../instance/pathSeparator.st | 3 ++ .../instance/readFileStreamOn.do.binary..st | 6 +++ .../instance/readWriteByteStream.st | 5 ++ .../instance/readWriteCharacterStream.st | 5 ++ .../instance/removeFromShutDownList..st | 5 ++ .../instance/removeFromStartUpList..st | 5 ++ .../instance/removeSelector.from..st | 3 ++ .../instance/secureHashFor..st | 3 ++ .../instance/semaphoreClass.st | 4 ++ .../instance/stackDepth.st | 10 ++++ .../instance/terminateProcess..st | 4 ++ .../instance/thisContext.st | 4 ++ .../instance/useByteArrayLiterals.st | 4 ++ .../instance/weakDictionaryOfSize..st | 3 ++ .../instance/write.toFile.inFolder..st | 7 +++ .../instance/writeFileStreamOn.do.binary..st | 5 ++ .../GRPharoPlatform.class/properties.json | 14 ++++++ .../GRPharoRandomProvider.class/README.md | 0 .../class/initialize.st | 4 ++ .../class/nextInt..st | 6 +++ .../class/randomClass.st | 3 ++ .../class/randomFrom..st | 11 +++++ .../class/startUp.st | 4 ++ .../class/unload.st | 3 ++ .../properties.json | 14 ++++++ .../GRPharoUtf16Codec.class/README.md | 0 .../class/basicForEncoding..st | 3 ++ .../GRPharoUtf16Codec.class/class/codecs.st | 3 ++ .../class/supportsEncoding..st | 3 ++ .../instance/encodedStringClass.st | 3 ++ .../GRPharoUtf16Codec.class/instance/name.st | 3 ++ .../GRPharoUtf16Codec.class/properties.json | 11 +++++ .../GRPharoUtf8Codec.class/README.md | 1 + .../class/basicForEncoding..st | 3 ++ .../GRPharoUtf8Codec.class/class/codecs.st | 3 ++ .../class/supportsEncoding..st | 3 ++ .../instance/decode..st | 3 ++ .../instance/decoderFor..st | 4 ++ .../instance/encodedStringClass.st | 3 ++ .../instance/encoderFor..st | 4 ++ .../instance/invalidUtf8.st | 3 ++ .../GRPharoUtf8Codec.class/instance/name.st | 3 ++ .../GRPharoUtf8Codec.class/instance/url.st | 3 ++ .../GRPharoUtf8Codec.class/properties.json | 11 +++++ .../GRPharoZnUtf8CodecStream.class/README.md | 0 .../instance/greaseNext.putAll.startingAt..st | 3 ++ .../instance/initializeOn..st | 4 ++ .../instance/next..st | 8 ++++ .../instance/next.st | 6 +++ .../instance/nextPut..st | 3 ++ .../instance/nextPutAll..st | 3 ++ .../properties.json | 13 ++++++ .../instance/inspectionItems..st | 15 ++++++ .../properties.json | 3 ++ .../instance/inspectionItems..st | 15 ++++++ .../properties.json | 3 ++ .../Interval.extension/instance/any.st | 6 +++ .../Interval.extension/properties.json | 3 ++ .../instance/argumentCount.st | 3 ++ .../instance/valueWithPossibleArguments..st | 7 +++ .../MessageSend.extension/properties.json | 3 ++ .../Number.extension/instance/milliseconds.st | 3 ++ .../Number.extension/properties.json | 3 ++ .../Object.extension/instance/greaseString.st | 3 ++ .../Object.extension/properties.json | 3 ++ .../Point.extension/instance/greaseString.st | 13 ++++++ .../Point.extension/properties.json | 3 ++ .../instance/greaseUpToAll..st | 5 ++ .../properties.json | 3 ++ .../instance/encodeOn..st | 5 ++ .../instance/greaseString.st | 5 ++ .../ScaledDecimal.extension/properties.json | 3 ++ .../instance/beginsWithSubCollection..st | 4 ++ .../instance/endsWithSubCollection..st | 4 ++ .../properties.json | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 13 ++++++ .../SocketStream.extension/properties.json | 3 ++ .../instance/greaseAsMutator.st | 3 ++ .../Symbol.extension/properties.json | 3 ++ .../instance/greaseNext.putAll.startingAt..st | 4 ++ .../WriteStream.extension/properties.json | 3 ++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../properties.json | 1 + 173 files changed, 885 insertions(+), 3 deletions(-) create mode 100644 repository/Grease-Pharo100-Core.package/.filetree create mode 100644 repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st create mode 100644 repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st create mode 100644 repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st create mode 100644 repository/Grease-Pharo100-Core.package/Character.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st create mode 100644 repository/Grease-Pharo100-Core.package/Collection.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st create mode 100644 repository/Grease-Pharo100-Core.package/Color.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st create mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st create mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st create mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st create mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st create mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st create mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo70Core.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/codecs.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/instance/encodedStringClass.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/instance/name.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/codecs.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decode..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/name.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/url.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/README.md create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st create mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st create mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st create mode 100644 repository/Grease-Pharo100-Core.package/Interval.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st create mode 100644 repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st create mode 100644 repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st create mode 100644 repository/Grease-Pharo100-Core.package/Number.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo100-Core.package/Object.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo100-Core.package/Point.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st create mode 100644 repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st create mode 100644 repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st create mode 100644 repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st create mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st create mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st create mode 100644 repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st create mode 100644 repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json create mode 100644 repository/Grease-Pharo100-Core.package/monticello.meta/categories.st create mode 100644 repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st create mode 100644 repository/Grease-Pharo100-Core.package/monticello.meta/package create mode 100644 repository/Grease-Pharo100-Core.package/properties.json diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st index 1961bc59..69725fe7 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st @@ -66,13 +66,13 @@ baselinePharo: spec for: #(#'pharo10.x') do: [ spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo10-Core') ]; + 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-Pharo10-Core'); + requires: #('Grease-Pharo100-Core'); includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo10-Core' with: [ spec requires: #('Grease-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') ]. 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-Pharo100-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st new file mode 100644 index 00000000..5ccb78b4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +fullName + "In VW, will include the namespace" + + ^ self name \ No newline at end of file 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-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..916023ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,11 @@ +*Grease-Pharo100-Core +valueWithPossibleArguments: anArray + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json new file mode 100644 index 00000000..2190e5e2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BlockClosure" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st new file mode 100644 index 00000000..cf96e73f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*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-Pharo100-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json new file mode 100644 index 00000000..f81bcb8d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ByteArray" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st new file mode 100644 index 00000000..90558d5a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st @@ -0,0 +1,4 @@ +*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-Pharo100-Core.package/Character.extension/properties.json b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json new file mode 100644 index 00000000..5219281d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Character" +} \ No newline at end of file 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-Pharo100-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json new file mode 100644 index 00000000..48f9f8d9 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Collection" +} \ No newline at end of file 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-Pharo100-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st new file mode 100644 index 00000000..f5c51190 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds: anInteger + ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st new file mode 100644 index 00000000..043bbad2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +asMilliseconds + ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st new file mode 100644 index 00000000..215916e7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds + ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json new file mode 100644 index 00000000..d141a092 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Duration" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..c3a17a33 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +*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-Pharo100-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/properties.json new file mode 100644 index 00000000..5ec29ea0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDelegatingStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRDelegatingStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..3d7f6377 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st @@ -0,0 +1,3 @@ +defaults +defaultValue + ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st new file mode 100644 index 00000000..1e03f82f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st @@ -0,0 +1,5 @@ +accessing +use: anObject during: aBlock + ^ self + value: anObject + during: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st new file mode 100644 index 00000000..59cb6f1b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st @@ -0,0 +1,3 @@ +accessing +default + ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json new file mode 100644 index 00000000..2867fd3d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "DynamicVariable", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRDynamicVariable", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo70Core.st b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo70Core.st new file mode 100644 index 00000000..091ff123 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo70Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo100-Core +greasePharo70Core + ^ self new + name: 'Grease-Pharo90-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json new file mode 100644 index 00000000..ae522a7e --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/README.md new file mode 100644 index 00000000..7620280e --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/README.md @@ -0,0 +1,7 @@ +A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st new file mode 100644 index 00000000..de8cd791 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st @@ -0,0 +1,3 @@ +instance creation +on: aStream converter: aConverter + ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..8321e299 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st new file mode 100644 index 00000000..c380485d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aStream converter: aConverter + self initializeOn: aStream. + converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next..st new file mode 100644 index 00000000..ef51837b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +streaming +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next.st new file mode 100644 index 00000000..eee99a1a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +streaming +next + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..e65f56c4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +streaming +nextPut: aCharacter + converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..a30c4507 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st @@ -0,0 +1,3 @@ +streaming +nextPutAll: aString + aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/properties.json new file mode 100644 index 00000000..9b20acd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoConverterCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "pmm 6/25/2012 20:22", + "super" : "GRCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "converter" + ], + "name" : "GRPharoConverterCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md new file mode 100644 index 00000000..08323f18 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md @@ -0,0 +1 @@ +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st new file mode 100644 index 00000000..ba607092 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st @@ -0,0 +1,4 @@ +streaming +crlf + stream nextPut: Character cr. + stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st new file mode 100644 index 00000000..cdd58a41 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st @@ -0,0 +1,5 @@ +private +encodeDefault: aString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st new file mode 100644 index 00000000..9a8a0dc3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st @@ -0,0 +1,14 @@ +private +encodeFast: aByteString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..cd78fbe0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,5 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st new file mode 100644 index 00000000..a4c114cb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st @@ -0,0 +1,17 @@ +private +greaseNext: anInteger putAllFast: aByteString startingAt: startIndex + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st new file mode 100644 index 00000000..e4481c22 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +private +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..116f524d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st @@ -0,0 +1,46 @@ +streaming +next: anInteger + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..4363f086 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st @@ -0,0 +1,3 @@ +streaming +next + ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..ad2d94ab --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,11 @@ +streaming +nextPut: aCharacter + | codePoint shouldEncode | + codePoint := aCharacter codePoint. + codePoint > 255 + ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] + \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..b9136110 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..ac542b99 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:27", + "super" : "GRPharoConverterCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "Latin1ToUtf8Encodings", + "Latin1ToUtf8Map" + ], + "instvars" : [ ], + "name" : "GRPharoDeprecatedUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md new file mode 100644 index 00000000..3f437d62 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md @@ -0,0 +1 @@ +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..f6b18bd4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st @@ -0,0 +1,5 @@ +private +basicForEncoding: aString + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st new file mode 100644 index 00000000..7a96b703 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..e5dca068 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st @@ -0,0 +1,3 @@ +private +supportedEncodingNames + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..bc591573 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st @@ -0,0 +1,4 @@ +private +supportsEncoding: aString + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st new file mode 100644 index 00000000..5f73b526 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st @@ -0,0 +1,5 @@ +conversion +decode: aStringOrByteArray + "Overridden for efficencey." + + ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..256dbac4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st @@ -0,0 +1,4 @@ +conversion +decoderFor: aReadStream + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..20102849 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st @@ -0,0 +1,4 @@ +conversion +encoderFor: aWriteStream + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st new file mode 100644 index 00000000..b0256973 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st @@ -0,0 +1,4 @@ +initialization +initializeWithName: aString + self initialize. + name := aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st new file mode 100644 index 00000000..22077c20 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json new file mode 100644 index 00000000..1ffad917 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodec", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name" + ], + "name" : "GRPharoLatin1Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md new file mode 100644 index 00000000..e1c2471b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md @@ -0,0 +1 @@ +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st new file mode 100644 index 00000000..a734bc76 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st @@ -0,0 +1,3 @@ +streaming +next: anInteger + ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st new file mode 100644 index 00000000..bf70df58 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st @@ -0,0 +1,3 @@ +streaming +next + ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json new file mode 100644 index 00000000..5d9ede87 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoLatin1CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md new file mode 100644 index 00000000..f0375aac --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md @@ -0,0 +1 @@ +A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st new file mode 100644 index 00000000..0c86564c --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st @@ -0,0 +1,5 @@ +class initialization +initialize + self initializeXmlTable. + self initializeUrlTable. + self select \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st new file mode 100644 index 00000000..9abf56b7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st @@ -0,0 +1,7 @@ +class initialization +initializeUrlTable + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st new file mode 100644 index 00000000..830a5595 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st @@ -0,0 +1,7 @@ +class initialization +initializeXmlTable + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st new file mode 100644 index 00000000..4c8dd650 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st @@ -0,0 +1,3 @@ +class initialization +unload + self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st new file mode 100644 index 00000000..f8d3ad5f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st @@ -0,0 +1,5 @@ +startup +addToShutDownList: anObject + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st new file mode 100644 index 00000000..c4ab1dea --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st @@ -0,0 +1,5 @@ +startup +addToStartUpList: aClass + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + SessionManager default registerUserClassNamed: aClass name. \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st new file mode 100644 index 00000000..ba4a0727 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st @@ -0,0 +1,6 @@ +file library +asMethodReturningByteArray: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st new file mode 100644 index 00000000..90bb405c --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st @@ -0,0 +1,10 @@ +private-file library +asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st new file mode 100644 index 00000000..a1f9fe07 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st @@ -0,0 +1,10 @@ +private-file library +asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-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-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st new file mode 100644 index 00000000..e878c01b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st @@ -0,0 +1,4 @@ +bindings +bindingOf: aClass + + ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st new file mode 100644 index 00000000..45c37a45 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st @@ -0,0 +1,3 @@ +file library +compile: aString into: aClass classified: aSymbol + aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-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-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st new file mode 100644 index 00000000..c5beee09 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st @@ -0,0 +1,8 @@ +file library +directoriesIn: aPathString + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st new file mode 100644 index 00000000..9ea296ff --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st @@ -0,0 +1,3 @@ +private +doSilently: aBlock + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st new file mode 100644 index 00000000..907e0168 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -0,0 +1,4 @@ +file library +ensureExistenceOfFolder: aString + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st new file mode 100644 index 00000000..2a02cc3f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -0,0 +1,3 @@ +file library +fileExists: aString + ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st new file mode 100644 index 00000000..e3b9a6b0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st @@ -0,0 +1,8 @@ +file library +filesIn: aPathString + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st new file mode 100644 index 00000000..03b50778 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st @@ -0,0 +1,4 @@ +processes +isProcessTerminated: aProcess + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st new file mode 100644 index 00000000..f3b036e2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st @@ -0,0 +1,3 @@ +version info +label + ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st new file mode 100644 index 00000000..8f4efb85 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -0,0 +1,3 @@ +file library +localNameOf: aFilename + ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st new file mode 100644 index 00000000..9d90824d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st @@ -0,0 +1,10 @@ +factory +newRandom + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st new file mode 100644 index 00000000..1219045d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st @@ -0,0 +1,3 @@ +file library +newline + ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st new file mode 100644 index 00000000..305157e2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st @@ -0,0 +1,18 @@ +exceptions +openDebuggerOn: anError + | process | + process := Processor activeProcess. + "If we are running in the UI process, we don't want to suspend the active process. The + error was presumably triggered while stepping in the Debugger. If we simply immediately + signal an UnhandledError, the debugger will catch this and display the signaling context. + It isn't perfect or pretty but it works." + (ProcessBrowser isUIProcess: process) + ifTrue: [ + UnhandledError signalForException: anError ] + ifFalse: [ + WorldState addDeferredUIMessage: [ + UIManager default + requestDebuggerOpeningForProcess: process + named: anError description + inContext: anError signalerContext ]. + process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st new file mode 100644 index 00000000..10f88300 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -0,0 +1,3 @@ +file library +pathSeparator + ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-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-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st new file mode 100644 index 00000000..db9518ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st @@ -0,0 +1,5 @@ +factory +readWriteByteStream + "ByteArray based read write stream" + + ^ ReadWriteStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st new file mode 100644 index 00000000..3f94c5af --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st @@ -0,0 +1,5 @@ +factory +readWriteCharacterStream + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-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-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st new file mode 100644 index 00000000..92cbd7ff --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st @@ -0,0 +1,3 @@ +file library +removeSelector: aSymbol from: aClass + aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st new file mode 100644 index 00000000..46b9e2d2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st @@ -0,0 +1,3 @@ +cryptography +secureHashFor: aString + ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st new file mode 100644 index 00000000..ceccf9e3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st @@ -0,0 +1,4 @@ +factory +semaphoreClass + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st new file mode 100644 index 00000000..d7e6feab --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st @@ -0,0 +1,10 @@ +exceptions +stackDepth + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st new file mode 100644 index 00000000..a09b96e1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st @@ -0,0 +1,4 @@ +processes +terminateProcess: aProcess + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st new file mode 100644 index 00000000..c936ecad --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st @@ -0,0 +1,4 @@ +processes +thisContext + + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st new file mode 100644 index 00000000..71b0f2cf --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st @@ -0,0 +1,4 @@ +private-file library +useByteArrayLiterals + "whether ByteArray literals can/should be used" + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st new file mode 100644 index 00000000..b0ca3d82 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st @@ -0,0 +1,3 @@ +factory +weakDictionaryOfSize: aNumber + ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-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-Pharo100-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json new file mode 100644 index 00000000..740444f6 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 6/1/2008 01:03", + "super" : "GRPlatform", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "UrlTable", + "XmlTable" + ], + "instvars" : [ ], + "name" : "GRPharoPlatform", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st new file mode 100644 index 00000000..04ca54c3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st @@ -0,0 +1,4 @@ +private +initialize + Smalltalk addToStartUpList: self. + self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st new file mode 100644 index 00000000..1036c2f7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st @@ -0,0 +1,6 @@ +public +nextInt: anInteger + + "Answer a random integer in the interval [1, anInteger]" + + ^ mutex critical: [ generator nextInteger: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st new file mode 100644 index 00000000..85a2db91 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st @@ -0,0 +1,3 @@ +private +randomClass + ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st new file mode 100644 index 00000000..a5fe470c --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st @@ -0,0 +1,11 @@ +public +randomFrom: aCollection + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st new file mode 100644 index 00000000..663a5243 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st @@ -0,0 +1,4 @@ +class initialization +startUp + generator := self randomClass new. + mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st new file mode 100644 index 00000000..fd4cb930 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st @@ -0,0 +1,3 @@ +private +unload + GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json new file mode 100644 index 00000000..05172896 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRObject", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ + "mutex", + "generator" + ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoRandomProvider", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..d4c4a74b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/basicForEncoding..st @@ -0,0 +1,3 @@ +private +basicForEncoding: aString + ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/codecs.st new file mode 100644 index 00000000..632b84fb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..f0c130cf --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +private +supportsEncoding: aString + ^ (#('utf-16' 'UTF-16' 'utf16') includes: aString) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..6e5de896 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.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/GRPharoUtf16Codec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/instance/name.st new file mode 100644 index 00000000..0dbca09f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'utf-16' \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/properties.json new file mode 100644 index 00000000..56886198 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf16Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoUtf16Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/README.md new file mode 100644 index 00000000..c6047951 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/README.md @@ -0,0 +1 @@ +A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..d4c4a74b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st @@ -0,0 +1,3 @@ +private +basicForEncoding: aString + ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/codecs.st new file mode 100644 index 00000000..632b84fb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..f1f07f4a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +private +supportsEncoding: aString + ^ (#('utf-8' 'UTF-8' 'utf8') includes: aString) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decode..st new file mode 100644 index 00000000..e9869000 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -0,0 +1,3 @@ +convenience +decode: aStringOrByteArray + ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..0c2be49b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,4 @@ +conversion +decoderFor: aStream + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..6e5de896 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..0e80cdaf --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,4 @@ +conversion +encoderFor: aStream + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st new file mode 100644 index 00000000..e4481c22 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +private +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/name.st new file mode 100644 index 00000000..7886c830 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/url.st new file mode 100644 index 00000000..4696d714 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/instance/url.st @@ -0,0 +1,3 @@ +accessing +url + ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/properties.json new file mode 100644 index 00000000..fac6cdfc --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoUtf8Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:51", + "super" : "GRCodec", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoUtf8Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..73411a20 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st new file mode 100644 index 00000000..ece3cda0 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..b5f1ff9a --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..3cad62a0 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..f8f3e8e4 --- /dev/null +++ b/repository/Grease-Pharo100-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-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..93eab264 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnUtf8CodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnUtf8CodecStream", + "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-Pharo100-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json new file mode 100644 index 00000000..0d78b749 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary" +} \ No newline at end of file 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-Pharo100-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st new file mode 100644 index 00000000..5568eb95 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st @@ -0,0 +1,6 @@ +*Grease-Pharo100-Core +any + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json new file mode 100644 index 00000000..534eb553 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Interval" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st new file mode 100644 index 00000000..df74aff3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +argumentCount + ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..0a56ac34 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,7 @@ +*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, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json new file mode 100644 index 00000000..00669b90 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "MessageSend" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..fb4e6ce5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds + ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/properties.json b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json new file mode 100644 index 00000000..71dace88 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Number" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..f23889b4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/properties.json b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json new file mode 100644 index 00000000..f30a86e1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st new file mode 100644 index 00000000..1cded0cc --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st @@ -0,0 +1,13 @@ +*Grease-Pharo100-Core +greaseString + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/properties.json b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json new file mode 100644 index 00000000..c6cf8dd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Point" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..348d9987 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseUpToAll: aCollection + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json new file mode 100644 index 00000000..8e090ee3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "PositionableStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..90680805 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +encodeOn: aDocument + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..10a8dc02 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseString + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json new file mode 100644 index 00000000..75f85f87 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ScaledDecimal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st new file mode 100644 index 00000000..2cd270c8 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +1,4 @@ +*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-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st new file mode 100644 index 00000000..d3b8f6eb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +1,4 @@ +*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-Pharo100-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json new file mode 100644 index 00000000..a68b7db6 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SequenceableCollection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..5e08d17f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,13 @@ +*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." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json new file mode 100644 index 00000000..797e09e5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SocketStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..365aad78 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..8c6bce81 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Symbol" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..4059a121 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,4 @@ +*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-Pharo100-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json new file mode 100644 index 00000000..8688e80d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "WriteStream" +} \ No newline at end of file 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