diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml new file mode 100644 index 00000000..6c147ada --- /dev/null +++ b/.github/workflows/ci.yml @@ -0,0 +1,37 @@ +name: smalltalkCI + +on: + push: + pull_request: + schedule: + - cron: "5 0 * * 1" # At 00:05 on Monday. + +jobs: + test: + runs-on: ubuntu-latest + strategy: + fail-fast: false + matrix: + 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: Pharo64-14 + experimental: true + continue-on-error: ${{ matrix.experimental }} + name: ${{ matrix.smalltalk }} + steps: + - uses: actions/checkout@v4 + - uses: hpi-swa/setup-smalltalkCI@v1 + with: + smalltalk-image: ${{ matrix.smalltalk }} + - name: Run tests + run: smalltalkci -s ${{ matrix.smalltalk }} + env: + GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }} + shell: bash + timeout-minutes: 20 + - name: Upload coverage to Codecov + uses: codecov/codecov-action@v4 + with: + name: ${{ matrix.smalltalk }} + token: ${{ secrets.CODECOV_TOKEN }} diff --git a/.pharo4.ston b/.pharo4.ston deleted file mode 100644 index ef69df2c..00000000 --- a/.pharo4.ston +++ /dev/null @@ -1,12 +0,0 @@ -SmalltalkCISpec { - #loading : [ - SCIMetacelloLoadSpec { - #useLatestMetacello : true, - #baseline : 'Grease', - #directory : 'repository', - #load : [ 'Tests' ], - #useLatestMetacello : true, - #platforms : [ #pharo ] - } - ] -} diff --git a/.smalltalk.ston b/.smalltalk.ston index 2a01693a..e62640ac 100644 --- a/.smalltalk.ston +++ b/.smalltalk.ston @@ -18,8 +18,17 @@ SmalltalkCISpec { #directory : 'repository', #onWarningLog : true, #load : [ 'Tests' ], - #useLatestMetacello : true, #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 0c8e4f4d..00000000 --- a/.travis.yml +++ /dev/null @@ -1,44 +0,0 @@ -language: smalltalk -sudo: false - -aliases: - - &pharo4-has-latest-metacello - smalltalk_config: .pharo4.ston - -matrix: - allow_failures: - - smalltalk: Squeak-trunk - - smalltalk: Squeak-5.1 - - include: - - 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: Pharo-5.0 - env: BUILD_NAME=Pharo-5.0 - - smalltalk: Pharo-4.0 - <<: *pharo4-has-latest-metacello - env: BUILD_NAME=Pharo-4.0 - - smalltalk: Squeak-trunk - env: BUILD_NAME=Squeak-trunk - - smalltalk: Squeak-5.2 - env: BUILD_NAME=Squeak-5.2 - - smalltalk: Squeak-5.1 - env: BUILD_NAME=Squeak-5.1 - - smalltalk: GemStone-3.5.0 - env: BUILD_NAME=GemStone-3.5.0 - - smalltalk: GemStone-3.4.3 - env: BUILD_NAME=GemStone-3.4.3 - - 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 - - smalltalk: GemStone-2.4.8 - env: BUILD_NAME=GemStone-2.4.8 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 f2c5f5d4..c9d2d025 100644 --- a/README.md +++ b/README.md @@ -14,28 +14,17 @@ 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-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.5.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.5.0&label=3.5.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-6.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-6.1&label=6.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.4.3](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.4.3&label=3.4.3)](http://travis-ci.org/SeasideSt/Grease) | -| | [![Build status: Pharo-5.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-5.0&label=5.0)](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: Pharo-4.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-4.0&label=4.0)](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) | -| | | [![Build status: Gemstone-2.4.8](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-2.4.8&label=2.4.8)](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 #### Prerequisite on Squeak -Make sure you have the [MetacelloPreview version](https://github.com/dalehenrich/metacello-work), otherwise the load will not work. +Make sure you have the [MetacelloPreview version](https://github.com/Metacello/metacello), otherwise the load will not work. -### Squeak and Pharo (4.0 or newer) +### Squeak and Pharo (6.0 or newer) Load the latest code from master (i.e. stable): @@ -80,9 +69,11 @@ Gofer new (Smalltalk at: #GsUpgrader) upgradeGrease. ``` -### Pharo (3.0 or older) +### Pharo (5.0 or older) -The compatibility for Pharo < 4.0 is not maintained for new releases. If you need grease in Pharo < 4, we recommend to either update your pharo version or reference the latest release compatible with Pharo < 4, which is currently v1.4.1. +The compatibility for Pharo < 6.0 is not maintained for new releases. If you need grease in Pharo < 6, we recommend to either update your pharo version or reference the latest release compatible with your version of Pharo: +- Pharo <4: v1.4.1 +- Pharo 5 & 6: v1.6.1 For Pharo versions < 3.0, make sure you have the [MetacelloPreview version](https://github.com/dalehenrich/metacello-work), otherwise the load will not work. @@ -106,4 +97,4 @@ Metacello new load ``` -In case you need a specific feature for Pharo 3, it is still possible to create a new release by branching from v1.4.1. +In case you need a specific feature for an older version, it is still possible to create a new release by branching starting from the tagged commit of the compatible version. diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st index 737970d7..bae4a809 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st @@ -1,4 +1,4 @@ -baseline +baselines baseline: spec diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st index 27dff798..96f20ec0 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st @@ -1,5 +1,6 @@ -baseline +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 8e654e74..85554409 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st @@ -1,5 +1,6 @@ -baseline +baselines baselineGemStone: spec + spec for: #'gemstone' do: [ @@ -34,15 +35,13 @@ baselineGemStone: spec package: 'Grease-Tests-Core' with: [ spec - requires: #('Grease-GemStone-Core'); - includes: #('Grease-Tests-GemStone-Core') ]; + requires: #('Grease-GemStone-Core') ]; package: 'Grease-GemStone-Core' with: [ spec requires: - #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ]; - package: 'Grease-Tests-GemStone-Core' - with: [ spec requires: #('Grease-Tests-Core') ] ]. + #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ] ]. + spec for: #'gs2.x' do: [ @@ -79,7 +78,7 @@ baselineGemStone: spec requires: #('Grease-GemStone-Core'); postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. spec - for: #(#'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x') + for: #(#'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') do: [ spec package: 'Grease-GemStone-Core' @@ -89,9 +88,50 @@ baselineGemStone: spec spec requires: #('Grease-GemStone-Core'); postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. + + spec for: #(#'gs2.x' #'gs3.0.x' #'gs3.1.x') + do:[ + spec + package: 'Grease-Tests-GemStone-Core' + with:[ spec requires: 'Grease-Tests-Core' ]; + package: 'Grease-Tests-Core' + with: [ spec includes: 'Grease-Tests-GemStone-Core' ] ]. + spec - for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.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-Tests-GemStone-Core' - with: [ spec file: 'Grease-Tests-GemStone-Core.v32' ] ] \ No newline at end of file + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv354') ]; + package: 'Grease-GemStone-Kernelv354' + with: [ + spec + requires: #('Grease-GemStone-Core') ] ]. + spec + for: #( #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv360') ]; + package: 'Grease-GemStone-Kernelv360' + 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: [ + spec + package: 'Grease-Tests-GemStone32-Core' + with:[ spec requires: 'Grease-Tests-Core' ]; + package: 'Grease-Tests-Core' + with: [ spec includes: 'Grease-Tests-GemStone32-Core' ] ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st index 5bdb3561..7ac453b2 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st @@ -1,27 +1,11 @@ baselines baselinePharo: spec - spec - for: #pharo - do: [ spec - package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Pharo40-Slime' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo40-Slime') ]. - spec - group: 'Slime' with: #('Grease-Pharo40-Slime'); - group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. - spec - for: #(#'pharo4.x' #'pharo5.x') - do: [ spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo30-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 package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo60-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; package: 'Grease-Tests-Core' with: [ spec requires: #('Grease-Pharo60-Core'); @@ -29,11 +13,61 @@ baselinePharo: spec package: 'Grease-Pharo60-Core' with: [ spec requires: #('Grease-Core') ] ]. spec - for: #(#'pharo7.x' #'pharo8.x' #'pharo9.x') + for: #(#'pharo7.x' #'pharo8.x') do: [ spec package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo70-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; package: 'Grease-Tests-Core' with: [ spec requires: #('Grease-Pharo70-Core'); includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo70-Core' with: [ spec requires: #('Grease-Core') ] ] \ No newline at end of file + package: 'Grease-Pharo70-Core' with: [ spec requires: #('Grease-Core') ] ]. + + spec + for: #(#'pharo6.x' #'pharo7.x' #'pharo8.x') + do: [ + spec + package: 'Grease-Pharo40-Slime' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo40-Slime') ]. + spec + group: 'Slime' with: #('Grease-Pharo40-Slime'); + group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. + + spec + 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') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo90-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo90-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ]. + + spec + group: 'Slime' with: #('Grease-Pharo90-Slime'); + 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 4c106e4b..90104daa 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st @@ -1,35 +1,5 @@ -baseline +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/BaselineOfGrease.class/instance/projectClass.st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st index 28bd1a55..1d4f6564 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st @@ -1,4 +1,4 @@ accessing projectClass Smalltalk at: #'MetacelloCypressBaselineProject' ifPresent: [ :cl | ^ cl ]. - ^ super projectClass + ^ super projectClass \ 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-Core.package/Collection.extension/properties.json b/repository/Grease-Core.package/Collection.extension/properties.json new file mode 100644 index 00000000..48f9f8d9 --- /dev/null +++ b/repository/Grease-Core.package/Collection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Collection" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/codecs.st b/repository/Grease-Core.package/GRCodec.class/class/codecs.st index 1c395166..6a776efc 100644 --- a/repository/Grease-Core.package/GRCodec.class/class/codecs.st +++ b/repository/Grease-Core.package/GRCodec.class/class/codecs.st @@ -1,5 +1,5 @@ accessing codecs - "Answer a collection of possible codecs of the receiver. To be overridden by concrete subclasses." + "Answer a collection of possible codecs of the receiver. To be overridden by concrete subclasses." - ^ #() \ No newline at end of file + ^ #() \ No newline at end of file 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/encode..st b/repository/Grease-Core.package/GRCodec.class/instance/encode..st index aa5baef3..1c4e697d 100644 --- a/repository/Grease-Core.package/GRCodec.class/instance/encode..st +++ b/repository/Grease-Core.package/GRCodec.class/instance/encode..st @@ -2,6 +2,6 @@ convenience encode: aString | writeStream | writeStream := self encoderFor: (GRPlatform current - writeCharacterStreamOn: (String new: aString size)). + writeCharacterStreamOn: (self encodedStringClass new: aString size)). writeStream nextPutAll: aString. ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st b/repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..97aca951 --- /dev/null +++ b/repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ String \ 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/GRCountingStream.class/instance/nextPut..st b/repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st index ff277823..2a60f134 100644 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st +++ b/repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st @@ -1,5 +1,4 @@ streaming nextPut: aCharacter stream nextPut: aCharacter. - count := count + 1 - \ No newline at end of file + count := count + 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st b/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st index ba05ebf6..1ea34984 100644 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st +++ b/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st @@ -1,5 +1,4 @@ streaming nextPutAll: aString stream nextPutAll: aString. - count := count + aString size - \ No newline at end of file + count := count + aString size \ 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/GRNullCodecStream.class/properties.json b/repository/Grease-Core.package/GRNullCodecStream.class/properties.json index 7cb6efa1..c13ef53c 100644 --- a/repository/Grease-Core.package/GRNullCodecStream.class/properties.json +++ b/repository/Grease-Core.package/GRNullCodecStream.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "pmm 6/25/2012 20:21", + "commentStamp" : "pmm 2/20/2009 21:59", "super" : "GRCodecStream", "category" : "Grease-Core-Text", "classinstvars" : [ ], 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 624c1b61..0617a084 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st +++ b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st @@ -1,26 +1,30 @@ 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: [ - "try -Pharo20-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo20-') ifAbsent: [ - "try -Pharo30-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo30-') ifAbsent: [ - "try -Pharo40-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo40-') ifAbsent: [ - "try -Pharo50-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo50-') ifAbsent: [ - "try -Pharo60-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo60-') ifAbsent: [ - "try -Pharo70-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') 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 + (each indexOfSubCollection: '-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + "try -Pharo40-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo40-') ifAbsent: [ + "try -Pharo50-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo50-') ifAbsent: [ + "try -Pharo60-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo60-') ifAbsent: [ + "try -Pharo70-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') ifAbsent: [ + "try -Pharo90-" + 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 cb7b3e56..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 + 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 b35e040c..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,3 +1,6 @@ -file library +files fileStreamOn: aString do: aBlock binary: aBoolean - self subclassResponsibility \ No newline at end of file + 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 new file mode 100644 index 00000000..b43b743e --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st @@ -0,0 +1,3 @@ +files +readFileStreamOn: aString do: aBlock binary: aBoolean + 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 d1ef063a..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 lock like this. - + + 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 a11dc66e..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: 4 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 new file mode 100644 index 00000000..8bf94c9f --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -0,0 +1,3 @@ +files +writeFileStreamOn: aString do: aBlock binary: aBoolean + 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 4bd38c36..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,10 +14,10 @@ printOn: aStream ifFalse: [ aStream space ]. aStream print: key; - nextPutAll: '->'; + nextPutAll: '->'; print: value ] ] ifFalse: [ aStream nextPutAll: 'size '; print: self size ]. - aStream nextPut: $) \ No newline at end of file + aStream nextPut: $) \ No newline at end of file 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 4bd38c36..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,10 +14,10 @@ printOn: aStream ifFalse: [ aStream space ]. aStream print: key; - nextPutAll: '->'; + nextPutAll: '->'; print: value ] ] ifFalse: [ aStream nextPutAll: 'size '; print: self size ]. - aStream nextPut: $) \ No newline at end of file + aStream nextPut: $) \ No newline at end of file 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/GRVersion.class/instance/^less.st b/repository/Grease-Core.package/GRVersion.class/instance/^less.st index cb67510a..0f0d2853 100644 --- a/repository/Grease-Core.package/GRVersion.class/instance/^less.st +++ b/repository/Grease-Core.package/GRVersion.class/instance/^less.st @@ -10,6 +10,4 @@ comparing ^ ((stageNumber ifNil: [ 1 ]) < (otherVersion stageNumber ifNil: [ 1 ])) ]. stageLabel isNil ifTrue: [ ^ false ]. otherVersion stage isNil ifTrue: [ ^ true ]. - ^ stageLabel < otherVersion stage - - \ No newline at end of file + ^ stageLabel < otherVersion stage \ 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/fileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 31fd6fce..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,10 +0,0 @@ -file-library -fileStreamOn: aString do: aBlock binary: aBoolean - | stream dir file | - [ - file := GsFile openReadOnServer: aString. - [stream := RWBinaryOrTextStream on: file contents. - aBoolean - ifTrue: [ stream binary ] - ifFalse: [ stream ascii ]. - ^ aBlock value: stream ] ensure: [ stream close ]] ensure: [ file close ]. \ 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 new file mode 100644 index 00000000..09467ea7 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st @@ -0,0 +1,13 @@ +files +readFileStreamOn: aString do: aBlock binary: aBoolean + | stream dir file | + [ + file := GsFile openReadOnServer: aString. + [ + stream := RWBinaryOrTextStream on: file contents. + aBoolean + ifTrue: [ stream binary ] + ifFalse: [ stream ascii ]. + ^ aBlock value: stream ] + ensure: [ stream close ] ] + ensure: [ file close ] \ No newline at end of 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 44dc34ca..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: 1) sender sender \ No newline at end of file + ^ 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 a5de5279..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,12 +1,13 @@ -file-library +files write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - | folder stream fullFilePath | - fullFilePath := ServerFileDirectory default fullNameFor: aFolderString. - folder := ServerFileDirectory on: fullFilePath. - stream := folder forceNewFileNamed: aFileNameString. - stream := aStringOrByteArray isString - ifTrue: [ stream ascii ] - ifFalse: [ stream binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + + | folder fullFilePath | + fullFilePath := ServerFileDirectory default fullNameFor: aFolderString. + folder := ServerFileDirectory 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-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st new file mode 100644 index 00000000..99bfc2e1 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st @@ -0,0 +1,9 @@ +files +writeFileStreamOn: fileName do: aBlock binary: isBinary + | stream | + stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false. + stream := isBinary + ifTrue: [ stream binary ] + ifFalse: [ stream ascii ]. + [ aBlock value: stream ] + ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json index f9eb4680..7ca29622 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json +++ b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json @@ -1,8 +1,7 @@ { "category" : "Grease-GemStone-Core", "classinstvars" : [ - "mutex", - "generator" ], + ], "classvars" : [ ], "commentStamp" : "", diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st new file mode 100644 index 00000000..444b99e4 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st new file mode 100644 index 00000000..444b99e4 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st new file mode 100644 index 00000000..4ca86721 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st @@ -0,0 +1,3 @@ +accessing +namedTempAt: index + ^ self tempAt: index \ No newline at end of file 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/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-GemStone-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..7859a58a --- /dev/null +++ b/repository/Grease-GemStone-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*grease-gemstone-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json b/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..565e67b0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Symbol" } 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-GemStone-Kernelv354.package/Class.extension/instance/comment.st b/repository/Grease-GemStone-Kernelv354.package/Class.extension/instance/comment.st new file mode 100644 index 00000000..ddd31e16 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv354.package/Class.extension/instance/comment.st @@ -0,0 +1,9 @@ +*grease-gemstone-kernelv354 +comment + "override new 3.5.4 comment implementation (answers default GemStone class comment for + class instead of nil) and restore pre-3.5.4 behavior (answer '' if no comment + defined)" + + "https://github.com/SeasideSt/Grease/issues/111" + + ^ self commentForFileout ifNil: [ '' ] diff --git a/repository/Grease-GemStone-Kernelv354.package/Class.extension/properties.json b/repository/Grease-GemStone-Kernelv354.package/Class.extension/properties.json new file mode 100644 index 00000000..239813a4 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv354.package/Class.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Class" } diff --git a/repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st b/repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st new file mode 100644 index 00000000..6f7cec18 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st @@ -0,0 +1,9 @@ +*grease-gemstone-kernelv360 +comment + "override new 3.6.0 comment implementation (answers default GemStone class comment for + class instead of nil) and restore pre-3.6.0 behavior (answer '' if no comment + defined)" + + "https://github.com/SeasideSt/Grease/issues/111" + + ^ self commentForFileout ifNil: [ '' ] diff --git a/repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json b/repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json new file mode 100644 index 00000000..239813a4 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Class" } diff --git a/repository/Grease-GemStone-Kernelv360.package/Exception.extension/instance/messageText.st b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/instance/messageText.st new file mode 100644 index 00000000..8cd04ca0 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/instance/messageText.st @@ -0,0 +1,5 @@ +*grease-gemstone-kernelv360 +messageText + "override new 3.6.0 messageText implementation to restore pre-3.6.0 behavior" + "https://github.com/SeasideSt/Grease/issues/111" + ^ gsDetails diff --git a/repository/Grease-GemStone-Kernelv360.package/Exception.extension/properties.json b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/properties.json new file mode 100644 index 00000000..6dcfd842 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Exception" } diff --git a/repository/Grease-Pharo30-Core.package/.filetree b/repository/Grease-GemStone-Kernelv370.package/.filetree similarity index 100% rename from repository/Grease-Pharo30-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-Pharo30-Core.package/properties.json b/repository/Grease-GemStone-Kernelv370.package/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/properties.json rename to repository/Grease-GemStone-Kernelv370.package/properties.json diff --git a/repository/Grease-Pharo100-Core.package/.filetree b/repository/Grease-Pharo100-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st new file mode 100644 index 00000000..5ccb78b4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +fullName + "In VW, will include the namespace" + + ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json new file mode 100644 index 00000000..c4116c4c --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Behavior" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..916023ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,11 @@ +*Grease-Pharo100-Core +valueWithPossibleArguments: anArray + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json new file mode 100644 index 00000000..2190e5e2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BlockClosure" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st new file mode 100644 index 00000000..cf96e73f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*Grease-Pharo100-Core +greaseString + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json new file mode 100644 index 00000000..f81bcb8d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ByteArray" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st new file mode 100644 index 00000000..90558d5a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st @@ -0,0 +1,4 @@ +*Grease-Pharo100-Core +greaseInteger + "Answer an unicode code point of the receiver." + ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Character.extension/properties.json b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json new file mode 100644 index 00000000..5219281d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Character" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..544e14eb --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +any + ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json new file mode 100644 index 00000000..48f9f8d9 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Collection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st new file mode 100644 index 00000000..34cc7fbd --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +asHTMLColor + ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Color.extension/properties.json b/repository/Grease-Pharo100-Core.package/Color.extension/properties.json new file mode 100644 index 00000000..8b86fc95 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Color.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Color" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st new file mode 100644 index 00000000..f5c51190 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds: anInteger + ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st new file mode 100644 index 00000000..043bbad2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +asMilliseconds + ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st new file mode 100644 index 00000000..215916e7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds + ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json new file mode 100644 index 00000000..d141a092 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Duration" +} \ No newline at end of file diff --git a/repository/Grease-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-Pharo100-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json new file mode 100644 index 00000000..ae522a7e --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-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-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st similarity index 99% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st index 9d90824d..eb03a167 100644 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st @@ -3,8 +3,8 @@ 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-Squeak-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.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-Squeak5-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRDynamicVariable.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-Pharo100-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json new file mode 100644 index 00000000..0d78b749 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..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-Pharo100-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json new file mode 100644 index 00000000..534eb553 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Interval" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/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-Pharo100-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json new file mode 100644 index 00000000..00669b90 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "MessageSend" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..fb4e6ce5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds + ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/properties.json b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json new file mode 100644 index 00000000..71dace88 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Number" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..f23889b4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/properties.json b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json new file mode 100644 index 00000000..f30a86e1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st new file mode 100644 index 00000000..1cded0cc --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st @@ -0,0 +1,13 @@ +*Grease-Pharo100-Core +greaseString + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/properties.json b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json new file mode 100644 index 00000000..c6cf8dd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Point" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..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-Pharo100-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json new file mode 100644 index 00000000..8e090ee3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "PositionableStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..90680805 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +encodeOn: aDocument + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..10a8dc02 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseString + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json new file mode 100644 index 00000000..75f85f87 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ScaledDecimal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st new file mode 100644 index 00000000..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-Pharo100-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json new file mode 100644 index 00000000..a68b7db6 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SequenceableCollection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/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-Pharo100-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json new file mode 100644 index 00000000..797e09e5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SocketStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..365aad78 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..8c6bce81 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Symbol" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..4059a121 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,4 @@ +*Grease-Pharo100-Core +greaseNext: anInteger putAll: aCollection startingAt: startIndex + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json new file mode 100644 index 00000000..8688e80d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "WriteStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..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-Pharo100-Core.package/properties.json b/repository/Grease-Pharo100-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-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-Squeak5-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.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/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-Squeak5-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.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/GRSqueakPlatform.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRSqueakPlatform.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-Squeak6-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/README.md similarity index 100% rename from repository/Grease-Squeak6-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-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.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-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/README.md similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.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-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/README.md similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.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-GemStone-Core.v32.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/README.md similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.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-Squeak-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-Squeak-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-Tests-Squeak5-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.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/GRUsesCanPerformOrUnderstandRule.class/README.md 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/BlockClosure.extension/properties.json b/repository/Grease-Pharo30-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 1d6f4884..00000000 --- a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockClosure" } 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/ByteArray.extension/properties.json b/repository/Grease-Pharo30-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index 191a2eca..00000000 --- a/repository/Grease-Pharo30-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ByteArray" } 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/Character.extension/properties.json b/repository/Grease-Pharo30-Core.package/Character.extension/properties.json deleted file mode 100644 index 7532e33e..00000000 --- a/repository/Grease-Pharo30-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Character" } 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/Collection.extension/properties.json b/repository/Grease-Pharo30-Core.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc32..00000000 --- a/repository/Grease-Pharo30-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } 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/Duration.extension/properties.json b/repository/Grease-Pharo30-Core.package/Duration.extension/properties.json deleted file mode 100644 index 512e0f01..00000000 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Duration" } 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 472cde09..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRDelegatingStream" } 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 7b6fc0ac..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "MaxLeske 5/16/2017 22:05", - "instvars" : [ - ], - "name" : "GRDynamicVariable", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } 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/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index efca49f1..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 6/25/2012 20:22", - "instvars" : [ - "converter" ], - "name" : "GRPharoConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } 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/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index 14c5a4b9..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRPharoGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } 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 714d4881..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRPharoLatin1Codec", - "pools" : [ - ], - "super" : "GRNullCodec", - "type" : "normal" } 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 51130d3b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoLatin1CodecStream", - "pools" : [ - ], - "super" : "GRNullCodecStream", - "type" : "normal" } 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/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/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 ba276215..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - "UrlTable", - "XmlTable" ], - "commentStamp" : "pmm 6/1/2008 01:03", - "instvars" : [ - ], - "name" : "GRPharoPlatform", - "pools" : [ - ], - "super" : "GRPlatform", - "type" : "normal" } 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 984c9b1b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - "mutex", - "generator" ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoRandomProvider", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } 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 4a68e646..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRPharoUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } 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 351d9b0c..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo30-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-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/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 943ee5f4..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRSmallDictionary" } 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 09048295..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/25/2011 18:30", - "instvars" : [ - ], - "name" : "GRWorkingWriteStream", - "pools" : [ - ], - "super" : "WriteStream", - "type" : "normal" } 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/Interval.extension/properties.json b/repository/Grease-Pharo30-Core.package/Interval.extension/properties.json deleted file mode 100644 index d468cd35..00000000 --- a/repository/Grease-Pharo30-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Interval" } 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/MessageSend.extension/properties.json b/repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 66fcc3c1..00000000 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MessageSend" } 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/Number.extension/properties.json b/repository/Grease-Pharo30-Core.package/Number.extension/properties.json deleted file mode 100644 index 1d2c94d4..00000000 --- a/repository/Grease-Pharo30-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Number" } 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/Object.extension/properties.json b/repository/Grease-Pharo30-Core.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec4..00000000 --- a/repository/Grease-Pharo30-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } 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/Point.extension/properties.json b/repository/Grease-Pharo30-Core.package/Point.extension/properties.json deleted file mode 100644 index 3ae71f02..00000000 --- a/repository/Grease-Pharo30-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Point" } 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/PositionableStream.extension/properties.json b/repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 9e1697a6..00000000 --- a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PositionableStream" } 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/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 6e425dda..00000000 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ScaledDecimal" } 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/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } 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/SocketStream.extension/properties.json b/repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 4800d84e..00000000 --- a/repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SocketStream" } 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 1d6e9ee2..00000000 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "TBehavior" } 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/WriteStream.extension/properties.json b/repository/Grease-Pharo30-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 239b3632..00000000 --- a/repository/Grease-Pharo30-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "WriteStream" } 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-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..c0d4ba74 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*grease-pharo60-core +greaseAsMutator + ^ self asMutator \ 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/contentsOfFile.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st index 119ba39b..3c95a9de 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,5 @@ file library contentsOfFile: aString binary: aBoolean - ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file + ^ aBoolean + ifTrue:[ self fileStreamOn: aString do: [ :stream | stream contents ifNil:[ ByteArray new ] ] binary: aBoolean ] + ifFalse:[ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean ] \ 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/fileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Pharo70-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-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 new file mode 100644 index 00000000..22443227 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -0,0 +1,7 @@ +file library +readFileStreamOn: aString do: aBlock binary: aBoolean + "Line end conversion is no longer done for ascii... TBD!" + + ^ 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-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/write.toFile.inFolder..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st index e77ae8c1..77cf8f76 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st @@ -1,15 +1,8 @@ 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 + "TODO: wantsLineEndConversion: true; ??" + ^ 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-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st new file mode 100644 index 00000000..22cf6c64 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -0,0 +1,5 @@ +file library +writeFileStreamOn: aString do: aBlock binary: aBoolean + ^ aBoolean + ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: 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-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..287a21b8 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..8c6bce81 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Symbol" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/.filetree b/repository/Grease-Pharo90-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo90-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-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo90-Core.package/Behavior.extension/instance/fullName.st new file mode 100644 index 00000000..7868665b --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Behavior.extension/instance/fullName.st @@ -0,0 +1,5 @@ +*Grease-Pharo90-Core +fullName + "In VW, will include the namespace" + + ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json new file mode 100644 index 00000000..c4116c4c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Behavior" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..11c37059 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,11 @@ +*Grease-Pharo90-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-Pharo90-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo90-Core.package/BlockClosure.extension/properties.json new file mode 100644 index 00000000..2190e5e2 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/BlockClosure.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BlockClosure" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st new file mode 100644 index 00000000..eaca12f4 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*Grease-Pharo90-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-Pharo90-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo90-Core.package/ByteArray.extension/properties.json new file mode 100644 index 00000000..f81bcb8d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/ByteArray.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ByteArray" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st new file mode 100644 index 00000000..2b30e569 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st @@ -0,0 +1,4 @@ +*Grease-Pharo90-Core +greaseInteger + "Answer an unicode code point of the receiver." + ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Character.extension/properties.json b/repository/Grease-Pharo90-Core.package/Character.extension/properties.json new file mode 100644 index 00000000..5219281d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Character.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Character" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..77da6aff --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +any + ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo90-Core.package/Collection.extension/properties.json new file mode 100644 index 00000000..48f9f8d9 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Collection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Collection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st new file mode 100644 index 00000000..096e985a --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +asHTMLColor + ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Color.extension/properties.json b/repository/Grease-Pharo90-Core.package/Color.extension/properties.json new file mode 100644 index 00000000..8b86fc95 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Color.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Color" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st new file mode 100644 index 00000000..63cfe5db --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +milliseconds: anInteger + ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st new file mode 100644 index 00000000..c7a93f97 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +asMilliseconds + ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st new file mode 100644 index 00000000..a7808f55 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +milliseconds + ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo90-Core.package/Duration.extension/properties.json new file mode 100644 index 00000000..d141a092 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Duration.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Duration" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..b309c2df --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo90-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-Pharo90-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/properties.json new file mode 100644 index 00000000..5ec29ea0 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRDelegatingStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..3d7f6377 --- /dev/null +++ b/repository/Grease-Pharo90-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-Squeak5-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/class/use.during..st rename to repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st new file mode 100644 index 00000000..59cb6f1b --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st @@ -0,0 +1,3 @@ +accessing +default + ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json new file mode 100644 index 00000000..30171981 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "DynamicVariable", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRDynamicVariable", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st b/repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st new file mode 100644 index 00000000..d3a67df9 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo90-Core +greasePharo70Core + ^ self new + name: 'Grease-Pharo90-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json new file mode 100644 index 00000000..ae522a7e --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.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-Pharo90-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.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-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.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-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json new file mode 100644 index 00000000..85b80cc6 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "pmm 6/25/2012 20:22", + "super" : "GRCodecStream", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "converter" + ], + "name" : "GRPharoConverterCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st new file mode 100644 index 00000000..6e52e620 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st @@ -0,0 +1,5 @@ +accessing +codecs + ^ GRPlatform current utf8CodecClass == self + ifTrue:[ Array with: self new ] + ifFalse: [ Array new ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..cf74d916 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +testing +supportsEncoding: aString + ^ GRPlatform current utf8CodecClass == self and: [(#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st new file mode 100644 index 00000000..60eea74c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st @@ -0,0 +1,36 @@ +convenience +decode: aString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode stream | + stream := aString readStream. + outStream := WriteStream on: (String new: aString size). + [ stream atEnd not ] whileTrue: [ + byte1 := stream next asInteger. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63) ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next asInteger. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63) ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..9a221440 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,5 @@ +convenience +decoderFor: aStream + ^ GRPharoDeprecatedUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..97aca951 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ String \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..ad1614eb --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +convenience +encoderFor: aStream + ^ GRPharoDeprecatedUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st new file mode 100644 index 00000000..bf9b0111 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +convenience +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/url.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json new file mode 100644 index 00000000..e8fa7dfa --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoDeprecatedUtf8Codec", + "type" : "normal" +} \ 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/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.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-Pharo90-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/codecs.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/codecs.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/url.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/url.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/url.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json new file mode 100644 index 00000000..03988175 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name", + "urlCodec" + ], + "name" : "GRPharoGenericCodec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..bc591573 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st @@ -0,0 +1,4 @@ +private +supportsEncoding: aString + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st new file mode 100644 index 00000000..5f73b526 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st @@ -0,0 +1,5 @@ +conversion +decode: aStringOrByteArray + "Overridden for efficencey." + + ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/name.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json new file mode 100644 index 00000000..fd56786b --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodec", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name" + ], + "name" : "GRPharoLatin1Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st new file mode 100644 index 00000000..bf70df58 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st @@ -0,0 +1,3 @@ +streaming +next + ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json new file mode 100644 index 00000000..c839ca49 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodecStream", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoLatin1CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md new file mode 100644 index 00000000..f0375aac --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md @@ -0,0 +1 @@ +A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st new file mode 100644 index 00000000..c4ab1dea --- /dev/null +++ b/repository/Grease-Pharo90-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-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.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-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.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-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.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-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Decode..st new file mode 100644 index 00000000..3fb71b1a --- /dev/null +++ b/repository/Grease-Pharo90-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-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-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st 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 new file mode 100644 index 00000000..01aff905 --- /dev/null +++ b/repository/Grease-Pharo90-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-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 new file mode 100644 index 00000000..a6e6c3d1 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st new file mode 100644 index 00000000..9ea296ff --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st @@ -0,0 +1,3 @@ +private +doSilently: aBlock + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st new file mode 100644 index 00000000..ef505d70 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st new file mode 100644 index 00000000..e12b7927 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st new file mode 100644 index 00000000..230ea184 --- /dev/null +++ b/repository/Grease-Pharo90-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-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-Squeak5-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/label.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/label.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st new file mode 100644 index 00000000..64db9825 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newRandom.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newRandom.st 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/newline.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newline.st new file mode 100644 index 00000000..1219045d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newline.st @@ -0,0 +1,3 @@ +file library +newline + ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st new file mode 100644 index 00000000..305157e2 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st @@ -0,0 +1,18 @@ +exceptions +openDebuggerOn: anError + | process | + process := Processor activeProcess. + "If we are running in the UI process, we don't want to suspend the active process. The + error was presumably triggered while stepping in the Debugger. If we simply immediately + signal an UnhandledError, the debugger will catch this and display the signaling context. + It isn't perfect or pretty but it works." + (ProcessBrowser isUIProcess: process) + ifTrue: [ + UnhandledError signalForException: anError ] + ifFalse: [ + WorldState addDeferredUIMessage: [ + UIManager default + requestDebuggerOpeningForProcess: process + named: anError description + inContext: anError signalerContext ]. + process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st new file mode 100644 index 00000000..2da9f364 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st new file mode 100644 index 00000000..6324baf5 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st new file mode 100644 index 00000000..db9518ee --- /dev/null +++ b/repository/Grease-Pharo90-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-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st new file mode 100644 index 00000000..58137e33 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st new file mode 100644 index 00000000..76918209 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st new file mode 100644 index 00000000..92cbd7ff --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st @@ -0,0 +1,3 @@ +file library +removeSelector: aSymbol from: aClass + aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/secureHashFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st new file mode 100644 index 00000000..dc394f4f --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st @@ -0,0 +1,4 @@ +utf8 codec +setutf8CodectoDeprecatedTextConverter + "Set to the GRPharoDeprecatedUtf8Codec that uses the deprecated TextConverter for utf8 encoding" + utf8DeprecatedCodecFlag := true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st new file mode 100644 index 00000000..2f43e9ab --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st @@ -0,0 +1,4 @@ +utf8 codec +setutf8CodectoZinc + "Set to GRPharoUtf8Codec that uses Zinc for utf8 encoding" + utf8DeprecatedCodecFlag := false \ No newline at end of file diff --git a/repository/Grease-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 new file mode 100644 index 00000000..7b994393 --- /dev/null +++ b/repository/Grease-Pharo90-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-Squeak5-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/terminateProcess..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/terminateProcess..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/terminateProcess..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st new file mode 100644 index 00000000..97018fc5 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st new file mode 100644 index 00000000..71b0f2cf --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st @@ -0,0 +1,4 @@ +private-file library +useByteArrayLiterals + "whether ByteArray literals can/should be used" + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st new file mode 100644 index 00000000..86376f5c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st @@ -0,0 +1,8 @@ +utf8 codec +utf8CodecClass + + ^ utf8DeprecatedCodecFlag + ifNil: [ GRPharoUtf8Codec ] + ifNotNil: [ utf8DeprecatedCodecFlag + ifTrue:[ GRPharoDeprecatedUtf8Codec ] + ifFalse: [ GRPharoUtf8Codec ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st 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 new file mode 100644 index 00000000..6a1bd7a0 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st new file mode 100644 index 00000000..43d33949 --- /dev/null +++ b/repository/Grease-Pharo90-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-Pharo90-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/properties.json new file mode 100644 index 00000000..195fed5b --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/properties.json @@ -0,0 +1,16 @@ +{ + "commentStamp" : "pmm 6/1/2008 01:03", + "super" : "GRPlatform", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "UrlTable", + "XmlTable" + ], + "instvars" : [ + "utf8DeprecatedCodecFlag" + ], + "name" : "GRPharoPlatform", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/initialize.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/initialize.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/nextInt..st new file mode 100644 index 00000000..1036c2f7 --- /dev/null +++ b/repository/Grease-Pharo90-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-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st similarity index 79% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st index a33a6ac9..663a5243 100644 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st @@ -1,4 +1,4 @@ -initialization +class 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-Pharo90-Core.package/GRPharoRandomProvider.class/class/unload.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/unload.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json new file mode 100644 index 00000000..ad9c865d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRObject", + "category" : "Grease-Pharo90-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/README.md b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st new file mode 100644 index 00000000..6e52e620 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st @@ -0,0 +1,5 @@ +accessing +codecs + ^ GRPlatform current utf8CodecClass == self + ifTrue:[ Array with: self new ] + ifFalse: [ Array new ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..54e91f2e --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +private +supportsEncoding: aString + ^ GRPlatform current utf8CodecClass == self and: [ (#('utf-8' 'UTF-8' 'utf8') includes: aString) ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st new file mode 100644 index 00000000..e9869000 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -0,0 +1,3 @@ +convenience +decode: aStringOrByteArray + ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..0c2be49b --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,4 @@ +conversion +decoderFor: aStream + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st new file mode 100644 index 00000000..6e5de896 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st @@ -0,0 +1,3 @@ +conversion +encodedStringClass + ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..0e80cdaf --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,4 @@ +conversion +encoderFor: aStream + ^ GRPharoZnUtf8CodecStream + on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/url.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/url.st rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/url.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json new file mode 100644 index 00000000..7076077d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:51", + "super" : "GRCodec", + "category" : "Grease-Pharo90-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoUtf8Codec", + "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/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/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/properties.json new file mode 100644 index 00000000..0d78b749 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary" +} \ 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/Interval.extension/instance/any.st b/repository/Grease-Pharo90-Core.package/Interval.extension/instance/any.st new file mode 100644 index 00000000..eb927449 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Interval.extension/instance/any.st @@ -0,0 +1,6 @@ +*Grease-Pharo90-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-Pharo90-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo90-Core.package/Interval.extension/properties.json new file mode 100644 index 00000000..534eb553 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Interval.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Interval" +} \ 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/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/argumentCount.st new file mode 100644 index 00000000..026b36ca --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/argumentCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +argumentCount + ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..fce285bb --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,7 @@ +*Grease-Pharo90-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-Pharo90-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo90-Core.package/MessageSend.extension/properties.json new file mode 100644 index 00000000..00669b90 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/MessageSend.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "MessageSend" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..64fb2d91 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +milliseconds + ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Number.extension/properties.json b/repository/Grease-Pharo90-Core.package/Number.extension/properties.json new file mode 100644 index 00000000..71dace88 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Number.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Number" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..2c101b63 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Object.extension/properties.json b/repository/Grease-Pharo90-Core.package/Object.extension/properties.json new file mode 100644 index 00000000..f30a86e1 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Object.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st new file mode 100644 index 00000000..edb0278e --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st @@ -0,0 +1,13 @@ +*Grease-Pharo90-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-Pharo90-Core.package/Point.extension/properties.json b/repository/Grease-Pharo90-Core.package/Point.extension/properties.json new file mode 100644 index 00000000..c6cf8dd5 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Point.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Point" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..ccd50371 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -0,0 +1,5 @@ +*Grease-Pharo90-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-Pharo90-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/PositionableStream.extension/properties.json new file mode 100644 index 00000000..8e090ee3 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/PositionableStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "PositionableStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..96fb1174 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,5 @@ +*Grease-Pharo90-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-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..c2f03064 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*Grease-Pharo90-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-Pharo90-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/properties.json new file mode 100644 index 00000000..75f85f87 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ScaledDecimal" +} \ 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 new file mode 100644 index 00000000..290ebb62 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +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 new file mode 100644 index 00000000..72070fe2 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +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/properties.json b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/properties.json new file mode 100644 index 00000000..a68b7db6 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SequenceableCollection" +} \ 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-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..90f61e5f --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,13 @@ +*Grease-Pharo90-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-Pharo90-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/SocketStream.extension/properties.json new file mode 100644 index 00000000..797e09e5 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/SocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SocketStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..5bdc9f07 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*Grease-Pharo90-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..8c6bce81 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Symbol" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..167d1d13 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,4 @@ +*Grease-Pharo90-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-Pharo90-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/WriteStream.extension/properties.json new file mode 100644 index 00000000..8688e80d --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/WriteStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "WriteStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo90-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..f0069bbb --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Pharo90-Core'! diff --git a/repository/Grease-Pharo90-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo90-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Core.package/monticello.meta/package b/repository/Grease-Pharo90-Core.package/monticello.meta/package new file mode 100644 index 00000000..9b275a6c --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo90-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/properties.json b/repository/Grease-Pharo90-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/.filetree b/repository/Grease-Pharo90-Slime.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.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/GRAnsiBooleansRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st new file mode 100644 index 00000000..a39505e1 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st @@ -0,0 +1,18 @@ +initialization +initialize + super initialize. + self rewriteRule + 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-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st new file mode 100644 index 00000000..5964bd28 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Booleans' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st new file mode 100644 index 00000000..1f109f56 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ '#and:and: and #or:or: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json new file mode 100644 index 00000000..85e5b292 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiBooleansRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ 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 new file mode 100644 index 00000000..ce50f833 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st @@ -0,0 +1,13 @@ +initialization +initialize + super initialize. + self rewriteRule + replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; + 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 | + node receiver value isCharacter + and: [ node arguments first value isCharacter ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st new file mode 100644 index 00000000..a1b3f88e --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Characters' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st new file mode 100644 index 00000000..e061dd71 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json new file mode 100644 index 00000000..eecce1fa --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiCharactersRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ 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 new file mode 100644 index 00000000..00acba63 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st @@ -0,0 +1,30 @@ +initialization +initialize + super initialize. + self rewriteRule + 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-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st new file mode 100644 index 00000000..fba52990 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st new file mode 100644 index 00000000..8470c14b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +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-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json new file mode 100644 index 00000000..467f20f9 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiCollectionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st new file mode 100644 index 00000000..fe291c53 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st @@ -0,0 +1,16 @@ +initialization +initialize + super initialize. + self rewriteRule + 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-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st new file mode 100644 index 00000000..4693610d --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Conditionals' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st new file mode 100644 index 00000000..42b2134b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json new file mode 100644 index 00000000..98442b11 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiConditionalsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st new file mode 100644 index 00000000..bcd5fbac --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self rewriteRule + replace: '``@object asString' with: '``@object greaseString'; + replace: '``@object asInteger' with: '``@object greaseInteger' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st new file mode 100644 index 00000000..f3dd2a4d --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Convertors' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st new file mode 100644 index 00000000..fa9200b0 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'The ANSI standard does not support #asInteger and #asString on Object.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json new file mode 100644 index 00000000..8bd5e6cf --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiConvertorRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st new file mode 100644 index 00000000..f0aadb85 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self rewriteRule + 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-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st new file mode 100644 index 00000000..e86669e1 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Exceptions' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st new file mode 100644 index 00000000..392fdedd --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Exception handlers expect exactly one argument in ANSI.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json new file mode 100644 index 00000000..dfe03407 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiExceptionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st new file mode 100644 index 00000000..826e1af2 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st @@ -0,0 +1,12 @@ +initialization +initialize + super initialize. + self rewriteRule + 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-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st new file mode 100644 index 00000000..aa09ac20 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Streams' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st new file mode 100644 index 00000000..57a15ba8 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ '#cr and #lf are not part of the ANSI stream protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json new file mode 100644 index 00000000..9bb495b2 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiStreamsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st new file mode 100644 index 00000000..011762ad --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st new file mode 100644 index 00000000..1256fabc --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st @@ -0,0 +1,24 @@ +initialization +initialize + super initialize. + self rewriteRule + 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' withValueFrom: [ :node | + | argument | + argument := node 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)) ] ]. + node + selector: #subStrings:; + yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st new file mode 100644 index 00000000..cdc89723 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Strings' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st new file mode 100644 index 00000000..a42a193e --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +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-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json new file mode 100644 index 00000000..bcfa99fc --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRAnsiStringsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st new file mode 100644 index 00000000..1b916f3c --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st @@ -0,0 +1,13 @@ +running +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 + executeTree: each parseTree + initialAnswer: false ] ] ] ]) ifTrue: [ + result + addClass: aContext + selector: #initialize ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ 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 new file mode 100644 index 00000000..40611cde --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st @@ -0,0 +1,7 @@ +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-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st new file mode 100644 index 00000000..5e0a6113 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ '#basicNew initialize is missing' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st new file mode 100644 index 00000000..996d9872 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json new file mode 100644 index 00000000..26feb6d9 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "matcher" + ], + "name" : "GRBasicNewInitializeMissingRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st new file mode 100644 index 00000000..303be069 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Formatting' \ 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 new file mode 100644 index 00000000..857cfe81 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st @@ -0,0 +1,23 @@ +initialization +initialize + super initialize. + self matcher + matches: '[ :`@args | | `@temps | ``@.stmts ]' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | source | + source := node source. + (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ + | before after | + before := source at: node left + 1 ifAbsent: [ $ ]. + after := source at: node right - 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] + ifTrue: [ + node bar notNil ifTrue: [ + before := source at: node bar - 1 ifAbsent: [ $ ]. + after := source at: node bar + 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st new file mode 100644 index 00000000..4c9c6708 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Block formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st new file mode 100644 index 00000000..3c042a50 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'There should spaces at the beginning and end of block.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json new file mode 100644 index 00000000..67dc7eb8 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRBlockFormattingRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st new file mode 100644 index 00000000..bec7aeb7 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st @@ -0,0 +1,20 @@ +running +checkMethod: aContext + | matches | + matches := matcher + executeTree: aContext parseTree + initialAnswer: OrderedCollection new. + matches do: [ :node | + " This ensures that the description is of the form ClassName>>#selector:" + (node arguments first isLiteralNode + and: [ node arguments first value isString + and: [ aContext methodClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ + result addClass: aContext methodClass selector: aContext selector. + result addSearchString: node arguments first value ]. + " This ensures that the description is a string and ends with a dot." + (node arguments size > 1 + and: [ node arguments second isLiteralNode + and: [ node arguments second value isString + and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ + result addClass: aContext methodClass selector: aContext selector. + result addSearchString: node arguments second value ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st new file mode 100644 index 00000000..303be069 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st new file mode 100644 index 00000000..9fb5c9de --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st @@ -0,0 +1,9 @@ +initialization +initialize + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matchesAnyOf: #( + '``@receiver greaseDeprecatedApi: ``@arg1' + '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) + do: [ :node :answer | answer add: node; yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st new file mode 100644 index 00000000..516849b7 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Invalid use of deprecated API protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st new file mode 100644 index 00000000..9bff5427 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +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-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json new file mode 100644 index 00000000..e5708071 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "matcher" + ], + "name" : "GRDeprecatedApiProtocolRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st new file mode 100644 index 00000000..30369982 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st @@ -0,0 +1,10 @@ +running +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 ] ] ] ] ] ] ]) + ifTrue: [ result addClass: aContext methodClass selector: aContext selector ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st new file mode 100644 index 00000000..d814b293 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Invalid object initialization' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st new file mode 100644 index 00000000..7b2fed07 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +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-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json new file mode 100644 index 00000000..39c115bc --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRInvalidObjectInitializationRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st new file mode 100644 index 00000000..6d276d6c --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st @@ -0,0 +1,12 @@ +running +checkClass: aContext + | selectors | + selectors := self methodNames + inject: Set new + into: [ :set :each | + set + addAll: (aContext whichSelectorsReferTo: each); + yourself ]. + selectors do: [ :each | result addClass: aContext selector: each ]. + selectors isEmpty + ifFalse: [ result searchStrings: self methodNames ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st new file mode 100644 index 00000000..7bfd5f10 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st @@ -0,0 +1,3 @@ +private +methodNames + ^ #( anyOne withIndexCollect: ) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st new file mode 100644 index 00000000..77664e0e --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Uses non portable message' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st new file mode 100644 index 00000000..4de4dc3f --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Some methods are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json new file mode 100644 index 00000000..f94b5725 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNonPortableMessageRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st new file mode 100644 index 00000000..95b1d5c1 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st @@ -0,0 +1,8 @@ +running +checkClass: aContext + | comment | + aContext isMeta + ifTrue: [ ^ self ]. + comment := aContext organization classComment asString. + comment isWideString ifTrue: [ + result addClass: aContext ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st new file mode 100644 index 00000000..ae19cb73 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st @@ -0,0 +1,17 @@ +running +checkMethod: aContext + | foundLiteral | + foundLiteral := false. + "check individual literals first" + aContext literals do: [ :each | + (each isString and: [ each isWideString ]) ifTrue: [ + 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: [ + result addClass: aContext methodClass selector: aContext selector ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st new file mode 100644 index 00000000..3469916d --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Non portable source format' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st new file mode 100644 index 00000000..7306a747 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json new file mode 100644 index 00000000..c940a9de --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNonPortableSourceFormatRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st new file mode 100644 index 00000000..776d58af --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st @@ -0,0 +1,8 @@ +initialization +initialize + super initialize. + self rewriteRule + 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-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st new file mode 100644 index 00000000..fba52990 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st new file mode 100644 index 00000000..908ce1c0 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ '#beginsWith: and #endsWith: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json new file mode 100644 index 00000000..d32b9c06 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNotPortableCollectionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md new file mode 100644 index 00000000..bca4d093 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md @@ -0,0 +1 @@ +I detect senders of Object >> #in: diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st new file mode 100644 index 00000000..38aa19b0 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self rewriteRule + replace: '``@object in: [ :`var | | `@temps | `@.statements ]' + with: '[ :`var | | `@temps | `@.statements ] value: ``@object' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st new file mode 100644 index 00000000..65dd49f6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Object>>#in:' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st new file mode 100644 index 00000000..c3b2c41b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json new file mode 100644 index 00000000..cc910d3f --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 9/12/2009 10:37", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRObjectInRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st b/repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st new file mode 100644 index 00000000..e120aacb --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st @@ -0,0 +1,8 @@ +*Grease-Pharo90-Slime +greaseSlime + ^ self new + name: 'Grease-Pharo90-Slime'; + description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; + addDependency: 'Grease-Core'; + url: #seasideUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json b/repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json new file mode 100644 index 00000000..ae522a7e --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st new file mode 100644 index 00000000..303be069 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Formatting' \ 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 new file mode 100644 index 00000000..c8c72c58 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st @@ -0,0 +1,20 @@ +initialization +initialize + super initialize. + self matcher + matches: '`{ :node | node isValue and: [ node hasParentheses ] }' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | found start stop | + found := false. + start := node startWithoutParentheses. + stop := node stopWithoutParentheses. + node parentheses reverseDo: [ :interval | + found := found + or: [ start - 1 ~= interval first + or: [ stop + 1 ~= interval last ] ]. + start := interval first. + stop := interval last ]. + found ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st new file mode 100644 index 00000000..48e67c85 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Parentheses formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st new file mode 100644 index 00000000..298a86b2 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'There should be no spaces inside parentheses.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json new file mode 100644 index 00000000..dee328d6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRParensFormattingRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st new file mode 100644 index 00000000..303be069 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st new file mode 100644 index 00000000..500df13d --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st @@ -0,0 +1,11 @@ +initialization +initialize + super initialize. + self matcher + matches: '^ ``@expr' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + node start + 2 ~= node value start + ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st new file mode 100644 index 00000000..ed235f80 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Return formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st new file mode 100644 index 00000000..904d4922 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'There should be a single space between the ^ and the following expression.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json new file mode 100644 index 00000000..de40fc2b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReturnFormattingRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st new file mode 100644 index 00000000..43f102e1 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st @@ -0,0 +1,3 @@ +testing +isVisible + ^ self name ~= #GRSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st new file mode 100644 index 00000000..af69ca36 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st @@ -0,0 +1,3 @@ +accessing +category + ^ self group \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json new file mode 100644 index 00000000..fe4136b6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "RBBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSlimeBlockLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st new file mode 100644 index 00000000..fa02a17b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st @@ -0,0 +1,3 @@ +testing +isVisible + ^ self name ~= #GRSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st new file mode 100644 index 00000000..af69ca36 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st @@ -0,0 +1,3 @@ +accessing +category + ^ self group \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json new file mode 100644 index 00000000..3496a9d3 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "RBParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSlimeParseTreeLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st new file mode 100644 index 00000000..1bdda3d8 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st @@ -0,0 +1,3 @@ +testing +isVisible + ^ self name ~= #GRSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json new file mode 100644 index 00000000..59ba3260 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "RBTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRSlimeTransformationRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st new file mode 100644 index 00000000..303be069 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Formatting' \ 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 new file mode 100644 index 00000000..a0f0b5a3 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st @@ -0,0 +1,18 @@ +initialization +initialize + super initialize. + self matcher + matches: '| `temp `@temps | ``@.stmts' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ + | found position | + found := false. + position := node leftBar. + node temporaries do: [ :each | + found := found or: [ position + 2 ~= each start ]. + position := each stop ]. + found := found or: [ position + 2 ~= node rightBar ]. + found ifTrue: [ node ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st new file mode 100644 index 00000000..770e86d9 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Temporaries formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st new file mode 100644 index 00000000..49cb65dd --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'There should be a single space between the | and the individual temps.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json new file mode 100644 index 00000000..f5bfa60b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRTempsFormattingRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md new file mode 100644 index 00000000..6f3d9062 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md @@ -0,0 +1 @@ +I check for TestCase >> #fail. \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st new file mode 100644 index 00000000..bab892c3 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st @@ -0,0 +1,7 @@ +running +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 diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st new file mode 100644 index 00000000..5a189b4d --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'SUnit Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st new file mode 100644 index 00000000..d9d6784f --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self rewriteRule + replace: 'self fail' + with: 'self assert: false' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st new file mode 100644 index 00000000..cb37341d --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'TestCase >> #fail' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st new file mode 100644 index 00000000..0a6ddcf6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'TestCase >> #fail is not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json new file mode 100644 index 00000000..82a9cffc --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 8/17/2014 11:24", + "super" : "GRSlimeTransformationRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRTestAssertionsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st new file mode 100644 index 00000000..954a79b9 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st @@ -0,0 +1,7 @@ +running +checkMethod: aContext + aContext parseTree nodesDo: [ :node | + node isSequence ifTrue: [ + (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ + node periods last > node statements last stop ifTrue: [ + ^ result addClass: aContext methodClass selector: aContext selector ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st new file mode 100644 index 00000000..303be069 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st new file mode 100644 index 00000000..5873f52c --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Unnecessary Last Period' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st new file mode 100644 index 00000000..ccbe48b6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Periods are not needed after the last satement.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st new file mode 100644 index 00000000..5b87472b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st @@ -0,0 +1,4 @@ +running +resetResult + super resetResult. + result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json new file mode 100644 index 00000000..0147b08b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUnnecessaryLastPeriodRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st new file mode 100644 index 00000000..7923fa99 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st @@ -0,0 +1,8 @@ +initialization +initialize + super initialize. + self matcher + matchesAnyOf: #( + '`@receiver canPerform: `@selector' + '`@receiver canUnderstand: `@selector' ) + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st new file mode 100644 index 00000000..b9ce70ca --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Sends #canPerform: or #canUnderstand:' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st new file mode 100644 index 00000000..7e3a24ab --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ '#canPerform: or #canUnderstand: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json new file mode 100644 index 00000000..55e65987 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesCanPerformOrUnderstandRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st new file mode 100644 index 00000000..2fdbe101 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st @@ -0,0 +1,4 @@ +running +checkMethod: aContext + aContext parseTree selector = #hash + ifTrue: [ super checkMethod: aContext ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st new file mode 100644 index 00000000..c56d728f --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self matcher + matches: '`@receiver class hash' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st new file mode 100644 index 00000000..5bdd2ee0 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Uses its class for hash' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st new file mode 100644 index 00000000..84eba400 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +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-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json new file mode 100644 index 00000000..e5c083e1 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesClassForHashRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st new file mode 100644 index 00000000..ffa7a3bd --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self matcher + matches: '{ `@.stmts }' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st new file mode 100644 index 00000000..1228c96a --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Uses curly brace arrays' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st new file mode 100644 index 00000000..c8668119 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json new file mode 100644 index 00000000..ec167193 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeParseTreeLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesCurlyBraceArraysRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st new file mode 100644 index 00000000..c48f9bf5 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st @@ -0,0 +1,8 @@ +running +checkMethod: aContext + (self shouldExclude: aContext) ifFalse: [ + aContext pragmas do: [ :each | + 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/GRUsesMethodAnnotationsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st new file mode 100644 index 00000000..dce9f95b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Uses method annotations' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st new file mode 100644 index 00000000..33162ca3 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st new file mode 100644 index 00000000..331fa027 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st @@ -0,0 +1,9 @@ +running +shouldExclude: aContext + "The REST and OmniBrowser related packages are OK to have pragmas" + + | classCategory | + classCategory := aContext methodClass instanceSide category. + ^ #(#'-REST-' 'OmniBrowser') + anySatisfy: + [ :each | (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json new file mode 100644 index 00000000..07e34e71 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesMethodAnnotationsRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st new file mode 100644 index 00000000..674dcf52 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st @@ -0,0 +1,6 @@ +running +checkClass: aContext + aContext allSuperclassesDo: [ :each | + (self classNames includes: each name) ifTrue: [ + result addClass: aContext. + result addSearchString: each name ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st new file mode 100644 index 00000000..18cb585b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st @@ -0,0 +1,12 @@ +running +checkMethod: aContext + (aContext 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" ^ self ]. + aContext literals + 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-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st new file mode 100644 index 00000000..f3d5db68 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st @@ -0,0 +1,3 @@ +private +classNames + ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st new file mode 100644 index 00000000..7e52dd3b --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st @@ -0,0 +1,3 @@ +accessing +group + ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st new file mode 100644 index 00000000..ba0b2df9 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Uses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st new file mode 100644 index 00000000..e0f12e97 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st @@ -0,0 +1,3 @@ +accessing +rationale + ^ 'Some classes are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json new file mode 100644 index 00000000..4d85da34 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRSlimeBlockLintRule", + "category" : "Grease-Pharo90-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUsesNotPortableClassRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st b/repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st new file mode 100644 index 00000000..c906a39a --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Pharo90-Slime'! diff --git a/repository/Grease-Pharo90-Slime.package/monticello.meta/initializers.st b/repository/Grease-Pharo90-Slime.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo90-Slime.package/monticello.meta/package b/repository/Grease-Pharo90-Slime.package/monticello.meta/package new file mode 100644 index 00000000..0b4dab28 --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo90-Slime') \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/properties.json b/repository/Grease-Pharo90-Slime.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo90-Slime.package/properties.json @@ -0,0 +1 @@ +{ } \ 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/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/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/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/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/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/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/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/fileStreamOn.do.binary..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 1aad81ef..00000000 --- a/repository/Grease-Squeak5-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-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/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/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/write.toFile.inFolder..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 9565ae8b..00000000 --- a/repository/Grease-Squeak5-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-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/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/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/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/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/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/fileStreamOn.do.binary..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Squeak5-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-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/write.toFile.inFolder..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 08d697b5..00000000 --- a/repository/Grease-Squeak5-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-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/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/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/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/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/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/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/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/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/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/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/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/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/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/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/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/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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Squeak5-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-Squeak5-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-Squeak6-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-Squeak6-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-Squeak5-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-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak5-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-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak6-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-Squeak6-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak6-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Squeak6-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md diff --git a/repository/Grease-Squeak6-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-Squeak6-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Squeak6-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-Squeak6-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Squeak6-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-Squeak6-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/GRPharoLatin1Codec.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/GRPharoLatin1Codec.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-Squeak5-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-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak6-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak6-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak6-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-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st diff --git a/repository/Grease-Squeak6-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-Squeak6-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Squeak6-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-Squeak6-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st diff --git a/repository/Grease-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Squeak5-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-Squeak5-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-Squeak6-Core.package/Symbol.extension/properties.json b/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..565e67b0 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Symbol" } 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/GRCountingStreamTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st index c5decc38..8607d1b3 100644 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st +++ b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st @@ -1,5 +1,5 @@ running setUp | codecStream | - codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: String new)). + codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: (GRCodec forEncoding: 'utf-8') encodedStringClass new)). countingStream := GRCountingStream on: codecStream \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st index ba128e9d..30dab46b 100644 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st +++ b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st @@ -3,4 +3,4 @@ testNextPut countingStream nextPut: (Character codePoint: 16rE4). self assert: countingStream size = 2. self assert: countingStream count = 1. - self assert: countingStream contents = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) \ No newline at end of file + self assert: countingStream contents asString = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st index 0eecffee..6400bf2e 100644 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st +++ b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st @@ -3,4 +3,4 @@ testNextPutAll countingStream nextPutAll: (String with: (Character codePoint: 16rE4)). self assert: countingStream size = 2. self assert: countingStream count = 1. - self assert: countingStream contents = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) \ No newline at end of file + self assert: countingStream contents asString = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) \ 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 new file mode 100644 index 00000000..97bd2a26 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st @@ -0,0 +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/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/testSymbolAsMutator.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st index 9d7fa7e6..5fc4744b 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st @@ -3,4 +3,4 @@ testSymbolAsMutator "test for: Symbol >> #asMutator ^ (self copyWith: $:) asSymbol" - self assert: #name asMutator = #name: \ No newline at end of file + self assert: #name greaseAsMutator = #name: \ 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 3cd4ceb1..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,9 +1,27 @@ -tests-processes +tests testThisContext - | methodContext | - methodContext := self platform thisContext. - [ - | blockContext | - blockContext := self platform thisContext. - self assert: blockContext sender = methodContext ] - value \ No newline at end of file + | 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. + (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. + 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/asByteArray..st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asByteArray..st new file mode 100644 index 00000000..4ba05d6f --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asByteArray..st @@ -0,0 +1,5 @@ +private +asByteArray: aCollectionOfIntegers + ^ ByteArray streamContents: [ :stream | + aCollectionOfIntegers do: [ :each | + stream nextPut: each ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st index 7a1dbc26..22c03f1c 100644 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st +++ b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st @@ -5,7 +5,7 @@ testCodecUtf8 codec := GRCodec forEncoding: codecName. self assert: codec name asLowercase = codecName asLowercase. self assert: codec url name asLowercase = codecName asLowercase. - self assert: (codec encode: self decodedString) greaseString = self utf8String greaseString. - self assert: (codec url encode: self decodedString) greaseString = self utf8String greaseString. - self assert: (codec decode: self utf8String) = self decodedString. - self assert: (codec url decode: self utf8String) = self decodedString ] \ No newline at end of file + self assert: (codec encode: self decodedString) = (self utf8StringOrByteArrayForCodec: codec). + self assert: (codec url encode: self decodedString) = (self utf8StringOrByteArrayForCodec: codec). + self assert: (codec decode: (self utf8StringOrByteArrayForCodec: codec)) = self decodedString. + self assert: (codec url decode: (self utf8StringOrByteArrayForCodec: codec)) = self decodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st index 16cd6418..cf83f5dc 100644 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st +++ b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st @@ -3,6 +3,8 @@ testCodecUtf8Bom #('UTF-8' 'utf-8') do: [ :codecName | | codec bom | codec := GRCodec forEncoding: codecName. - bom := self asString: #(239 187 191). - self assert: (codec decode: bom , self utf8String) greaseString = self decodedString greaseString. - self assert: (codec url decode: bom , self utf8String) greaseString = self decodedString greaseString ] \ No newline at end of file + (codec encodedStringClass == ByteArray) + ifTrue:[ bom := self asByteArray: #(239 187 191) ] + ifFalse:[bom := self asString: #(239 187 191) ]. + self assert: (codec decode: bom , (self utf8StringOrByteArrayForCodec: codec)) = self decodedString. + self assert: (codec url decode: bom , (self utf8StringOrByteArrayForCodec: codec)) = self decodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st index 5b58893a..678e755e 100644 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st +++ b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st @@ -3,11 +3,11 @@ testCodecUtf8BorderLineString #('UTF-8' 'utf-8') do: [ :codecName | | codec writeStream | codec := GRCodec forEncoding: codecName. - writeStream := codec encoderFor: GRPlatform current readWriteCharacterStream. + writeStream := codec encoderFor: (GRPlatform current writeCharacterStreamOn: codec encodedStringClass new). writeStream nextPut: (Character codePoint: 0). writeStream nextPut: (Character codePoint: 255). writeStream nextPut: (Character codePoint: 256). - self assert: writeStream contents = (String + self assert: writeStream contents asString = (String with: (Character codePoint: 16r00) "character 0" with: (Character codePoint: 16rC3) with: (Character codePoint: 16rBF) "character 255" with: (Character codePoint: 16rC4) with: (Character codePoint: 16r80)) "character 256" ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st index 1a6f1679..d18279a1 100644 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st +++ b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st @@ -5,7 +5,9 @@ testCodecUtf8ShortestForm #('UTF-8' 'utf-8') do: [ :codecName | | codec abc | codec := GRCodec forEncoding: codecName. - abc := self asString: #(193 129 193 130 193 131 ). + codec encodedStringClass == ByteArray + ifTrue:[ abc := self asByteArray: #(193 129 193 130 193 131 ) ] + ifFalse:[ abc := self asString: #(193 129 193 130 193 131 ) ]. self should: [ self deny: (codec decode: abc) = 'ABC' ] raise: Error ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st new file mode 100644 index 00000000..3020173f --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st @@ -0,0 +1,7 @@ +accessing +utf8StringOrByteArrayForCodec: codec + | bytes | + bytes := #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169). + ^ codec encodedStringClass == ByteArray + ifTrue:[ self asByteArray: bytes ] + ifFalse:[ self asString: bytes ] \ 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-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st b/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st new file mode 100644 index 00000000..c73ff2de --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st @@ -0,0 +1,12 @@ +*grease-tests-gemstone-core +writeToFile: aStringOrByteArray withFileNameDo: aBlock + | fileName directory | + fileName := 'GRGemStonePlatformTest'. + directory := ServerFileDirectory 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-GemStone-Core.package/GRPlatformTest.extension/properties.json similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/properties.json rename to repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/.filetree b/repository/Grease-Tests-GemStone-Core.v32.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/properties.json deleted file mode 100644 index f72b879e..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRDoubleByteStringTest", - "pools" : [ - ], - "super" : "GRStringTest", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/properties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/properties.json deleted file mode 100644 index bcd1f55d..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRGemStonePlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/addBlockToCollection.with..st b/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/addBlockToCollection.with..st deleted file mode 100644 index c715445c..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/addBlockToCollection.with..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-tests-gemstone-core -addBlockToCollection: collection with: ea - - collection add: [ea] \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/expectedFailures.st deleted file mode 100644 index f49184f7..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-tests-gemstone-core -expectedFailures - "GemStone does not conform to the ANSI standard in this case" - - ((System stoneVersionAt: 'gsVersion') beginsWith: '2.') ifTrue: [ ^#( #testToDoClosures ) ]. - ^#() \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/class/greaseTestsGemStoneCore.st b/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/class/greaseTestsGemStoneCore.st deleted file mode 100644 index 8e8599f8..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/class/greaseTestsGemStoneCore.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-tests-gemstone-core -greaseTestsGemStoneCore - - ^ self new - name: 'Grease-Tests-GemStone-Core'; - addDependency: 'Grease-GemStone-Core'; - addDependency: 'Grease-Tests-Core'; - url: #gemstoneUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/properties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/properties.json deleted file mode 100644 index f04548ac..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRQuadByteStringTest", - "pools" : [ - ], - "super" : "GRStringTest", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/multiByteConvert..st b/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/multiByteConvert..st deleted file mode 100644 index 7e52fede..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/multiByteConvert..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-tests-gemstone-core -multiByteConvert: aString - - ^self collectionClass withAll: aString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 4a2a790a..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-tests-gemstone-core -expectedFailures - ^ #() "all tests pass in GemStone 3.2" \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/categories.st b/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/categories.st deleted file mode 100644 index 8cff96cd..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-GemStone-Core'! diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/package b/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/package deleted file mode 100644 index 59950b6e..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-GemStone-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/properties.json b/repository/Grease-Tests-GemStone-Core.v32.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Squeak-Core.package/.filetree b/repository/Grease-Tests-GemStone32-Core.package/.filetree similarity index 100% rename from repository/Grease-Squeak-Core.package/.filetree rename to repository/Grease-Tests-GemStone32-Core.package/.filetree diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/README.md b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st rename to repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/instance/collectionClass.st rename to repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json new file mode 100644 index 00000000..aac15724 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-GemStone32-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRDoubleByteStringTest", + "pools" : [ + ], + "super" : "GRStringTest", + "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/README.md b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st rename to repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st rename to repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st rename to repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/instance/testFullName.st rename to repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st 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-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json new file mode 100644 index 00000000..29396189 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-GemStone32-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRGemStonePlatformTest", + "pools" : [ + ], + "super" : "TestCase", + "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st new file mode 100644 index 00000000..d2b2b2b2 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st @@ -0,0 +1,4 @@ +*grease-tests-gemstone32-core +addBlockToCollection: collection with: ea + + collection add: [ea] \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st new file mode 100644 index 00000000..95dae186 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st @@ -0,0 +1,6 @@ +*grease-tests-gemstone32-core +expectedFailures + "GemStone does not conform to the ANSI standard in this case" + + ((System stoneVersionAt: 'gsVersion') beginsWith: '2.') ifTrue: [ ^#( #testToDoClosures ) ]. + ^#() \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st similarity index 89% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st rename to repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st index 4ba45664..21ae2a01 100644 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st @@ -1,4 +1,4 @@ -*grease-tests-gemstone-core +*grease-tests-gemstone32-core testToDoClosuresGemStone "workaround for non-ANSI compliance" diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/properties.json similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/properties.json rename to repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/properties.json diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st b/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st new file mode 100644 index 00000000..616e2a89 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st @@ -0,0 +1,9 @@ +*grease-tests-gemstone32-core +greaseTestsGemStoneCore + + ^ self new + name: 'Grease-Tests-GemStone32-Core'; + addDependency: 'Grease-GemStone-Core'; + addDependency: 'Grease-Tests-Core'; + url: #gemstoneUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json rename to repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st b/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st new file mode 100644 index 00000000..6976c3c7 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st @@ -0,0 +1,12 @@ +*grease-tests-gemstone32-core +writeToFile: aStringOrByteArray withFileNameDo: aBlock + | fileName directory | + fileName := 'GRGemStonePlatformTest'. + directory := ServerFileDirectory 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-GemStone32-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/properties.json new file mode 100644 index 00000000..ab3f269a --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "GRPlatformTest" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/README.md b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st rename to repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/instance/collectionClass.st rename to repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json new file mode 100644 index 00000000..5643404e --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Tests-GemStone32-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRQuadByteStringTest", + "pools" : [ + ], + "super" : "GRStringTest", + "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st new file mode 100644 index 00000000..f68bfeb2 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st @@ -0,0 +1,4 @@ +*grease-tests-gemstone32-core +multiByteConvert: aString + + ^self collectionClass withAll: aString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteCapitalized.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st similarity index 90% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteCapitalized.st rename to repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st index 2b574007..e2b5c14d 100644 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteCapitalized.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st @@ -1,4 +1,4 @@ -*grease-tests-gemstone-core +*grease-tests-gemstone32-core testMultiByteCapitalized self assert: (self multiByteConvert: 'capitalized') capitalized = 'Capitalized'. self assert: (self multiByteConvert: 'Capitalized') capitalized = 'Capitalized' . diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteExcerpt.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st similarity index 96% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteExcerpt.st rename to repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st index f8354583..be28723e 100644 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteExcerpt.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st @@ -1,4 +1,4 @@ -*grease-tests-gemstone-core +*grease-tests-gemstone32-core testMultiByteExcerpt self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0) = '...c...'. self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1) = '...bcd...'. diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteSubStrings.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st similarity index 97% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteSubStrings.st rename to repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st index 6baae92e..20972006 100644 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteSubStrings.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st @@ -1,4 +1,4 @@ -*grease-tests-gemstone-core +*grease-tests-gemstone32-core testMultiByteSubStrings "#subStrings: is defined by ANSI 5.7.10.15: Answer an array containing the substrings in the receiver separated by the elements of separators." diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st similarity index 95% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st rename to repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st index 76a0776f..6b73b88b 100644 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st @@ -1,4 +1,4 @@ -*grease-tests-gemstone-core +*grease-tests-gemstone32-core testMultiByteTrimBoth self assert: (self multiByteConvert: '') trimBoth = ''. self assert: (self multiByteConvert: ' ') trimBoth = ''. diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteTruncate.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st similarity index 93% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteTruncate.st rename to repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st index 5cbf7eb4..faadc979 100644 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/instance/testMultiByteTruncate.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st @@ -1,4 +1,4 @@ -*grease-tests-gemstone-core +*grease-tests-gemstone32-core testMultiByteTruncate self assert: ((self multiByteConvert: 'abc') truncate) = (self multiByteConvert: 'abc'). self assert: ((self multiByteConvert: 'abc') truncate: 3) = (self multiByteConvert: 'abc'). diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/properties.json similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/properties.json rename to repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/properties.json diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st new file mode 100644 index 00000000..86b72193 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st @@ -0,0 +1,3 @@ +*grease-tests-gemstone32-core +expectedFailures + ^ #() "all tests pass in GemStone 3.2" \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/properties.json similarity index 100% rename from repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/properties.json rename to repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/properties.json diff --git a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..601b1fa0 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Tests-GemStone32-Core'! diff --git a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package new file mode 100644 index 00000000..8584d7db --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Tests-GemStone32-Core') \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/properties.json b/repository/Grease-Tests-GemStone32-Core.package/properties.json similarity index 100% rename from repository/Grease-Squeak-Core.package/properties.json rename to repository/Grease-Tests-GemStone32-Core.package/properties.json diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st index 8ff0ff41..ded3d577 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st @@ -1,7 +1,10 @@ private assert: aString next: anInteger startingAt: startIndex gives: anEncodedString - | actual | - actual := String streamContents: [ :stream | + | actual encoder | + encoder := GRCodec forEncoding: 'utf-8'. + actual := encoder encodedStringClass streamContents: [ :stream | ((GRCodec forEncoding: 'utf-8') encoderFor: stream) greaseNext: anInteger putAll: aString startingAt: startIndex ]. - self assert: actual = anEncodedString \ No newline at end of file + encoder encodedStringClass == ByteArray + ifTrue:[ self assert: actual = anEncodedString asByteArray ] + ifFalse:[ self assert: actual = anEncodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st index dba72236..fe0c4411 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st @@ -2,12 +2,14 @@ tests testGreaseNextPutAllStartingAt | umlaut encodedUmlaut | umlaut := String with: (Character codePoint: 228). - encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164). + ((GRCodec forEncoding: 'utf-8') encodedStringClass == ByteArray) + ifTrue:[ encodedUmlaut := ByteArray with: 195 with: 164 ] + ifFalse:[ 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 + 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: 1 gives: '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-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/testReadWriteToFileInFolderBinary.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st deleted file mode 100644 index c12a405b..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -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-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st deleted file mode 100644 index ee0eadd5..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -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-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/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st new file mode 100644 index 00000000..2085b080 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st @@ -0,0 +1,12 @@ +*Grease-Tests-Pharo-Core +writeToFile: aStringOrByteArray withFileNameDo: aBlock + | fileName directory | + fileName := 'GRPharoPlatformTest'. + directory := FileSystem disk workingDirectory. + [ GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName,GRPlatform current pathSeparator,fileName + ] ensure: [ + (directory / fileName) delete ] \ 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 index 3d992b1e..15a035a8 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st @@ -1,3 +1,5 @@ *Grease-Tests-Pharo-Core expectedFailures - ^ #(testCodecUtf8ShortestForm) \ No newline at end of file + ^ SystemVersion current major < 9 + ifTrue: [ #(testCodecUtf8ShortestForm) ] + ifFalse:[ #() ] \ 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/instance/testLanguageTag.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st deleted file mode 100644 index 57a2a02c..00000000 --- a/repository/Grease-Tests-Squeak5-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-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/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-Pharo-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-Pharo-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