diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index d66b669f..6c147ada 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -1,32 +1,37 @@ name: smalltalkCI -on: [push, pull_request] +on: + push: + pull_request: + schedule: + - cron: "5 0 * * 1" # At 00:05 on Monday. jobs: - build: - runs-on: ubuntu-16.04 + test: + runs-on: ubuntu-latest strategy: fail-fast: false matrix: - smalltalk: [ Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.0, GemStone64-3.5.5, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6, Squeak64-5.3, Squeak64-5.2, Squeak64-5.1 ] + smalltalk: [ Pharo64-13, Pharo64-12, Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, GemStone64-3.7.1, GemStone64-3.6.8, GemStone64-3.5.8, Squeak64-6.0 ] experimental: [ false ] include: - - smalltalk: Squeak64-trunk + - smalltalk: Pharo64-14 experimental: true continue-on-error: ${{ matrix.experimental }} name: ${{ matrix.smalltalk }} steps: - - uses: actions/checkout@v2 + - uses: actions/checkout@v4 - uses: hpi-swa/setup-smalltalkCI@v1 with: smalltalk-image: ${{ matrix.smalltalk }} - # - name: Fix missing OS prerequisites for GemStone builds - # run: | - # git clone https://github.com/GsDevKit/GsDevKit_home.git - # ./GsDevKit_home/bin/utils/installOsPrereqs - # continue-on-error: true - # if: startsWith(matrix.smalltalk,'GemStone') - name: Run tests run: smalltalkci -s ${{ matrix.smalltalk }} + env: + GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }} shell: bash - timeout-minutes: 10 \ No newline at end of file + timeout-minutes: 20 + - name: Upload coverage to Codecov + uses: codecov/codecov-action@v4 + with: + name: ${{ matrix.smalltalk }} + token: ${{ secrets.CODECOV_TOKEN }} diff --git a/.smalltalk.ston b/.smalltalk.ston index 9edb3f39..e62640ac 100644 --- a/.smalltalk.ston +++ b/.smalltalk.ston @@ -20,5 +20,15 @@ SmalltalkCISpec { #load : [ 'Tests' ], #platforms : [ #gemstone ] } - ] + ], + #testing : { + #defaultTimeout : 30, + #include : { + #classes : [ #SentButNotImplementedTest , #UndefinedSymbolsTest ] + }, + #coverage : { + #packages: [ 'Grease*' ], + #format: #lcov + } + } } diff --git a/.travis.yml b/.travis.yml deleted file mode 100644 index 993b448e..00000000 --- a/.travis.yml +++ /dev/null @@ -1,37 +0,0 @@ -language: smalltalk -sudo: false - -matrix: - allow_failures: - - smalltalk: Squeak32-trunk - include: - - smalltalk: Pharo64-9.0 - env: BUILD_NAME=Pharo64-9.0 - - smalltalk: Pharo64-8.0 - env: BUILD_NAME=Pharo64-8.0 - - smalltalk: Pharo64-7.0 - env: BUILD_NAME=Pharo64-7.0 - - smalltalk: Pharo64-6.1 - env: BUILD_NAME=Pharo64-6.1 - - smalltalk: Pharo-6.1 - env: BUILD_NAME=Pharo-6.1 - - smalltalk: Squeak32-trunk - env: BUILD_NAME=Squeak-trunk - - smalltalk: Squeak32-5.3 - env: BUILD_NAME=Squeak-5.3 - - smalltalk: Squeak32-5.2 - env: BUILD_NAME=Squeak-5.2 - - smalltalk: Squeak32-5.1 - env: BUILD_NAME=Squeak-5.1 - - smalltalk: GemStone-3.6.0 - env: BUILD_NAME=GemStone-3.6.0 - - smalltalk: GemStone-3.5.5 - env: BUILD_NAME=GemStone-3.5.5 - - smalltalk: GemStone-3.4.5 - env: BUILD_NAME=GemStone-3.4.5 - - smalltalk: GemStone-3.3.9 - env: BUILD_NAME=GemStone-3.3.9 - - smalltalk: GemStone-3.2.17 - env: BUILD_NAME=GemStone-3.2.17 - - smalltalk: GemStone-3.1.0.6 - env: BUILD_NAME=GemStone-3.1.0.6 diff --git a/LICENSE.md b/LICENSE.md new file mode 100644 index 00000000..1277759a --- /dev/null +++ b/LICENSE.md @@ -0,0 +1,24 @@ +# MIT License + +Copyright © 2001 –- 2009 Avi Bryant, Julian Fitzell +Copyright © 2007 –- 2009 Lukas Renggli, Michel Bany, Philippe Marschall +Copyright © Seaside Contributors https://github.com/SeasideSt/Seaside/wiki/Contributors + +Permission is hereby granted, free of charge, to any person obtaining a copy of +this software and associated documentation files (the "Software"), to deal in +the Software without restriction, including without limitation the rights to +use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of +the Software, and to permit persons to whom the Software is furnished to do so, +subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN +CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + diff --git a/README.md b/README.md index 08b4375e..c9d2d025 100644 --- a/README.md +++ b/README.md @@ -14,21 +14,9 @@ Grease does not try to solve all problems. We are not testing Sockets or HTTP cl Grease is widely adopted. Implementations exist already for all platforms that support Seaside 3.x. As well as Seaside, new versions of Magritte, Pier, and Monticello are already being implemented on top of Grease. -## Platform compatibility and Travis builds +## Platform compatibility -The latest Grease version is supported on the following platforms and versions, which are tested using [Travis CI builds](https://travis-ci.org/SeasideSt/Grease): - -| Squeak | Pharo | GemStone | -| --------------- | ---------------- | -------------------- | -| [![Build status: Squeak-5.2](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Squeak-trunk&label=5.2)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Pharo64-9.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-9.0&label=9.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.6.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.6.0&label=3.6.0)](http://travis-ci.org/SeasideSt/Grease) | -| [![Build status: Squeak-5.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Squeak-5.1&label=5.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Pharo64-8.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-8.0&label=8.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.5.5](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.5.5&label=3.5.5)](http://travis-ci.org/SeasideSt/Grease) | -| | [![Build status: Pharo64-7.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-7.0&label=7.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.4.5](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.4.5&label=3.4.5)](http://travis-ci.org/SeasideSt/Grease) | -| | [![Build status: Pharo-6.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-6.1&label=6.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.3.9](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.3.9&label=3.3.9)](http://travis-ci.org/SeasideSt/Grease) | -| | | [![Build status: Gemstone-3.2.17](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.2.17&label=3.2.17)](http://travis-ci.org/SeasideSt/Grease) | -| | | [![Build status: Gemstone-3.1.0.6](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.1.0.6&label=3.1.0.6)](http://travis-ci.org/SeasideSt/Grease) | -| | | | - -Coveralls (experimental): [![Coverage Status](https://coveralls.io/repos/github/SeasideSt/Grease/badge.svg?branch=test-coveralls)](https://coveralls.io/github/SeasideSt/Grease?branch=test-coveralls) +The latest Grease version is supported on the Pharo, GemStone/S, Squeak, and VAST (not part of this repository) platforms and versions tested in the SmalltalkCI workflow in Github Actions: [![smalltalkCI](https://github.com/SeasideSt/Grease/actions/workflows/ci.yml/badge.svg?branch=master)](https://github.com/SeasideSt/Grease/actions/workflows/ci.yml) [![codecov](https://codecov.io/gh/SeasideSt/Grease/branch/master/graph/badge.svg?token=75NIYAHAGI)](https://codecov.io/gh/SeasideSt/Grease) ## Installation diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st index 14755223..96f20ec0 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st @@ -1,5 +1,6 @@ baselines baselineCommon: spec + spec for: #common do: [ spec blessing: #baseline. @@ -13,4 +14,5 @@ baselineCommon: spec group: 'Slime' with: #('Core'); group: 'Slime Tests' with: #('Core Tests'); group: 'Tests' with: #('Core Tests' 'Slime Tests'); - group: 'default' with: #('Slime') ] \ No newline at end of file + group: 'default' with: #('Slime'); + group: 'Development' with: #('default') ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st index bb38c5d7..85554409 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st @@ -1,5 +1,6 @@ baselines baselineGemStone: spec + spec for: #'gemstone' do: [ @@ -97,7 +98,7 @@ baselineGemStone: spec with: [ spec includes: 'Grease-Tests-GemStone-Core' ] ]. spec - for: #( #'gs3.5.4.x' #'gs3.5.5.x' ) + for: #( #'gs3.5.4.x' #'gs3.5.5.x' #'gs3.5.6.x' #'gs3.5.7.x' #'gs3.5.8.x' #'gs3.5.9.x' ) do: [ spec package: 'Grease-GemStone-Core' @@ -116,6 +117,16 @@ baselineGemStone: spec with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #( #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv370') ]; + package: 'Grease-GemStone-Kernelv370' + with: [ + spec + requires: #('Grease-GemStone-Core') ] ]. spec for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') do: [ diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st index 7884ef23..7ac453b2 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st @@ -1,17 +1,6 @@ baselines baselinePharo: spec - spec - for: #(#'pharo5.x') - do: [ spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo30-Core') ]; - package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Pharo30-Core'); - includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo30-Core' with: [ spec requires: #('Grease-Core') ] ]. - spec for: #'pharo6.x' do: [ spec @@ -36,7 +25,7 @@ baselinePharo: spec spec for: #(#'pharo6.x' #'pharo7.x' #'pharo8.x') - do: [ + do: [ spec package: 'Grease-Pharo40-Slime' with: [ spec requires: #('Grease-Core') ]; package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo40-Slime') ]. @@ -45,8 +34,8 @@ baselinePharo: spec group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. spec - for: #'pharo9.x' - do: [ + for: #(#'pharo9.x') + do: [ spec package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ]; package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; @@ -60,4 +49,25 @@ baselinePharo: spec spec group: 'Slime' with: #('Grease-Pharo90-Slime'); - group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. \ No newline at end of file + group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. + + spec + for: #(#'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x' #'pharo14.x') + do: [ + spec + package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo100-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo100-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo100-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo110-Slime-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo110-Slime-Portability' with: [ spec requires: #('Grease-Pharo110-Slime-Core') ]; + package: 'Grease-Tests-Pharo-Slime' with: [ spec requires: #('Grease-Pharo110-Slime-Portability') ]. + + spec + group: 'Slime' with: #('Grease-Pharo110-Slime-Core'); + group: 'Slime Portability' with: #('Slime' 'Grease-Pharo110-Slime-Portability'); + group: 'Slime Tests' with: #('Grease-Pharo110-Slime-Portability' 'Grease-Tests-Pharo-Slime'); + group: 'Development' with: #('Slime Portability') ] diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st index e93226b5..90104daa 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st @@ -1,35 +1,5 @@ baselines baselineSqueak: spec - spec - for: #(#'squeak5.x') - do: [ - spec - project: 'Refactoring-Core' - with: [ spec - className: 'ConfigurationOfRefactoringBrowser'; - versionString: #stable; - loads: #('Core'); - repository: 'http://www.squeaksource.com/MetacelloRepository' ]. - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Squeak5-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Squeak5-Core'); - includes: #('Grease-Tests-Squeak-Core' 'Grease-Tests-Squeak5-Core') ]; - package: 'Grease-Squeak5-Core' - with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Squeak-Core' - with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Tests-Squeak5-Core' - with: [ spec requires: #('Grease-Tests-Squeak-Core') ]; - package: 'Grease-Slime' - with: [ spec requires: #('Refactoring-Core' 'Grease-Core') ]; - package: 'Grease-Tests-Slime' - with: [ spec requires: #('Grease-Slime') ]. - spec - group: 'Slime' with: #('Grease-Slime'); - group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. spec for: #(#'squeak6.x') do: [ @@ -46,17 +16,8 @@ baselineSqueak: spec package: 'Grease-Tests-Core' with: [ spec requires: #('Grease-Squeak6-Core'); - includes: #('Grease-Tests-Squeak-Core' 'Grease-Tests-Squeak6-Core') ]; + includes: #('Grease-Tests-Squeak6-Core') ]; package: 'Grease-Squeak6-Core' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Squeak-Core' - with: [ spec requires: #('Grease-Tests-Core') ]; package: 'Grease-Tests-Squeak6-Core' - with: [ spec requires: #('Grease-Tests-Squeak-Core') ]; - package: 'Grease-Slime' - with: [ spec requires: #('Refactoring-Core' 'Grease-Core') ]; - package: 'Grease-Tests-Slime' - with: [ spec requires: #('Grease-Slime') ]. - spec - group: 'Slime' with: #('Grease-Slime'); - group: 'Slime Tests' with: #('Grease-Tests-Slime') ] \ No newline at end of file + with: [ spec requires: #('Grease-Tests-Core') ] ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/monticello.meta/categories.st b/repository/BaselineOfGrease.package/monticello.meta/categories.st index aad806f8..f7c53ae3 100644 --- a/repository/BaselineOfGrease.package/monticello.meta/categories.st +++ b/repository/BaselineOfGrease.package/monticello.meta/categories.st @@ -1 +1 @@ -SystemOrganization addCategory: #BaselineOfGrease! +self packageOrganizer ensurePackage: #BaselineOfGrease withTags: #()! diff --git a/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st b/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st new file mode 100644 index 00000000..dacf78b3 --- /dev/null +++ b/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st @@ -0,0 +1,3 @@ +*Grease-Core +greaseAsByteArray + ^ self asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Collection.extension/properties.json b/repository/Grease-Core.package/Collection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Collection.extension/properties.json rename to repository/Grease-Core.package/Collection.extension/properties.json diff --git a/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st b/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st index 1ba7afb0..64699961 100644 --- a/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st +++ b/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st @@ -2,7 +2,7 @@ instance creation forEncoding: aString "Answer a new codec instance for the given encoding name. Raise an WAUnsupportedEncodingError if the encoding name is not supported by this image." - self allSubclassesDo: [ :each | + self allSubclassesDo: [ :each | (each supportsEncoding: aString) ifTrue: [ ^ each basicForEncoding: aString ] ]. ^ self unsupportedEncoding: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st b/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st index 40ab1f1f..4ba317d5 100644 --- a/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st +++ b/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st @@ -1,5 +1,5 @@ conversion decoderFor: aReadStream - "Wrap aReadStream with an decoder for the codec of the receiver. Answer a read stream that delegates to and shares the state of aReadStream." - + "Wrap aReadStream with an decoder for the codec of the receiver. Answer a read stream that delegates to and shares the state of aReadStream." + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st b/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st index b19ecb3d..b691c1ef 100644 --- a/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st +++ b/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st @@ -1,5 +1,5 @@ conversion encoderFor: aWriteStream "Wrap aWriteStream with an encoder for the codec of the receiver. Answer a write stream that delegates to and shares the state of aWriteStream." - + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st index a1ee82f0..0322111e 100644 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st +++ b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st @@ -1,6 +1,6 @@ instance creation -receiver: anObject selector: aSymbol - ^ self basicNew +receiver: anObject selector: aSymbol + ^ self basicNew initializeWithReceiver: anObject message: (GRUnboundMessage selector: aSymbol); yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st index a7cd1ee2..310042bf 100644 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st +++ b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st @@ -1,6 +1,6 @@ instance creation -receiver: anObject selector: aSymbol arguments: anArray - ^ self basicNew +receiver: anObject selector: aSymbol arguments: anArray + ^ self basicNew initializeWithReceiver: anObject message: (GRBoundMessage selector: aSymbol arguments: anArray); yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st b/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st index cafc361e..5e6683e1 100644 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st +++ b/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st @@ -1,5 +1,5 @@ accessing argumentCount "Answer the number of arguments that must be provided to the receiver when sending it." - + ^ message argumentCount \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st index 00146dd7..1ac3d919 100644 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st +++ b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st @@ -1,5 +1,5 @@ delegation argumentCount "Answer the number of arguments that must be provided when sending this message." - + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st index 9efaca14..e97189fe 100644 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st +++ b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st @@ -2,5 +2,5 @@ delegation valueFor: receiver withArguments: anArray "Send the message to receiver with the arguments in anArray. Answer the result. Signal an error if the number of arguments does not match the selector." - + ^ self basicPerformFor: receiver withArguments: (self mergeArguments: anArray) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st index e0708319..5cd1f582 100644 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st +++ b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st @@ -5,7 +5,7 @@ valueFor: receiver withPossibleArguments: anArray | allArguments | allArguments := self mergeArguments: anArray. - + ^ allArguments size < selector numArgs ifTrue: [ self invalidArgumentCount ] ifFalse: [ self basicPerformFor: receiver withArguments: (allArguments first: selector numArgs) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..1139a600 --- /dev/null +++ b/repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st new file mode 100644 index 00000000..a20d8783 --- /dev/null +++ b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st @@ -0,0 +1,3 @@ +accessing +position: anInteger + ^ stream position: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st b/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st index 17a32993..0e7ba6d2 100644 --- a/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st +++ b/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st @@ -1,6 +1,6 @@ instance creation block: aBlock next: aPrinter - ^ self new + ^ self new block: aBlock; next: aPrinter; yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st index 33ae4c99..ba04b46e 100644 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st @@ -1,5 +1,5 @@ evaluating use: anObject during: aBlock "Set the dynamic value of the receiver to anObject during the evaluation of aBlock." - + ^ aBlock on: self do: [ :notification | notification resume: anObject ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st index 9416cedb..bedb8f2b 100644 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st @@ -1,5 +1,5 @@ evaluating value "Answer the dynamic value of the receiver." - + ^ self signal \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st b/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st index 7c198828..d855375c 100644 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st +++ b/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st @@ -1,4 +1,4 @@ conversion -decoderFor: aReadStream +decoderFor: aReadStream "wrap to avoid String vs ByteArray issues" ^ GRNullCodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st b/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st index c4c0196f..fcab009a 100644 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st +++ b/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st @@ -1,4 +1,4 @@ conversion -encoderFor: aWriteStream +encoderFor: aWriteStream "wrap to avoid String vs ByteArray issues" ^ GRNullCodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/url.st b/repository/Grease-Core.package/GRNullCodec.class/instance/url.st index f1a3ffe3..f26d9994 100644 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/url.st +++ b/repository/Grease-Core.package/GRNullCodec.class/instance/url.st @@ -1,5 +1,5 @@ accessing url "The selfish method. Let's do it with ourselves." - + ^ self \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st index fa3867ed..6e122a37 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st @@ -1,5 +1,5 @@ accessing accuracy: aFloat "Round towards the nearest number that is a multiple of aFloat." - + accuracy := aFloat \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st index 0469766d..47e728a3 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st @@ -8,7 +8,7 @@ digitsOf: aNumber base: aBaseInteger stream := WriteStream on: (String new: 10). [ integer > 0 ] whileTrue: [ next := integer quo: aBaseInteger. - stream nextPut: (characters + stream nextPut: (characters at: 1 + integer - (next * aBaseInteger)). integer := next ]. ^ stream contents reverse \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st index a34708fd..ed18785f 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st @@ -1,5 +1,5 @@ accessing infinite: aString "The string that should be displayed if the number is positive or negative infinity." - + infinite := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st index 028a3bc2..62f6b34d 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st @@ -7,7 +7,7 @@ lengthOf: aNumber base: aBaseInteger integer := aNumber truncated abs. length := 1. current := aBaseInteger. - [ current <= integer ] whileTrue: [ + [ current <= integer ] whileTrue: [ length := length + 1. current := current * aBaseInteger ]. ^ length \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st index 22c5de66..8451e143 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st @@ -1,5 +1,5 @@ accessing nan: aString "The string that should be displayed if the number is not a number." - + nan := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st index 03f0b9b7..6db5d820 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st @@ -1,5 +1,5 @@ accessing precision: anInteger "The number of digits to be printed in the fraction part." - + precision := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st index 9ad6fbb5..67dd487b 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st @@ -2,7 +2,7 @@ printing print: aNumber on: aStream aNumber isNaN ifTrue: [ ^ self printNaN: aNumber on: aStream ]. - aNumber isInfinite + aNumber isInfinite ifTrue: [ ^ self printInfinite: aNumber on: aStream ]. precision = 0 ifTrue: [ self printInteger: aNumber on: aStream ] diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st index 59cfde82..7b24a6aa 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st @@ -9,7 +9,7 @@ printDigitsOf: aNumber withLength: aLengthInteger on: aStream | divisor current | divisor := base raisedTo: aLengthInteger - index. current := rest // divisor. - separator isNil ifFalse: [ + separator isNil ifFalse: [ (index ~= 1 and: [ (aLengthInteger - index) \\ 3 = 2 ]) ifTrue: [ aStream nextPut: separator ] ]. aStream nextPut: (characters at: current + 1). diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st index 39c33dbb..0442220e 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st @@ -2,8 +2,8 @@ printing printInteger: aNumber on: aStream | length | length := self lengthOf: aNumber base: base. - + (digits notNil and: [ padding notNil ]) ifTrue: [ self padLeft: padding to: (digits - length) on: aStream ]. - + self printDigitsOf: aNumber withLength: length on: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st index f2f090bd..574c0646 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st @@ -1,7 +1,7 @@ utilities separate: aString left: aCharacter on: aStream "Separate from the left side every 3 characters with aCharacter." - + | size | size := aString size. 1 to: size do: [ :index | diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st index 26923f9a..e0daa4b1 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st @@ -1,7 +1,7 @@ utilities separate: aString right: aCharacter "Separate from the right side every 3 characters with aCharacter." - + | size stream | size := aString size. stream := WriteStream on: (String new: 2 * size). diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st index dcf77ba5..1ba88490 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st @@ -1,5 +1,5 @@ actions uppercase "Use uppercase characters for numbers of base 10 and higher." - + self characters: NumbersToCharactersUppercase \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st index 38f1ff12..02112e49 100644 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st +++ b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st @@ -2,5 +2,5 @@ accessing at: aKey add: aValue "Add an association between aKey and aValue. Do not replace existing values with the same key." - + ^ self privateAt: aKey put: aValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st index 2e6255d6..a8f957ab 100644 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st +++ b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st @@ -2,5 +2,5 @@ adding at: aKey add: aValue "Add an association between aKey and aValue. Do not replace existing values with the same key." - + ^ self privateAt: aKey put: aValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st b/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st index a43d828d..b54bad3d 100644 --- a/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st +++ b/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st @@ -2,7 +2,7 @@ private ordinalize: anInteger ^ (anInteger \\ 100 between: 11 and: 13) ifTrue: [ 'th' ] - ifFalse: [ + ifFalse: [ #('st' 'nd' 'rd') - at: anInteger \\ 10 + at: anInteger \\ 10 ifAbsent: [ 'th' ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/class/grPackages.st b/repository/Grease-Core.package/GRPackage.class/class/grPackages.st index 6b9143cb..b225b989 100644 --- a/repository/Grease-Core.package/GRPackage.class/class/grPackages.st +++ b/repository/Grease-Core.package/GRPackage.class/class/grPackages.st @@ -5,7 +5,7 @@ grPackages | packages package | packages := Dictionary new. self class selectors do: [ :each | - (each numArgs = 0 and: [ each ~= #grPackages ]) ifTrue: [ + (each numArgs = 0 and: [ each ~= #grPackages ]) ifTrue: [ package := self perform: each. packages at: package name put: package ] ]. packages do: [ :each | each resolveWith: packages ]. diff --git a/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st index eeb82dc0..29d3253c 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st @@ -1,3 +1,4 @@ accessing-repositories greaseUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Grease11/main' \ No newline at end of file + "The original URL: http://smalltalkhub.com/mc/Seaside/Grease11/main" + ^ 'https://github.com/SeasideSt/Grease' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st index 9152b2e0..0617a084 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st +++ b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st @@ -1,10 +1,10 @@ dependencies resolveWith: aDictionary - dependencies := dependencies + dependencies := dependencies collect: [ :each | aDictionary at: each ifAbsent: [ "if Foo-Pharo-Bar fails try Foo-Pharo20-Bar and Foo-Pharo30-Bar" - (each indexOfSubCollection: '-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + (each indexOfSubCollection: '-Pharo-' startingAt: 1) ~= 0 ifTrue: [ "try -Pharo40-" aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo40-') ifAbsent: [ "try -Pharo50-" @@ -14,11 +14,17 @@ resolveWith: aDictionary "try -Pharo70-" aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') ifAbsent: [ "try -Pharo90-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [ - "try -Squeak-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ - "try -Squeak5-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [ - "try -Squeak6-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [ - self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] \ No newline at end of file + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [ + "try -Pharo100-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo100-') ifAbsent: [ + "try -Pharo110-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo110-') ifAbsent: [ + "try -Squeak-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ + "try -Squeak5-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [ + "try -Squeak6-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [ + "specific for Grease-Slime" + aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [ + self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st index 4318263e..9c8af671 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st @@ -1,3 +1,4 @@ accessing-repositories seasideAddonsUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Seaside30Addons/main' \ No newline at end of file + "The original URL http://smalltalkhub.com/mc/Seaside/Seaside30Addons/main" + ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st index 7ee4f19a..5e015008 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st @@ -1,3 +1,4 @@ accessing-repositories seasideLGPLUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Seaside30LGPL/main' \ No newline at end of file + "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" + ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st index bca3c123..1981c392 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st +++ b/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st @@ -1,3 +1,4 @@ accessing-repositories seasideUrl - ^ 'http://smalltalkhub.com/mc/Seaside/Seaside31/main' \ No newline at end of file + "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" + ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st b/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st new file mode 100644 index 00000000..1edbb346 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st @@ -0,0 +1,21 @@ +file library +asMethodReturningString: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a String. + + This implementation answers a String formatted like so + + aSymbol + ^ aByteArrayOrString + + Subclasses need to override this method if the dialect needs changes to support Unicode string literals" + ^ String streamContents: [ :stream | + stream + nextPutAll: aSymbol; + nextPut: Character cr. + stream + tab; + nextPutAll: '^ '''. + aByteArrayOrString greaseString do: [ :each | + each = $' ifTrue: [ stream nextPut: $' ]. + stream nextPut: each ]. + stream nextPut: $' ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st b/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..1e94d60c --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st @@ -0,0 +1,4 @@ +encoding +base64Encode: aByteArray + "Base64 encode the given byte array and answer the result as a String." + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st index 8b9e9f23..f3a7c268 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st @@ -4,12 +4,12 @@ bindingOf: aClass The binding is the literal that get compiled into the method. We need the binding to be updated when the class is changed. The binding has to respond to #value. - + This is mostly an issue on GemStone/S because when we hold on to a class directly we will end up holding on to an old class version. - + Dialects with namespaces will need to override this. - + On VisualWorks this should like this ^ aClass fullyQualifiedReference" ^ Smalltalk associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st b/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st index 419d7169..0f0bbaf0 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st @@ -1,4 +1,4 @@ -file library +meta-object-protocol compile: aString into: aClass classified: aSymbol "The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test. This also makes running tests much faster." diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st index 291cfff6..515d6552 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,3 @@ -file library +files contentsOfFile: aString binary: aBoolean self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st b/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st index 0415a873..fd2fdde6 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st @@ -1,8 +1,8 @@ file library convertToSmalltalkNewlines: aString "Convert any line endings (CR, CRLF, LF) to the default platform newline." - - aString isNil + + aString isNil ifTrue: [ ^ nil ]. ^ String streamContents: [ :writeStream | | readStream | diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..9819eed2 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st index c7077286..14b5f839 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st @@ -1,4 +1,4 @@ -file library +files 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 ." diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st b/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st new file mode 100644 index 00000000..89a96f47 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st @@ -0,0 +1,4 @@ +file library +doSilently: aBlock + "Suspend all notifications value evaluating the given block." + ^ aBlock value \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st index c86a0539..a4b8da7c 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st @@ -1,4 +1,4 @@ -file library +files ensureExistenceOfFolder: aString "Create a folder named aString in the image directory." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st index fe0b42f0..208d4d40 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ -file library +files fileExists: aString self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st index f0155c88..3d9e825a 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st @@ -1,6 +1,6 @@ -file library +files fileStreamOn: aString do: aBlock binary: aBoolean - self + self greaseDeprecatedApi: 'GRPlatform>>#fileStreamOn:do:binary:' details: 'Use readFileStreamOn:do:binary:'. ^ self readFileStreamOn: aString do: aBlock binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st index 1edd1fc6..eacae2b3 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st @@ -1,4 +1,4 @@ -file library +files filesIn: aPathString "Answer 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 ." diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st new file mode 100644 index 00000000..6d847f6d --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st @@ -0,0 +1,3 @@ +encoding +integerAsByteArray: anInteger + ^ anInteger asByteArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st b/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st new file mode 100644 index 00000000..3a57672e --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st @@ -0,0 +1,4 @@ +testing +isGemStone + + ^ false \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st b/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st new file mode 100644 index 00000000..b2f9f340 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st @@ -0,0 +1,4 @@ +testing +isPharo + + ^ false \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st index afa154f2..94e6e96b 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st @@ -1,5 +1,5 @@ processes isProcessTerminated: aProcess "Return a boolean indicating whether aProcess has been terminated." - + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st b/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st new file mode 100644 index 00000000..8605e96f --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st @@ -0,0 +1,4 @@ +testing +isSmalltalkX + + ^ false \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st b/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st new file mode 100644 index 00000000..34e2f234 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st @@ -0,0 +1,4 @@ +testing +isSqueak + + ^ false \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st b/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st new file mode 100644 index 00000000..8e022384 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st @@ -0,0 +1,4 @@ +testing +isVAST + + ^ false \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/label.st b/repository/Grease-Core.package/GRPlatform.class/instance/label.st index cc4c5a5b..44330a02 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/label.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/label.st @@ -1,5 +1,5 @@ version info label "Answer a descriptive label string for the platform implementation" - + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st index 36c6934d..3e0a423f 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st @@ -1,7 +1,7 @@ -file library +files localNameOf: aFilename "Answer the local name of a file identified by an absolute file path. - + Eg. If the platform is Windwos and aFilename is 'C:\Windows\win32.dll' then it would answer 'win32.dll'. If the platform is Unix and aFilename is '/usr/bin/vim' then it would answer 'vim'." diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st b/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st index e50a9858..5f6271cc 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st @@ -3,9 +3,9 @@ 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. Used by Squeak to use a secure random when avaiable." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..e92ccc4c --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,6 @@ +files +newTemporaryFile + "Create a new temporary file in the systems temp directory and answer its pathString. + It is the users responsibility to delete or move the file, it will not be cleaned up automatically + (unless the host system has a policy for it)." + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..c03ea7f2 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,6 @@ +files +newTemporaryFileNamed: aName + "Create a new temporary file in the systems temp directory and answer its pathString. + It is the users responsibility to delete or move the file, it will not be cleaned up automatically + (unless the host system has a policy for it)." + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newline.st b/repository/Grease-Core.package/GRPlatform.class/instance/newline.st index 9c8062eb..3834fe40 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newline.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newline.st @@ -1,5 +1,5 @@ file library newline "Answer a String with the default newline character of this platform." - + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st b/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st index 430f97c3..a4c10b7f 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st @@ -1,4 +1,4 @@ -file library +files pathSeparator "Answer the path separator as a String, eg. '/' on Unix and '\' on Windows." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st index 3ffa885a..b43b743e 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st @@ -1,3 +1,3 @@ -file library +files readFileStreamOn: aString do: aBlock binary: aBoolean - self subclassResponsibility \ No newline at end of file + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st index 2c0c7aed..5e1bfedd 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st @@ -1,3 +1,3 @@ -file library +meta-object-protocol removeSelector: aSymbol from: aClass self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st b/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st index dfe482be..7da0404a 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st @@ -1,3 +1,3 @@ cryptography -secureHashFor: aString +secureHashFor: aStringOrByteArray self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..670d78ab --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aString + + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..76902771 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st b/repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st new file mode 100644 index 00000000..7ee74995 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st @@ -0,0 +1,11 @@ +encoding +supportsUnicode + "dynamically try to figure out whether the current dialect supports Unicode" + + ^ [ + String + with: (Character codePoint: 16r1F1F3) + with: (Character codePoint: 16r1F1F1). + true + ] on: Error + do: [ :error | false ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st b/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st index a7d9537b..36cf5cbc 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st @@ -1,5 +1,5 @@ processes terminateProcess: aProcess "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st b/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st index 22b5c4dd..5f6f20ee 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st @@ -1,8 +1,8 @@ processes thisContext "Answer the current activation of a method execution or block activation. - + For dialects with a thisContext variable and implementation can look like this. - + ^ thisContext sender" self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st index 01828a6b..72943d47 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/version.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/version.st @@ -2,5 +2,5 @@ version info version "Answer the Grease version" - ^ (GRVersion major: 1 minor: 7 revision: 0) + ^ (GRVersion major: 1 minor: 19 revision: 1) yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st index a855cb60..5d974bc9 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st @@ -1,4 +1,4 @@ -file library +files write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString "Write aStringOrByteArray to a file named aFileNameString in the folder aFolderString." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st index 3d67b1a2..8bf94c9f 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,3 +1,3 @@ -file library +files writeFileStreamOn: aString do: aBlock binary: aBoolean - self subclassResponsibility \ No newline at end of file + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st b/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st index 21f6d41e..c8fc6478 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st @@ -1,5 +1,5 @@ parts-date absOffsetHoursPadded - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date offset hours abs ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st b/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st index 3ee546ea..ceede65a 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st @@ -1,5 +1,5 @@ parts-date absOffsetMinutesPadded - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date offset minutes abs ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st b/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st index b9fa9797..ec25236d 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st @@ -1,5 +1,5 @@ factory-http isoTime "Ansers a printer that formats time according to ISO(HH:MM:SS) E.g. 12:23:34" - + ^ self paddedHour24 , $: , self paddedMinute , $: , self paddedSecond \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/monthName..st b/repository/Grease-Core.package/GRPrinter.class/class/monthName..st index 3acf62f9..0eaa7afb 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/monthName..st +++ b/repository/Grease-Core.package/GRPrinter.class/class/monthName..st @@ -1,3 +1,3 @@ parts-date -monthName: anArray +monthName: anArray ^ GRPluggablePrinter on: [ :date | anArray at: date monthIndex ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st b/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st index de1b6882..583c0f1d 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st @@ -1,6 +1,6 @@ parts-date offsetSign - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date offset ] next: (GRSignPrinter new positivePrinter: $+; diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st index 72ffd192..f1367586 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st @@ -1,5 +1,5 @@ parts-date paddedCentury - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date year \\ 100 ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st index b9eed5c6..35a1123b 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st @@ -1,5 +1,5 @@ parts-date paddedDay - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date dayOfMonth ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st index d2ddb673..c3f66f9d 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st @@ -1,5 +1,5 @@ parts-time paddedHour12 - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | (time hour - 1) \\ 12 + 1 ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st index 85834571..d7480d63 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st @@ -1,5 +1,5 @@ parts-time paddedHour24 - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | time hour ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st index ded20981..a8a57c0c 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st @@ -1,5 +1,5 @@ parts-time paddedMinute - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | time minute ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st index 99bf9d4b..4a655a3f 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st @@ -1,5 +1,5 @@ parts-date paddedMonth - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date monthIndex ] next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st index 0d542442..6283fa62 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st @@ -1,6 +1,6 @@ parts-time paddedSecond - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | time second ] next: (GRNumberPrinter new padding: $0; diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st index 8b8c7830..2734e145 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st @@ -1,5 +1,5 @@ parts-date paddedYear - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date year ] next: (self numberWithAtLeastDigits: 4) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st b/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st index dfda6425..3ecf821a 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st @@ -2,9 +2,9 @@ factory-http rfc1123 "Answers a printer that formats dates for HTTP1.1 (RFC 1123). Eg. Sun, 06 Nov 1994 08:49:37 GMT " - - ^ GRMappedPrinter - block: [ :date | + + ^ GRMappedPrinter + block: [ :date | "For the purposes of HTTP, GMT is exactly equal to UTC (Coordinated Universal Time)" date asUTC ] next: GRSequentialPrinter new , self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , ' GMT' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st index 4380f77e..bc7ac349 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st @@ -1,5 +1,5 @@ parts-date unpaddedCentury - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date year \\ 100 ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st index a9e973f3..1c0ae5f5 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st @@ -1,5 +1,5 @@ parts-date unpaddedDay - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date dayOfMonth ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st index 60942672..2c146675 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st @@ -1,5 +1,5 @@ parts-time unpaddedHour12 - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | (time hour - 1) \\ 12 + 1 ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st index b850356d..e84fe99c 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st @@ -1,5 +1,5 @@ parts-time unpaddedHour24 - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | time hour ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st index 4215c0ab..53cdf04c 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st @@ -1,5 +1,5 @@ parts-time unpaddedMinute - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | time minute ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st index ed4bf5a2..38090256 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st @@ -1,5 +1,5 @@ parts-date unpaddedMonth - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date monthIndex ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st index 177d6e77..368fe3d8 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st @@ -1,5 +1,5 @@ parts-time unpaddedSecond - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :time | time second ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st index 3a74d2ad..8959df3f 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st +++ b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st @@ -1,5 +1,5 @@ parts-date unpaddedYear - ^ GRMappedPrinter + ^ GRMappedPrinter block: [ :date | date year ] next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/weekName..st b/repository/Grease-Core.package/GRPrinter.class/class/weekName..st index c49b2f90..ca348c35 100644 --- a/repository/Grease-Core.package/GRPrinter.class/class/weekName..st +++ b/repository/Grease-Core.package/GRPrinter.class/class/weekName..st @@ -1,3 +1,3 @@ parts-date -weekName: anArray +weekName: anArray ^ GRPluggablePrinter on: [ :date | anArray at: date dayOfWeek ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st b/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st index 533a11bd..a5ed96c8 100644 --- a/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st +++ b/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st @@ -1,3 +1,3 @@ operators -, aPrinter +, aPrinter ^ GRSequentialPrinter new , self , aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st index b8a6a1a7..b4c06885 100644 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st +++ b/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st @@ -1,3 +1,3 @@ printing -print: anObject on: aStream +print: anObject on: aStream parts do: [ :each | each print: anObject on: aStream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st b/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st index 87b49fb0..910228c3 100644 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st +++ b/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st @@ -1,5 +1,5 @@ accessing negativePrinter: aPrinter "The printer to be used when the number is negative." - + negativePrinter := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st b/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st index e62ba1e8..f4c64563 100644 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st +++ b/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st @@ -1,5 +1,5 @@ accessing positivePrinter: aPrinter "The printer to be used when the number is zero or positive." - + positivePrinter := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st index a7046136..acf1c72d 100644 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st +++ b/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st @@ -1,5 +1,5 @@ printing -print: anObject on: aStream +print: anObject on: aStream anObject negative ifTrue: [ negativePrinter print: anObject on: aStream ] ifFalse: [ positivePrinter print: anObject on: aStream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st index 9138b7f5..1dc1be7b 100644 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st @@ -1,7 +1,7 @@ printing printOn: aStream super printOn: aStream. - + aStream nextPut: $(. self size <= 100 ifTrue: [ @@ -14,7 +14,7 @@ printOn: aStream ifFalse: [ aStream space ]. aStream print: key; - nextPutAll: '->'; + nextPutAll: '->'; print: value ] ] ifFalse: [ aStream diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st index 872fceb8..d936d69f 100644 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st @@ -3,7 +3,7 @@ removeIndex: index | value | value := values at: index. index to: size - 1 do: - [ :i | + [ :i | keys at: i put: (keys at: i + 1). values at: i put: (values at: i + 1) ]. keys at: size put: nil. diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st index 9138b7f5..1dc1be7b 100644 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st @@ -1,7 +1,7 @@ printing printOn: aStream super printOn: aStream. - + aStream nextPut: $(. self size <= 100 ifTrue: [ @@ -14,7 +14,7 @@ printOn: aStream ifFalse: [ aStream space ]. aStream print: key; - nextPutAll: '->'; + nextPutAll: '->'; print: value ] ] ifFalse: [ aStream diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st index 10b8c291..79822d57 100644 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st @@ -2,7 +2,7 @@ private removeIndex: index | value | value := table at: index + 1. - index to: size * 2 - 2 do: [ :i | + index to: size * 2 - 2 do: [ :i | table at: i put: (table at: i + 2) ]. table at: size * 2 - 1 put: nil. table at: size * 2 put: nil. diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st index 52130cfb..a66f316b 100644 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st +++ b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st @@ -1,4 +1,4 @@ private privateAdd: newObject size = table size ifTrue: [ self grow ]. - table at: (size := size + 1) put: newObject. \ No newline at end of file + table at: (size := size + 1) put: newObject \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st b/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st index 5f92375b..fd789e7b 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st +++ b/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st @@ -1,5 +1,5 @@ accessing character: aCharacter "The character to pad the string with." - + character := aCharacter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st index c4090a8c..d67d56a5 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st +++ b/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st @@ -1,5 +1,5 @@ padding padCenter "Pad to the center." - + pad := #pad:center:to: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st index 607d8b5f..e12c2152 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st +++ b/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st @@ -1,5 +1,5 @@ padding padLeft "Pad to the left." - + pad := #pad:left:to: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st index 549c1100..8ef5e9f2 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st +++ b/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st @@ -1,5 +1,5 @@ padding padNone "Do not pad the input." - + pad := nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st index 81897648..57cb176b 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st +++ b/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st @@ -1,5 +1,5 @@ padding padRight "Pad to the right." - + pad := #pad:right:to: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st index 77cb55a3..7646fdad 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st +++ b/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st @@ -1,11 +1,11 @@ printing -print: anObject on: aStream +print: anObject on: aStream | string | string := anObject greaseString. trim isNil ifFalse: [ string := string perform: trim ]. length isNil ifFalse: [ - length < string size + length < string size ifTrue: [ string := string copyFrom: 1 to: length ]. (pad isNil or: [ character isNil ]) ifFalse: [ string := self perform: pad with: string with: character with: length ] ]. diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st b/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st index b547b8ef..a824c272 100644 --- a/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st +++ b/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st @@ -1,6 +1,6 @@ instance creation base: anInteger units: anArray - ^ self new + ^ self new base: anInteger; units: anArray; yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st b/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st new file mode 100644 index 00000000..844c7d1f --- /dev/null +++ b/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st @@ -0,0 +1,3 @@ +*Grease-Core +greaseAsByteArray + ^ GRPlatform current integerAsByteArray: self \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st b/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..b3317119 --- /dev/null +++ b/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Core +greaseByteAt: index + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st b/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..92dda9bd --- /dev/null +++ b/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Core +greaseBytesCount + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/pluralize..st b/repository/Grease-Core.package/Integer.extension/instance/pluralize..st index 35ed7d73..449e521b 100644 --- a/repository/Grease-Core.package/Integer.extension/instance/pluralize..st +++ b/repository/Grease-Core.package/Integer.extension/instance/pluralize..st @@ -1,5 +1,5 @@ *grease-core -pluralize: aSingularString - ^ self +pluralize: aSingularString + ^ self pluralize: aSingularString with: (GRInflector pluralize: aSingularString) \ No newline at end of file diff --git a/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st b/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st index e35298ad..475f1bb6 100644 --- a/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st +++ b/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st @@ -1,5 +1,5 @@ *grease-core -greaseDeprecatedApi: apiString details: detailsString +greaseDeprecatedApi: apiString details: detailsString GRDeprecatedApiNotification new details: detailsString; signal: apiString \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/excerpt..st b/repository/Grease-Core.package/String.extension/instance/excerpt..st index 21b44226..c6843001 100644 --- a/repository/Grease-Core.package/String.extension/instance/excerpt..st +++ b/repository/Grease-Core.package/String.extension/instance/excerpt..st @@ -1,5 +1,5 @@ *grease-core excerpt: aString "Answer an excerpt of the receiver that matches the first occurence of aString. If aString isn't found, nil is answered." - + ^ self excerpt: aString radius: 100 \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st b/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st index 57c3607f..98a14aa7 100644 --- a/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st +++ b/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st @@ -1,5 +1,5 @@ *grease-core excerpt: aString radius: anInteger "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." - + ^ self excerpt: aString radius: anInteger ellipsis: '...' \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/greaseInteger.st b/repository/Grease-Core.package/String.extension/instance/greaseInteger.st index ad2d0b4d..ddc5b29d 100644 --- a/repository/Grease-Core.package/String.extension/instance/greaseInteger.st +++ b/repository/Grease-Core.package/String.extension/instance/greaseInteger.st @@ -16,7 +16,7 @@ greaseInteger ifTrue: [ 0 ] ifFalse: [ 10 * number ]) + (char greaseInteger - $0 greaseInteger) ] ifFalse: [ - ^ number isNil ifFalse: [ + ^ number isNil ifFalse: [ negated not ifFalse: [ number negated ] ifTrue: [ number ] ] ] ] ]. diff --git a/repository/Grease-Core.package/String.extension/instance/truncate..st b/repository/Grease-Core.package/String.extension/instance/truncate..st index 8e624b44..7bda5b57 100644 --- a/repository/Grease-Core.package/String.extension/instance/truncate..st +++ b/repository/Grease-Core.package/String.extension/instance/truncate..st @@ -1,5 +1,5 @@ *grease-core truncate: anInteger "Truncate the receiver to anInteger characters." - + ^ self truncate: anInteger ellipsis: '...' \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/truncate.st b/repository/Grease-Core.package/String.extension/instance/truncate.st index 1c855a76..6217e9c2 100644 --- a/repository/Grease-Core.package/String.extension/instance/truncate.st +++ b/repository/Grease-Core.package/String.extension/instance/truncate.st @@ -1,5 +1,5 @@ *grease-core truncate "Truncate the receiver to 30 characters." - + ^ self truncate: 30 \ No newline at end of file diff --git a/repository/Grease-Core.package/monticello.meta/categories.st b/repository/Grease-Core.package/monticello.meta/categories.st index d33d6435..c80ee06e 100644 --- a/repository/Grease-Core.package/monticello.meta/categories.st +++ b/repository/Grease-Core.package/monticello.meta/categories.st @@ -1,5 +1 @@ -SystemOrganization addCategory: #'Grease-Core'! -SystemOrganization addCategory: #'Grease-Core-Collections'! -SystemOrganization addCategory: #'Grease-Core-Exceptions'! -SystemOrganization addCategory: #'Grease-Core-Text'! -SystemOrganization addCategory: #'Grease-Core-Utilities'! +self packageOrganizer ensurePackage: #'Grease-Core' withTags: #(#Collections #Exceptions #Text #Utilities)! diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..407deefc --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st @@ -0,0 +1,3 @@ +encoding +base64Encode: aByteArray + ^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st index 43ed36e9..35fa6b90 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,3 @@ -file-library +files contentsOfFile: aString binary: aBoolean ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..5959876d --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st @@ -0,0 +1,4 @@ +files +deleteFile: aPathString + + GsFile removeServerFile: aPathString diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st index 76f3cd81..fbbef96a 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st @@ -1,4 +1,4 @@ -file-library +files 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 ." diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st index bef36fcb..1ca22e12 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st @@ -1,4 +1,4 @@ -*grease-gemstone-core +transactions doTransaction: aBlock "Evaluate aBlock in a transaction. Return true if the transaction succeeds and false if the transaction fails. diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st index a55b20cc..bece8020 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st @@ -1,4 +1,4 @@ -file-library +files ensureExistenceOfFolder: aString "creates a folder named aString in the default server directory" ServerFileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st index 3ba20dce..2c0ce1a0 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ -file-library +files fileExists: aString - ^ (FileDirectory forFileName: aString) exists \ No newline at end of file + ^ GsFile existsOnServer: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st index 6c23b983..c7e49a15 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st @@ -1,4 +1,4 @@ -file-library +files 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 ." diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st new file mode 100644 index 00000000..e947f21e --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st @@ -0,0 +1,4 @@ +testing +isGemStone + + ^ true \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st index 95ce9d8a..8881eb79 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st @@ -1,3 +1,3 @@ -file-library +files localNameOf: aFilename ^(ServerFileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..c452c26b --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +files +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..6f8c5c0a --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,7 @@ +files +newTemporaryFileNamed: aName + + | fileName | + fileName := GRPlatform current pathSeparator,'tmp', GRPlatform current pathSeparator, aName. + (self fileExists: fileName) ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ (GsFile openWriteOnServer: fileName) pathName diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st index 733cfdf1..734b957c 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st @@ -1,3 +1,3 @@ -file-library +files pathSeparator ^ FileDirectory pathNameDelimiter asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st index cf66b203..09467ea7 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file-library +files readFileStreamOn: aString do: aBlock binary: aBoolean | stream dir file | [ diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..713229bd --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aPathString + + ^ GsFile sizeOfOnServer: aPathString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..d34a7e25 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod _sourceString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st index 50e2a5b0..4de9489b 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st @@ -1,3 +1,3 @@ -*grease-gemstone-core +processes thisContext ^ GsContext fromLevel: 3 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st index e0a494a0..55a23848 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st @@ -1,4 +1,4 @@ -file-library +files write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st index 5011e5cc..99bfc2e1 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file-library +files writeFileStreamOn: fileName do: aBlock binary: isBinary | stream | stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false. diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json index f9eb4680..7ca29622 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json +++ b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json @@ -1,8 +1,7 @@ { "category" : "Grease-GemStone-Core", "classinstvars" : [ - "mutex", - "generator" ], + ], "classvars" : [ ], "commentStamp" : "", diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st new file mode 100644 index 00000000..18d3673a --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st @@ -0,0 +1,7 @@ +accessing +tempNamed: aString + | index | + index := self tempNames indexOf: aString asSymbol. + index = 0 + ifTrue: [ Error raiseSignal: 'No such temp: ' , aString ]. + ^ self tempAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..315c86a0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,4 @@ +*grease-gemstone-core +greaseByteAt: index + + ^ self digitAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..1a552749 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,4 @@ +*grease-gemstone-core +greaseBytesCount + + ^ self digitLength \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json b/repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json new file mode 100644 index 00000000..187ee5a7 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "LargeInteger" } diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st new file mode 100644 index 00000000..d9528b3d --- /dev/null +++ b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st @@ -0,0 +1,5 @@ +*grease-gemstone-core +greaseBeginsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st new file mode 100644 index 00000000..242c2dd4 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st @@ -0,0 +1,5 @@ +*grease-gemstone-core +greaseEndsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..315c86a0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,4 @@ +*grease-gemstone-core +greaseByteAt: index + + ^ self digitAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..1a552749 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,4 @@ +*grease-gemstone-core +greaseBytesCount + + ^ self digitLength \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json b/repository/Grease-GemStone-Core.package/SmallInteger.extension/properties.json similarity index 100% rename from repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json rename to repository/Grease-GemStone-Core.package/SmallInteger.extension/properties.json diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st new file mode 100644 index 00000000..c35dccec --- /dev/null +++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st @@ -0,0 +1,4 @@ +*grease-gemstone-core +assert: anObject identicalTo: otherObj + + self assert: anObject identical: otherObj \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st new file mode 100644 index 00000000..e516bae0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st @@ -0,0 +1,5 @@ +*grease-gemstone-core +deny: anObject identicalTo: anotherObject + self + deny: anObject == anotherObject + description: anObject printString, ' is *not* identical to ', anotherObject printString. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json b/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json new file mode 100644 index 00000000..10c0c4d0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "TestAsserter" } diff --git a/repository/Grease-Squeak-Core.package/.filetree b/repository/Grease-GemStone-Kernelv370.package/.filetree similarity index 100% rename from repository/Grease-Squeak-Core.package/.filetree rename to repository/Grease-GemStone-Kernelv370.package/.filetree diff --git a/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st b/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..4893d0d5 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st @@ -0,0 +1,6 @@ +*grease-gemstone-kernelv370 +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-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json b/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json new file mode 100644 index 00000000..68bad717 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "ReadByteStreamPortable" } diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone-Kernelv370.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/monticello.meta/initializers.st rename to repository/Grease-GemStone-Kernelv370.package/monticello.meta/initializers.st diff --git a/repository/Grease-GemStone-Kernelv370.package/monticello.meta/package b/repository/Grease-GemStone-Kernelv370.package/monticello.meta/package new file mode 100644 index 00000000..ad2a0c29 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv370.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-GemStone-Kernelv370') \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/properties.json b/repository/Grease-GemStone-Kernelv370.package/properties.json similarity index 100% rename from repository/Grease-Squeak-Core.package/properties.json rename to repository/Grease-GemStone-Kernelv370.package/properties.json diff --git a/repository/Grease-Pharo30-Core.package/.filetree b/repository/Grease-Pharo100-Core.package/.filetree similarity index 100% rename from repository/Grease-Pharo30-Core.package/.filetree rename to repository/Grease-Pharo100-Core.package/.filetree 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-Pharo30-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/BlockClosure.extension/properties.json rename to repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/ByteArray.extension/properties.json rename to repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/Character.extension/properties.json b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Character.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Character.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..544e14eb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +any + ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-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-Pharo30-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Duration.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Duration.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/README.md rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md 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-Pharo30-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/use.during..st rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/default.st rename to repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st diff --git a/repository/Grease-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/greasePharo100Core.st b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st new file mode 100644 index 00000000..241c674a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo100-Core +greasePharo100Core + ^ self new + name: 'Grease-Pharo100-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decode..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st diff --git a/repository/Grease-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..5bce5556 --- /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..1f770ac9 --- /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..03133d93 --- /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-Pharo30-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st diff --git a/repository/Grease-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-Pharo30-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st diff --git a/repository/Grease-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-Pharo30-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st diff --git a/repository/Grease-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..8721690e --- /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-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st new file mode 100644 index 00000000..3fb71b1a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st @@ -0,0 +1,3 @@ +encoding +base64Decode: aString + ^ aString base64Decoded asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..4cb93d20 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st @@ -0,0 +1,3 @@ +encoding +base64Encode: aByteArray + ^ aByteArray base64Encoded \ 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..f121b44b --- /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..c64d0bc2 --- /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..01aff905 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -0,0 +1,3 @@ +files +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/deleteFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..69d63003 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st @@ -0,0 +1,6 @@ +exceptions +deprecationExceptionSet + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself \ 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..81b4dce9 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st @@ -0,0 +1,8 @@ +files +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-Pharo30-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/doSilently..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st diff --git a/repository/Grease-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..ef505d70 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -0,0 +1,4 @@ +files +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..1fc0dddf --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -0,0 +1,3 @@ +files +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..4b9fcd27 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st @@ -0,0 +1,8 @@ +files +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/isPharo.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st new file mode 100644 index 00000000..17945cf1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st @@ -0,0 +1,4 @@ +testing +isPharo + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/label.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st diff --git a/repository/Grease-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..64db9825 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -0,0 +1,3 @@ +files +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..eb03a167 --- /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/newTemporaryFile.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..01578607 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +files +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..29d781b7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,7 @@ +files +newTemporaryFileNamed: aName + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..7992374f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,11 @@ +files +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..81baa7c1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,11 @@ +files +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newline.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st diff --git a/repository/Grease-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..d417abb1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st @@ -0,0 +1,3 @@ +exceptions +openDebuggerOn: anError + (OupsDebugRequest newForException: anError) submit \ 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..2da9f364 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -0,0 +1,3 @@ +files +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..6324baf5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -0,0 +1,6 @@ +files +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..142efa0f --- /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-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st new file mode 100644 index 00000000..58137e33 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st @@ -0,0 +1,5 @@ +startup +removeFromShutDownList: aClass + "Remove aClass from the shutdown list in the system." + + SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st new file mode 100644 index 00000000..76918209 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st @@ -0,0 +1,5 @@ +startup +removeFromStartUpList: aClass + "Remove aClass from the startup list in the system." + + SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st diff --git a/repository/Grease-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..12698969 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st @@ -0,0 +1,3 @@ +cryptography +secureHashFor: aStringOrByteArray + ^ SHA1 new hashMessage: aStringOrByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..f7139913 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aString + + ^ aString asFileReference size \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..3ed3d44c --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode \ No newline at end of file diff --git a/repository/Grease-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..7b994393 --- /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-Pharo30-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/terminateProcess..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st diff --git a/repository/Grease-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..97018fc5 --- /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-Pharo30-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st new file mode 100644 index 00000000..6a1bd7a0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st @@ -0,0 +1,7 @@ +files +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..43d33949 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -0,0 +1,5 @@ +files +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-Pharo30-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/initialize.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st diff --git a/repository/Grease-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-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomClass.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomFrom..st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/startUp.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/unload.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st diff --git a/repository/Grease-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-Pharo90-Core.package/GRZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st new file mode 100644 index 00000000..068914b5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st @@ -0,0 +1,4 @@ +accessing +codecs + ^ self supportedEncodingNames + collect: [ :each | self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..706f7f53 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st @@ -0,0 +1,16 @@ +accessing +supportedEncodingNames + "answers the names of the encodings supported by this class" + + | all | + all := ZnCharacterEncoder knownEncodingIdentifiers asOrderedCollection. + "We include some (but not all) alternative names for encodings, providing some backwards compatibility with TextConverter encoding names. Make a PR if you need more." + (all includes: 'utf8') + ifTrue:[ all addAll: #('utf-8' 'UTF-8') ]. + (all includes: 'utf16') + ifTrue:[ all addAll: #('utf-16' 'UTF-16') ]. + (all includes: 'macroman') + ifTrue:[ all add: 'mac-roman' ]. + (all includes: 'cp1252') + ifTrue:[ all add: 'cp-1252' ]. + ^ all \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st new file mode 100644 index 00000000..d50a4862 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +accessing +supportsEncoding: aName + ^ self supportedEncodingNames includes: aName \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st new file mode 100644 index 00000000..e9869000 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st @@ -0,0 +1,3 @@ +convenience +decode: aStringOrByteArray + ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..6e5de896 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st new file mode 100644 index 00000000..83482e43 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRPharoZnCodecStream + on: aStream + withEncoder: (ZnCharacterEncoder newForEncoding: self name) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st new file mode 100644 index 00000000..e7c86042 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st @@ -0,0 +1,7 @@ +initialization +initializeWithName: aString + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252' 'utf8' 'utf-8' 'UTF-8') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf8' ] + ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/url.st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json new file mode 100644 index 00000000..f45c54aa --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name", + "urlCodec" + ], + "name" : "GRPharoZnCodec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st new file mode 100644 index 00000000..a91977ca --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st @@ -0,0 +1,3 @@ +instance creation +on: aStream withEncoder: aZnEncoder + ^ self basicNew initializeOn: aStream withEncoder: aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..365093e2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +accessing +greaseNext: anInteger putAll: aCollection startingAt: startIndex + encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st new file mode 100644 index 00000000..8fc52caa --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st @@ -0,0 +1,5 @@ +initialization +initializeOn: aStream withEncoder: aZnEncoder + self initialize. + stream := aStream. + encoder := aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st new file mode 100644 index 00000000..b5f1ff9a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.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/GRPharoZnCodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st new file mode 100644 index 00000000..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +accessing +next + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..30014e3d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +accessing +nextPut: aCharacter + encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..bd42bba5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + | string | + string := aString asString. + encoder next: string size putAll: string startingAt: 1 toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json new file mode 100644 index 00000000..44040131 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st new file mode 100644 index 00000000..cb666a56 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo100-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..cb666a56 --- /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..45ebf480 --- /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-Pharo30-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Interval.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Interval.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..6b1d45ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseByteAt: index + ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..ef791cd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseBytesCount + ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json new file mode 100644 index 00000000..029bc676 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "LargeInteger" +} \ 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-Pharo30-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json rename to repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/Number.extension/properties.json b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Number.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Number.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/Object.extension/properties.json b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Object.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Object.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/Point.extension/properties.json b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Point.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Point.extension/properties.json diff --git a/repository/Grease-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..b3fd7893 --- /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-Pharo30-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json rename to repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json diff --git a/repository/Grease-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..738a82b7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +1,8 @@ +*Grease-Pharo100-Core +beginsWithSubCollection: aSequenceableCollection + "Some platforms implement #beginsWith: to answer true for an empty argument." + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBegins:'. + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ 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..43af03a2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +1,8 @@ +*Grease-Pharo100-Core +endsWithSubCollection: aSequenceableCollection + "Some platforms implement #endsWith: to answer true for an empty argument." + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st new file mode 100644 index 00000000..572bc2ce --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseBeginsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st new file mode 100644 index 00000000..efbbc0d0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseEndsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json rename to repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..6b1d45ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseByteAt: index + ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..ef791cd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseBytesCount + ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json new file mode 100644 index 00000000..ca9cd21f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SmallInteger" +} \ 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-Pharo30-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Symbol.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json diff --git a/repository/Grease-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-Pharo30-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/WriteStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..47e57aa2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +self packageOrganizer ensurePackage: #'Grease-Pharo100-Core' withTags: #()! diff --git a/repository/Grease-Squeak-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Squeak-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st 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-Pharo30-Core.package/properties.json b/repository/Grease-Pharo100-Core.package/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/properties.json rename to repository/Grease-Pharo100-Core.package/properties.json diff --git a/repository/Grease-Pharo110-Slime-Core.package/.filetree b/repository/Grease-Pharo110-Slime-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/README.md rename to repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st new file mode 100644 index 00000000..495d1401 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st @@ -0,0 +1,15 @@ +hooks +afterCheck: aNode mappings: mappingDict + + | method | + method := aNode methodNode. + " This ensures that the description is of the form ClassName>>#selector:" + (aNode arguments first isLiteralNode + and: [ aNode arguments first value isString + and: [ method methodClass name greaseString , '>>#' , method selector greaseString ~= aNode arguments first value ] ]) ifTrue: [ ^ true ]. + + " This ensures that the description is a string and ends with a dot." + ^ (aNode arguments size > 1 + and: [ aNode arguments second isLiteralNode + and: [ aNode arguments second value isString + and: [ (aNode arguments second value endsWithSubCollection: '.') not ] ] ]) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st new file mode 100644 index 00000000..b5813499 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st new file mode 100644 index 00000000..4ee4851c --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st @@ -0,0 +1,8 @@ +initialization +initialize + + super initialize. + self + matchesAny: #( + '``@receiver greaseDeprecatedApi: ``@arg1' + '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st new file mode 100644 index 00000000..554083f4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Invalid use of deprecated API protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st new file mode 100644 index 00000000..aeabf8ad --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json new file mode 100644 index 00000000..d28d8ab3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeParseTreeLintRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRDeprecatedApiProtocolRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/README.md rename to repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st new file mode 100644 index 00000000..0e3a239e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json new file mode 100644 index 00000000..3ea0a053 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ReAbstractRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeBlockLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/README.md rename to repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st new file mode 100644 index 00000000..2d2913fb --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json new file mode 100644 index 00000000..e590c6d3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ReNodeMatchRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeParseTreeLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/README.md rename to repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st new file mode 100644 index 00000000..b84d2a50 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json new file mode 100644 index 00000000..097d5355 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ReNodeRewriteRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeTransformationRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md new file mode 100644 index 00000000..acb02dfd --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md @@ -0,0 +1 @@ +For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st new file mode 100644 index 00000000..116356fd --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json new file mode 100644 index 00000000..c36ac25e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "JohanBrichau 3/11/2024 21:54", + "super" : "RBBlockLintRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSlimeBlockLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md new file mode 100644 index 00000000..acb02dfd --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md @@ -0,0 +1 @@ +For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st new file mode 100644 index 00000000..5d72890a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json new file mode 100644 index 00000000..93569366 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "JohanBrichau 3/11/2024 21:54", + "super" : "RBParseTreeLintRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSlimeParseTreeLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md new file mode 100644 index 00000000..acb02dfd --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md @@ -0,0 +1 @@ +For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st new file mode 100644 index 00000000..b60e68d4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json new file mode 100644 index 00000000..90106c6e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "JohanBrichau 3/11/2024 21:54", + "super" : "RBTransformationRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSlimeTransformationRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..3990f1cc --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +self packageOrganizer ensurePackage: #'Grease-Pharo110-Slime-Core' withTags: #()! diff --git a/repository/Grease-Squeak5-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st diff --git a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package new file mode 100644 index 00000000..8e727ec7 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo110-Slime-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/properties.json b/repository/Grease-Pharo110-Slime-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/.filetree b/repository/Grease-Pharo110-Slime-Portability.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st new file mode 100644 index 00000000..6058ed9f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st @@ -0,0 +1,19 @@ +initialization +initialize + + super initialize. + self + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st new file mode 100644 index 00000000..c1c48207 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Booleans' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st new file mode 100644 index 00000000..b650ed54 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ '#and:and: and #or:or: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json new file mode 100644 index 00000000..ea030bd2 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiBooleansRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st new file mode 100644 index 00000000..f83e0222 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st @@ -0,0 +1,16 @@ +initialization +initialize + + super initialize. + self + replace: 'Character value: ``@expr' + with: 'Character codePoint: ``@expr'. + self + replace: '`#source `{:node | node value isCharacter }` to: `#target' + byEvaluating: [ :node | + (node receiver value isCharacter and: [ + node arguments first value isCharacter ]) + ifTrue: [ + RBLiteralNode value: (String streamContents: [ :stream | + node receiver value codePoint to: node arguments first value codePoint do: [ :code | stream nextPut: (Character codePoint: code) ] ]) ] + ifFalse: [ node ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st new file mode 100644 index 00000000..6ea7a32b --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Characters' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st new file mode 100644 index 00000000..94cf8eb0 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json new file mode 100644 index 00000000..829d5eaa --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiCharactersRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/README.md similarity index 100% rename from repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st new file mode 100644 index 00000000..86c772ea --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st @@ -0,0 +1,30 @@ +initialization +initialize + super initialize. + self + replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection collect: ``@block1 thenDo: ``@block2' + with: '(``@collection collect: ``@block1) do: ``@block2'; + replace: '``@collection collect: ``@block1 thenSelect: ``@block2' + with: '(``@collection collect: ``@block1) select: ``@block2'; + replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' + with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; + replace: '``@collection reject: ``@block1 thenDo: ``@block2' + with: '(``@collection reject: ``@block1) do: ``@block2'; + replace: '``@collection select: ``@block1 thenCollect: ``@block2' + with: '(``@collection select: ``@block1) collect: ``@block2'; + replace: '``@collection select: ``@block1 thenDo: ``@block2' + with: '(``@collection select: ``@block1) do: ``@block2'; + replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' + with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; + replace: '``@collection valuesDo: ``@block' + with: '``@collection do: ``@block'; + replace: '``@collection reversed' + with: '``@collection reverse'; + replace: '``@dictionary keysSortedSafely' + with: '``@dictionary keys asSortedCollection'; + replace: '``@collectionClass new: ``@size withAll: ``@character' + with: '(``@collectionClass new: ``@size) atAllPut: ``@character' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st new file mode 100644 index 00000000..a318a869 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st new file mode 100644 index 00000000..5929ea0d --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json new file mode 100644 index 00000000..f5f8c087 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiCollectionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st new file mode 100644 index 00000000..962d59d3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st @@ -0,0 +1,17 @@ +initialization +initialize + + super initialize. + self + replace: '``@boolean ifNotNilDo: ``@block' + with: '``@boolean ifNotNil: ``@block'; + replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' + with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; + replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' + with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; + replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st new file mode 100644 index 00000000..76482a4a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Conditionals' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st new file mode 100644 index 00000000..a60d109e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json new file mode 100644 index 00000000..20329511 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiConditionalsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st new file mode 100644 index 00000000..4867fd82 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialization +initialize + + super initialize. + self + replace: '``@object asString' with: '``@object greaseString'; + replace: '``@object asInteger' with: '``@object greaseInteger' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st new file mode 100644 index 00000000..14c21187 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Convertors' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st new file mode 100644 index 00000000..806fe5ac --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'The ANSI standard does not support #asInteger and #asString on Object.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json new file mode 100644 index 00000000..2a17b9cf --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiConvertorRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st new file mode 100644 index 00000000..a06d318e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialization +initialize + + super initialize. + self + replace: '``@block on: `class do: [ | `@temps | ``@.body ]' + with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st new file mode 100644 index 00000000..6d5286e6 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Exceptions' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st new file mode 100644 index 00000000..7ec36da6 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Exception handlers expect exactly one argument in ANSI.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json new file mode 100644 index 00000000..4119078e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiExceptionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st new file mode 100644 index 00000000..1b87d4ea --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st @@ -0,0 +1,13 @@ +initialization +initialize + + super initialize. + self + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; + replace: '``@stream nextPut: Character cr; nextPut: Character lf' + with: '``@stream crlf'; + replace: '``@collection writeStream' + with: 'WriteStream on: ``@collection' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st new file mode 100644 index 00000000..50e44acb --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Streams' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st new file mode 100644 index 00000000..3d05fb7c --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ '#cr and #lf are not part of the ANSI stream protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json new file mode 100644 index 00000000..f0ce96f2 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiStreamsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st new file mode 100644 index 00000000..f34a290f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st new file mode 100644 index 00000000..702a9ad0 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st @@ -0,0 +1,26 @@ +initialization +initialize + + super initialize. + self + replace: 'String tab' with: '(String with: Character tab)'; + replace: 'String cr' with: '(String with: Character cr)'; + replace: 'String lf' with: '(String with: Character lf)'; + replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; + replace: 'String space' with: '(String with: Character space)'; + replace: '`@string includesSubString: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '`@string includesSubstring: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '``@string findTokens: ``@arg' byEvaluating: [ :node | + | argument newNode | + newNode := node copy. + argument := newNode arguments first. + argument isLiteralNode ifTrue: [ + argument value isArray + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. + argument value isCharacter + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. + newNode + selector: #subStrings:; + yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st new file mode 100644 index 00000000..31e016a6 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Strings' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st new file mode 100644 index 00000000..84577e32 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json new file mode 100644 index 00000000..55ce4bd3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiStringsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st new file mode 100644 index 00000000..918ec479 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st @@ -0,0 +1,4 @@ +testing - interest +checksClass + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st new file mode 100644 index 00000000..7d00fbc7 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st @@ -0,0 +1,11 @@ +running +basicCheck: aClass + + ^ aClass isMeta not + and: [ (aClass includesSelector: #initialize) + and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | + aClass includesBehavior: (Smalltalk globals at: each) ]) + and: [ aClass class methodDictionary noneSatisfy: [ :each | + matcher + executeTree: each parseTree + initialAnswer: false ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st new file mode 100644 index 00000000..f42fb7c0 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st @@ -0,0 +1,8 @@ +initialization +initialize + + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matches: 'self basicNew initialize' + do: [ :node :answer | true ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st new file mode 100644 index 00000000..693fa6d6 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ '#basicNew initialize is missing' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st new file mode 100644 index 00000000..22a02ade --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ '#initialize is not called implicitly when sending #new to an object in all Smalltalk dialects. Consider subclassing GRObject.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json new file mode 100644 index 00000000..a097ce11 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeBlockLintRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "matcher" + ], + "name" : "GRBasicNewInitializeMissingRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st new file mode 100644 index 00000000..c0b5961f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st @@ -0,0 +1,4 @@ +testing - interest +checksMethod + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st new file mode 100644 index 00000000..1b7b4c47 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st @@ -0,0 +1,10 @@ +running +basicCheck: aMethod + + ^ (aMethod methodClass isMeta not + and: [ (aMethod selector beginsWithSubCollection: #initialize) + and: [ aMethod selector numArgs > 0 + and: [ aMethod methodClass ~= GRObject + and: [ (aMethod methodClass includesBehavior: GRObject) + and: [ (aMethod superMessages includes: aMethod selector) not + and: [ aMethod selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st new file mode 100644 index 00000000..6386a8fd --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Invalid object initialization' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st new file mode 100644 index 00000000..9ce37a52 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Initialize methods are required to call the designated initializer or its super implementation.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json new file mode 100644 index 00000000..f530afd0 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeBlockLintRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRInvalidObjectInitializationRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st new file mode 100644 index 00000000..5e68f2ca --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st @@ -0,0 +1,4 @@ +testing - interest +checksNode + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st new file mode 100644 index 00000000..428bcd1c --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st @@ -0,0 +1,4 @@ +running +basicCheck: anEntity + + ^ anEntity isMessage and:[ self methodNames includes: anEntity selector ] diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st new file mode 100644 index 00000000..25a16ed6 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st @@ -0,0 +1,4 @@ +private +methodNames + + ^ #( anyOne withIndexCollect: ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st new file mode 100644 index 00000000..cc5e5c47 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Uses non portable message' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st new file mode 100644 index 00000000..bc7272e4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Some methods are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json new file mode 100644 index 00000000..1c576d5f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeBlockLintRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNonPortableMessageRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st new file mode 100644 index 00000000..5e8d416d --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st @@ -0,0 +1,9 @@ +initialization +initialize + + super initialize. + self + replace: '`@collection beginsWith: `@subCollection' + with: '`@collection greaseBeginsWith: `@subCollection'; + replace: '`@collection endsWith: `@subCollection' + with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st new file mode 100644 index 00000000..a318a869 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st new file mode 100644 index 00000000..df5a43be --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ '#beginsWith: and #endsWith: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json new file mode 100644 index 00000000..61611855 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNotPortableCollectionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md new file mode 100644 index 00000000..bca4d093 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md @@ -0,0 +1 @@ +I detect senders of Object >> #in: diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st new file mode 100644 index 00000000..d51d0570 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialization +initialize + + super initialize. + self + replace: '``@object in: [ :`var | | `@temps | `@.statements ]' + with: '[ :`var | | `@temps | `@.statements ] value: ``@object' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st new file mode 100644 index 00000000..914d48df --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Object>>#in:' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st new file mode 100644 index 00000000..944aa7c5 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json new file mode 100644 index 00000000..65740cec --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 9/12/2009 10:37", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRObjectInRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st new file mode 100644 index 00000000..c0b5961f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st @@ -0,0 +1,4 @@ +testing - interest +checksMethod + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st new file mode 100644 index 00000000..18b14d25 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st @@ -0,0 +1,8 @@ +running +basicCheck: aMethod + + (aMethod methodClass instanceSide category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" + ^ false ]. + + ^ aMethod literals anySatisfy: [ :each | each isVariableBinding and: [ self classNames includes: each key ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st new file mode 100644 index 00000000..510ca2ab --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Uses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json new file mode 100644 index 00000000..1290aaf1 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRUsesNotPortableClassRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReferencesNotPortableClassRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st new file mode 100644 index 00000000..918ec479 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st @@ -0,0 +1,4 @@ +testing - interest +checksClass + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st new file mode 100644 index 00000000..1091897f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st @@ -0,0 +1,4 @@ +running +basicCheck: aClass + + ^ aClass allSuperclasses anySatisfy: [ :each | self classNames includes: each name ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st new file mode 100644 index 00000000..65a2945a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Subclasses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json new file mode 100644 index 00000000..db075258 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRUsesNotPortableClassRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSubclassesNotPortableClassRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md new file mode 100644 index 00000000..6f3d9062 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md @@ -0,0 +1 @@ +I check for TestCase >> #fail. \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st new file mode 100644 index 00000000..874f1381 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st @@ -0,0 +1,8 @@ +hooks +afterCheck: aNode mappings: mappingsDict + + aNode methodNode methodClass isMeta + ifTrue: [ ^ false ]. + (aNode methodNode methodClass allSuperclasses includes: (Smalltalk at: #TestCase)) + ifTrue: [ ^ true ]. + ^ false \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st new file mode 100644 index 00000000..eb721d8e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'SUnit Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st new file mode 100644 index 00000000..097ff5a1 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialization +initialize + + super initialize. + self + replace: 'self fail' + with: 'self assert: false' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st new file mode 100644 index 00000000..0dd472fc --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'TestCase >> #fail' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st new file mode 100644 index 00000000..4e358c3e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'TestCase >> #fail is not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json new file mode 100644 index 00000000..26df4eaa --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 8/17/2014 11:24", + "super" : "GRReSlimeTransformationRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRTestAssertionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st new file mode 100644 index 00000000..6ca1e900 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialization +initialize + + super initialize. + self matchesAny: #( + '`@receiver canPerform: `@selector' + '`@receiver canUnderstand: `@selector' ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st new file mode 100644 index 00000000..a7805d06 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Sends #canPerform: or #canUnderstand:' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st new file mode 100644 index 00000000..4332f561 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ '#canPerform: or #canUnderstand: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json new file mode 100644 index 00000000..4b4ace91 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeParseTreeLintRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesCanPerformOrUnderstandRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st new file mode 100644 index 00000000..4648081c --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st @@ -0,0 +1,4 @@ +hooks +afterCheck: aNode mappings: mappingDict + + ^ aNode methodNode selector = #hash \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st new file mode 100644 index 00000000..190c57e0 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st @@ -0,0 +1,5 @@ +initialization +initialize + + super initialize. + self matches: '`@receiver class hash' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st new file mode 100644 index 00000000..2a762ed7 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st @@ -0,0 +1,4 @@ +accessing +name + + ^ 'Uses its class for hash' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st new file mode 100644 index 00000000..018489ab --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json new file mode 100644 index 00000000..3e90e3f3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeParseTreeLintRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesClassForHashRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st new file mode 100644 index 00000000..7d1d20cc --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st @@ -0,0 +1,4 @@ +testing +isAbstract + + ^ self name = #GRUsesNotPortableClassRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st new file mode 100644 index 00000000..680a15af --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRUsesNotPortableClassRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st new file mode 100644 index 00000000..0487cbe8 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st @@ -0,0 +1,4 @@ +private +classNames + + ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st new file mode 100644 index 00000000..b4981dc4 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st @@ -0,0 +1,4 @@ +accessing +group + + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st new file mode 100644 index 00000000..e9a097fe --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st @@ -0,0 +1,4 @@ +accessing +rationale + + ^ 'Some classes are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json new file mode 100644 index 00000000..323de9e2 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRReSlimeBlockLintRule", + "category" : "Grease-Pharo110-Slime-Portability", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesNotPortableClassRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st new file mode 100644 index 00000000..139dcc24 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st @@ -0,0 +1 @@ +self packageOrganizer ensurePackage: #'Grease-Pharo110-Slime-Portability' withTags: #()! diff --git a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package new file mode 100644 index 00000000..59863a35 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo110-Slime-Portability') \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 4518c27b..00000000 --- a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index 9a0e01d6..00000000 --- a/repository/Grease-Pharo30-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -greaseString - "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." - ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo30-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 12ba7efd..00000000 --- a/repository/Grease-Pharo30-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo30-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 26137218..00000000 --- a/repository/Grease-Pharo30-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo30-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index a758d02a..00000000 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo30-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 285ff98d..00000000 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo30-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index 1e639bfd..00000000 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 5a9acb64..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 5ec29ea0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRDelegatingStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index 8083d8aa..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -I represent a dynamic variable i.e., a variable that is -1. process local, that -2. is defined for a given block and that -3. can be nested. - -For example: - -GRDynamicVariable - use: 1 - during: [ - self assert: GRDynamicVariable value = 1. - GRDynamicVariable - use: 2 - during: [ self assert: GRDynamicVariable value = 2 ]. - self assert: GRDynamicVariable value = 1 ]. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index b0275614..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/value.during..st b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/value.during..st deleted file mode 100644 index ef0ce8bd..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/instance/value.during..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -value: anObject during: aBlock - | p oldValue | - p := Processor activeProcess. - oldValue := p psValueAt: index. - ^ [ - p psValueAt: index put: anObject. - aBlock value ] ensure: [ p psValueAt: index put: oldValue ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 7c37da28..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "MaxLeske 5/16/2017 22:05", - "super" : "DynamicVariable", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st b/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st deleted file mode 100644 index a88ea6ba..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo30-Core -greasePharo30Core - ^ self new - name: 'Grease-Pharo30-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index 7620280e..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. - -Instance Variables - converter: - -converter - - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 78d23224..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:22", - "super" : "GRCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "converter" - ], - "name" : "GRPharoConverterCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index f1293d05..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -codecs - ^ (TextConverter allEncodingNames - select: [ :each | - "exclude UFT-8 which is handeled by WAUtf8Codec" - self supportsEncoding: each ]) - collect: [ :each | - self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ TextConverter allEncodingNames - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index 3fd04eb8..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "urlCodec" - ], - "name" : "GRPharoGenericCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index 9c4baf85..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name" - ], - "name" : "GRPharoLatin1Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index f842b80b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoLatin1CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index e878c01b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - - ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 45c37a45..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 119ba39b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index c5beee09..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -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-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index 907e0168..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -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-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index 2a02cc3f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index e3b9a6b0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -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-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index 8f4efb85..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -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-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -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: [ - process - debug: anError signalerContext - title: anError description - full: true ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 10f88300..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index 46b9e2d2..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aString - ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index d7e6feab..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -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-Pharo30-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/thisContext.st deleted file mode 100644 index c936ecad..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index e77ae8c1..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,15 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - | folder stream fullFilePath | - folder := FileSystem disk resolveString: aFolderString. - fullFilePath := (folder / aFileNameString) asFileReference. - stream := aStringOrByteArray isString - ifTrue: [ - (MultiByteFileStream forceNewFileNamed: fullFilePath fullName) - ascii; - wantsLineEndConversion: true; - yourself ] - ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st +++ /dev/null @@ -1,4 +0,0 @@ -factory -writeCharacterStreamOn: aString - - ^ GRWorkingWriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index fd949a23..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 6/1/2008 01:03", - "super" : "GRPlatform", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "UrlTable", - "XmlTable" - ], - "instvars" : [ ], - "name" : "GRPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 5c8d294a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - "mutex", - "generator" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoRandomProvider", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 14e538f0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:51", - "super" : "GRCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index c71cb642..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index f7176f32..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index cbadc3b5..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo30-Core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index e413f59a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I'm a work around for bugs in the Pharo stream classes. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -positioning -reset - self resetToStart \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index df3388a3..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/25/2011 18:30", - "super" : "WriteStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRWorkingWriteStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 6c9daea2..00000000 --- a/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 1c64d870..00000000 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 2838be96..00000000 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 0efe7b61..00000000 --- a/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index e2b437b6..00000000 --- a/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index ecde7ba6..00000000 --- a/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 483cb725..00000000 --- a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index 5d361f76..00000000 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 7fea0e16..00000000 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 3acb2e9e..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -beginsWithSubCollection: aSequenceableCollection - "Some platforms implement #beginsWith: to answer true for an empty argument." - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 371cdf37..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -endsWithSubCollection: aSequenceableCollection - "Some platforms implement #endsWith: to answer true for an empty argument." - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 4341e0e2..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index c384e1eb..00000000 --- a/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo30-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-Pharo30-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo30-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 03f13f59..00000000 --- a/repository/Grease-Pharo30-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo30-core -greaseAsMutator - ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st b/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st deleted file mode 100644 index f3df9e7a..00000000 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-Core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json b/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json deleted file mode 100644 index f94cdffb..00000000 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "TBehavior" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo30-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index a99cb85a..00000000 --- a/repository/Grease-Pharo30-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st deleted file mode 100644 index 71924e52..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo30-Core'! diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/package b/repository/Grease-Pharo30-Core.package/monticello.meta/package deleted file mode 100644 index bd865be3..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo30-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st index 643668f1..776d58af 100644 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st @@ -3,6 +3,6 @@ initialize super initialize. self rewriteRule replace: '`@collection beginsWith: `@subCollection' - with: '`@collection beginsWithSubCollection: `@subCollection'; + with: '`@collection greaseBeginsWith: `@subCollection'; replace: '`@collection endsWith: `@subCollection' - with: '`@collection endsWithSubCollection: `@subCollection' \ No newline at end of file + with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md index f0375aac..e71bb46d 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md @@ -1 +1 @@ -A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. +A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..f5e24f05 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st @@ -0,0 +1,3 @@ +encoding +base64Encode: aByteArray + ^ (Base64MimeConverter base64Encode: aByteArray readStream) contents diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st new file mode 100644 index 00000000..124003a4 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st @@ -0,0 +1,7 @@ +encoding +integerAsByteArray: anInteger + | stream | + stream := ByteArray new writeStream. + anInteger greaseBytesCount to: 1 by: -1 do: [:digitIndex | + stream nextPut: (anInteger greaseByteAt: digitIndex)]. + ^ stream contents \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st new file mode 100644 index 00000000..17945cf1 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st @@ -0,0 +1,4 @@ +testing +isPharo + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st index d7e6feab..7b994393 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st @@ -1,6 +1,6 @@ exceptions stackDepth - + | depth current | depth := 0. current := thisContext. diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st index c936ecad..97018fc5 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st @@ -1,4 +1,4 @@ processes thisContext - + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json index 8ccc85e2..fc75f419 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json +++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "pmm 6/1/2008 01:03", + "commentStamp" : "pmm 2/1/2014 13:28", "super" : "GRPlatform", "category" : "Grease-Pharo60-Core", "classinstvars" : [ ], diff --git a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..61ee208c --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,8 @@ +*Grease-Pharo60-Core +greaseByteAt: index + "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." + + + self greaseBytesCount < index + ifTrue: [^0] + ifFalse: [^super at: index] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..43a22aa9 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,8 @@ +*Grease-Pharo60-Core +greaseBytesCount + "Primitive. Answer the number of indexable fields in the receiver. This + value is the same as the largest legal subscript. Essential. See Object + documentation whatIsAPrimitive." + + + self primitiveFailed \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json new file mode 100644 index 00000000..029bc676 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "LargeInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..9f0d7dec --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,14 @@ +*Grease-Pharo60-Core +greaseByteAt: n + "Answer the value of an apparent byte-indexable field in the receiver, + analogous to the large integers, which are organized as bytes." + + n = 1 + ifTrue: [ + "Negate carefully in case the receiver is SmallInteger minVal" + ^ self < 0 + ifTrue: [ -256 - self bitAnd: 255 ] + ifFalse: [ self bitAnd: 255 ] ]. + ^ self < 0 + ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] + ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..bb983402 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,25 @@ +*Grease-Pharo60-Core +greaseBytesCount + "Answer the number of indexable fields in the receiver. This value is the + same as the largest legal subscript. Included so that a SmallInteger can + behave like a LargePositiveInteger or LargeNegativeInteger." + + "32768 == (1 bitShift: 15)" + "32768 bytesCount >>> 2" + + "65536 == (1 bitShift: 16)" + "65536 bytesCount >>> 3" + + | value length | + length := 1. + value := self. + value >= 0 + ifTrue: + [[value > 255] whileTrue: + [value := value bitShift: -8. + length := length + 1]] + ifFalse: + [[value < -255] whileTrue: + [value := value bitShift: -8. + length := length + 1]]. + ^length \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json new file mode 100644 index 00000000..ca9cd21f --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SmallInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md index f0375aac..e71bb46d 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md @@ -1 +1 @@ -A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. +A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..4cb93d20 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st @@ -0,0 +1,3 @@ +encoding +base64Encode: aByteArray + ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..7aa3b432 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +file library +deleteFile: aPathString + aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st @@ -0,0 +1,6 @@ +exceptions +deprecationExceptionSet + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st new file mode 100644 index 00000000..17945cf1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st @@ -0,0 +1,4 @@ +testing +isPharo + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..01578607 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +files +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..29d781b7 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,7 @@ +files +newTemporaryFileNamed: aName + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..63358983 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,11 @@ +file library +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..d9eed8ee --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,11 @@ +file library +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st index 2b7331ab..22443227 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -4,4 +4,4 @@ readFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] - ifFalse: [ aString asFileReference readStreamEncoded: 'ascii' do: aBlock ] \ No newline at end of file + ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..f7139913 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aString + + ^ aString asFileReference size \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..3ed3d44c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st index d7e6feab..7b994393 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st @@ -1,6 +1,6 @@ exceptions stackDepth - + | depth current | depth := 0. current := thisContext. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st index c936ecad..97018fc5 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st @@ -1,4 +1,4 @@ processes thisContext - + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st index 762e9cca..22cf6c64 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -2,4 +2,4 @@ file library writeFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] - ifFalse: [ aString asFileReference writeStreamEncoded: 'ascii' do: aBlock ] \ No newline at end of file + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json index 6c67d70a..ab8c26b8 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "pmm 6/1/2008 01:03", + "commentStamp" : "pmm 2/1/2014 13:28", "super" : "GRPlatform", "category" : "Grease-Pharo70-Core", "classinstvars" : [ ], diff --git a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..234e429d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,8 @@ +*Grease-Pharo70-Core +greaseByteAt: index + "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." + + + self greaseBytesCount < index + ifTrue: [^0] + ifFalse: [^super at: index] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..adb5d76c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,8 @@ +*Grease-Pharo70-Core +greaseBytesCount + "Primitive. Answer the number of indexable fields in the receiver. This + value is the same as the largest legal subscript. Essential. See Object + documentation whatIsAPrimitive." + + + self primitiveFailed \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json new file mode 100644 index 00000000..029bc676 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "LargeInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st new file mode 100644 index 00000000..01880fd1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo70-Core +greaseBeginsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st new file mode 100644 index 00000000..a2483ea4 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo70-Core +greaseEndsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..f47ffe65 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,14 @@ +*Grease-Pharo70-Core +greaseByteAt: n + "Answer the value of an apparent byte-indexable field in the receiver, + analogous to the large integers, which are organized as bytes." + + n = 1 + ifTrue: [ + "Negate carefully in case the receiver is SmallInteger minVal" + ^ self < 0 + ifTrue: [ -256 - self bitAnd: 255 ] + ifFalse: [ self bitAnd: 255 ] ]. + ^ self < 0 + ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] + ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..3acd5b44 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,25 @@ +*Grease-Pharo70-Core +greaseBytesCount + "Answer the number of indexable fields in the receiver. This value is the + same as the largest legal subscript. Included so that a SmallInteger can + behave like a LargePositiveInteger or LargeNegativeInteger." + + "32768 == (1 bitShift: 15)" + "32768 bytesCount >>> 2" + + "65536 == (1 bitShift: 16)" + "65536 bytesCount >>> 3" + + | value length | + length := 1. + value := self. + value >= 0 + ifTrue: + [[value > 255] whileTrue: + [value := value bitShift: -8. + length := length + 1]] + ifFalse: + [[value < -255] whileTrue: + [value := value bitShift: -8. + length := length + 1]]. + ^length \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json new file mode 100644 index 00000000..ca9cd21f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SmallInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st index c5b13f52..9a221440 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st @@ -1,5 +1,5 @@ convenience decoderFor: aStream - ^ GRPharoUtf8CodecStream + ^ GRPharoDeprecatedUtf8CodecStream on: aStream converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st index 21975caa..ad1614eb 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st @@ -1,5 +1,5 @@ convenience encoderFor: aStream - ^ GRPharoUtf8CodecStream + ^ GRPharoDeprecatedUtf8CodecStream on: aStream converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..789907b9 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:27", + "super" : "GRPharoConverterCodecStream", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "Latin1ToUtf8Encodings", + "Latin1ToUtf8Map" + ], + "instvars" : [ ], + "name" : "GRPharoDeprecatedUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..4cb93d20 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st @@ -0,0 +1,3 @@ +encoding +base64Encode: aByteArray + ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st index ecfdc9d4..01aff905 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,3 @@ -file library +files contentsOfFile: aString binary: aBoolean ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..d3c82d99 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st @@ -0,0 +1,6 @@ +exceptions +deprecationExceptionSet + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st index c5beee09..a6e6c3d1 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st @@ -1,4 +1,4 @@ -file library +files 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 ." diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st index 907e0168..ef505d70 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -1,4 +1,4 @@ -file library +files 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-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st index 2a02cc3f..e12b7927 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ -file library +files fileExists: aString ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st index e3b9a6b0..230ea184 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st @@ -1,4 +1,4 @@ -file library +files 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 ." diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st new file mode 100644 index 00000000..17945cf1 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st @@ -0,0 +1,4 @@ +testing +isPharo + + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st index 8f4efb85..64db9825 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -1,3 +1,3 @@ -file library +files localNameOf: aFilename ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..01578607 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +files +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..29d781b7 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,7 @@ +files +newTemporaryFileNamed: aName + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..7992374f --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,11 @@ +files +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..81baa7c1 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,11 @@ +files +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st index b98446f9..305157e2 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st @@ -11,8 +11,8 @@ openDebuggerOn: anError UnhandledError signalForException: anError ] ifFalse: [ WorldState addDeferredUIMessage: [ - process - debug: anError signalerContext - title: anError description - full: true ]. + UIManager default + requestDebuggerOpeningForProcess: process + named: anError description + inContext: anError signalerContext ]. process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st index 10f88300..2da9f364 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -1,3 +1,3 @@ -file library +files pathSeparator ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st index f9dda145..6324baf5 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -1,6 +1,6 @@ -file library +files readFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] - ifFalse: [ aString asFileReference readStreamEncoded: 'ascii' do: aBlock ] \ No newline at end of file + ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..f7139913 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aString + + ^ aString asFileReference size \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..3ed3d44c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st index d7e6feab..7b994393 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st @@ -1,6 +1,6 @@ exceptions stackDepth - + | depth current | depth := 0. current := thisContext. diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st index c936ecad..97018fc5 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st @@ -1,4 +1,4 @@ processes thisContext - + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st index 0732dee6..86376f5c 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st @@ -2,7 +2,7 @@ utf8 codec utf8CodecClass ^ utf8DeprecatedCodecFlag - ifNil: [ GRPharoDeprecatedUtf8Codec ] + ifNil: [ GRPharoUtf8Codec ] ifNotNil: [ utf8DeprecatedCodecFlag ifTrue:[ GRPharoDeprecatedUtf8Codec ] ifFalse: [ GRPharoUtf8Codec ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st index bbde965a..6a1bd7a0 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st @@ -1,4 +1,4 @@ -file library +files write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" ^ self diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st index c06164c8..43d33949 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,5 +1,5 @@ -file library +files writeFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] - ifFalse: [ aString asFileReference writeStreamEncoded: 'ascii' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] \ No newline at end of file + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st index 9d34dca9..e9869000 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -1,3 +1,3 @@ convenience -decode: aByteArray - ^ aByteArray utf8Decoded \ No newline at end of file +decode: aStringOrByteArray + ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st index e2ffb007..0c2be49b 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st @@ -1,5 +1,4 @@ conversion decoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: ZnCharacterEncoder utf8 \ No newline at end of file + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st index c3e8d325..0e80cdaf 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st @@ -1,5 +1,4 @@ conversion encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: ZnCharacterEncoder utf8 \ No newline at end of file + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index 837ace13..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..eed7aded --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +accessing +greaseNext: anInteger putAll: aCollection startingAt: startIndex + encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st new file mode 100644 index 00000000..ece3cda0 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aStream + super initializeOn: aStream. + encoder := ZnCharacterEncoder utf8 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..b5f1ff9a --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +accessing +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +accessing +next + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..30014e3d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +accessing +nextPut: aCharacter + encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..f7494a83 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + | string | + string := aString asString. + encoder next: string size putAll: string startingAt: 1 toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..8be438da --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index c92b49af..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index a7f93368..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo90-Core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index f045a959..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st new file mode 100644 index 00000000..18628d10 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo90-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-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..18628d10 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo90-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-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json new file mode 100644 index 00000000..c5c0f1c8 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary2" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index 848b6f13..00000000 --- a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json deleted file mode 100644 index 5dc73ef1..00000000 --- a/repository/Grease-Pharo90-Core.package/GRZnUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRZnUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..6472e03c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +greaseByteAt: index + ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..9d7d8a82 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +greaseBytesCount + ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json new file mode 100644 index 00000000..029bc676 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "LargeInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st index 7d00507d..290ebb62 100644 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -1,4 +1,8 @@ *Grease-Pharo90-Core beginsWithSubCollection: aSequenceableCollection + + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBeginsWith:'. "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-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st index 1fe4f069..72070fe2 100644 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -1,4 +1,8 @@ *Grease-Pharo90-Core endsWithSubCollection: aSequenceableCollection + + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. "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-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st new file mode 100644 index 00000000..ccc6dad0 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo90-Core +greaseBeginsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st new file mode 100644 index 00000000..49a39d31 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo90-Core +greaseEndsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 0836e77c..00000000 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..6472e03c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +greaseByteAt: index + ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..9d7d8a82 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +greaseBytesCount + ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json new file mode 100644 index 00000000..ca9cd21f --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SmallInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st index 2742a93f..ce50f833 100644 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st @@ -3,11 +3,11 @@ initialize super initialize. self rewriteRule replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; - replace: '`#source to: `#target' + replace: '`#source to: `#target' withValueFrom: [ :node | RBLiteralNode value: (String streamContents: [ :stream | node receiver value codePoint to: node arguments first value codePoint do: [ :code | stream nextPut: (Character codePoint: code) ] ]) ] - when: [ :node | + when: [ :node | node receiver value isCharacter - and: [ node arguments first value isCharacter ] ] \ No newline at end of file + and: [ node arguments first value isCharacter ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st index 1e93cbc8..00acba63 100644 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st @@ -23,7 +23,7 @@ initialize replace: '``@collection valuesDo: ``@block' with: '``@collection do: ``@block'; replace: '``@collection reversed' - with: '``@collection reverse'; + with: '``@collection reverse'; replace: '``@dictionary keysSortedSafely' with: '``@dictionary keys asSortedCollection'; replace: '``@collectionClass new: ``@size withAll: ``@character' diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st index af1892f0..1256fabc 100644 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st @@ -14,7 +14,7 @@ initialize replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | | argument | argument := node arguments first. - argument isLiteralNode ifTrue: [ + argument isLiteralNode ifTrue: [ argument value isArray ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. argument value isCharacter diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st index b5489e28..1b916f3c 100644 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st @@ -1,13 +1,13 @@ running -checkClass: aContext +checkClass: aContext (aContext isMeta not and: [ (aContext includesSelector: #initialize) and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | aContext includesBehavior: (Smalltalk globals at: each) ]) - and: [ aContext class methodDictionary noneSatisfy: [ :each | - matcher + and: [ aContext class methodDictionary noneSatisfy: [ :each | + matcher executeTree: each parseTree initialAnswer: false ] ] ] ]) ifTrue: [ - result + result addClass: aContext selector: #initialize ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st index 10faf254..40611cde 100644 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st @@ -2,6 +2,6 @@ initialization initialize super initialize. matcher := RBParseTreeSearcher new. - matcher + matcher matches: 'self basicNew initialize' do: [ :node :answer | true ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st index c9bda0fc..857cfe81 100644 --- a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st @@ -4,7 +4,7 @@ initialize self matcher matches: '[ :`@args | | `@temps | ``@.stmts ]' do: [ :node :answer | - answer isNil + answer isNil ifFalse: [ answer ] ifTrue: [ | source | @@ -16,7 +16,7 @@ initialize (before isSeparator and: [ after isSeparator ]) ifFalse: [ node ] ifTrue: [ - node bar notNil ifTrue: [ + node bar notNil ifTrue: [ before := source at: node bar - 1 ifAbsent: [ $ ]. after := source at: node bar + 1 ifAbsent: [ $ ]. (before isSeparator and: [ after isSeparator ]) diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st index 64cfada8..9fb5c9de 100644 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st @@ -2,7 +2,7 @@ initialization initialize super initialize. matcher := RBParseTreeSearcher new. - matcher + matcher matchesAnyOf: #( '``@receiver greaseDeprecatedApi: ``@arg1' '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st deleted file mode 100644 index 0bc1862a..00000000 --- a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkMethod: aContext - | periods position | - aContext parseTree nodesDo: [ :node | - (node isSequence and: [ node periods notEmpty ]) ifTrue: [ - periods := OrderedCollection withAll: node periods. - 1 to: node statements size - 1 do: [ :index | - position := periods removeFirst. - ((node statements at: index) stop < position and: [ position < (node statements at: index + 1) start ]) - ifFalse: [ ^ result addClass: aContext methodClass selector: aContext selector ] ]. - (periods isEmpty or: [ periods size = 1 and: [ node statements notEmpty and: [ node statements last stop < periods first ] ] ]) - ifFalse: [ ^ result addClass: aContext methodClass selector: aContext selector ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/name.st deleted file mode 100644 index 3f4db678..00000000 --- a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Empty Statements' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/rationale.st deleted file mode 100644 index 252dd280..00000000 --- a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Empty statements are not supported by most Smalltalk implementations.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st b/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st deleted file mode 100644 index 5b87472b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st +++ /dev/null @@ -1,4 +0,0 @@ -running -resetResult - super resetResult. - result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/properties.json deleted file mode 100644 index c03ba912..00000000 --- a/repository/Grease-Pharo90-Slime.package/GREmptyStatementsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GREmptyStatementsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st index 63c04fdc..30369982 100644 --- a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st +++ b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st @@ -1,10 +1,10 @@ running -checkMethod: aContext - (aContext methodClass isMeta not - and: [ (aContext selector beginsWithSubCollection: #initialize) +checkMethod: aContext + (aContext methodClass isMeta not + and: [ (aContext selector beginsWithSubCollection: #initialize) and: [ aContext selector numArgs > 0 and: [ aContext methodClass ~= GRObject and: [ (aContext methodClass includesBehavior: GRObject) - and: [ (aContext superMessages includes: aContext selector) not - and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) + and: [ (aContext superMessages includes: aContext selector) not + and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) ifTrue: [ result addClass: aContext methodClass selector: aContext selector ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st index 4c871460..6d276d6c 100644 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st @@ -3,7 +3,7 @@ checkClass: aContext | selectors | selectors := self methodNames inject: Set new - into: [ :set :each | + into: [ :set :each | set addAll: (aContext whichSelectorsReferTo: each); yourself ]. diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st index dc83677f..95b1d5c1 100644 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st @@ -1,7 +1,7 @@ running -checkClass: aContext +checkClass: aContext | comment | - aContext isMeta + aContext isMeta ifTrue: [ ^ self ]. comment := aContext organization classComment asString. comment isWideString ifTrue: [ diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st index 8d1ad057..ae19cb73 100644 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st @@ -3,14 +3,14 @@ checkMethod: aContext | foundLiteral | foundLiteral := false. "check individual literals first" - aContext literals do: [ :each | + aContext literals do: [ :each | (each isString and: [ each isWideString ]) ifTrue: [ - result + result addClass: aContext methodClass selector: aContext selector. result addSearchString: each. foundLiteral := true ] ]. - + "now check the whole method, could be in comments" foundLiteral ifFalse: [ aContext sourceCode asString isWideString ifTrue: [ diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st index 643668f1..776d58af 100644 --- a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st @@ -3,6 +3,6 @@ initialize super initialize. self rewriteRule replace: '`@collection beginsWith: `@subCollection' - with: '`@collection beginsWithSubCollection: `@subCollection'; + with: '`@collection greaseBeginsWith: `@subCollection'; replace: '`@collection endsWith: `@subCollection' - with: '`@collection endsWithSubCollection: `@subCollection' \ No newline at end of file + with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st index a9bf5bdb..c8c72c58 100644 --- a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st @@ -4,7 +4,7 @@ initialize self matcher matches: '`{ :node | node isValue and: [ node hasParentheses ] }' do: [ :node :answer | - answer isNil + answer isNil ifFalse: [ answer ] ifTrue: [ | found start stop | diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st index a488a67f..500df13d 100644 --- a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st @@ -4,8 +4,8 @@ initialize self matcher matches: '^ ``@expr' do: [ :node :answer | - answer isNil + answer isNil ifFalse: [ answer ] - ifTrue: [ + ifTrue: [ node start + 2 ~= node value start ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st index 447c54de..a0f0b5a3 100644 --- a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st +++ b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st @@ -4,14 +4,14 @@ initialize self matcher matches: '| `temp `@temps | ``@.stmts' do: [ :node :answer | - answer isNil + answer isNil ifFalse: [ answer ] - ifTrue: [ + ifTrue: [ (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ | found position | found := false. position := node leftBar. - node temporaries do: [ :each | + node temporaries do: [ :each | found := found or: [ position + 2 ~= each start ]. position := each stop ]. found := found or: [ position + 2 ~= node rightBar ]. diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st index cd33b84b..bab892c3 100644 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st @@ -1,7 +1,7 @@ running -checkMethod: aContext +checkMethod: aContext aContext methodClass isMeta ifTrue: [ ^ self ]. (aContext methodClass allSuperclasses includes:(Smalltalk at: #TestCase)) ifFalse: [ ^ self ]. - ^ super checkMethod: aContext \ No newline at end of file + ^ super checkMethod: aContext \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st index 5fc9a25b..954a79b9 100644 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st @@ -1,5 +1,5 @@ running -checkMethod: aContext +checkMethod: aContext aContext parseTree nodesDo: [ :node | node isSequence ifTrue: [ (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st deleted file mode 100644 index c7605206..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`#literal `{ :node | node isLiteralArray and: [ node isForByteArray ] }' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st deleted file mode 100644 index fbcd5729..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses literal byte arrays' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st deleted file mode 100644 index 269ea76d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Literal byte arrays are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json deleted file mode 100644 index 8c5b7a18..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesLiteralByteArraysRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st index 0821ec7a..c48f9bf5 100644 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st @@ -2,7 +2,7 @@ running checkMethod: aContext (self shouldExclude: aContext) ifFalse: [ aContext pragmas do: [ :each | - result + result addClass: aContext methodClass selector: aContext selector. result addSearchString: each selector ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st index c90a5576..674dcf52 100644 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st @@ -1,5 +1,5 @@ running -checkClass: aContext +checkClass: aContext aContext allSuperclassesDo: [ :each | (self classNames includes: each name) ifTrue: [ result addClass: aContext. diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st index a40fba21..18cb585b 100644 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st @@ -6,7 +6,7 @@ checkMethod: aContext ifTrue: [ "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" ^ self ]. aContext literals - do: [ :each | + do: [ :each | (each isVariableBinding and: [ self classNames includes: each key ]) ifTrue: [ result addClass: aContext methodClass selector: aContext selector. result addSearchString: each key ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st index 643668f1..776d58af 100644 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st @@ -3,6 +3,6 @@ initialize super initialize. self rewriteRule replace: '`@collection beginsWith: `@subCollection' - with: '`@collection beginsWithSubCollection: `@subCollection'; + with: '`@collection greaseBeginsWith: `@subCollection'; replace: '`@collection endsWith: `@subCollection' - with: '`@collection endsWithSubCollection: `@subCollection' \ No newline at end of file + with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/class/initialize.st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/class/initialize.st deleted file mode 100644 index ae58f1b3..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - super initialize. - self select \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st deleted file mode 100644 index 9121ad38..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -defaultDirectoryPathString - ^ FileDirectory default fullName \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st deleted file mode 100644 index f2ba4102..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -deleteFile: aFileName inFolder: aPathString - (FileDirectory on: aPathString) - deleteFileNamed: aFileName \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st deleted file mode 100644 index be1b1351..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -file library -directoriesIn: 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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory directoryNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/doSilently..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/doSilently..st deleted file mode 100644 index d42119ee..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index c918f1e9..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -ensureExistenceOfFolder: aString - ^FileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileExists..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileExists..st deleted file mode 100644 index e5d8ee83..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^FileDirectory default fileExists: aString \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st deleted file mode 100644 index 679781ba..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st +++ /dev/null @@ -1,7 +0,0 @@ -file library -fileNameFor: aPathString - | path | - path := FileDirectory default fullPathFor: aPathString. - ^ (path size > 1 and: [ path endsWith: FileDirectory slash ]) - ifTrue: [ path allButLast: FileDirectory slash size ] - ifFalse: [ path ] \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/filesIn..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/filesIn..st deleted file mode 100644 index 89667dbc..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory fileNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st deleted file mode 100644 index 74d6fa61..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -isDirectory: aPathString - ^ (FileDirectory forFileName: aPathString) directoryEntry isDirectory \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/localNameOf..st deleted file mode 100644 index aea2f08c..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^FileDirectory localNameFor: aFilename \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st deleted file mode 100644 index b9a34e3d..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ FileDirectory pathNameDelimiter asString \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 08d697b5..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,15 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - | folder stream fullFilePath | - folder := FileDirectory default directoryNamed: aFolderString. - fullFilePath := folder fullNameFor: aFileNameString. - stream := aStringOrByteArray isString - ifTrue: [ - (MultiByteFileStream forceNewFileNamed: fullFilePath) - ascii; - wantsLineEndConversion: true; - yourself ] - ifFalse: [ (FileStream forceNewFileNamed: fullFilePath) binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json deleted file mode 100644 index b07c70d3..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakPlatform", - "pools" : [ - ], - "super" : "GRPharoPlatform", - "type" : "normal" } diff --git a/repository/Grease-Squeak-Core.package/Object.extension/instance/sizeInMemory.st b/repository/Grease-Squeak-Core.package/Object.extension/instance/sizeInMemory.st deleted file mode 100644 index aa28fb3b..00000000 --- a/repository/Grease-Squeak-Core.package/Object.extension/instance/sizeInMemory.st +++ /dev/null @@ -1,23 +0,0 @@ -*grease-squeak-core -sizeInMemory - "Answer the number of bytes consumed by this instance including object header." - | contentBytes | - - contentBytes := Smalltalk wordSize. "base header" - contentBytes := contentBytes + (self class instSize * Smalltalk wordSize). "instance vars" - - self class isVariable ifTrue:[ | bytesPerElement | "indexed elements" - bytesPerElement := self class isBytes ifTrue: [1] ifFalse: [4]. - contentBytes := (contentBytes + (self basicSize * bytesPerElement)). - "If we are not filling an ammount of bytes multiple of the wordSize, we do it" - (contentBytes \\ Smalltalk wordSize) = 0 ifFalse: [ - | extraBytesToFillAWord | - extraBytesToFillAWord := Smalltalk wordSize - (contentBytes \\ Smalltalk wordSize). - contentBytes := contentBytes + extraBytesToFillAWord. - ] - ]. - - contentBytes > 255 ifTrue: [ contentBytes := contentBytes + (2 * Smalltalk wordSize) ] - ifFalse: [ contentBytes := contentBytes + Smalltalk wordSize - ]. - ^contentBytes \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/Object.extension/properties.json b/repository/Grease-Squeak-Core.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec4..00000000 --- a/repository/Grease-Squeak-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/sizeInMemory.st b/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/sizeInMemory.st deleted file mode 100644 index 27560ae1..00000000 --- a/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/sizeInMemory.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak-core -sizeInMemory - "SmallInteger occupy 0 bytes since the only space occupied by a SmallInteger is the space of the slot containing it. There is no SmallInteger object beyond the slot. From another POV, it could be 4, the size of the slot. But we don't count the size of the slots, they are already counted in the containing object, that's why it should answer 0." - ^0. \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/monticello.meta/categories.st b/repository/Grease-Squeak-Core.package/monticello.meta/categories.st deleted file mode 100644 index f0465eda..00000000 --- a/repository/Grease-Squeak-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Squeak-Core'! diff --git a/repository/Grease-Squeak-Core.package/monticello.meta/package b/repository/Grease-Squeak-Core.package/monticello.meta/package deleted file mode 100644 index 23103bd1..00000000 --- a/repository/Grease-Squeak-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Squeak-Core') \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/.filetree b/repository/Grease-Squeak5-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Squeak5-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Squeak5-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Squeak5-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index d002f57c..00000000 --- a/repository/Grease-Squeak5-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Behavior.extension/properties.json b/repository/Grease-Squeak5-Core.package/Behavior.extension/properties.json deleted file mode 100644 index 37061187..00000000 --- a/repository/Grease-Squeak5-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Behavior" } diff --git a/repository/Grease-Squeak5-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak5-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index a4e95b08..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Squeak5-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 1d6f4884..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockClosure" } diff --git a/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/tempVarRefs.st b/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/tempVarRefs.st deleted file mode 100644 index b0652449..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/tempVarRefs.st +++ /dev/null @@ -1,16 +0,0 @@ -*grease-squeak5-core -tempVarRefs - | method scanner end tempVars byte type offset | - home ifNil: [ ^ false ]. - tempVars := Set new. - method := self method. - "Determine end of block from long jump preceding it" - end := (method at: startpc - 2) \\ 16 - 4 * 256 + (method at: startpc - 1) + startpc - 1. - scanner := InstructionStream new method: method pc: startpc. - [ scanner pc <= end ] whileTrue: [ - byte := scanner nextByte. - type := byte // 16. - offset := byte \\ 16. - type = 1 ifTrue: [ tempVars add: offset + 1 ]. - scanner nextInstruction ]. - ^ tempVars \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 6dd47063..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -valueWithPossibleArguments: anArray - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/BlockContext.extension/properties.json b/repository/Grease-Squeak5-Core.package/BlockContext.extension/properties.json deleted file mode 100644 index ea80c1e5..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockContext.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockContext" } diff --git a/repository/Grease-Squeak5-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Squeak5-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index b434c0b4..00000000 --- a/repository/Grease-Squeak5-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/ByteArray.extension/properties.json b/repository/Grease-Squeak5-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index 191a2eca..00000000 --- a/repository/Grease-Squeak5-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ByteArray" } diff --git a/repository/Grease-Squeak5-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Squeak5-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 8644d7f2..00000000 --- a/repository/Grease-Squeak5-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak5-core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Character.extension/properties.json b/repository/Grease-Squeak5-Core.package/Character.extension/properties.json deleted file mode 100644 index 7532e33e..00000000 --- a/repository/Grease-Squeak5-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Character" } diff --git a/repository/Grease-Squeak5-Core.package/Collection.extension/instance/any.st b/repository/Grease-Squeak5-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 8346cef3..00000000 --- a/repository/Grease-Squeak5-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Collection.extension/properties.json b/repository/Grease-Squeak5-Core.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc32..00000000 --- a/repository/Grease-Squeak5-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } diff --git a/repository/Grease-Squeak5-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Squeak5-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index d39d06d1..00000000 --- a/repository/Grease-Squeak5-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Squeak5-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 12603071..00000000 --- a/repository/Grease-Squeak5-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Squeak5-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index cb0d9b06..00000000 --- a/repository/Grease-Squeak5-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Duration.extension/properties.json b/repository/Grease-Squeak5-Core.package/Duration.extension/properties.json deleted file mode 100644 index 512e0f01..00000000 --- a/repository/Grease-Squeak5-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Duration" } diff --git a/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 3458fa4c..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 472cde09..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRDelegatingStream" } diff --git a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/default.st b/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/default.st deleted file mode 100644 index 28508572..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ self defaultValue \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index b0275614..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index 1e03f82f..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -use: anObject during: aBlock - ^ self - value: anObject - during: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 516d3166..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRDynamicVariable", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPackage.extension/class/greaseSqueak5Core.st b/repository/Grease-Squeak5-Core.package/GRPackage.extension/class/greaseSqueak5Core.st deleted file mode 100644 index 7df1921f..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPackage.extension/class/greaseSqueak5Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-squeak5-core -greaseSqueak5Core - ^ self new - name: 'Grease-Squeak5-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPackage.extension/properties.json b/repository/Grease-Squeak5-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -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-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -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-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 13abd07b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/14/2013 15:53", - "instvars" : [ - "converter" ], - "name" : "GRPharoConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index d1c6d00b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index b24261dc..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRPharoGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index b0256973..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index 81f473c2..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRPharoLatin1Codec", - "pools" : [ - ], - "super" : "GRNullCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index 8b83b652..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoLatin1CodecStream", - "pools" : [ - ], - "super" : "GRNullCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/README.md deleted file mode 100644 index e71bb46d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st deleted file mode 100644 index 69106234..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index ecbbe65e..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: anObject - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - Smalltalk addToStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index 3357dd27..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory directoryNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/doSilently..st deleted file mode 100644 index 2a887759..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index 27973d2b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index d558068e..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ (FileDirectory on: aString) exists \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index 89667dbc..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory fileNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index f943c14d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -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-Squeak5-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -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: [ - process - debug: anError signalerContext - title: anError description - full: true ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index b9a34e3d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ FileDirectory pathNameDelimiter asString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 35251d7b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ RWBinaryOrTextStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 09cc5c70..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: anObject - "Remove anObject from the shutdown list in the system." - - Smalltalk removeFromShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index ecd7d527..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: anObject - "Remove anObject from the startup list in the system." - - Smalltalk removeFromStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index d7e6feab..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -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-Squeak5-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/thisContext.st deleted file mode 100644 index c936ecad..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st +++ /dev/null @@ -1,4 +0,0 @@ -factory -writeCharacterStreamOn: aString - - ^ GRWorkingWriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index 7320ab9a..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - "UrlTable", - "XmlTable" ], - "commentStamp" : "pmm 2/1/2014 13:28", - "instvars" : [ - ], - "name" : "GRPharoPlatform", - "pools" : [ - ], - "super" : "GRPlatform", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st deleted file mode 100644 index 04ca54c3..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -private -initialize - Smalltalk addToStartUpList: self. - self startUp \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st deleted file mode 100644 index 85a2db91..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomClass - ^ Random \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st deleted file mode 100644 index a5fe470c..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -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-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index a33a6ac9..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st deleted file mode 100644 index fd4cb930..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -private -unload - GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 513b71fb..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - "mutex", - "generator" ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoRandomProvider", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 68130682..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRPharoUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -private -encodeFast: aByteString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | lastIndex nextIndex | - lastIndex := 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. - [ nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ] whileFalse. - stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | output byte1 byte2 byte3 byte4 unicode count alreadyWide | - output := ByteString new: anInteger. - count := 0. - alreadyWide := false. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - count := count + 1. - output at: count put: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ count < anInteger - ifTrue: [ output first: count ] - ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint shouldEncode | - codePoint := aCharacter codePoint. - codePoint > 255 - ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] - \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index ec018ce3..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" ], - "commentStamp" : "pmm 2/20/2009 12:27", - "instvars" : [ - ], - "name" : "GRPharoUtf8CodecStream", - "pools" : [ - ], - "super" : "GRPharoConverterCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index d59e1d7f..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index c104c7b7..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-squeak5-core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index ac2d59ee..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 943ee5f4..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRSmallDictionary" } diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/class/initialize.st deleted file mode 100644 index ae58f1b3..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - super initialize. - self select \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st deleted file mode 100644 index 9121ad38..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -defaultDirectoryPathString - ^ FileDirectory default fullName \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st deleted file mode 100644 index f2ba4102..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -deleteFile: aFileName inFolder: aPathString - (FileDirectory on: aPathString) - deleteFileNamed: aFileName \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st deleted file mode 100644 index be1b1351..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -file library -directoriesIn: 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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory directoryNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/doSilently..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/doSilently..st deleted file mode 100644 index d42119ee..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index c918f1e9..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -ensureExistenceOfFolder: aString - ^FileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileExists..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileExists..st deleted file mode 100644 index e5d8ee83..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^FileDirectory default fileExists: aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st deleted file mode 100644 index 679781ba..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st +++ /dev/null @@ -1,7 +0,0 @@ -file library -fileNameFor: aPathString - | path | - path := FileDirectory default fullPathFor: aPathString. - ^ (path size > 1 and: [ path endsWith: FileDirectory slash ]) - ifTrue: [ path allButLast: FileDirectory slash size ] - ifFalse: [ path ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/filesIn..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/filesIn..st deleted file mode 100644 index 89667dbc..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory fileNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/isDirectory..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/isDirectory..st deleted file mode 100644 index 74d6fa61..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/isDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -isDirectory: aPathString - ^ (FileDirectory forFileName: aPathString) directoryEntry isDirectory \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/localNameOf..st deleted file mode 100644 index aea2f08c..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^FileDirectory localNameFor: aFilename \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st deleted file mode 100644 index b9a34e3d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ FileDirectory pathNameDelimiter asString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index 9c82d3ff..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -as yet unclassified -readFileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index f06fa4d4..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,11 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - | folder fullFilePath | - fullFilePath := FileDirectory default fullNameFor: aFolderString. - folder := FileDirectory on: fullFilePath. - (folder fileExists: aFileNameString) - ifTrue: [folder deleteFileNamed: aFileNameString]. - ^ self - writeFileStreamOn: (folder / aFileNameString) fullName - do: [:stream | stream nextPutAll: aStringOrByteArray] - binary: aStringOrByteArray isString not \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 1207150a..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,8 +0,0 @@ -as yet unclassified -writeFileStreamOn: aString do: aBlock binary: aBoolean - | stream | - stream := aBoolean - ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ] - ifFalse: [ (FileStream fileNamed: aString) binary ]. - [ aBlock value: stream ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/properties.json deleted file mode 100644 index 3bae2a24..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakPlatform", - "pools" : [ - ], - "super" : "GRPharoPlatform", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I'm a work around for bugs in the Pharo stream classes. \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/instance/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -positioning -reset - self resetToStart \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index cfa193a9..00000000 --- a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/25/2011 18:30", - "instvars" : [ - ], - "name" : "GRWorkingWriteStream", - "pools" : [ - ], - "super" : "WriteStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/Interval.extension/instance/any.st b/repository/Grease-Squeak5-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 0ac76e9d..00000000 --- a/repository/Grease-Squeak5-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/Interval.extension/properties.json b/repository/Grease-Squeak5-Core.package/Interval.extension/properties.json deleted file mode 100644 index d468cd35..00000000 --- a/repository/Grease-Squeak5-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Interval" } diff --git a/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index f2a02dea..00000000 --- a/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index bc49f4c6..00000000 --- a/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/MessageSend.extension/properties.json b/repository/Grease-Squeak5-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 66fcc3c1..00000000 --- a/repository/Grease-Squeak5-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MessageSend" } diff --git a/repository/Grease-Squeak5-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Squeak5-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index a121e755..00000000 --- a/repository/Grease-Squeak5-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Number.extension/properties.json b/repository/Grease-Squeak5-Core.package/Number.extension/properties.json deleted file mode 100644 index 1d2c94d4..00000000 --- a/repository/Grease-Squeak5-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Number" } diff --git a/repository/Grease-Squeak5-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Squeak5-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index 58859d4f..00000000 --- a/repository/Grease-Squeak5-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Object.extension/instance/sizeInMemory.st b/repository/Grease-Squeak5-Core.package/Object.extension/instance/sizeInMemory.st deleted file mode 100644 index 223eef2e..00000000 --- a/repository/Grease-Squeak5-Core.package/Object.extension/instance/sizeInMemory.st +++ /dev/null @@ -1,23 +0,0 @@ -*grease-squeak5-core -sizeInMemory - "Answer the number of bytes consumed by this instance including object header." - | contentBytes | - - contentBytes := Smalltalk wordSize. "base header" - contentBytes := contentBytes + (self class instSize * Smalltalk wordSize). "instance vars" - - self class isVariable ifTrue:[ | bytesPerElement | "indexed elements" - bytesPerElement := self class isBytes ifTrue: [1] ifFalse: [4]. - contentBytes := (contentBytes + (self basicSize * bytesPerElement)). - "If we are not filling an ammount of bytes multiple of the wordSize, we do it" - (contentBytes \\ Smalltalk wordSize) = 0 ifFalse: [ - | extraBytesToFillAWord | - extraBytesToFillAWord := Smalltalk wordSize - (contentBytes \\ Smalltalk wordSize). - contentBytes := contentBytes + extraBytesToFillAWord. - ] - ]. - - contentBytes > 255 ifTrue: [ contentBytes := contentBytes + (2 * Smalltalk wordSize) ] - ifFalse: [ contentBytes := contentBytes + Smalltalk wordSize - ]. - ^contentBytes \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/Object.extension/properties.json b/repository/Grease-Squeak5-Core.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec4..00000000 --- a/repository/Grease-Squeak5-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/repository/Grease-Squeak5-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Squeak5-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index 314a4131..00000000 --- a/repository/Grease-Squeak5-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/Point.extension/properties.json b/repository/Grease-Squeak5-Core.package/Point.extension/properties.json deleted file mode 100644 index 3ae71f02..00000000 --- a/repository/Grease-Squeak5-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Point" } diff --git a/repository/Grease-Squeak5-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Squeak5-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index d8667190..00000000 --- a/repository/Grease-Squeak5-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 9e1697a6..00000000 --- a/repository/Grease-Squeak5-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PositionableStream" } diff --git a/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index d9384784..00000000 --- a/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-squeak5-core -encodeOn: aDocument - "not the ideal package but we don't have a Seaside-Squeak-Core" - | 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-Squeak5-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 0b2f0ada..00000000 --- a/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 6e425dda..00000000 --- a/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ScaledDecimal" } diff --git a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index c859698a..00000000 --- a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 922f9ad1..00000000 --- a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 6d509580..00000000 --- a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } diff --git a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/sizeInMemory.st b/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/sizeInMemory.st deleted file mode 100644 index fdf1df95..00000000 --- a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/sizeInMemory.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak5-core -sizeInMemory - "SmallInteger occupy 0 bytes since the only space occupied by a SmallInteger is the space of the slot containing it. There is no SmallInteger object beyond the slot. From another POV, it could be 4, the size of the slot. But we don't count the size of the slots, they are already counted in the containing object, that's why it should answer 0." - ^0. \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 51fa0666..00000000 --- a/repository/Grease-Squeak5-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/SocketStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 4800d84e..00000000 --- a/repository/Grease-Squeak5-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SocketStream" } diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/substrings..st b/repository/Grease-Squeak5-Core.package/String.extension/instance/substrings..st deleted file mode 100644 index eaf7d43e..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/substrings..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -substrings: separators - ^ self subStrings: separators \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimBoth..st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimBoth..st deleted file mode 100644 index 7f13e09e..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimBoth..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -trimBoth: aBlock - "Trim characters satisfying the condition given in aBlock from both sides of the receiving string." - - ^ self trimLeft: aBlock right: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimBoth.st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimBoth.st deleted file mode 100644 index 9e11a5c4..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimBoth.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -trimBoth - "Trim separators from both sides of the receiving string." - - ^ self trimBoth: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft..st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft..st deleted file mode 100644 index 5671847f..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -trimLeft: aBlock - "Trim characters satisfying the condition given in aBlock from the left side of the receiving string." - - ^ self trimLeft: aBlock right: [ :char | false ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft.right..st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft.right..st deleted file mode 100644 index eabf7e62..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft.right..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-squeak5-core -trimLeft: aLeftBlock right: aRightBlock - "Trim characters satisfying the condition given in aLeftBlock from the left side and aRightBlock from the right sides of the receiving string." - - | left right | - left := 1. - right := self size. - [ left <= right and: [ aLeftBlock value: (self at: left) ] ] - whileTrue: [ left := left + 1 ]. - [ left <= right and: [ aRightBlock value: (self at: right) ] ] - whileTrue: [ right := right - 1 ]. - ^ self copyFrom: left to: right \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft.st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft.st deleted file mode 100644 index 3e588f1a..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimLeft.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -trimLeft - "Trim separators from the left side of the receiving string." - - ^ self trimLeft: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimRight..st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimRight..st deleted file mode 100644 index b0ae73c0..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimRight..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -trimRight: aBlock - "Trim characters satisfying the condition given in aBlock from the right side of the receiving string." - - ^ self trimLeft: [ :char | false ] right: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimRight.st b/repository/Grease-Squeak5-Core.package/String.extension/instance/trimRight.st deleted file mode 100644 index dbaffc71..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/instance/trimRight.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak5-core -trimRight - "Trim separators from the right side of the receiving string." - - ^ self trimRight: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/String.extension/properties.json b/repository/Grease-Squeak5-Core.package/String.extension/properties.json deleted file mode 100644 index c2138507..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "String" } diff --git a/repository/Grease-Squeak5-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Squeak5-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 936381d3..00000000 --- a/repository/Grease-Squeak5-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -greaseAsMutator - ^ self asSimpleSetter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index d428cd84..00000000 --- a/repository/Grease-Squeak5-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak5-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-Squeak5-Core.package/WriteStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 239b3632..00000000 --- a/repository/Grease-Squeak5-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "WriteStream" } diff --git a/repository/Grease-Squeak5-Core.package/monticello.meta/categories.st b/repository/Grease-Squeak5-Core.package/monticello.meta/categories.st deleted file mode 100644 index 00eecc3b..00000000 --- a/repository/Grease-Squeak5-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Squeak5-Core'! diff --git a/repository/Grease-Squeak5-Core.package/monticello.meta/package b/repository/Grease-Squeak5-Core.package/monticello.meta/package deleted file mode 100644 index a486f745..00000000 --- a/repository/Grease-Squeak5-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Squeak5-Core') \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/properties.json b/repository/Grease-Squeak5-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Squeak5-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json new file mode 100644 index 00000000..a3ca36c4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "fullName" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json new file mode 100644 index 00000000..32357e4b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "valueWithPossibleArguments:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json new file mode 100644 index 00000000..aa6e0f4c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseString" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json new file mode 100644 index 00000000..ba3a2e4b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseInteger" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json new file mode 100644 index 00000000..4dcd386e --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "any" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json new file mode 100644 index 00000000..b69e8b01 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + "milliseconds:" : "7/15/2024 14:23:40" }, + "instance" : { + "asMilliseconds" : "7/15/2024 14:23:40", + "milliseconds" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json new file mode 100644 index 00000000..b2ff4263 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseNext:putAll:startingAt:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json new file mode 100644 index 00000000..527fb963 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json @@ -0,0 +1,7 @@ +{ + "class" : { + "default" : "7/15/2024 14:23:40", + "defaultValue" : "7/15/2024 14:23:40", + "use:during:" : "7/15/2024 14:23:40" }, + "instance" : { + } } diff --git a/repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json new file mode 100644 index 00000000..c69bc976 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + "greaseSqueak6Core" : "7/15/2024 14:23:40" }, + "instance" : { + } } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index f25fd5b5..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A GRPharoConverterCodecStream 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-Squeak6-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -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-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -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-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 5188d099..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/14/2013 15:53", - "instvars" : [ - "converter" ], - "name" : "GRPharoConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -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-Squeak6-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index 1ed0b26a..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -codecs - ^ (TextConverter allEncodingNames - select: [ :each | - "exclude UFT-8 which is handled by WAUtf8Codec" - self supportsEncoding: each ]) - collect: [ :each | - self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index d1c6d00b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st deleted file mode 100644 index be53dfea..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -decoderFor: aStream - ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/url.st deleted file mode 100644 index 232ad239..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." - - ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index ed667ed9..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRPharoGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/README.md deleted file mode 100644 index 3f437d62..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -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-Squeak6-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -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-Squeak6-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/codecs.st deleted file mode 100644 index 7a96b703..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st deleted file mode 100644 index e5dca068..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportedEncodingNames - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/decode..st deleted file mode 100644 index 74b1f7bd..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decode: aStringOrByteArray - "Overridden for efficiency." - - ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index b0256973..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index 2bba6f1e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRPharoLatin1Codec", - "pools" : [ - ], - "super" : "GRNullCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/README.md deleted file mode 100644 index e1c2471b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -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-Squeak6-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/instance/next..st deleted file mode 100644 index a734bc76..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/instance/next.st deleted file mode 100644 index 766a570d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ Character codePoint: stream next \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index bdc575a0..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoLatin1CodecStream", - "pools" : [ - ], - "super" : "GRNullCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md index e71bb46d..581959b9 100644 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md +++ b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md @@ -1 +1 @@ -A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. +I am a hack so that we can load Seaside Pharo packages into Squeak. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initialize.st deleted file mode 100644 index 0c86564c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable. - self select \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st deleted file mode 100644 index 9abf56b7..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st deleted file mode 100644 index 830a5595..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index f8d3ad5f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index ecbbe65e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: anObject - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - Smalltalk addToStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index ba4a0727..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,6 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st deleted file mode 100644 index 90bb405c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st +++ /dev/null @@ -1,10 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st deleted file mode 100644 index a1f9fe07..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st +++ /dev/null @@ -1,10 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index 2c8a9b8d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - "theoretically consider the environment of a class" - ^ aClass binding \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 7fde3ad8..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,31 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - "The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test. - This also makes running tests much faster." - | methodNode compiledMethod selector methodAndNode | - methodNode := aClass compilerClass new - compile: aString - in: aClass - notifying: nil - ifFail: [ GRError signal: 'syntax error' ]. - selector := methodNode selector. - methodAndNode := CompiledMethodWithNode - generateMethodFromNode: methodNode - trailer: aClass defaultMethodTrailer. - compiledMethod := methodAndNode method. - compiledMethod - putSource: aString - fromParseNode: methodAndNode node - inFile: 2 - withPreamble: [ :file | - aClass - printCategoryChunk: aSymbol asString - on: file priorMethod: (aClass compiledMethodAt: selector ifAbsent: [ nil ]). - file cr ]. - aClass - addSelectorSilently: selector - withMethod: compiledMethod. - SystemChangeNotifier uniqueInstance doSilently: [ - aClass organization - classify: selector - under: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index e9f9d30b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,12 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - | stream | - stream := aBoolean - ifTrue: [ (FileDirectory default oldFileNamed: aString) - binary; - yourself ] - ifFalse: [ (MultiByteFileStream oldFileNamed: aString) - ascii; - wantsLineEndConversion: true; - yourself ]. - ^ [ stream contents ] ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index bb22f36e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,3 +0,0 @@ -exceptions -deprecationExceptionSet - ^ Deprecation \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index 3357dd27..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory directoryNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/doSilently..st deleted file mode 100644 index 2a887759..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index 27973d2b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index d558068e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ (FileDirectory on: aString) exists \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 1aad81ef..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream oldFileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream oldFileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index 89667dbc..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -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 ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory fileNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 03b50778..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index f943c14d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/newline.st deleted file mode 100644 index f3752602..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/newline.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -newline - ^ String with: Character cr \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -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: [ - process - debug: anError signalerContext - title: anError description - full: true ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index b9a34e3d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ FileDirectory pathNameDelimiter asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 35251d7b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ RWBinaryOrTextStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 3f94c5af..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteCharacterStream - "String based read write stream" - - ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 09cc5c70..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: anObject - "Remove anObject from the shutdown list in the system." - - Smalltalk removeFromShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index ecd7d527..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: anObject - "Remove anObject from the startup list in the system." - - Smalltalk removeFromStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index f9541b7e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -removeSelector: aSymbol from: aClass - aClass removeSelectorSilently: aSymbol \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index b0c1e2b2..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aString - ^ SecureHashAlgorithm new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index ceccf9e3..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index d7e6feab..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/terminateProcess..st deleted file mode 100644 index a09b96e1..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -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-Squeak6-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index f65fb83a..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st +++ /dev/null @@ -1,11 +0,0 @@ -private-file library -useByteArrayLiterals - "whether ByteArray literals can/should be used" - | hasSettings | - hasSettings := Smalltalk at: #PragmaSetting ifAbsent: [ nil ]. - ^ hasSettings isNil - ifTrue: [ - (Smalltalk at: #Preferences) - valueOfFlag: #compileUseNewCompiler - ifAbsent: [ false ] ] - ifFalse: [ false ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index b0ca3d82..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 9565ae8b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,15 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFileNameString in the folder aFolderString" - | folder stream fullFilePath | - folder := FileDirectory default directoryNamed: aFolderString. - fullFilePath := folder fullNameFor: aFileNameString. - stream := aStringOrByteArray isString - ifTrue: [ - (MultiByteFileStream forceNewFileNamed: fullFilePath) - ascii; - wantsLineEndConversion: true; - yourself ] - ifFalse: [ (FileStream forceNewFileNamed: fullFilePath) binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st +++ /dev/null @@ -1,4 +0,0 @@ -factory -writeCharacterStreamOn: aString - - ^ GRWorkingWriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json new file mode 100644 index 00000000..0e4a6622 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + } } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json index 2094c89e..aaface47 100644 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json +++ b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json @@ -3,9 +3,8 @@ "classinstvars" : [ ], "classvars" : [ - "UrlTable", - "XmlTable" ], - "commentStamp" : "pmm 2/1/2014 13:28", + ], + "commentStamp" : "pmm 7/15/2024 15:09", "instvars" : [ ], "name" : "GRPharoPlatform", diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 7312da07..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRPharoUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -private -encodeFast: aByteString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | lastIndex nextIndex | - lastIndex := 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. - [ nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ] whileFalse. - stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | output byte1 byte2 byte3 byte4 unicode count alreadyWide | - output := ByteString new: anInteger. - count := 0. - alreadyWide := false. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - count := count + 1. - output at: count put: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ count < anInteger - ifTrue: [ output first: count ] - ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint shouldEncode | - codePoint := aCharacter codePoint. - codePoint > 255 - ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] - \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index 4c02a23b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" ], - "commentStamp" : "pmm 2/20/2009 12:27", - "instvars" : [ - ], - "name" : "GRPharoUtf8CodecStream", - "pools" : [ - ], - "super" : "GRPharoConverterCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json new file mode 100644 index 00000000..12c131e9 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json @@ -0,0 +1,7 @@ +{ + "class" : { + }, + "instance" : { + "customizeExplorerContents" : "7/15/2024 14:23:40", + "explorerContents" : "7/15/2024 14:23:40", + "hasContentsInExplorer" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json new file mode 100644 index 00000000..2dde7c8d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "pmm 9/14/2013 15:53", + "instvars" : [ + "converter" ], + "name" : "GRSqueakConverterCodecStream", + "pools" : [ + ], + "super" : "GRCodecStream", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/codecs.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/codecs.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/codecs.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..0377703f --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st @@ -0,0 +1,8 @@ +private +supportedEncodingNames + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRSqueakLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st new file mode 100644 index 00000000..66a348a4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRSqueakConverterCodecStream + on: aStream + converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/url.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json new file mode 100644 index 00000000..970bce64 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "name", + "urlCodec" ], + "name" : "GRSqueakGenericCodec", + "pools" : [ + ], + "super" : "GRCodec", + "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decode..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decode..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decode..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..8b868322 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st @@ -0,0 +1,4 @@ +conversion +decoderFor: aReadStream + "wrap to avoid String vs ByteArray issues" + ^ GRSqueakLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..1a17fd93 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st @@ -0,0 +1,4 @@ +conversion +encoderFor: aWriteStream + "wrap to avoid String vs ByteArray issues" + ^ GRSqueakLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json new file mode 100644 index 00000000..3468df5f --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "name" ], + "name" : "GRSqueakLatin1Codec", + "pools" : [ + ], + "super" : "GRNullCodec", + "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json new file mode 100644 index 00000000..e187308b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRSqueakLatin1CodecStream", + "pools" : [ + ], + "super" : "GRNullCodecStream", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md index e69de29b..fb7f3baf 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md @@ -0,0 +1 @@ +A GRSqueakPlatform is the Squeak implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st index ae58f1b3..0c86564c 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st @@ -1,4 +1,5 @@ class initialization initialize - super initialize. + self initializeXmlTable. + self initializeUrlTable. self select \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st similarity index 100% rename from repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Decode..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Decode..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st new file mode 100644 index 00000000..4cb93d20 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st @@ -0,0 +1,3 @@ +encoding +base64Encode: aByteArray + ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/bindingOf..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/compile.into.classified..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/compile.into.classified..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/contentsOfFile.binary..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/contentsOfFile.binary..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..d03eee50 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + FileDirectory deleteFilePath: aPathString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st deleted file mode 100644 index f2ba4102..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile.inFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -deleteFile: aFileName inFolder: aPathString - (FileDirectory on: aPathString) - deleteFileNamed: aFileName \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st index d42119ee..2a887759 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st @@ -1,3 +1,3 @@ private doSilently: aBlock - ^SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file + ^ SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st index c918f1e9..27973d2b 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st @@ -1,3 +1,4 @@ file library ensureExistenceOfFolder: aString - ^FileDirectory default assureExistenceOfPath: aString \ No newline at end of file + "creates a folder named aString in the image directory" + FileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st index e5d8ee83..e667077f 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ file library fileExists: aString - ^FileDirectory default fileExists: aString \ No newline at end of file + ^ FileDirectory default fileExists: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st new file mode 100644 index 00000000..e47b1197 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st @@ -0,0 +1,10 @@ +encoding +integerAsByteArray: anInteger + | size array | + size := anInteger greaseBytesCount. + array := ByteArray new: size. + size to: 1 by: -1 do: [ :digitIndex | + array + at: size - digitIndex + 1 + put: (anInteger greaseByteAt: digitIndex) ]. + ^ array \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st new file mode 100644 index 00000000..3ab4dd4d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st @@ -0,0 +1,3 @@ +version info +label + ^ 'Squeak' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st index aea2f08c..f943c14d 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st @@ -1,3 +1,3 @@ file library localNameOf: aFilename - ^FileDirectory localNameFor: aFilename \ No newline at end of file + ^ (FileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st similarity index 100% rename from repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/newRandom.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..01578607 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +files +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..9e117ca4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,7 @@ +files +newTemporaryFileNamed: aName + + | file | + file := FileDirectory default / aName. + file exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ file pathName \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newline.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newline.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newline.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st new file mode 100644 index 00000000..6a1a8c2d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st @@ -0,0 +1,5 @@ +exceptions +openDebuggerOn: anError + "Squeak variant based on the Pharo platform code, intended to avoid the deprecated #debug:title:full: message" + + ToolSet handleError: anError \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st index b9a34e3d..00c6db56 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st @@ -1,3 +1,3 @@ -file library +files pathSeparator - ^ FileDirectory pathNameDelimiter asString \ No newline at end of file + ^ String with: FileDirectory pathNameDelimiter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st new file mode 100644 index 00000000..91aadee5 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st @@ -0,0 +1,13 @@ +files +readFileStreamOn: aString do: aBlock binary: aBoolean + ^ aBoolean + ifTrue: [ + FileStream fileNamed: aString do: [ :stream | + stream binary. + aBlock value: stream ] ] + ifFalse: [ + MultiByteFileStream fileNamed: aString do: [ :stream | + stream + ascii; + wantsLineEndConversion: true. + aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeSelector.from..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeSelector.from..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/secureHashFor..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..2beda3e4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aString + + ^ aString asDirectoryEntry fileSize \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..6131cf3d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st new file mode 100644 index 00000000..7b994393 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.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-Squeak5-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/terminateProcess..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st new file mode 100644 index 00000000..97018fc5 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st @@ -0,0 +1,4 @@ +processes +thisContext + + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st new file mode 100644 index 00000000..9207976d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -0,0 +1,8 @@ +files +writeFileStreamOn: aString do: aBlock binary: aBoolean + | stream | + stream := aBoolean + ifTrue: [ (FileStream fileNamed: aString) binary ] + ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]. + [ aBlock value: stream ] + ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json new file mode 100644 index 00000000..18983566 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json @@ -0,0 +1,54 @@ +{ + "class" : { + "initialize" : "7/15/2024 14:23:40", + "initializeUrlTable" : "7/15/2024 14:23:40", + "initializeXmlTable" : "7/15/2024 14:23:40", + "unload" : "7/15/2024 14:23:40" }, + "instance" : { + "addToShutDownList:" : "7/15/2024 14:23:40", + "addToStartUpList:" : "7/15/2024 14:23:40", + "asMethodReturningByteArray:named:" : "7/15/2024 14:23:40", + "asMethodReturningByteArrayLiteral:named:" : "7/15/2024 14:23:40", + "asMethodReturningByteArrayWithCache:named:" : "7/15/2024 14:23:40", + "base64Decode:" : "7/15/2024 14:23:40", + "base64Encode:" : "7/15/2024 14:23:40", + "bindingOf:" : "7/15/2024 14:23:40", + "compile:into:classified:" : "7/15/2024 14:23:40", + "contentsOfFile:binary:" : "7/15/2024 14:23:40", + "defaultDirectoryPathString" : "pmm 7/15/2024 14:38", + "deleteFile:" : "pmm 7/15/2024 14:40", + "deprecationExceptionSet" : "7/15/2024 14:23:40", + "directoriesIn:" : "pmm 7/15/2024 14:38", + "doSilently:" : "7/15/2024 14:23:40", + "ensureExistenceOfFolder:" : "pmm 7/15/2024 14:38", + "fileExists:" : "pmm 7/15/2024 14:38", + "fileNameFor:" : "pmm 7/15/2024 14:39", + "fileStreamOn:do:binary:" : "pmm 7/15/2024 14:39", + "filesIn:" : "pmm 7/15/2024 14:39", + "integerAsByteArray:" : "pmm 7/15/2024 15:12", + "isDirectory:" : "pmm 7/15/2024 14:39", + "isProcessTerminated:" : "7/15/2024 14:23:40", + "label" : "pmm 7/15/2024 14:52", + "localNameOf:" : "7/15/2024 14:23:40", + "newRandom" : "7/15/2024 14:23:40", + "newTemporaryFile" : "pmm 7/15/2024 14:40", + "newTemporaryFileNamed:" : "pmm 7/15/2024 14:40", + "newline" : "7/15/2024 14:23:40", + "openDebuggerOn:" : "pmm 7/15/2024 14:57", + "pathSeparator" : "pmm 7/15/2024 15:00", + "readFileStreamOn:do:binary:" : "pmm 7/15/2024 15:08", + "readWriteByteStream" : "7/15/2024 14:23:40", + "readWriteCharacterStream" : "7/15/2024 14:23:40", + "removeFromShutDownList:" : "7/15/2024 14:23:40", + "removeFromStartUpList:" : "7/15/2024 14:23:40", + "removeSelector:from:" : "7/15/2024 14:23:40", + "secureHashFor:" : "7/15/2024 14:23:40", + "semaphoreClass" : "7/15/2024 14:23:40", + "sizeOfFile:" : "pmm 7/15/2024 14:40", + "stackDepth" : "7/15/2024 14:23:40", + "terminateProcess:" : "7/15/2024 14:23:40", + "thisContext" : "pmm 7/15/2024 14:42", + "useByteArrayLiterals" : "7/15/2024 14:23:40", + "weakDictionaryOfSize:" : "7/15/2024 14:23:40", + "write:toFile:inFolder:" : "pmm 7/15/2024 14:40", + "writeFileStreamOn:do:binary:" : "pmm 7/15/2024 15:08" } } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json index 068d89c9..5caa470c 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json @@ -3,8 +3,9 @@ "classinstvars" : [ ], "classvars" : [ - ], - "commentStamp" : "", + "UrlTable", + "XmlTable" ], + "commentStamp" : "pmm 7/15/2024 15:10", "instvars" : [ ], "name" : "GRSqueakPlatform", diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..55d20732 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,5 @@ +conversion +decoderFor: aStream + ^ GRSqueakUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..a8883243 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRSqueakUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/url.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/url.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json new file mode 100644 index 00000000..8c5f1edc --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "pmm 2/20/2009 12:51", + "instvars" : [ + ], + "name" : "GRSqueakUtf8Codec", + "pools" : [ + ], + "super" : "GRCodec", + "type" : "normal" } diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo90-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..e9d9750c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + "Latin1ToUtf8Encodings", + "Latin1ToUtf8Map" ], + "commentStamp" : "pmm 2/20/2009 12:27", + "instvars" : [ + ], + "name" : "GRSqueakUtf8CodecStream", + "pools" : [ + ], + "super" : "GRSqueakConverterCodecStream", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I'm a work around for bugs in the Pharo stream classes. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/instance/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -positioning -reset - self resetToStart \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index e4e89dfa..00000000 --- a/repository/Grease-Squeak6-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/25/2011 18:30", - "instvars" : [ - ], - "name" : "GRWorkingWriteStream", - "pools" : [ - ], - "super" : "WriteStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json new file mode 100644 index 00000000..4dcd386e --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "any" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..9cec08f2 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,8 @@ +*Grease-Squeak6-Core +greaseByteAt: index + "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." + + + self greaseBytesCount < index + ifTrue: [^0] + ifFalse: [^super at: index] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..0e345af9 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,8 @@ +*Grease-Squeak6-Core +greaseBytesCount + "Primitive. Answer the number of indexable fields in the receiver. This + value is the same as the largest legal subscript. Essential. See Object + documentation whatIsAPrimitive." + + + self primitiveFailed \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json new file mode 100644 index 00000000..8d698f47 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "greaseByteAt:" : "7/15/2024 14:23:40", + "greaseBytesCount" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json new file mode 100644 index 00000000..2b034b1a --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "LargePositiveInteger" } diff --git a/repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json new file mode 100644 index 00000000..ab19e226 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "argumentCount" : "7/15/2024 14:23:40", + "valueWithPossibleArguments:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json new file mode 100644 index 00000000..d74e8077 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "milliseconds" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json new file mode 100644 index 00000000..d62cb615 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "greaseString" : "7/15/2024 14:23:40", + "sizeInMemory" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/PackageManifest.class/README.md b/repository/Grease-Squeak6-Core.package/PackageManifest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json b/repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json new file mode 100644 index 00000000..9bda5689 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "PackageManifest", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json new file mode 100644 index 00000000..92ad392b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseUpToAll:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json new file mode 100644 index 00000000..6972189a --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "randomFrom:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json new file mode 100644 index 00000000..f69f5b7f --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "encodeOn:" : "7/15/2024 14:23:40", + "greaseString" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st index 372efe84..be930027 100644 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -1,4 +1,8 @@ *grease-squeak6-core beginsWithSubCollection: aSequenceableCollection + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBeginsWith:'. "Some platforms implement #beginsWith: to answer true for an empty argument." + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st index efd43298..7eb90e86 100644 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -1,4 +1,8 @@ *grease-squeak6-core endsWithSubCollection: aSequenceableCollection + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. "Some platforms implement #endsWith: to answer true for an empty argument." + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st new file mode 100644 index 00000000..428ad0ae --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st @@ -0,0 +1,5 @@ +*grease-squeak6-core +greaseBeginsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st new file mode 100644 index 00000000..f1b16048 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st @@ -0,0 +1,5 @@ +*grease-squeak6-core +greaseEndsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json new file mode 100644 index 00000000..91231d5b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json @@ -0,0 +1,8 @@ +{ + "class" : { + }, + "instance" : { + "beginsWithSubCollection:" : "7/15/2024 14:23:40", + "endsWithSubCollection:" : "7/15/2024 14:23:40", + "greaseBeginsWith:" : "7/15/2024 14:23:40", + "greaseEndsWith:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..50dd9644 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,14 @@ +*Grease-Squeak6-Core +greaseByteAt: n + "Answer the value of an apparent byte-indexable field in the receiver, + analogous to the large integers, which are organized as bytes." + + n = 1 + ifTrue: [ + "Negate carefully in case the receiver is SmallInteger minVal" + ^ self < 0 + ifTrue: [ -256 - self bitAnd: 255 ] + ifFalse: [ self bitAnd: 255 ] ]. + ^ self < 0 + ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] + ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..cb39e69c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,25 @@ +*Grease-Squeak6-Core +greaseBytesCount + "Answer the number of indexable fields in the receiver. This value is the + same as the largest legal subscript. Included so that a SmallInteger can + behave like a LargePositiveInteger or LargeNegativeInteger." + + "32768 == (1 bitShift: 15)" + "32768 bytesCount >>> 2" + + "65536 == (1 bitShift: 16)" + "65536 bytesCount >>> 3" + + | value length | + length := 1. + value := self. + value >= 0 + ifTrue: + [[value > 255] whileTrue: + [value := value bitShift: -8. + length := length + 1]] + ifFalse: + [[value < -255] whileTrue: + [value := value bitShift: -8. + length := length + 1]]. + ^length \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json new file mode 100644 index 00000000..8d698f47 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "greaseByteAt:" : "7/15/2024 14:23:40", + "greaseBytesCount" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/properties.json similarity index 100% rename from repository/Grease-Squeak5-Core.package/SmallInteger.extension/properties.json rename to repository/Grease-Squeak6-Core.package/SmallInteger.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json new file mode 100644 index 00000000..b2ff4263 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseNext:putAll:startingAt:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st new file mode 100644 index 00000000..f0a1b317 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st @@ -0,0 +1,3 @@ +*grease-squeak6-core +padLeftTo: length with: char + ^ self padded: #left to: length with: char \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st new file mode 100644 index 00000000..4574fd09 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st @@ -0,0 +1,3 @@ +*grease-squeak6-core +padRightTo: length with: char + ^ self padded: #right to: length with: char \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st new file mode 100644 index 00000000..90bc60ae --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st @@ -0,0 +1,5 @@ +*grease-squeak6-core +substrings: aString + + ^ self subStrings: aString + diff --git a/repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json new file mode 100644 index 00000000..33c18f4c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json @@ -0,0 +1,14 @@ +{ + "class" : { + }, + "instance" : { + "padLeftTo:with:" : "JohanBrichau 3/20/2016 16:34:12", + "padRightTo:with:" : "JohanBrichau 3/20/2016 16:34:12", + "substrings:" : "7/15/2024 14:23:40", + "trimBoth" : "7/15/2024 14:23:40", + "trimBoth:" : "7/15/2024 14:23:40", + "trimLeft" : "7/15/2024 14:23:40", + "trimLeft:" : "7/15/2024 14:23:40", + "trimLeft:right:" : "7/15/2024 14:23:40", + "trimRight" : "7/15/2024 14:23:40", + "trimRight:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..075a4ccf --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,4 @@ +*grease-squeak6-core +greaseAsMutator + + ^ self asSimpleSetter diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json new file mode 100644 index 00000000..c178c1b4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseAsMutator" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak5-Core.package/Symbol.extension/properties.json b/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json similarity index 100% rename from repository/Grease-Squeak5-Core.package/Symbol.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json new file mode 100644 index 00000000..b2ff4263 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "greaseNext:putAll:startingAt:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/version b/repository/Grease-Squeak6-Core.package/monticello.meta/version new file mode 100644 index 00000000..9b48d4ba --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/monticello.meta/version @@ -0,0 +1 @@ +(name 'Grease-Squeak6-Core-pmm.3' message '- remove classCommentOf:, part of swagger - remove GRWorkingWriteStream, no need - add pad* methods from Squeak-Compatibility package' id '790decf6-ac96-4308-af19-043b7bd04807' date '29 June 2025' time '4:19:09.008435 pm' author 'pmm' ancestors ((name 'Grease-Squeak6-Core-pmm.2' message 'Improve Squeak 6 Support - move methods from GRPharoPlatform to GRSqeuakPlatform - keep GRPharoPlatform as empty - migrate from FileSystem to FileDirectory - implement missing methods - custom implementation of #openDebuggerOn:' id 'a32e7fbd-559a-4a6d-8442-57277c1ee178' date '16 July 2024' time '9:15:32.440636 pm' author 'pmm' ancestors ((name 'Grease-Squeak6-Core-cypress.1' message 'fabricated from a Cypress format repository' id '90a05819-76e9-4531-80d4-b8bde69d370f' date '15 July 2024' time '2:23:40.385068 pm' author '' ancestors () stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st new file mode 100644 index 00000000..69cd8b12 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st @@ -0,0 +1,9 @@ +tests +testGreaseBeginsWith + | collection | + collection := self arbitraryCollection. + self assert: (collection greaseBeginsWith: (collection copyWithout: collection last)). + self assert: (collection greaseBeginsWith: collection). + self deny: (collection greaseBeginsWith: (collection copyWith: collection first)). + self assert: (collection greaseBeginsWith: self emptyCollection). + self deny: (self emptyCollection greaseBeginsWith: collection) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st new file mode 100644 index 00000000..5bf33d8b --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st @@ -0,0 +1,9 @@ +tests +testGreaseEndsWith + | collection | + collection := self arbitraryCollection. + self assert: (collection greaseEndsWith: (collection copyWithout: collection first)). + self assert: (collection greaseEndsWith: collection). + self deny: (collection greaseEndsWith: (collection copyWith: collection first)). + self assert: (collection greaseEndsWith: self emptyCollection). + self deny: (self emptyCollection greaseEndsWith: collection) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st index 2b2644b9..ef7be170 100644 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st +++ b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st @@ -1,5 +1,5 @@ tests testDescription self assert: package description isNil. - package description: 'A hopeless pacakge'. - self assert: package description = 'A hopeless pacakge' \ No newline at end of file + package description: 'A hopeless package'. + self assert: package description = 'A hopeless package' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st index b42d4730..3c074d00 100644 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st +++ b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st @@ -6,4 +6,5 @@ testPackages packages do: [ :each | self assert: each name notEmpty. self assert: each license notNil. - self assert: each url notNil ] \ No newline at end of file + self deny: (each dependencies includes: nil). + self assert: each url notNil ]. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st index fcdd4be5..63cfbfa2 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st @@ -1,3 +1,4 @@ accessing platform + ^ GRPlatform current \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st index 1b25f567..97bd2a26 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st @@ -1,3 +1,4 @@ private returnSender + ^ GRPlatform current thisContext sender \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st new file mode 100644 index 00000000..9465625f --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st @@ -0,0 +1,3 @@ +running +runCase + GRPlatform current doSilently: [ super runCase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st index 0a42403f..92cf811a 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st @@ -1,4 +1,4 @@ -tests +tests-encoding testBase64Decode | input | input := #( diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st new file mode 100644 index 00000000..5bf20858 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st @@ -0,0 +1,14 @@ +tests-encoding +testBase64Encode + | input | + input := #( + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101 46) 'YW55IGNhcm5hbCBwbGVhc3VyZS4=' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101) 'YW55IGNhcm5hbCBwbGVhc3VyZQ==' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114) 'YW55IGNhcm5hbCBwbGVhc3Vy' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117) 'YW55IGNhcm5hbCBwbGVhc3U=' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115) 'YW55IGNhcm5hbCBwbGVhcw=='). + 1 to: input size by: 2 do: [ :index | + | decoded expected | + decoded := GRPlatform current base64Encode: (input at: index) asByteArray. + expected := input at: index + 1. + self assert: decoded = expected ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st new file mode 100644 index 00000000..cac5ef2b --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st @@ -0,0 +1,17 @@ +tests-mop +testCompileAsciiString + | selector expected source | + + GRPlatform current supportsUnicode ifFalse: [ + ^ self ]. + + selector := #stringMethod. + expected := 'test ok'. + source := GRPlatform current asMethodReturningString: expected named: selector. + [ + | actual | + GRPlatform current compile: source into: self class classified: 'private'. + actual := self perform: selector. + self assert: expected = actual + ] ensure: [ + GRPlatform current removeSelector: #stringMethod from: self class ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st new file mode 100644 index 00000000..116559bd --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st @@ -0,0 +1,15 @@ +tests-mop +testCompileUnicodeString + | selector expected source | + selector := #stringMethod. + expected := String + with: (Character value: 16r1F1F3) + with: (Character value: 16r1F1F1). + source := GRPlatform current asMethodReturningString: expected named: selector. + [ + | actual | + GRPlatform current compile: source into: self class classified: 'private'. + actual := self perform: selector. + self assert: expected = actual + ] ensure: [ + GRPlatform current removeSelector: #stringMethod from: self class ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st new file mode 100644 index 00000000..2e7a73fa --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st @@ -0,0 +1,9 @@ +tests-files +testFileExists + | theFileName | + self + writeToFile: 'test' + withFileNameDo:[ :fileName | + self assert: (GRPlatform current fileExists: fileName). + theFileName := fileName ]. + self deny: (GRPlatform current fileExists: theFileName) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st new file mode 100644 index 00000000..545b3c5b --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st @@ -0,0 +1,7 @@ +tests-encoding +testGreaseAsByteArray + self assert: 1024 greaseAsByteArray equals: #[4 0]. + self assert: (SmallInteger maxVal + 10) greaseAsByteArray equals: #[16 0 0 0 0 0 0 9]. + self assert: (SmallInteger minVal - 10) greaseAsByteArray equals: #[16 0 0 0 0 0 0 10]. + self assert: #[1 2 3] greaseAsByteArray equals: #[1 2 3]. + self assert: '123' greaseAsByteArray equals: #[49 50 51] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st new file mode 100644 index 00000000..3d2b1b9c --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st @@ -0,0 +1,8 @@ +tests-encoding +testGreaseByteAt + self assert: (1024 greaseByteAt: 1) equals: 0. + self assert: (1024 greaseByteAt: 2) equals: 4. + self assert: ((SmallInteger maxVal + 10) greaseByteAt: 1) equals: 9. + self assert: ((SmallInteger maxVal + 10) greaseByteAt: 8) equals: 16. + self assert: ((SmallInteger minVal - 10) greaseByteAt: 1) equals: 10. + self assert: ((SmallInteger minVal - 10) greaseByteAt: 8) equals: 16 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st new file mode 100644 index 00000000..d69bbf63 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st @@ -0,0 +1,5 @@ +tests-encoding +testGreaseBytesCount + self assert: 1024 greaseBytesCount equals: 2. + self assert: (SmallInteger maxVal + 10) greaseBytesCount equals: 8. + self assert: (SmallInteger minVal + 10) greaseBytesCount equals: 8 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st new file mode 100644 index 00000000..a4c49df3 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st @@ -0,0 +1,20 @@ +tests-files +testNewTemporaryFile + + | temporaryFile1 temporaryFile2 | + [ + temporaryFile1 := GRPlatform current newTemporaryFile. + temporaryFile2 := GRPlatform current newTemporaryFile. + GRPlatform current + writeFileStreamOn: temporaryFile1 + do: [ :str | str nextPutAll: 'test temporary' ] + binary: false. + GRPlatform current + writeFileStreamOn: temporaryFile2 + do: [ :str | str nextPutAll: #[116 101 115 116 32 116 101 109 112 111 114 97 114 121] ] + binary: true. + self assert: (GRPlatform current fileExists: temporaryFile1). + self deny: (GRPlatform current localNameOf: temporaryFile1) equals: (GRPlatform current localNameOf: temporaryFile2) + ] ensure: [ GRPlatform current deleteFile: temporaryFile1. GRPlatform current deleteFile: temporaryFile2 ]. + self deny: (GRPlatform current fileExists: temporaryFile1). + self deny: (GRPlatform current fileExists: temporaryFile2) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st new file mode 100644 index 00000000..354c5403 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st @@ -0,0 +1,16 @@ +tests-files +testNewTemporaryFileNamed + + | temporaryFile fileName | + fileName := 'GRPlatformTestTemporaryFile'. + [ + temporaryFile := GRPlatform current newTemporaryFileNamed: fileName. + GRPlatform current + writeFileStreamOn: temporaryFile + do: [ :str | str nextPutAll: 'test temporary' ] + binary: false. + self assert: (GRPlatform current fileExists: temporaryFile). + self should: [ GRPlatform current newTemporaryFileNamed: fileName ] raise: GRError. + ] ensure: [ GRPlatform current deleteFile: temporaryFile ]. + self deny: (GRPlatform current fileExists: temporaryFile). + \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderBinary.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderBinary.st deleted file mode 100644 index 39fbdb1c..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderBinary.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-filestreams -testReadWriteEmptyFileInFolderBinary - | bytes | - bytes := ByteArray new. - self - writeToFile: bytes - withFileNameDo:[ :fileName | - self assert: (bytes = (GRPlatform current contentsOfFile: fileName binary: true)) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderText.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderText.st deleted file mode 100644 index 757a5cdb..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderText.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-filestreams -testReadWriteEmptyFileInFolderText - | text | - text := String new. - self - writeToFile: text - withFileNameDo:[ :fileName | - self assert: (text = (GRPlatform current contentsOfFile: fileName binary: false)) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st deleted file mode 100644 index ad114bf2..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-filestreams -testReadWriteToFileInFolderBinary - | bytes | - bytes := #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray. - self - writeToFile: bytes - withFileNameDo:[ :fileName | - self assert: (bytes = (GRPlatform current contentsOfFile: fileName binary: true)) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st deleted file mode 100644 index 2d9fc845..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-filestreams -testReadWriteToFileInFolderText - | text | - text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'. - self - writeToFile: text - withFileNameDo:[ :fileName | - self assert: (text = (GRPlatform current contentsOfFile: fileName binary: false)) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st index f6521ee3..5a6dfb9f 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st @@ -1,9 +1,19 @@ tests testSecureHashFor - "Make sure the platform class provides a #secureHashFor: method. The method is called by Seaside when hashing passwords. The Squeak implementation returns a SHA-1 hash but another equivalent hash method could also be used." + "Make sure the platform class provides a #secureHashFor: method. The method is called by Seaside when hashing passwords. + The Pharo implementation returns a SHA-1 hash but another equivalent hash method could also be used." - | a b | + | a b c d invalidUtf8 e f | a := self platform secureHashFor: 'foobar'. b := self platform secureHashFor: 'foobar'. + self assert: a equals: b. + + c := self platform secureHashFor: #[102 111 111 98 97 114]. + d := self platform secureHashFor: #[102 111 111 98 97 114]. + self assert: c equals: d. - self assert: (a = b) \ No newline at end of file + "The following ensures any byte array can be used (and not only the onces containing valid utf8)" + invalidUtf8 := #[160 161]. + e := self platform secureHashFor: invalidUtf8. + f := self platform secureHashFor: invalidUtf8. + self assert: e equals: f \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st new file mode 100644 index 00000000..55677c3a --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st @@ -0,0 +1,9 @@ +tests-files +testSizeOfFile + | theFileName | + self + writeToFile: 'test me' + withFileNameDo:[ :fileName | + self assert: (GRPlatform current sizeOfFile: fileName) equals: 7. + theFileName := fileName ]. + self deny: (GRPlatform current fileExists: theFileName) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st new file mode 100644 index 00000000..13d1e453 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st @@ -0,0 +1,12 @@ +tests-mop +testSourceCodeStringOf + + | sourceCodeString | + sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:. + self + assert: sourceCodeString + equals: (GRPlatform current convertToSmalltalkNewlines: +'sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + self subclassResponsibility') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st index fd515dd9..d8fecfc7 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st @@ -1,18 +1,27 @@ tests testThisContext - | methodContext block | + | methodContext block ctx | + "This is just a basic test to see if thisContext works" methodContext := self platform thisContext. block := [ | blockContext | - blockContext := self platform thisContext. - self assert: blockContext sender = methodContext. - "The following is a difference between Gemstone and Pharo... " - (Smalltalk includesKey: #GRGemStonePlatform) - ifTrue: [ self assert: blockContext receiver = block ] - ifFalse: [ - self assert: blockContext receiver = self. - self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ]. - self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ]. + blockContext := self platform thisContext. + self assert: blockContext sender = methodContext. + "The following is a difference between Gemstone and Pharo... " + (Smalltalk includesKey: #GRGemStonePlatform) + ifTrue: [ self assert: blockContext receiver = block ] + ifFalse: [ + self assert: blockContext receiver = self. + (blockContext respondsTo: #tempNamed:) + ifTrue:[ self assert: (blockContext tempNamed: 'blockContext') == blockContext ] + ifFalse:[ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ] ]. + (blockContext respondsTo: #tempNamed:) + ifTrue:[ self assert: (blockContext tempNamed: 'methodContext') == methodContext ] + ifFalse: [ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ] ]. + block value. self assert: self returnSender = methodContext. self assert: methodContext receiver = self. - self assert: (self platform thisContext namedTempAt: (self platform thisContext tempNames indexOf: #block)) == block \ No newline at end of file + ctx := self platform thisContext. + (ctx respondsTo: #tempNamed:) + ifTrue:[ self assert: (ctx tempNamed: 'block') == block ] + ifFalse: [ self assert: (ctx namedTempAt: (ctx tempNames indexOf: #block)) == block ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st new file mode 100644 index 00000000..04b46b21 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st @@ -0,0 +1,27 @@ +tests-files +testWriteToFileInFolder + + | bytes text | + bytes := ByteArray new. + self + writeToFile: bytes + withFileNameDo:[ :fileName | + self assert: (GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ]. + + bytes := #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110]. + self + writeToFile: bytes + withFileNameDo:[ :fileName | + self assert:(GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ]. + + text := String new. + self + writeToFile: text + withFileNameDo:[ :fileName | + self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ]. + + text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'. + self + writeToFile: text + withFileNameDo:[ :fileName | + self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/class/packageNamesUnderTest.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/class/packageNamesUnderTest.st deleted file mode 100644 index ffc11f34..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/class/packageNamesUnderTest.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -packageNamesUnderTest - ^ #('Grease-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/expectedFailures.st deleted file mode 100644 index 82510165..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -expectedFailures - ^ SystemVersion current major < 9 - ifTrue: [ #(testCodecUtf8ShortestForm) ] - ifFalse:[ #() ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Core.package/monticello.meta/categories.st index ee8a55f5..7e8202de 100644 --- a/repository/Grease-Tests-Core.package/monticello.meta/categories.st +++ b/repository/Grease-Tests-Core.package/monticello.meta/categories.st @@ -1 +1 @@ -SystemOrganization addCategory: #'Grease-Tests-Core'! +self packageOrganizer ensurePackage: #'Grease-Tests-Core' withTags: #()! diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st new file mode 100644 index 00000000..e9fce035 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st @@ -0,0 +1,7 @@ +tests +testIsGemStone + self assert: GRPlatform current isGemStone. + self deny: GRPlatform current isPharo. + self deny: GRPlatform current isSqueak. + self deny: GRPlatform current isVAST. + self deny: GRPlatform current isSmalltalkX diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st new file mode 100644 index 00000000..e9fce035 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st @@ -0,0 +1,7 @@ +tests +testIsGemStone + self assert: GRPlatform current isGemStone. + self deny: GRPlatform current isPharo. + self deny: GRPlatform current isSqueak. + self deny: GRPlatform current isVAST. + self deny: GRPlatform current isSmalltalkX diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st deleted file mode 100644 index 1207dc5f..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st +++ /dev/null @@ -1,21 +0,0 @@ -tests -testLanguageTag - - "this makes sure the encoder doesn't fall on the nose with unicode" - - "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" - - | leading hiraA hiraO hiraAO | - SystemVersion current major >= 9 ifTrue: [ - GRPlatform current setutf8CodectoDeprecatedTextConverter ]. - [ - leading := (Smalltalk classNamed: #JapaneseEnvironment) leadingChar. - hiraA := (Character leadingChar: leading code: 12354) greaseString. "HIRAGANA LETTER A" - hiraO := (Character leadingChar: leading code: 12362) greaseString. "HIRAGANA LETTER O" - hiraAO := hiraA , hiraO. - self assertEncodingIgnoresLanguageTat: hiraA. - self assertEncodingIgnoresLanguageTat: hiraO. - self assertEncodingIgnoresLanguageTat: hiraAO - ] ensure: [ - SystemVersion current major >= 9 ifTrue: [ - GRPlatform current setutf8CodectoZinc ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st index 28ee8c57..341866ff 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st @@ -1,6 +1,7 @@ tests testNoAmbiguities - #('utf-8' 'UTF-8' 'utf8') do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ]. - GRPharoLatin1Codec supportedEncodingNames do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ] \ No newline at end of file + (Smalltalk includesKey: #GRPharoGenericCodec) ifTrue:[ + #('utf-8' 'UTF-8' 'utf8') do: [ :each | + self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ]. + GRPharoLatin1Codec supportedEncodingNames do: [ :each | + self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st index 112d896b..8fe4388c 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st @@ -11,5 +11,5 @@ testCompileIntoClassified classified: protocol. [ self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. + selectors := self class selectorsInProtocol: protocol. self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelector: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st new file mode 100644 index 00000000..33cfb193 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st @@ -0,0 +1,10 @@ +tests +testDeprecationExceptionSet + | value | + value := [ + "intentially send Pharo instead of Grease deprecation message" + self deprecated: 'test'. + 'failed' ] + on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet + do: [ :e | 'passed' ]. + self assert: value = 'passed' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st index b62275e7..c6c6c2ea 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st @@ -4,11 +4,4 @@ testGreaseIntegerOnCharacter character := Character codePoint: 19982. self assert: character greaseInteger = 19982. character := Unicode value: 19982. - self assert: character greaseInteger = 19982. - LanguageEnvironment allSubclassesDo: [ :each | - (each class selectors includes: #leadingChar) ifTrue: [ - "fuck me gently with a chainsaw" - character := Character - leadingChar: each leadingChar - code: 19982. - self assert: character greaseInteger = 19982 ] ] \ No newline at end of file + self assert: character greaseInteger = 19982 \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st new file mode 100644 index 00000000..1677c4d6 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st @@ -0,0 +1,7 @@ +tests +testIsPharo + self assert: GRPlatform current isPharo. + self deny: GRPlatform current isGemStone. + self deny: GRPlatform current isSqueak. + self deny: GRPlatform current isVAST. + self deny: GRPlatform current isSmalltalkX \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st new file mode 100644 index 00000000..a85ee772 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st @@ -0,0 +1,7 @@ +tests-filestreams +testReadWriteToFileInFolderTextUTF8 + #('Übèrstrîñgé' '£ęλ~') do:[ :text | + self + writeToFile: text + withFileNameDo:[ :fileName | + self assert: text equals: (GRPlatform current contentsOfFile: fileName binary: false) ] ]. \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st new file mode 100644 index 00000000..15a035a8 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st @@ -0,0 +1,5 @@ +*Grease-Tests-Pharo-Core +expectedFailures + ^ SystemVersion current major < 9 + ifTrue: [ #(testCodecUtf8ShortestForm) ] + ifFalse:[ #() ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json new file mode 100644 index 00000000..3821af97 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRUtf8CodecTest" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st index 8f89143a..7bce97a3 100644 --- a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st +++ b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st @@ -1 +1 @@ -SystemOrganization addCategory: #'Grease-Tests-Pharo-Core'! +self packageOrganizer ensurePackage: #'Grease-Tests-Pharo-Core' withTags: #()! diff --git a/repository/Grease-Tests-Pharo-Slime.package/.filetree b/repository/Grease-Tests-Pharo-Slime.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/README.md b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st new file mode 100644 index 00000000..65b1cddd --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st @@ -0,0 +1,4 @@ +running-checks +assertRule: aRuleClass matches: expectedMatches + + self assertRule: aRuleClass matches: expectedMatches ignoring: Array new \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st new file mode 100644 index 00000000..d2c4aa91 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st @@ -0,0 +1,13 @@ +running-checks +assertRule: aRuleClass matches: expectedMatches ignoring: ignoredRuleClasses + + self run: aRuleClass ignoring: ignoredRuleClasses do: [ :critiques | | critiquedEntities | + critiquedEntities := critiques collect:[ :critique | critique sourceAnchor entity ]. + critiquedEntities do:[ :critiquedEntity | + self + assert: (expectedMatches includes: critiquedEntity) + description: ('{1} should not be reported' format: { critiquedEntity printString }) ]. + expectedMatches do: [ :expectedEntity | + self + assert: (critiquedEntities includes: expectedEntity) + description: ('{1} should be reported' format: { expectedEntity printString }) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st new file mode 100644 index 00000000..ddf9adbc --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st @@ -0,0 +1,7 @@ +accessing-code +canParse: aString + + RBParser + parseMethod: aString + onError: [ :err :pos | ^ false ]. + ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st new file mode 100644 index 00000000..e4bff2ba --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st @@ -0,0 +1,4 @@ +accessing-code +category + + ^ self class category , '-Data' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st new file mode 100644 index 00000000..cb2577d5 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st @@ -0,0 +1,7 @@ +accessing-code +compile: aString in: aClass + + GRPlatform current + compile: aString + into: aClass + classified: #accessing \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st new file mode 100644 index 00000000..9769e83e --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st @@ -0,0 +1,4 @@ +accessing-code +defineClass: aClassSymbol superclass: aSuperSymbol + "For compatibility" + ^ self defineSubClassOf: aSuperSymbol \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st new file mode 100644 index 00000000..fdcf43d7 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st @@ -0,0 +1,4 @@ +accessing-code +defineSubClassOf: aSuperSymbol + + ^ self defineSubClassOf: aSuperSymbol inPackage: self category \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st new file mode 100644 index 00000000..9ad6f16a --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st @@ -0,0 +1,20 @@ +accessing-code +defineSubClassOf: aSuperSymbol inPackage: packageName + + | class | + class := SystemVersion current major >= 12 + ifTrue: [ + factory make: [ :aBuilder | + aBuilder + superclass: (Smalltalk at: aSuperSymbol); + package: packageName ] ] + ifFalse: [ + factory + newSubclassOf: (Smalltalk at: aSuperSymbol) + instanceVariableNames: '' + classVariableNames: 'classVarsString' + category: packageName ]. + environment + addClass: class; + addClass: class classSide. + ^ class \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st new file mode 100644 index 00000000..8c178caf --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st @@ -0,0 +1,6 @@ +running +expectedFailures + + SystemVersion current major >= 12 ifTrue:[ ^ #() ]. + + ^ #(#testEmptyStatements) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st new file mode 100644 index 00000000..46d95352 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st @@ -0,0 +1,10 @@ +running +rules + + ^ (OrderedCollection new + addAll: GRReSlimeBlockLintRule allSubclasses; + addAll: GRReSlimeParseTreeLintRule allSubclasses; + addAll: GRReSlimeTransformationRule allSubclasses; + add: ReMultiplePeriodsTerminatingStatementRule; + add: ReMethodSignaturePeriodRule; + yourself) reject: #isAbstract \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st new file mode 100644 index 00000000..b6ec29e2 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st @@ -0,0 +1,28 @@ +running-checks +run: aRuleClass ignoring: ignoredRuleClasses do: aBlock + + | rules rule runner | + rules := self rules + collect: [ :each | each new ]. + rule := rules + detect: [ :each | each isKindOf: aRuleClass ] + ifNone: [ self error: ('{1} is not a slime rule' format: { aRuleClass name }) ]. + self + assert: (rule name isString and: [ rule name notEmpty ]) + description: aRuleClass name , ' has no name'. + self + assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) + description: aRuleClass name , ' has no rationale'. + runner := ReSmalllintChecker new. + rules do: [ :each | + runner + rule: { each }; + environment: environment; + run ]. + rules do: [ :each | | result | + result := runner criticsOf: each. + self + assert: (rule = each or: [ result isEmpty or: [ ignoredRuleClasses includes: each class ] ]) + description: ('{1} should not report errors' format: { each name }) ]. + aBlock value: (runner criticsOf: rule). + ^ rule \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st new file mode 100644 index 00000000..a508309b --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st @@ -0,0 +1,4 @@ +running +runCase + + GRPlatform current doSilently: [ super runCase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st new file mode 100644 index 00000000..2bbd5df3 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st @@ -0,0 +1,15 @@ +running-checks +runTransformation: aClass changes: aCollection + + | expected | + expected := aCollection collect: [ :each | RBParser parseMethod: each ]. + self run: aClass ignoring: Array new do: [ :critiques | | changes | + changes := critiques collect:[ :critique | critique change ]. + changes do: [ :change | + self + assert: (expected anySatisfy: [ :parseTree | change parseTree = parseTree ]) + description: ('{1} should not be transformed' format: { change selector }) ]. + expected do: [ :parseTree | + self + assert: (changes anySatisfy: [ :change | change parseTree = parseTree ]) + description: ('{1} should be transformed' format: { parseTree selector }) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st new file mode 100644 index 00000000..1ba40656 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st @@ -0,0 +1,7 @@ +running +setUp + + super setUp. + factory := ClassFactoryForTestCase new. + model := RBNamespace new. + environment := RBClassEnvironment new \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st new file mode 100644 index 00000000..82f6aabd --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st @@ -0,0 +1,5 @@ +running +tearDown + + super tearDown. + factory cleanUp \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st new file mode 100644 index 00000000..fc3a5aee --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st @@ -0,0 +1,12 @@ +tests-transform +testAnsiBooleansRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'and 1 and: [ 2 ] and: [ 3 ] and: [ 4 ]' in: class. + self compile: 'or 1 or: [ 2 ] or: [ 3 ] or: [ 4 ]' in: class. + self + runTransformation: GRAnsiBooleansRule + changes: #( + 'and 1 and: [ 2 and: [ 3 and: [ 4 ] ] ]' + 'or 1 or: [ 2 or: [ 3 or: [ 4 ] ] ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st new file mode 100644 index 00000000..ddc22642 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st @@ -0,0 +1,11 @@ +tests-transform +testAnsiCharacterRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'character Character value: 123' in: class. + self compile: 'characterRange $a to: $c' in: class. + self compile: 'integerRange 1 to: 10' in: class. + self + runTransformation: GRAnsiCharactersRule + changes: #('character Character codePoint: 123' 'characterRange ''abc''') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st new file mode 100644 index 00000000..85726226 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st @@ -0,0 +1,37 @@ +tests-transform +testAnsiCollectionsRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'withIndexDo #() withIndexDo: [ :each :index | each + index ]' in: class. + self compile: 'doWithIndex #() doWithIndex: [ :each :index | each + index ]' in: class. + self compile: 'collectThenDo #() collect: [ :a | a ] thenDo: [ :b | b ]' in: class. + self compile: 'collectThenSelect #() collect: [ :a | a ] thenSelect: [ :b | true ]' in: class. + self compile: 'detectSum #(1 2) detectSum: [ :each | each ]' in: class. + self compile: 'detectSumMultiline #(1 2) detectSum: [ :each | #foo copy. each ]' in: class. + self compile: 'pairsDo #(1 2 3 4) pairsDo: [ :a :b | b ]' in: class. + self compile: 'rejectThenDo #() reject: [ :a | true ] thenDo: [ :b | b ]' in: class. + self compile: 'selectThenCollect #() select: [ :a | true ] thenCollect: [ :b | b ]' in: class. + self compile: 'selectThenDo #() select: [ :a | true ] thenDo: [ :b | b ]' in: class. + self compile: 'valuesDo #() valuesDo: [ :a | a ]' in: class. + self compile: 'reversed #() reversed' in: class. + self compile: 'keysSortedSafely Dictionary new keysSortedSafely' in: class. + self compile: 'newWithAll Array new: 4 withAll: $a' in: class. + self + runTransformation: GRAnsiCollectionsRule + changes: #( + 'withIndexDo #() keysAndValuesDo: [ :index :each | each + index ]' + 'doWithIndex #() keysAndValuesDo: [ :index :each | each + index ]' + 'collectThenDo (#() collect: [ :a | a ]) do: [ :b | b ]' + 'selectThenDo (#() select: [ :a | true ]) do: [ :b | b ]' + 'rejectThenDo (#() reject: [ :a | true ]) do: [ :b | b ]' + 'selectThenCollect (#() select: [ :a | true ]) collect: [ :b | b ]' + 'pairsDo 1 to: #(1 2 3 4) size by: 2 do: [ :index | | a b | a := #(1 2 3 4) at: index. b := #(1 2 3 4) at: index + 1. b ]' + 'collectThenSelect (#() collect: [ :a | a ]) select: [ :b | true ]' + 'detectSum #(1 2) inject: 0 into: [ :sum :each | sum + each ]' + 'detectSumMultiline #(1 2) inject: 0 into: [ :sum :each | #foo copy. sum + each ]' + 'valuesDo #() do: [ :a | a ]' + 'reversed #() reverse' + 'keysSortedSafely Dictionary new keys asSortedCollection' + 'newWithAll (Array new: 4) atAllPut: $a' + ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st new file mode 100644 index 00000000..cffcbfa7 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st @@ -0,0 +1,12 @@ +tests-transform +testAnsiConditionalsRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'ifNotNil 1 ifNotNil: [ | a | self or. self and ]' in: class. + self compile: 'ifNotNilDo 1 ifNotNilDo: [ :a | ^ a ]' in: class. + self + runTransformation: GRAnsiConditionalsRule + changes: #( + 'ifNotNil 1 ifNotNil: [ :arg | | a | self or. self and ]' + 'ifNotNilDo 1 ifNotNil: [ :a | ^ a ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st new file mode 100644 index 00000000..b29370e2 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st @@ -0,0 +1,12 @@ +tests-transform +testAnsiConvertorRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'convertInteger ''1'' asInteger' in: class. + self compile: 'convertString 2 asString' in: class. + self + runTransformation: GRAnsiConvertorRule + changes: #( + 'convertInteger ''1'' greaseInteger' + 'convertString 2 greaseString' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st new file mode 100644 index 00000000..57b75a75 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st @@ -0,0 +1,14 @@ +tests-transform +testAnsiExceptionsRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'exception1 [ self or ] on: Error do: [ self or ]' in: class. + self compile: 'exception2 [ self or ] on: Error do: [ self or. self or ]' in: class. + self compile: 'exception3 [ self or ] on: Error do: [ | a | a := 0 ]' in: class. + self + runTransformation: GRAnsiExceptionsRule + changes: #( + 'exception1 [ self or ] on: Error do: [ :err | self or ]' + 'exception2 [ self or ] on: Error do: [ :err | self or. self or ]' + 'exception3 [ self or ] on: Error do: [ :err | | a | a := 0 ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st new file mode 100644 index 00000000..7a8b3238 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st @@ -0,0 +1,14 @@ +tests-transform +testAnsiStreamsRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'writeStream ^ '''' writeStream' in: class. + self compile: 'writeCr | stream | stream := WriteStream on: ''''. stream cr. stream nextPut: Character cr' in: class. + self compile: 'writeLf | stream | stream := WriteStream on: ''''. stream lf. stream nextPut: Character lf' in: class. + self + runTransformation: GRAnsiStreamsRule + changes: #( + 'writeStream ^ WriteStream on: ''''' + 'writeCr | stream | stream := WriteStream on: ''''. stream nextPut: Character cr. stream nextPut: Character cr' + 'writeLf | stream | stream := WriteStream on: ''''. stream nextPut: Character lf. stream nextPut: Character lf') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st new file mode 100644 index 00000000..9e0aeb9e --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st @@ -0,0 +1,28 @@ +tests-transform +testAnsiStringsRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'stringCr String cr, (String with: Character cr)' in: class. + self compile: 'stringTab String tab, (String with: Character tab)' in: class. + self compile: 'stringLf String lf, (String with: Character lf)' in: class. + self compile: 'stringCrLf String crlf, (String with: Character cr with: Character lf)' in: class. + self compile: 'stringSpace String space, (String with: Character space)' in: class. + self compile: 'findTokens ''123'' findTokens: '',''' in: class. + self compile: 'findTokensCharacter ''123'' findTokens: $,' in: class. + self compile: 'findTokensArray ''123'' findTokens: #($, $;)' in: class. + self compile: 'includesSubString ''1234'' includesSubString: ''23''' in: class. + self compile: 'includesSubString ''1234'' includesSubstring: ''23''' in: class. + self + runTransformation: GRAnsiStringsRule + changes: #( + 'stringCr (String with: Character cr), (String with: Character cr)' + 'stringTab (String with: Character tab), (String with: Character tab)' + 'stringLf (String with: Character lf), (String with: Character lf)' + 'stringCrLf (String with: Character cr with: Character lf), (String with: Character cr with: Character lf)' + 'stringSpace (String with: Character space), (String with: Character space)' + 'findTokens ''123'' subStrings: '',''' + 'findTokensCharacter ''123'' subStrings: '',''' + 'findTokensArray ''123'' subStrings: '',;''' + 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0' + 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st new file mode 100644 index 00000000..679e1393 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st @@ -0,0 +1,9 @@ +tests-block +testBasicNewInitializeMissing + + | class | + class := self defineSubClassOf: #Object. + self compile: 'initialize' in: class. + self + assertRule: GRBasicNewInitializeMissingRule + matches: { class } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st new file mode 100644 index 00000000..bc229c20 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st @@ -0,0 +1,11 @@ +tests-parsetree +testDeprecatedApiProtocol + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class. + self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class. + self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class. + self + assertRule: GRDeprecatedApiProtocolRule + matches: { class>>#deprecated2 . class>>#deprecated3 } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st new file mode 100644 index 00000000..7e3c3a62 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st @@ -0,0 +1,18 @@ +tests-block +testEmptyStatements + "We added this test to make sure that this Pharo-supplied rule works because we previously had this one in Grease and it is important." + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'emptyStatement1.', (String with: Character cr), ' self and' in: class. + self compile: 'emptyStatement2', (String with: Character cr), ' self and..' in: class. + self compile: 'emptyStatement3', (String with: Character cr), ' self and."foo".' in: class. + self compile: 'emptyStatement4', (String with: Character cr), ' self and."foo".self and' in: class. + self + assertRule: ReMultiplePeriodsTerminatingStatementRule + matches: { class>>#emptyStatement2 . class>>#emptyStatement3 . class>>#emptyStatement4 } + ignoring: { ReMethodSignaturePeriodRule }. + self + assertRule: ReMethodSignaturePeriodRule + matches: { class>>#emptyStatement1 } + ignoring: { ReMultiplePeriodsTerminatingStatementRule }. \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st new file mode 100644 index 00000000..c7bddcd6 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st @@ -0,0 +1,9 @@ +tests-block +testInvalidObjectInitialization + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'initializeFoo: aNumber' in: class. + self + assertRule: GRInvalidObjectInitializationRule + matches: { class>>#initializeFoo: } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st new file mode 100644 index 00000000..d5b8d927 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st @@ -0,0 +1,15 @@ +tests-block +testNonPortableMessageRule + + | class | + class := self defineSubClassOf: #GRObject. + + self compile: 'invalid1 ^ Array new anyOne' in: class. + self compile: 'valid1 ^ Array new first' in: class. + + self compile: 'invalid2 ^ Array new withIndexCollect: [ :each :index | each hash ]' in: class. + self compile: 'valid2 ^ Array new do: [ :each | each hash ]' in: class. + + self + assertRule: GRNonPortableMessageRule + matches: { class>>#invalid1 . class>>#invalid2 } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st new file mode 100644 index 00000000..ba64daef --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st @@ -0,0 +1,12 @@ +tests-transform +testNotPortableCollectionsRule + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'beginsWith1 ''abc'' beginsWith: ''a''' in: class. + self compile: 'endsWith1 ''abc'' endsWith: ''a''' in: class. + self + runTransformation: GRNotPortableCollectionsRule + changes: #( + 'beginsWith1 ''abc'' greaseBeginsWith: ''a''' + 'endsWith1 ''abc'' greaseEndsWith: ''a''') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st new file mode 100644 index 00000000..5711be2a --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st @@ -0,0 +1,13 @@ +tests-transform +testObjectIn + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'objectIn1 1 in: [ :val | val factorial ]' in: class. + self compile: 'objectIn2 2 in: [ :val | | temps | val factorial ]' in: class. + self compile: 'objectIn3 2 in: [ ''not this'' ]' in: class. + self + runTransformation: GRObjectInRule + changes: #( + 'objectIn1 [ :val | val factorial ] value: 1' + 'objectIn2 [ :val | | temps | val factorial ] value: 2') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st new file mode 100644 index 00000000..a3070f80 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st @@ -0,0 +1,10 @@ +tests-block +testReferencesNotPortableClass + + | class | + class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. + self compile: 'invalid ^ Semaphore new' in: class. + self compile: 'valid ^ GRObject new' in: class. + self + assertRule: GRReferencesNotPortableClassRule + matches: { class>>#invalid } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st new file mode 100644 index 00000000..c86dc173 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st @@ -0,0 +1,8 @@ +tests-block +testSubclassesNotPortableClass + + | class | + class := self defineSubClassOf: #Mutex inPackage: 'SomeCategory'. + self + assertRule: GRSubclassesNotPortableClassRule + matches: { class } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st new file mode 100644 index 00000000..1fecfedc --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st @@ -0,0 +1,9 @@ +tests-transform +testTestCaseFailRule + + | class | + class := self defineSubClassOf: #TestCase. + self compile: 'testMethod self fail' in: class. + self + runTransformation: GRTestAssertionsRule + changes: #( 'testMethod self assert: false' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st new file mode 100644 index 00000000..13e098a6 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st @@ -0,0 +1,9 @@ +tests-transform +testTestCaseFailRule2 + + | class | + class := self defineSubClassOf: #Object. + self compile: 'method self fail' in: class. + self + runTransformation: GRTestAssertionsRule + changes: #( ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st new file mode 100644 index 00000000..5573c829 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st @@ -0,0 +1,20 @@ +tests-parsetree +testUsesCanPerformOrUnderstand + + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + Object class canUnderstand: #new' + in: class. + self + compile: 'invalid2 + Object class canPerform: #new' + in: class. + self + compile: 'valid + Object respondsTo: #new' + in: class. + self + assertRule: GRUsesCanPerformOrUnderstandRule + matches: { class>>#invalid1 . class>>#invalid2 } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st new file mode 100644 index 00000000..7b934bbe --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st @@ -0,0 +1,16 @@ +tests-parsetree +testUsesClassForHash + + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'foo + ^ super hash bitXor: self class hash' + in: class. + self + compile: 'hash + ^ super hash bitXor: self class hash' + in: class. + self + assertRule: GRUsesClassForHashRule + matches: { class>>#hash } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st new file mode 100644 index 00000000..f65d00a4 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st @@ -0,0 +1,10 @@ +tests-block +testUsesNotPortableClass + + | class | + class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. + self compile: 'invalid ^ Semaphore new' in: class. + self compile: 'valid ^ GRObject new' in: class. + self + assertRule: GRReferencesNotPortableClassRule + matches: { class>>#invalid } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json new file mode 100644 index 00000000..b4ebf23f --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Grease-Tests-Pharo-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "model", + "environment", + "factory" + ], + "name" : "GRReSlimeTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st new file mode 100644 index 00000000..6c2ac5ef --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Tests-Pharo-Slime'! diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/initializers.st b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package new file mode 100644 index 00000000..e2360038 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Tests-Pharo-Slime') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/properties.json b/repository/Grease-Tests-Pharo-Slime.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/.filetree b/repository/Grease-Tests-Slime.package/.filetree index 8998102c..57a67973 100644 --- a/repository/Grease-Tests-Slime.package/.filetree +++ b/repository/Grease-Tests-Slime.package/.filetree @@ -1,4 +1,5 @@ { - "noMethodMetaData" : true, "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st b/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st index a6fa00fd..0ef4a959 100644 --- a/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st +++ b/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st @@ -3,6 +3,6 @@ greaseTestsSlime ^ self new name: 'Grease-Tests-Slime'; description: 'Unit tests for the package Grease-Slime.'; - addDependency: 'Grease-Slime'; + addDependency: 'Grease-Pharo-Slime'; url: #seasideUrl; yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json index dd2faaf0..ae522a7e 100644 --- a/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json +++ b/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "GRPackage" } + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st index b03bce12..cb2577d5 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st @@ -1,3 +1,7 @@ accessing-code compile: aString in: aClass - ^ aClass compile: aString classified: #(accessing) \ No newline at end of file + + GRPlatform current + compile: aString + into: aClass + classified: #accessing \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st index 17204f23..9769e83e 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st @@ -1,13 +1,4 @@ accessing-code defineClass: aClassSymbol superclass: aSuperSymbol - | class | - model defineClass: aSuperSymbol , ' subclass: #' , aClassSymbol , ' - instanceVariableNames: '''' - classVariableNames: '''' - poolDictionaries: '''' - category: ''' , self category , ''''. - class := model classNamed: aClassSymbol. - environment - addClass: class; - addClass: class theMetaClass. - ^ class \ No newline at end of file + "For compatibility" + ^ self defineSubClassOf: aSuperSymbol \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st new file mode 100644 index 00000000..4921f353 --- /dev/null +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st @@ -0,0 +1,20 @@ +accessing-code +defineSubClassOf: aSuperSymbol + + | class | + class := SystemVersion current major >= 12 + ifTrue: [ + factory make: [ :aBuilder | + aBuilder + superclass: (Smalltalk at: aSuperSymbol); + package: self category ] ] + ifFalse: [ + factory + newSubclassOf: (Smalltalk at: aSuperSymbol) + instanceVariableNames: '' + classVariableNames: 'classVarsString' + category: self category ]. + environment + addClass: class; + addClass: class theMetaClass. + ^ class \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st index 0e7cc221..ee5004c0 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st @@ -1,5 +1,6 @@ running setUp super setUp. + factory := ClassFactoryForTestCase new. model := RBNamespace new. environment := RBClassEnvironment new \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st index f0cb9be4..82f6aabd 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st @@ -1,7 +1,5 @@ running tearDown + super tearDown. - (Smalltalk organization listAtCategoryNamed: self category) do:[ :e | - SmalltalkImage current removeClassNamed: e ]. - Smalltalk organization - removeCategory: self category \ No newline at end of file + factory cleanUp \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st index 7f500fce..d4560588 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiBooleansRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'and 1 and: [ 2 ] and: [ 3 ] and: [ 4 ]' in: class. self compile: 'or 1 or: [ 2 ] or: [ 3 ] or: [ 4 ]' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st index 192f1f82..f8d58d84 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiCharacterRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'character Character value: 123' in: class. self compile: 'characterRange $a to: $c' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st index 21f66b65..8b101581 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiCollectionsRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'withIndexDo #() withIndexDo: [ :each :index | each + index ]' in: class. self compile: 'doWithIndex #() doWithIndex: [ :each :index | each + index ]' in: class. self compile: 'collectThenDo #() collect: [ :a | a ] thenDo: [ :b | b ]' in: class. diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st index 0819b8e6..e1ac638b 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiConditionalsRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'ifNotNil 1 ifNotNil: [ | a | self or. self and ]' in: class. self compile: 'ifNotNilDo 1 ifNotNilDo: [ :a | ^ a ]' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st index b51f8a3c..898f4f52 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiConvertorRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'convertInteger ''1'' asInteger' in: class. self compile: 'convertString 2 asString' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st index 61cd5cd8..7232e149 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiExceptionsRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'exception1 [ self or ] on: Error do: [ self or ]' in: class. self compile: 'exception2 [ self or ] on: Error do: [ self or. self or ]' in: class. self compile: 'exception3 [ self or ] on: Error do: [ | a | a := 0 ]' in: class. diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st index d57fbb32..5f1430b1 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiStreamsRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'writeStream ^ '''' writeStream' in: class. self compile: 'writeCr | stream | stream := WriteStream on: ''''. stream cr. stream nextPut: Character cr' in: class. self compile: 'writeLf | stream | stream := WriteStream on: ''''. stream lf. stream nextPut: Character lf' in: class. diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st index 73f65771..dde1cae1 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st @@ -1,9 +1,7 @@ tests-transform testAnsiStringsRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'stringCr String cr, (String with: Character cr)' in: class. self compile: 'stringTab String tab, (String with: Character tab)' in: class. self compile: 'stringLf String lf, (String with: Character lf)' in: class. diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st index 137714dd..07bf2a45 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st @@ -1,9 +1,7 @@ tests-block testBasicNewInitializeMissing | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #Object. + class := self defineSubClassOf: #Object. self compile: 'initialize' in: class. self runRule: GRBasicNewInitializeMissingRule diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st index b29f187f..21cb487d 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st @@ -1,30 +1,28 @@ tests-parsetree testBlockFormatting | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'invalid1 [:a ]' - classified: #(accessing). - class + in: class. + self compile: 'invalid2 [:a | ]' - classified: #(accessing). - class + in: class. + self compile: 'invalid3 [ :b]' - classified: #(accessing). + in: class. - class + self compile: 'invalid4 [ :a| ]' - classified: #(accessing). - class + in: class. + self compile: 'invalid5 [ :a |a ]' - classified: #(accessing). + in: class. self runRule: GRBlockFormattingRule selectors: #(invalid1 invalid2 invalid3 invalid4 invalid5) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st index 32f2b682..5735b56e 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st @@ -1,11 +1,9 @@ tests-block testDeprecatedApiProtocol | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - self compile: 'deprecated1 self greaseDeprecatedApi: ''GRSlimeMockObject>>#deprecated1'' details: ''Something.''' in: class. - self compile: 'deprecated2 self greaseDeprecatedApi: ''GRSlimeMockObject>>#deprecated'' details: ''Something.''' in: class. + class := self defineSubClassOf: #GRObject. + self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class. + self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class. self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class. self runRule: GRDeprecatedApiProtocolRule diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testEmptyStatements.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testEmptyStatements.st deleted file mode 100644 index 2db3ea85..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testEmptyStatements.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-block -testEmptyStatements - | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - self compile: 'emptyStatement1. self and' in: class. - self compile: 'emptyStatement2 self and..' in: class. - self compile: 'emptyStatement3 self and."foo".' in: class. - self compile: 'emptyStatement4 self and."foo".self and' in: class. - self - runRule: GREmptyStatementsRule - selectors: #(emptyStatement1 emptyStatement2 emptyStatement3 emptyStatement4) - ignoring: (Array with: GRUnnecessaryLastPeriodRule) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st index a3ad223e..f11fb191 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st @@ -1,9 +1,7 @@ tests-block testInvalidObjectInitialization | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'initializeFoo: aNumber' in: class. self runRule: GRInvalidObjectInitializationRule diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st index 6deafde9..b9254341 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st @@ -1,9 +1,7 @@ tests-block testNonPortableMessageRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'invalid1 ^ Array new anyOne' in: class. self compile: 'valid1 ^ Array new first' in: class. diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st index 7fd6ab30..cad8fe0b 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st @@ -1,9 +1,7 @@ tests-block testNonPortableSourceFormat | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'invalid ^ ''Unicode snow man', (String with: (Character codePoint: 16r2603)) , '''' in: class. self compile: 'valid ^ ''everything is fine''' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st index 473591ef..039b45c2 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st @@ -1,13 +1,11 @@ tests-transform testNotPortableCollectionsRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'beginsWith1 ''abc'' beginsWith: ''a''' in: class. self compile: 'endsWith1 ''abc'' endsWith: ''a''' in: class. self runTransformation: GRNotPortableCollectionsRule changes: #( - 'beginsWith1 ''abc'' beginsWithSubCollection: ''a''' - 'endsWith1 ''abc'' endsWithSubCollection: ''a''') \ No newline at end of file + 'beginsWith1 ''abc'' greaseBeginsWith: ''a''' + 'endsWith1 ''abc'' greaseEndsWith: ''a''') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st index 7773b660..5aec1103 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st @@ -1,9 +1,7 @@ tests-transform testObjectIn | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'objectIn1 1 in: [ :val | val factorial ]' in: class. self compile: 'objectIn2 2 in: [ :val | | temps | val factorial ]' in: class. self compile: 'objectIn3 2 in: [ ''not this'' ]' in: class. diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st index 4f64398f..a632b605 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st @@ -1,17 +1,15 @@ tests-parsetree testParensFormatting | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'invalid1 ( 1 + 2)' - classified: #(accessing). - class + in: class. + self compile: 'invalid2 (1 + 2 )' - classified: #(accessing). + in: class. self runRule: GRParensFormattingRule selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st index e9b3d738..27d8438d 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st @@ -1,17 +1,15 @@ tests-parsetree testReturnFormatting | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'invalid1 ^1' - classified: #(accessing). - class + in: class. + self compile: 'invalid2 ^ 2' - classified: #(accessing). + in: class. self runRule: GRReturnFormattingRule selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st index e8a4bb58..2eddb2b4 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st @@ -1,21 +1,19 @@ tests-parsetree testTempsFormatting | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'invalid1 | a|' - classified: #(accessing). - class + in: class. + self compile: 'invalid2 |a |' - classified: #(accessing). - class + in: class. + self compile: 'invalid3 | a b |' - classified: #(accessing). + in: class. self runRule: GRTempsFormattingRule selectors: #(invalid1 invalid2 invalid3) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st index 987fa755..a4800822 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st @@ -1,9 +1,7 @@ tests-transform testTestCaseFailRule | class | - class := self - defineClass: #GRSlimeMockObjectTest - superclass: #TestCase. + class := self defineSubClassOf: #TestCase. self compile: 'testMethod self fail' in: class. self runTransformation: GRTestAssertionsRule diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st index 71a76406..b96f1b62 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st @@ -1,9 +1,7 @@ tests-block testUnnecessaryLastPeriodRule | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'invalid 1. 2.' in: class. self compile: 'valid 1. 2' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st index 38c04498..a29a53fb 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st @@ -1,21 +1,19 @@ tests-parsetree testUsesCanPerformOrUnderstand | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'invalid1 Object class canUnderstand: #new' - classified: #(accessing). - class + in: class. + self compile: 'invalid2 Object class canPerform: #new' - classified: #(accessing). - class + in: class. + self compile: 'valid Object respondsTo: #new' - classified: #(accessing). + in: class. self runRule: GRUsesCanPerformOrUnderstandRule selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st index d61b8eb0..e95c920c 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st @@ -1,17 +1,15 @@ tests-parsetree testUsesClassForHash | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'foo ^ super hash bitXor: self class hash' - classified: #(accessing). - class + in: class. + self compile: 'hash ^ super hash bitXor: self class hash' - classified: #(accessing). + in: class. self runRule: GRUsesClassForHashRule selectors: #(hash) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st index 61084706..7e341c1e 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st @@ -3,17 +3,15 @@ testUsesCurlyBraceArrays | class | (self canParse: 'foo { self foo. self bar }') ifFalse: [ ^ self ]. - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class + class := self defineSubClassOf: #GRObject. + self compile: 'invalid ^ { self foo. self bar }' - classified: #(accessing). - class + in: class. + self compile: 'valid ^ Array new' - classified: #(accessing). + in: class. self runRule: GRUsesCurlyBraceArraysRule selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesLiteralByteArrays.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesLiteralByteArrays.st deleted file mode 100644 index 556f4d77..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesLiteralByteArrays.st +++ /dev/null @@ -1,19 +0,0 @@ -tests-parsetree -testUsesLiteralByteArrays - | class | - (self canParse: 'foo #[ 1 2 3 ]') - ifFalse: [ ^ self ]. - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. - class - compile: 'invalid - ^ #[ 1 2 3 ]' - classified: #(accessing). - class - compile: 'valid - ^ ByteArray with: 1 with: 2 with: 3' - classified: #(accessing). - self - runRule: GRUsesLiteralByteArraysRule - selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st index 39519d9b..dd1e7931 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st @@ -3,9 +3,7 @@ testUsesMethodAnnotations | class | (self canParse: 'foo ') ifFalse: [ ^ self ]. - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'invalid ' in: class. self compile: 'valid' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st index a4945bb4..d988a2fd 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st @@ -1,9 +1,7 @@ tests-block testUsesNotPortableClass | class | - class := self - defineClass: #GRSlimeMockObject - superclass: #GRObject. + class := self defineSubClassOf: #GRObject. self compile: 'invalid ^ Semaphore new' in: class. self compile: 'valid ^ GRObject new' in: class. self diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json index 803da85e..b2e89aff 100644 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json +++ b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json @@ -1,15 +1,15 @@ { - "category" : "Grease-Tests-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "TestCase", + "category" : "Grease-Tests-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "model", - "environment" ], + "environment", + "factory" + ], "name" : "GRSlimeTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/properties.json b/repository/Grease-Tests-Slime.package/properties.json index f037444a..6f31cf5a 100644 --- a/repository/Grease-Tests-Slime.package/properties.json +++ b/repository/Grease-Tests-Slime.package/properties.json @@ -1,2 +1 @@ -{ - } +{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/.filetree b/repository/Grease-Tests-Squeak-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st deleted file mode 100644 index d9e95032..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderBinary - self writeToFile: #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/properties.json b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/properties.json deleted file mode 100644 index 286d9322..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakPlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Squeak-Core.package/monticello.meta/categories.st deleted file mode 100644 index 7d76d30a..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-Squeak-Core'! diff --git a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/package b/repository/Grease-Tests-Squeak-Core.package/monticello.meta/package deleted file mode 100644 index eacb1dea..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Squeak-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/properties.json b/repository/Grease-Tests-Squeak-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Tests-Squeak5-Core.package/.filetree b/repository/Grease-Tests-Squeak5-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/class/greaseTestsSqueak5Core.st b/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/class/greaseTestsSqueak5Core.st deleted file mode 100644 index a7966bb7..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/class/greaseTestsSqueak5Core.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-tests-squeak5-core -greaseTestsSqueak5Core - ^ self new - name: 'Grease-Tests-Squeak5-Core'; - description: 'Unit tests for the package Grease-Squeak5-Core.'; - addDependency: 'Grease-Squeak5-Core'; - addDependency: 'Grease-Tests-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/properties.json deleted file mode 100644 index 752708a7..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/properties.json deleted file mode 100644 index 7500bb50..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoColorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st deleted file mode 100644 index 28ee8c57..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testNoAmbiguities - #('utf-8' 'UTF-8' 'utf8') do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ]. - GRPharoLatin1Codec supportedEncodingNames do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/properties.json deleted file mode 100644 index f80e34e4..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoGenericCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 9af1697f..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testCompileIntoClassified - | source protocol selectors selector | - source := 'aMethod - ^ ''a result'''. - protocol := 'a-protocol'. - selector := #aMethod. - GRPlatform current - compile: source - into: self class - classified: protocol. - - [ self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. - self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelectorSilently: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testFullName.st deleted file mode 100644 index 18bfc31b..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testFullName.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testFullName - self assert: Object fullName = 'Object' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st deleted file mode 100644 index b62275e7..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testGreaseIntegerOnCharacter - | character | - character := Character codePoint: 19982. - self assert: character greaseInteger = 19982. - character := Unicode value: 19982. - self assert: character greaseInteger = 19982. - LanguageEnvironment allSubclassesDo: [ :each | - (each class selectors includes: #leadingChar) ifTrue: [ - "fuck me gently with a chainsaw" - character := Character - leadingChar: each leadingChar - code: 19982. - self assert: character greaseInteger = 19982 ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st deleted file mode 100644 index 1f1bb911..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,33 +0,0 @@ -tests -testMessageSendValueWithPossibleArguments - | send | - send := MessageSend receiver: 1 selector: #+. - self assert: (send valueWithPossibleArguments: (Array with: 2)) = 3. - self assert: (send valueWithArguments: (Array with: 2)) = 3. - self assert: (send value: 2) = 3. - - send := MessageSend receiver: false selector: #not. - self assert: (send valueWithPossibleArguments: (Array with: 3)). - - send := MessageSend receiver: 1 selector: #+ arguments: #(2). - self assert: (send valueWithPossibleArguments: (Array with: 4)) = 3. - self assert: send value = 3. - - send := MessageSend receiver: Array selector: #with:with: arguments: #(1). - self assert: (send valueWithPossibleArguments: (Array with: 2)) size = 2. - - send := MessageSend receiver: Array selector: #with:with:. - self assert: (send value: 1 value: 2) size = 2. - - send := MessageSend - receiver: 1 - selector: #+. - self assert: send argumentCount = 1. - self assert: send arguments size = 0. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1 diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st deleted file mode 100644 index d9e95032..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderBinary - self writeToFile: #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st deleted file mode 100644 index 0d513815..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderText - self writeToFile: 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st deleted file mode 100644 index f773658a..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st +++ /dev/null @@ -1,11 +0,0 @@ -private -writeToFile: aStringOrByteArray - | fileName directory | - fileName := 'GRPharoPlatformTest'. - directory := FileDirectory default. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory pathName - ] ensure: [ - directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/properties.json deleted file mode 100644 index 3ceb357c..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoPlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st deleted file mode 100644 index 569e9ce3..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-squeak5-core -testScaledDecimalGreaseString - self assert: 123.4s1 greaseString = '123.4'. - self assert: 123.4s2 greaseString = '123.40'. - self assert: 123s0 greaseString = '123' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st deleted file mode 100644 index f048cc47..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-tests-squeak5-core -writeToFile: aStringOrByteArray withFileNameDo: aBlock - | fileName directory | - fileName := 'GRSqueakPlatformTest'. - directory := FileDirectory default. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory fullName. - aBlock value: directory fullName,GRPlatform current pathSeparator,fileName - ] ensure: [ - directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/properties.json deleted file mode 100644 index ab3f269a..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPlatformTest" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st b/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st deleted file mode 100644 index aeee46dd..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st +++ /dev/null @@ -1,19 +0,0 @@ -*grease-tests-squeak5-core -testScaledDecimalPrinter - | converter | - converter := GRNumberPrinter new precision: 2. - self assert: (converter print: 1.009s3) = '1.01'. - self assert: (converter print: 1.01s2) = '1.01'. - self assert: (converter print: 1.019s3) = '1.02'. - self assert: (converter print: 1.25s2) = '1.25'. - self assert: (converter print: 1.254s3) = '1.25'. - self assert: (converter print: 1.256s3) = '1.26'. - self assert: (converter print: 1.009s3) = '1.01'. - self assert: (converter print: 0.9s1) = '0.90'. - self assert: (converter print: 0.99s2) = '0.99'. - self assert: (converter print: 0.999s3) = '1.00'. - self assert: (converter print: 0.9999s4) = '1.00'. - self assert: (converter print: -0.9s1) = '0.90'. - self assert: (converter print: -0.99s2) = '0.99'. - self assert: (converter print: -0.999s3) = '1.00'. - self assert: (converter print: -0.9999s4) = '1.00' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/properties.json deleted file mode 100644 index 125a8c96..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPrinterTest" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 6be346ad..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-tests-squeak5-core -expectedFailures - ^ #(testCodecUtf8ShortestForm) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/properties.json deleted file mode 100644 index 8b1a3361..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRUtf8CodecTest" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/categories.st deleted file mode 100644 index ea0af9be..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-Squeak5-Core'! diff --git a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/package b/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/package deleted file mode 100644 index 335d47b8..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Squeak5-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/properties.json b/repository/Grease-Tests-Squeak5-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json new file mode 100644 index 00000000..90fd53fb --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + "greaseTestsSqueak6Core" : " 7/15/2024 14:23:54" }, + "instance" : { + } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st deleted file mode 100644 index 8ff0ff41..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st +++ /dev/null @@ -1,7 +0,0 @@ -private -assert: aString next: anInteger startingAt: startIndex gives: anEncodedString - | actual | - actual := String streamContents: [ :stream | - ((GRCodec forEncoding: 'utf-8') encoderFor: stream) - greaseNext: anInteger putAll: aString startingAt: startIndex ]. - self assert: actual = anEncodedString \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st deleted file mode 100644 index 622b446b..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st +++ /dev/null @@ -1,7 +0,0 @@ -private -assertEncodingIgnoresLanguageTat: aStringWithLanguageTag - | codec withLanguageTag withoutLanguageTag | - codec := GRCodec forEncoding: 'utf-8'. - withLanguageTag := codec encode: aStringWithLanguageTag. - withoutLanguageTag := codec encode: (self stripLeadingCharFrom: aStringWithLanguageTag). - self assert: withLanguageTag = withoutLanguageTag \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st deleted file mode 100644 index 8f85d506..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -private -stripLeadingCharFrom: aString - "strips the leadingChar from every character in the given string" - ^ String streamContents: [ :stream | - aString do: [ :each | - stream nextPut: (Character - leadingChar: 0 - code: each greaseInteger) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st deleted file mode 100644 index 3922305f..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testAllCodesIncludesIso88591 - self assert: (GRCodec allCodecs anySatisfy: [ :each | - each name = 'iso-8859-1' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st deleted file mode 100644 index dba72236..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testGreaseNextPutAllStartingAt - | umlaut encodedUmlaut | - umlaut := String with: (Character codePoint: 228). - encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164). - self assert: 'ab' next: 1 startingAt: 1 gives: 'a'. - self assert: 'a', umlaut, 'b' next: 1 startingAt: 1 gives: 'a'. - self assert: 'ab', umlaut next: 1 startingAt: 1 gives: 'a'. - self assert: 'a', umlaut, 'b' next: 2 startingAt: 1gives: 'a', encodedUmlaut. - self assert: 'a', umlaut, 'b' next: 1 startingAt: 2 gives: encodedUmlaut. - self assert: 'a', umlaut, 'b' next: 2 startingAt: 2 gives: encodedUmlaut, 'b'. - self assert: 'a', umlaut, umlaut next: 2 startingAt: 2 gives: encodedUmlaut, encodedUmlaut. - self assert: 'ab', umlaut, 'b', umlaut next: 3 startingAt: 2 gives: 'b', encodedUmlaut, 'b' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st deleted file mode 100644 index 57a2a02c..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testLanguageTag - "this makes sure the encoder doesn't fall on the nose with unicode" - "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" - | leading hiraA hiraO hiraAO | - leading := (Smalltalk classNamed: #JapaneseEnvironment) leadingChar. - hiraA := (Character - leadingChar: leading - code: 12354) greaseString. "HIRAGANA LETTER A" - hiraO := (Character - leadingChar: leading - code: 12362) greaseString. "HIRAGANA LETTER O" - hiraAO := hiraA , hiraO. - self assertEncodingIgnoresLanguageTat: hiraA. - self assertEncodingIgnoresLanguageTat: hiraO. - self assertEncodingIgnoresLanguageTat: hiraAO \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/properties.json deleted file mode 100644 index 8248e999..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/expectedFailures.st deleted file mode 100644 index 197de855..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -expectedFailures - ^ #(testFromStringThreeDigit) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testAllColors.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testAllColors.st deleted file mode 100644 index b483e1a5..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testAllColors.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testAllColors - | toTest | - toTest := #( - 16r000000 16r000001 16r000101 16r010101 16r010100 16r010000 16r001001 16r101001 - 16r001122 16r334455 16r667788 16r99AABB 16rCCDDEE 16rFF0011 - 16r123456 16r789ABC 16rDEFEDC - 16rFEFEEF 16rFEFEFF 16rFEFEFE 16rFFFEFE 16rFFFFFE 16rFFFFFF). - toTest do: [ :int | - | hex | - hex := int printPaddedWith: $0 to: 6 base: 16. - self assert: (Color fromString: hex) asHTMLColor asLowercase = ('#', hex) asLowercase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st deleted file mode 100644 index fcb5dcbb..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st +++ /dev/null @@ -1,19 +0,0 @@ -testing -testColorAsHtmlColor - "test for: - Color >> #hex - | aStream | - aStream := (String new: 6) writeStream. - aStream nextPutAll: (((self red * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - aStream nextPutAll: (((self green * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - aStream nextPutAll: (((self blue * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - ^ aStream contents - - Color >> #asHTMLColor - ^ '#', self hex" - self assert: (#('#ffffff' '#FFFFFF' ) includes: Color white asHTMLColor). - self assert: (Color black asHTMLColor = '#000000'). - self assert: (#('#ff0000' '#FF0000' ) includes: Color red asHTMLColor) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st deleted file mode 100644 index 639a183a..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromSixDigit - self assert: (Color fromString: 'ff0000') = Color red. - self assert: (Color fromString: 'FF0000') = Color red. - self assert: (Color fromString: '#ff0000') = Color red. - self assert: (Color fromString: '#FF0000') = Color red diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringName.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringName.st deleted file mode 100644 index 821c945e..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringName.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringName - self assert: (Color fromString: 'red') = Color red. - self assert: (Color fromString: 'RED') = Color red. - self assert: (Color fromString: '#red') = Color red. - self assert: (Color fromString: '#RED') = Color red diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st deleted file mode 100644 index e9b720fc..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringSixDigit - self assert: (Color fromString: 'ff0000') = Color red. - self assert: (Color fromString: 'FF0000') = Color red. - self assert: (Color fromString: '#ff0000') = Color red. - self assert: (Color fromString: '#FF0000') = Color red diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st deleted file mode 100644 index 3ae0aeac..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringThreeDigit - self assert: (Color fromString: 'f00') = Color red. - self assert: (Color fromString: 'F00') = Color red. - self assert: (Color fromString: '#f00') = Color red. - self assert: (Color fromString: '#F00') = Color red \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/properties.json deleted file mode 100644 index 6b7f9b22..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoColorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoColorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st deleted file mode 100644 index 28ee8c57..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testNoAmbiguities - #('utf-8' 'UTF-8' 'utf8') do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ]. - GRPharoLatin1Codec supportedEncodingNames do: [ :each | - self deny: (GRPharoGenericCodec supportsEncoding: each) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/properties.json deleted file mode 100644 index 27838258..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoGenericCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoGenericCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 9af1697f..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testCompileIntoClassified - | source protocol selectors selector | - source := 'aMethod - ^ ''a result'''. - protocol := 'a-protocol'. - selector := #aMethod. - GRPlatform current - compile: source - into: self class - classified: protocol. - - [ self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. - self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelectorSilently: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testFullName.st deleted file mode 100644 index 18bfc31b..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testFullName.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testFullName - self assert: Object fullName = 'Object' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st deleted file mode 100644 index b62275e7..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testGreaseIntegerOnCharacter - | character | - character := Character codePoint: 19982. - self assert: character greaseInteger = 19982. - character := Unicode value: 19982. - self assert: character greaseInteger = 19982. - LanguageEnvironment allSubclassesDo: [ :each | - (each class selectors includes: #leadingChar) ifTrue: [ - "fuck me gently with a chainsaw" - character := Character - leadingChar: each leadingChar - code: 19982. - self assert: character greaseInteger = 19982 ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st deleted file mode 100644 index 1f1bb911..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,33 +0,0 @@ -tests -testMessageSendValueWithPossibleArguments - | send | - send := MessageSend receiver: 1 selector: #+. - self assert: (send valueWithPossibleArguments: (Array with: 2)) = 3. - self assert: (send valueWithArguments: (Array with: 2)) = 3. - self assert: (send value: 2) = 3. - - send := MessageSend receiver: false selector: #not. - self assert: (send valueWithPossibleArguments: (Array with: 3)). - - send := MessageSend receiver: 1 selector: #+ arguments: #(2). - self assert: (send valueWithPossibleArguments: (Array with: 4)) = 3. - self assert: send value = 3. - - send := MessageSend receiver: Array selector: #with:with: arguments: #(1). - self assert: (send valueWithPossibleArguments: (Array with: 2)) size = 2. - - send := MessageSend receiver: Array selector: #with:with:. - self assert: (send value: 1 value: 2) size = 2. - - send := MessageSend - receiver: 1 - selector: #+. - self assert: send argumentCount = 1. - self assert: send arguments size = 0. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1 diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st deleted file mode 100644 index d9e95032..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderBinary - self writeToFile: #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st deleted file mode 100644 index 0d513815..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderText - self writeToFile: 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st deleted file mode 100644 index f773658a..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st +++ /dev/null @@ -1,11 +0,0 @@ -private -writeToFile: aStringOrByteArray - | fileName directory | - fileName := 'GRPharoPlatformTest'. - directory := FileDirectory default. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory pathName - ] ensure: [ - directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/properties.json deleted file mode 100644 index 560daf9e..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPharoPlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoPlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st new file mode 100644 index 00000000..eb2b6468 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st @@ -0,0 +1,12 @@ +*grease-tests-squeak6-core +writeToFile: aStringOrByteArray withFileNameDo: aBlock + | fileName directory | + fileName := 'GRSqueakPlatformTest'. + directory := FileDirectory default. + [ GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName, GRPlatform current pathSeparator, fileName + ] ensure: [ + directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json new file mode 100644 index 00000000..49ab0fa0 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "testScaledDecimalGreaseString" : " 7/15/2024 14:23:54", + "writeToFile:withFileNameDo:" : "pmm 7/15/2024 14:30" } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json new file mode 100644 index 00000000..5f8002a6 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "testScaledDecimalPrinter" : " 7/15/2024 14:23:54" } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assert.next.startingAt.gives..st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assert.next.startingAt.gives..st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/stripLeadingCharFrom..st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/stripLeadingCharFrom..st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testAllCodesIncludesIso88591.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testAllCodesIncludesIso88591.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testGreaseNextPutAllStartingAt.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testGreaseNextPutAllStartingAt.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testLanguageTag.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testLanguageTag.st diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json new file mode 100644 index 00000000..9b72396b --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRSqueakCodecTest", + "pools" : [ + ], + "super" : "TestCase", + "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/expectedFailures.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/expectedFailures.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/expectedFailures.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testAllColors.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testAllColors.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testAllColors.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testAllColors.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testColorAsHtmlColor.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testColorAsHtmlColor.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromSixDigit.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromSixDigit.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringName.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringName.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringName.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringName.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringSixDigit.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringSixDigit.st diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringThreeDigit.st similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringThreeDigit.st diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json new file mode 100644 index 00000000..3b3b1ed2 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRSqueakColorTest", + "pools" : [ + ], + "super" : "TestCase", + "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st new file mode 100644 index 00000000..de47bc4c --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st @@ -0,0 +1,6 @@ +tests +testNoAmbiguities + #('utf-8' 'UTF-8' 'utf8') do: [ :each | + self deny: (GRSqueakGenericCodec supportsEncoding: each) ]. + GRSqueakLatin1Codec supportedEncodingNames do: [ :each | + self deny: (GRSqueakGenericCodec supportsEncoding: each) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json new file mode 100644 index 00000000..ac8b2c1c --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRSqueakGenericCodecTest", + "pools" : [ + ], + "super" : "TestCase", + "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st new file mode 100644 index 00000000..e43f8e40 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st @@ -0,0 +1,10 @@ +tests +testDeprecationExceptionSet + | value | + value := [ + "intentially send Squeak instead of Grease deprecation message" + self deprecated: 'test'. + 'failed' ] + on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet + do: [ :e | 'passed' ]. + self assert: value = 'passed' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st new file mode 100644 index 00000000..0195f248 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st @@ -0,0 +1,3 @@ +tests +testWriteToFileInFolderBinary + self writeToFile: #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st diff --git a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json new file mode 100644 index 00000000..f126228b --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRSqueakPlatformTest", + "pools" : [ + ], + "super" : "TestCase", + "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json new file mode 100644 index 00000000..2da0499d --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "expectedFailures" : " 7/15/2024 14:23:54" } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version new file mode 100644 index 00000000..c39cd75e --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version @@ -0,0 +1 @@ +(name 'Grease-Tests-Squeak6-Core-pmm.2' message 'migrate from FileSystem to FileDirectory' id '40a694dc-fd36-4eb0-8f1b-d8cf16a284b7' date '16 July 2024' time '9:17:38.293269 pm' author 'pmm' ancestors ((name 'Grease-Tests-Squeak6-Core-cypress.1' message 'fabricated from a Cypress format repository' id 'afd2d406-4bbd-45d0-aca3-6af0f80eb7d8' date '15 July 2024' time '2:23:54.178963 pm' author '' ancestors () stepChildren ())) stepChildren ()) \ No newline at end of file