diff --git a/.filetree b/.filetree new file mode 100644 index 00000000..c6704e51 --- /dev/null +++ b/.filetree @@ -0,0 +1,2 @@ +{"packageExtension" : ".package", +"propertyFileExtension" : ".json" } \ No newline at end of file diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 00000000..d7f2e91a --- /dev/null +++ b/.gitattributes @@ -0,0 +1,3 @@ +# inform linguist that files with these extensions are indeed smalltalk files +*.st linguist-language=Smalltalk + diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml new file mode 100644 index 00000000..8847cc95 --- /dev/null +++ b/.github/workflows/ci.yml @@ -0,0 +1,47 @@ +name: smalltalkCI + +on: + push: + pull_request: + branches: + master + schedule: + - cron: "15 2 7 * *" #run job on the 7th day of every month on the 15th minute of the 2nd hour + +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 }} + shell: bash + timeout-minutes: 20 + env: + GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }} + slack-workflow-status: + if: always() + name: Post Workflow Status To Slack + needs: + - test + runs-on: ubuntu-latest + steps: + - name: Slack Workflow Notification + uses: Gamesight/slack-workflow-status@master + with: + repo_token: ${{secrets.GITHUB_TOKEN}} + slack_webhook_url: ${{secrets.SLACK_DALEHENRICH}} + name: 'action run' diff --git a/.project b/.project new file mode 100644 index 00000000..75810ed6 --- /dev/null +++ b/.project @@ -0,0 +1,3 @@ +{ + 'srcDirectory' : 'repository' +} \ No newline at end of file diff --git a/.smalltalk.ston b/.smalltalk.ston index c1f350e4..e62640ac 100644 --- a/.smalltalk.ston +++ b/.smalltalk.ston @@ -4,7 +4,14 @@ SmalltalkCISpec { #baseline : 'Grease', #directory : 'repository', #load : [ 'Tests' ], - #platforms : [ #squeak, #pharo ] + #useLatestMetacello : true, + #platforms : [ #squeak ] + }, + SCIMetacelloLoadSpec { + #baseline : 'Grease', + #directory : 'repository', + #load : [ 'Tests' ], + #platforms : [ #pharo ] }, SCIMetacelloLoadSpec { #baseline : 'Grease', @@ -13,5 +20,15 @@ SmalltalkCISpec { #load : [ 'Tests' ], #platforms : [ #gemstone ] } - ] + ], + #testing : { + #defaultTimeout : 30, + #include : { + #classes : [ #SentButNotImplementedTest , #UndefinedSymbolsTest ] + }, + #coverage : { + #packages: [ 'Grease*' ], + #format: #lcov + } + } } diff --git a/.travis.yml b/.travis.yml deleted file mode 100644 index df8e1d12..00000000 --- a/.travis.yml +++ /dev/null @@ -1,17 +0,0 @@ -language: smalltalk -sudo: false -smalltalk: - - Pharo-6.0 - - Pharo-5.0 - - Pharo-4.0 - - Pharo-3.0 - - Squeak-5.1 - - GemStone-3.1.0.6 - - GemStone-3.2.16 - - GemStone-3.3.4 -cache: - directories: - - $SMALLTALK_CI_CACHE -#matrix: -# allow_failures: -# - smalltalk: Pharo-6.0 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 d6f3caf7..c9d2d025 100644 --- a/README.md +++ b/README.md @@ -1,53 +1,61 @@ -The Grease Portability Library [![Build Status](https://travis-ci.org/SeasideSt/Grease.png?branch=master)](https://travis-ci.org/SeasideSt/Grease) -====== - -The main repository of Grease is on Smalltalkhub: (http://www.smalltalkhub.com/#!/~Seaside/Grease11). This repository mirrors it. +**IMPORTANT**: Since version 1.3.0, this is the main repository of Grease. Versions older than 1.1.9 can only be found in the [Smalltalkhub repository](http://www.smalltalkhub.com/#!/~Seaside/Grease11). Check out the [releases list](https://github.com/SeasideSt/Grease/releases) for all version numbers in this repository. -Grease enhances the ANSI Smalltalk standard. With only a few exceptions, we assume platforms are fully ANSI-compliant. Platforms want to support Seaside and standardization makes this easier for the project’s developers and its porters. +The Grease Portability Library +====== +Grease enhances the ANSI Smalltalk standard. With only a few exceptions, we assume platforms are fully ANSI-compliant. Platforms want to support Seaside and standardization makes this easier for the project’s developers and its porters. Grease defines expected APIs with unit tests. Platforms can quickly determine if they are compatible and users can examine the tests to determine exactly which behaviours they can count on. -Grease takes a pragmatic approach to compatibility. Sometimes a method behaves so differently on two platforms, for example, that we are forced to avoid it or to standardize on a new selector. To get standard exception signaling on all platforms, Grease is forced to provide special exception classes that can be subclassed. Sometimes we need to put “right” aside and settle, instead, on a solution that can be implemented everywhere. +Grease takes a pragmatic approach to compatibility. Sometimes a method behaves so differently on two platforms, for example, that we are forced to avoid it or to standardize on a new selector. To get standard exception signaling on all platforms, Grease is forced to provide special exception classes that can be subclassed. Sometimes we need to put “right” aside and settle, instead, on a solution that can be implemented everywhere. -Grease tries to be concise and consistent. Despite its pragmatic approach, we still want to be “right” as much as possible. Because it’s hard to remove functionality once it has been added, we need to carefully consider each addition before proceeding. We’re moving slowly and looking for methods that are commonly used and that have clear names and semantics. +Grease tries to be concise and consistent. Despite its pragmatic approach, we still want to be “right” as much as possible. Because it’s hard to remove functionality once it has been added, we need to carefully consider each addition before proceeding. We’re moving slowly and looking for methods that are commonly used and that have clear names and semantics. -Grease does not try to solve all problems. We are not testing Sockets or HTTP clients. We don’t expect platforms to have standard SSL or graphics libraries. Its scope may grow over time, but for now we’re focusing on extending the functionality of the core classes defined in the ANSI standard (collections, exceptions, streams, blocks, etc.) and on other pieces of functionality that are critical to the Seaside project (e.g. random number generation and secure hashing). +Grease does not try to solve all problems. We are not testing Sockets or HTTP clients. We don’t expect platforms to have standard SSL or graphics libraries. Its scope may grow over time, but for now we’re focusing on extending the functionality of the core classes defined in the ANSI standard (collections, exceptions, streams, blocks, etc.) and on other pieces of functionality that are critical to the Seaside project (e.g. random number generation and secure hashing). 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. -## Travis builds +## Platform compatibility -The [Travis CI builds](https://travis-ci.org/SeasideSt/Grease) currently test Grease for the following platforms and versions: - -| Squeak | Pharo | GemStone | -| --------------- | ---------------- | -------------------- | -| Squeak 5.1 | Pharo 6.0 | GemStone 3.3.4 | -| | Pharo 5.0 | GemStone 3.2.16 | -| | Pharo 4.0 | GemStone 3.1.0.6 | -| | Pharo 3.0 | | +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 -### Squeak and Pharo +#### Prerequisite on Squeak + +Make sure you have the [MetacelloPreview version](https://github.com/Metacello/metacello), otherwise the load will not work. -Make sure you have the [MetacelloPreview version](https://github.com/dalehenrich/metacello-work), otherwise the load will not work. You have two options for loading: from Smalltalkhub or from Github. +### Squeak and Pharo (6.0 or newer) + +Load the latest code from master (i.e. stable): -Load from Smalltalkhub: ```Smalltalk Metacello new - configuration: 'Grease'; - repository: 'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main'; - version: #stable; + baseline: 'Grease'; + githubUser: 'SeasideSt' project: 'Grease' commitish: 'master' path: 'repository'; load ``` -or- -Load from: Github: + +Load a specific version: +(See [Releases](https://github.com/SeasideSt/Grease/releases) for a list of versions) + ```Smalltalk Metacello new baseline: 'Grease'; - githubUser: 'SeasideSt' project: 'Grease' commitish: '' path: 'repository'; + githubUser: 'SeasideSt' project: 'Grease' commitish: 'v1.3.0' path: 'repository'; + load +``` +-or- + +Legacy: load older versions from Smalltalkhub: +```Smalltalk +Metacello new + configuration: 'Grease'; + repository: 'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main'; + version: '1.0.0'; load ``` + ### GemStone Grease is part of the GLASS setup. You can upgrade your version of Grease using [GsUpgrader](https://github.com/GsDevKit/gsUpgrader). @@ -60,3 +68,33 @@ Gofer new load. (Smalltalk at: #GsUpgrader) upgradeGrease. ``` + +### Pharo (5.0 or older) + +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. + +Load the latest compatible release: + +```Smalltalk +Metacello new + baseline: 'Grease'; + githubUser: 'SeasideSt' project: 'Grease' commitish: 'v1.4.1' path: 'repository'; + load +``` + +-or- + +Legacy: load older versions from Smalltalkhub: +```Smalltalk +Metacello new + configuration: 'Grease'; + repository: 'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main'; + version: '1.0.0'; + load +``` + +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/.filetree b/repository/.filetree index c6704e51..20c295e0 100644 --- a/repository/.filetree +++ b/repository/.filetree @@ -1,2 +1,5 @@ -{"packageExtension" : ".package", -"propertyFileExtension" : ".json" } \ No newline at end of file +{ + "MetaData" : false, + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/repository/.properties b/repository/.properties new file mode 100644 index 00000000..14985a11 --- /dev/null +++ b/repository/.properties @@ -0,0 +1,3 @@ +{ + #format : #filetree +} \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st index 09f107ad..bae4a809 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st @@ -1,219 +1,8 @@ -baseline +baselines baseline: spec - - spec - for: #'common' - do: [ - spec blessing: #'baseline'. - spec - package: 'Grease-Core'; - package: 'Grease-Tests-Core' with: [ spec requires: #('Grease-Core') ]. - spec - group: 'Core' with: #('Grease-Core'); - group: 'Core Tests' with: #('Grease-Tests-Core'); - group: 'Slime' with: #('Core'); - group: 'Slime Tests' with: #('Core Tests'); - group: 'Tests' with: #('Core Tests' 'Slime Tests'); - group: 'default' with: #('Slime') ]. - spec - for: #'squeak4.x' - do: [ - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Pharo-Core' 'Grease-Squeak-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-Pharo-Core' 'Grease-Tests-Squeak-Core') ]; - package: 'Grease-Pharo-Core' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Pharo-Core' - with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Squeak-Core' - with: [ spec requires: #('Grease-Pharo-Core') ]; - package: 'Grease-Tests-Squeak-Core' - with: [ spec requires: #('Grease-Tests-Pharo-Core') ]. - self slimeForSqueakPharo1xPharo2x: spec ]. - spec - for: #'squeak5.x' - do: [ - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Squeak5-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec 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') ]. - self slimeForSqueakPharo1xPharo2x: spec ]. - spec - for: #'pharo1.0' - do: [ - spec - package: 'Grease-Pharo-Core' - with: [ spec includes: #('Grease-Pharo10-Core' 'Grease-Pharo11-Core') ] ]. - spec - for: #'pharo1.x' - do: [ - spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo-Core' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Pharo-Core' - with: [ spec requires: #('Grease-Tests-Core') ]. - self slimeForSqueakPharo1xPharo2x: spec ]. - spec - for: #'pharo1.1' - do: [ - spec - package: 'Grease-Pharo-Core' - with: [ spec includes: #('Grease-Pharo11-Core') ] ]. - spec - for: #'pharo2.x' - do: [ - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Pharo20-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-Pharo20-Core') ]; - package: 'Grease-Pharo20-Core' - with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Pharo20-Core' - with: [ spec requires: #('Grease-Tests-Core') ]. - self slimeForSqueakPharo1xPharo2x: spec ]. - spec - for: #'pharo3.x' - do: [ - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Pharo30-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-Pharo20-Core') ]; - package: 'Grease-Pharo30-Core' - with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Pharo20-Core' - with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Slime' with: [ spec requires: #('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: #(#'pharo4.x' #'pharo5.x') - do: [ - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Pharo30-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-Pharo20-Core') ]; - package: 'Grease-Pharo30-Core' - with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Pharo20-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: #(#'pharo6.x') - do: [ - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Pharo60-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-Pharo20-Core') ]; - package: 'Grease-Pharo60-Core' - with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Pharo20-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: #'gemstone' - do: [ - spec - project: 'GsCore' - with: [ - spec - className: 'ConfigurationOfGsCore'; - versionString: #'stable'; - repository: 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; - project: 'UTF8' - with: [ - spec - className: 'ConfigurationOfGsMisc'; - versionString: #'stable'; - loads: #('Utf8Encoding'); - repository: 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; - project: 'System-Digital-Signatures' - copyFrom: 'UTF8' - with: [ spec loads: #('System-Digital-Signatures') ]; - project: 'SMTPMail' - copyFrom: 'UTF8' - with: [ spec loads: #('SMTPMail') ]. - spec - package: 'Grease-Core' - with: [ - spec - requires: #('GsCore'); - includes: #('Grease-GemStone-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec includes: #('Grease-Tests-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') ] ]. - spec - for: #'gs2.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone200-Core') ]; - package: 'Grease-GemStone200-Core' - with: [ spec requires: #('Grease-GemStone-Core') ] ]. - spec - for: #'gs2.3.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone230-Core') ]; - package: 'Grease-GemStone230-Core' - with: [ spec requires: #('Grease-GemStone-Core') ] ]. - spec - for: #'gs2.4.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone240-Core') ]; - package: 'Grease-GemStone240-Core' - with: [ spec requires: #('Grease-GemStone-Core') ] ]. - spec - for: #'gs3.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone300-Core') ]; - package: 'Grease-GemStone300-Core' - with: [ - spec - requires: #('Grease-GemStone-Core'); - postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. - spec - for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x') - do: [ - spec - package: 'Grease-Tests-GemStone-Core' - with: [ spec file: 'Grease-Tests-GemStone-Core.v32' ] ] \ No newline at end of file + + + self baselineCommon: spec. + self baselineSqueak: spec. + self baselinePharo: spec. + self baselineGemStone: spec \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st new file mode 100644 index 00000000..96f20ec0 --- /dev/null +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st @@ -0,0 +1,18 @@ +baselines +baselineCommon: spec + + spec + for: #common + do: [ spec blessing: #baseline. + spec + package: 'Grease-Core'; + package: 'Grease-Tests-Core' + with: [ spec requires: #('Grease-Core') ]. + spec + group: 'Core' with: #('Grease-Core'); + group: 'Core Tests' with: #('Grease-Tests-Core'); + group: 'Slime' with: #('Core'); + group: 'Slime Tests' with: #('Core Tests'); + group: 'Tests' with: #('Core Tests' 'Slime Tests'); + 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 new file mode 100644 index 00000000..85554409 --- /dev/null +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st @@ -0,0 +1,137 @@ +baselines +baselineGemStone: spec + + spec + for: #'gemstone' + do: [ + spec + project: 'GsCore' + with: [ + spec + className: 'ConfigurationOfGsCore'; + versionString: #'stable'; + repository: + 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; + project: 'UTF8' + with: [ + spec + className: 'ConfigurationOfGsMisc'; + versionString: #'stable'; + loads: #('Utf8Encoding'); + repository: + 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; + project: 'System-Digital-Signatures' + copyFrom: 'UTF8' + with: [ spec loads: #('System-Digital-Signatures') ]; + project: 'SMTPMail' + copyFrom: 'UTF8' + with: [ spec loads: #('SMTPMail') ]. + spec + package: 'Grease-Core' + with: [ + spec + requires: #('GsCore'); + includes: #('Grease-GemStone-Core') ]; + package: 'Grease-Tests-Core' + with: [ + spec + requires: #('Grease-GemStone-Core') ]; + package: 'Grease-GemStone-Core' + with: [ + spec + requires: + #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ] ]. + + spec + for: #'gs2.x' + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone200-Core') ]; + package: 'Grease-GemStone200-Core' + with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #'gs2.3.x' + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone230-Core') ]; + package: 'Grease-GemStone230-Core' + with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #'gs2.4.x' + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone240-Core') ]; + package: 'Grease-GemStone240-Core' + with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone300-Core') ]; + package: 'Grease-GemStone300-Core' + with: [ + spec + requires: #('Grease-GemStone-Core'); + postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. + spec + 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' + with: [ spec includes: #('Grease-GemStone330-Core') ]; + package: 'Grease-GemStone330-Core' + with: [ + 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.5.4.x' #'gs3.5.5.x' #'gs3.5.6.x' #'gs3.5.7.x' #'gs3.5.8.x' #'gs3.5.9.x' ) + do: [ + spec + package: 'Grease-GemStone-Core' + 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 new file mode 100644 index 00000000..7ac453b2 --- /dev/null +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st @@ -0,0 +1,73 @@ +baselines +baselinePharo: spec + + 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'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo60-Core' with: [ spec requires: #('Grease-Core') ] ]. + + spec + 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') ] ]. + + 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 new file mode 100644 index 00000000..90104daa --- /dev/null +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st @@ -0,0 +1,23 @@ +baselines +baselineSqueak: spec + spec + for: #(#'squeak6.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-Squeak6-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Squeak6-Core'); + includes: #('Grease-Tests-Squeak6-Core') ]; + package: 'Grease-Squeak6-Core' + with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Squeak6-Core' + with: [ spec requires: #('Grease-Tests-Core') ] ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st index 2aff264b..6d1af9c5 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st @@ -1,4 +1,4 @@ doits initializeLatin1ToUtf8Encodings - - GRUtf8CodecStream initialize \ No newline at end of file + "Gemstone only" + (Smalltalk at: #GRUtf8CodecStream) initialize \ 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 new file mode 100644 index 00000000..1d4f6564 --- /dev/null +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st @@ -0,0 +1,4 @@ +accessing +projectClass + Smalltalk at: #'MetacelloCypressBaselineProject' ifPresent: [ :cl | ^ cl ]. + ^ super projectClass \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/slimeForSqueakPharo1xPharo2x..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/slimeForSqueakPharo1xPharo2x..st deleted file mode 100644 index fa336694..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/slimeForSqueakPharo1xPharo2x..st +++ /dev/null @@ -1,16 +0,0 @@ -baseline -slimeForSqueakPharo1xPharo2x: spec - spec - project: 'Refactoring-Core' - with: [ - spec - className: 'ConfigurationOfRefactoringBrowser'; - versionString: #stable; - loads: #('Core'); - repository: 'http://www.squeaksource.com/MetacelloRepository' ]. - spec - 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 diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json b/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json deleted file mode 100644 index 9fcc24b0..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "baseline:" : "JohanBrichau 5/25/2017 12:45", - "initializeLatin1ToUtf8Encodings" : "JohanBrichau 10/19/2014 10:00", - "slimeForSqueakPharo1xPharo2x:" : "JohanBrichau 02/16/2014 03:49" } } diff --git a/repository/BaselineOfGrease.package/monticello.meta/categories.st b/repository/BaselineOfGrease.package/monticello.meta/categories.st index 3687f0b2..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/BaselineOfGrease.package/monticello.meta/version b/repository/BaselineOfGrease.package/monticello.meta/version deleted file mode 100644 index 83523435..00000000 --- a/repository/BaselineOfGrease.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfGrease-dkh.19' message 'merged by GitFileTree-MergeDriver' id 'b05179de-cbe6-4b80-824b-f6220d2c9252' date '25 May 2017' time '11:41:41.478907 am' author 'dkh' ancestors ((name 'BaselineOfGrease-dkh.17' message 'eliminate some seaside.gemstone.com references' id '01c1cf6a-4d84-47d2-97f0-b9c4d7fffd58' date '28 February 2017' time '1:54:50 pm' author 'dkh' ancestors ((name 'BaselineOfGrease-dkh.16' message 'merged by GitFileTree-MergeDriver' id '644ab134-dd42-4b9f-948b-c277cd963d5d' date '26 August 2016' time '5:20:50 am' author 'dkh' ancestors ((name 'BaselineOfGrease-dkh.15' message 'merged by GitFileTree-MergeDriver' id '86b6f4f6-f95f-4bd7-9224-f31c5460e354' date '4 April 2016' time '9:40:53 am' author 'dkh' ancestors () stepChildren ())(name 'BaselineOfGrease-dkh.15' message 'merged by GitFileTree-MergeDriver' id '415af41c-2c3d-40a8-9f75-d9e8de921224' date '26 August 2016' time '2:19:29 am' author 'dkh' ancestors ((name 'BaselineOfGrease-dkh.10' message 'update for GemStone 3.4 ...' id 'ad7f9331-d83f-4976-bf57-1d1e81111fc6' date '21 December 2015' time '3:07:11 pm' author 'dkh' ancestors () stepChildren ())(name 'BaselineOfGrease-JohanBrichau.14' message 'Ensure Squeak5 tests package is loaded in Squeak5' id 'abde1bd6-a8d6-45fc-a922-bcf63ec38f03' date '27 February 2016' time '1:47:23 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.13' message 'Forked Grease-Tests-Pharo-Core into Grease-Tests-Squeak5-Core' id '3a01ebbc-8859-45db-ae5a-e5de8073d3a4' date '27 February 2016' time '1:40:18 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.12' message 'added Pharo-Tests to Squeak5 load' id 'ffe11ade-e4f1-496d-ae59-74543cfad134' date '27 February 2016' time '1:21:56 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.11' message 'added pharo5 platform to baseline' id '5c0332e9-ef4c-43cd-9066-7c9fe9ed6506' date '27 February 2016' time '12:12:12 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.10' message 'added squeak 5 platform' id '18f9d568-869f-4550-804a-b0ba101f33f3' date '13 December 2015' time '8:36:25 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-dkh.9' message 'Update baseline for GemStone 3.3' id 'af9364dd-14bc-4e5e-9fc7-0abe08732ab2' date '26 May 2015' time '11:46:07 am' author 'dkh' ancestors ((name 'BaselineOfGrease-JohanBrichau.8' message 'separate package for Squeak' id '91c019c7-2b8b-40c3-97d9-2047a69512a7' date '22 March 2015' time '12:01:37 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.7' message 'included Pharo 4 and did some baseline formatting' id '3722041d-d4b5-4496-a25a-0e891fe9a945' date '8 November 2014' time '9:28:01 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.6' message 'added initializeLatin1ToUtf8Encodings' id '4d976044-1aa9-44b6-bab0-b66ac758b3cd' date '19 October 2014' time '10:05:25 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.6' message 'added initializeLatin1ToUtf8Encodings' id 'b4ac5766-d472-4557-beff-59e5b733bce0' date '19 October 2014' time '10:04:55 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-dkh.5' message 'typoe' id '93eb3230-7956-4a6e-85dc-243f3dd895a1' date '4 June 2014' time '3:13:26 pm' author 'dkh' ancestors ((name 'BaselineOfGrease-dkh.4' message 'woops specified the package branch incorrectly ... I think I got it right this time...' id '3003ee31-9d17-4dd1-9b9a-f8a80e4f0ba1' date '4 June 2014' time '3:12:31 pm' author 'dkh' ancestors ((name 'BaselineOfGrease-dkh.3' message 'add Grease-Tests-GemStone-Core.v32 to baseline' id '26f128ca-b62e-4295-9a58-a9758b670c37' date '4 June 2014' time '2:57:48 pm' author 'dkh' ancestors ((name 'BaselineOfGrease-JohanBrichau.2' message 'forgotten methods' id '38758da9-c922-4530-a19e-f8783900e787' date '16 February 2014' time '3:50:22 am' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.1' message 'first baseline' id 'b89398df-14c6-4b6a-a2ba-91ad806bb07f' date '16 February 2014' time '1:49:46 am' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'BaselineOfGrease-JohanBrichau.18' message 'Pharo 6 compatibility' id 'd2d614aa-b80c-0d00-b4b6-ae9900bfc9db' date '25 May 2017' time '12:46:04.246978 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.17' message 'Added pharo6' id '52335469-982c-483b-a975-4518820b9bcf' date '25 May 2017' time '11:20:35.004053 am' author 'JohanBrichau' ancestors ((id '644ab134-dd42-4b9f-948b-c277cd963d5d')) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Core.package/.filetree b/repository/Grease-Core.package/.filetree index 8998102c..57a67973 100644 --- a/repository/Grease-Core.package/.filetree +++ b/repository/Grease-Core.package/.filetree @@ -1,4 +1,5 @@ { - "noMethodMetaData" : true, "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Core.package/Character.extension/methodProperties.json b/repository/Grease-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index 2483c54d..00000000 --- a/repository/Grease-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "print:on:" : "lr 7/24/2008 18:20" } } diff --git a/repository/Grease-Core.package/Character.extension/properties.json b/repository/Grease-Core.package/Character.extension/properties.json index 7532e33e..5219281d 100644 --- a/repository/Grease-Core.package/Character.extension/properties.json +++ b/repository/Grease-Core.package/Character.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "Character" } + "name" : "Character" +} \ No newline at end of file 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/GRBoundMessage.class/methodProperties.json b/repository/Grease-Core.package/GRBoundMessage.class/methodProperties.json deleted file mode 100644 index 271716ab..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "selector:" : "jf 7/10/2011 23:30", - "selector:arguments:" : "jf 7/10/2011 23:29" }, - "instance" : { - "argumentCount" : "jf 7/10/2011 23:38", - "initializeWithSelector:arguments:" : "jf 7/10/2011 23:21", - "mergeArguments:" : "jf 7/10/2011 23:14", - "printOn:" : "lr 1/11/2009 11:50" } } diff --git a/repository/Grease-Core.package/GRBoundMessage.class/properties.json b/repository/Grease-Core.package/GRBoundMessage.class/properties.json index a4a0a403..8cc5361d 100644 --- a/repository/Grease-Core.package/GRBoundMessage.class/properties.json +++ b/repository/Grease-Core.package/GRBoundMessage.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core-Utilities", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "jf 3/14/2009 11:04", + "super" : "GRDelayedSendMessage", + "category" : "Grease-Core-Utilities", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "arguments" ], + "arguments" + ], "name" : "GRBoundMessage", - "pools" : [ - ], - "super" : "GRDelayedSendMessage", - "type" : "normal" } + "type" : "normal" +} \ 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/GRCodec.class/methodProperties.json b/repository/Grease-Core.package/GRCodec.class/methodProperties.json deleted file mode 100644 index f07b0f21..00000000 --- a/repository/Grease-Core.package/GRCodec.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - "allCodecs" : "pmm 6/28/2009 16:35", - "basicForEncoding:" : "pmm 6/28/2009 16:40", - "codecs" : "jf 2/7/2009 20:27", - "forEncoding:" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 6/28/2009 16:40", - "unsupportedEncoding:" : "lr 7/25/2011 19:46" }, - "instance" : { - "decode:" : "pmm 8/26/2011 09:47", - "decoderFor:" : "lr 2/7/2009 09:41", - "encode:" : "pmm 8/26/2011 09:48", - "encoderFor:" : "lr 2/7/2009 09:41", - "name" : "lr 2/7/2009 10:16", - "printOn:" : "lr 2/7/2009 10:17", - "url" : "lr 2/7/2009 11:54" } } diff --git a/repository/Grease-Core.package/GRCodec.class/properties.json b/repository/Grease-Core.package/GRCodec.class/properties.json index ce9d695e..027cedb0 100644 --- a/repository/Grease-Core.package/GRCodec.class/properties.json +++ b/repository/Grease-Core.package/GRCodec.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "lr 2/7/2009 09:55", - "instvars" : [ - ], - "name" : "GRCodec", - "pools" : [ - ], "super" : "GRObject", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRCodec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodecStream.class/properties.json b/repository/Grease-Core.package/GRCodecStream.class/properties.json index 5c2b5d08..469b8552 100644 --- a/repository/Grease-Core.package/GRCodecStream.class/properties.json +++ b/repository/Grease-Core.package/GRCodecStream.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 6/25/2012 20:21", - "instvars" : [ - ], - "name" : "GRCodecStream", - "pools" : [ - ], "super" : "GRDelegatingStream", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRCodecStream", + "type" : "normal" +} \ 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/GRCountingStream.class/methodProperties.json b/repository/Grease-Core.package/GRCountingStream.class/methodProperties.json deleted file mode 100644 index fbf2f5ca..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "count" : "pmm 6/25/2012 20:26", - "greaseNext:putAll:startingAt:" : "pmm 6/25/2012 20:28", - "initialize" : "pmm 6/25/2012 20:26", - "next" : "pmm 6/25/2012 20:46", - "next:" : "pmm 6/25/2012 20:46", - "nextPut:" : "pmm 6/25/2012 20:45", - "nextPutAll:" : "pmm 6/25/2012 20:45", - "reset" : "pmm 6/25/2012 20:27" } } diff --git a/repository/Grease-Core.package/GRCountingStream.class/properties.json b/repository/Grease-Core.package/GRCountingStream.class/properties.json index 41fb53c3..957dd138 100644 --- a/repository/Grease-Core.package/GRCountingStream.class/properties.json +++ b/repository/Grease-Core.package/GRCountingStream.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 6/25/2012 20:39", + "super" : "GRDelegatingStream", + "category" : "Grease-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "count" ], + "count" + ], "name" : "GRCountingStream", - "pools" : [ - ], - "super" : "GRDelegatingStream", - "type" : "normal" } + "type" : "normal" +} \ 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/GRDelayedSend.class/instance/fixCallbackTemps.st b/repository/Grease-Core.package/GRDelayedSend.class/instance/fixCallbackTemps.st deleted file mode 100644 index 22fda1a6..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -fixCallbackTemps - "For polymorphism with BlockContext>>#fixCallbackTemps." \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/methodProperties.json b/repository/Grease-Core.package/GRDelayedSend.class/methodProperties.json deleted file mode 100644 index 8999fb0b..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - "empty" : "jf 7/10/2011 23:48", - "new" : "jf 7/10/2011 23:49", - "receiver:selector:" : "jf 7/10/2011 23:33", - "receiver:selector:argument:" : "pmm 1/10/2009 23:44", - "receiver:selector:arguments:" : "jf 7/10/2011 23:33" }, - "instance" : { - "argumentCount" : "jf 7/10/2011 23:32", - "fixCallbackTemps" : "lr 1/11/2009 11:44", - "initializeWithReceiver:message:" : "jf 7/10/2011 23:23", - "printOn:" : "jf 7/10/2011 23:23", - "value" : "lr 1/11/2009 11:45", - "value:" : "lr 1/11/2009 11:45", - "value:value:" : "lr 1/11/2009 11:46", - "valueWithArguments:" : "jf 7/10/2011 23:24", - "valueWithPossibleArguments:" : "jf 7/10/2011 23:24" } } diff --git a/repository/Grease-Core.package/GRDelayedSend.class/properties.json b/repository/Grease-Core.package/GRDelayedSend.class/properties.json index b5d5672a..ef621ffc 100644 --- a/repository/Grease-Core.package/GRDelayedSend.class/properties.json +++ b/repository/Grease-Core.package/GRDelayedSend.class/properties.json @@ -1,15 +1,14 @@ { - "category" : "Grease-Core-Utilities", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "NickAger 3/20/2012 09:04", + "super" : "GRObject", + "category" : "Grease-Core-Utilities", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "receiver", - "message" ], + "message" + ], "name" : "GRDelayedSend", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ 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/GRDelayedSendMessage.class/methodProperties.json b/repository/Grease-Core.package/GRDelayedSendMessage.class/methodProperties.json deleted file mode 100644 index 9e4a6fb1..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "new" : "jf 7/10/2011 23:28", - "selector:" : "jf 7/10/2011 23:27" }, - "instance" : { - "argumentCount" : "jf 7/10/2011 23:02", - "basicPerformFor:withArguments:" : "jf 7/10/2011 23:20", - "initializeWithSelector:" : "jf 7/10/2011 23:01", - "invalidArgumentCount" : "jf 7/10/2011 23:25", - "mergeArguments:" : "jf 7/10/2011 23:14", - "printOn:" : "jf 7/10/2011 23:36", - "valueFor:withArguments:" : "jf 7/10/2011 23:37", - "valueFor:withPossibleArguments:" : "jf 7/10/2011 23:19" } } diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json b/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json index e26a1310..074052cb 100644 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json +++ b/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core-Utilities", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "NickAger 3/19/2012 11:20", + "super" : "GRObject", + "category" : "Grease-Core-Utilities", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "selector" ], + "selector" + ], "name" : "GRDelayedSendMessage", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ 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/GRDelegatingStream.class/methodProperties.json b/repository/Grease-Core.package/GRDelegatingStream.class/methodProperties.json deleted file mode 100644 index c07facb5..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/methodProperties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "class" : { - "on:" : "pmm 10/30/2010 18:53" }, - "instance" : { - "atEnd" : "pmm 2/20/2009 22:04", - "contents" : "pmm 2/20/2009 22:05", - "crlf" : "pmm 2/20/2009 22:11", - "flush" : "pmm 2/20/2009 22:06", - "initializeOn:" : "pmm 9/1/2012 15:25", - "isStream" : "NorbertHartl 10/7/2010 08:21", - "next" : "pmm 2/20/2009 22:11", - "next:" : "pmm 2/20/2009 22:12", - "nextPut:" : "pmm 2/20/2009 22:12", - "nextPutAll:" : "pmm 2/20/2009 22:12", - "position" : "JohanBrichau 9/14/2013 12:20", - "print:" : "lr 9/25/2011 10:11", - "reset" : "ar 8/4/2010 20:54", - "size" : "pmm 2/20/2009 22:05", - "space" : "jf 7/28/2009 15:55", - "tab" : "jf 7/28/2009 15:56" } } diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/properties.json b/repository/Grease-Core.package/GRDelegatingStream.class/properties.json index 38c81c35..0b47dd66 100644 --- a/repository/Grease-Core.package/GRDelegatingStream.class/properties.json +++ b/repository/Grease-Core.package/GRDelegatingStream.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 6/25/2012 20:20", + "super" : "GRObject", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "stream" ], + "stream" + ], "name" : "GRDelegatingStream", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/methodProperties.json b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/methodProperties.json deleted file mode 100644 index 2c470f35..00000000 --- a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "details" : "jf 9/24/2008 10:28", - "details:" : "jf 9/24/2008 10:28" } } diff --git a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json index a544490f..6241e06c 100644 --- a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json +++ b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 9/14/2013 15:50", + "super" : "GRNotification", + "category" : "Grease-Core-Exceptions", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "details" ], + "details" + ], "name" : "GRDeprecatedApiNotification", - "pools" : [ - ], - "super" : "GRNotification", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRError.class/methodProperties.json b/repository/Grease-Core.package/GRError.class/methodProperties.json deleted file mode 100644 index 0e4a6622..00000000 --- a/repository/Grease-Core.package/GRError.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Grease-Core.package/GRError.class/properties.json b/repository/Grease-Core.package/GRError.class/properties.json index add771d4..2bc08ff7 100644 --- a/repository/Grease-Core.package/GRError.class/properties.json +++ b/repository/Grease-Core.package/GRError.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 9/14/2013 15:50", - "instvars" : [ - ], - "name" : "GRError", - "pools" : [ - ], "super" : "Error", - "type" : "normal" } + "category" : "Grease-Core-Exceptions", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRError", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInflector.class/methodProperties.json b/repository/Grease-Core.package/GRInflector.class/methodProperties.json deleted file mode 100644 index 90d7fbb2..00000000 --- a/repository/Grease-Core.package/GRInflector.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "initialize" : "pmm 2/24/2008 18:31", - "pluralize:" : "jok 3/22/2010 12:04" }, - "instance" : { - } } diff --git a/repository/Grease-Core.package/GRInflector.class/properties.json b/repository/Grease-Core.package/GRInflector.class/properties.json index e2569b29..d71052cf 100644 --- a/repository/Grease-Core.package/GRInflector.class/properties.json +++ b/repository/Grease-Core.package/GRInflector.class/properties.json @@ -1,15 +1,14 @@ { + "commentStamp" : "lr 12/27/2008 09:43", + "super" : "GRObject", "category" : "Grease-Core-Text", - "classinstvars" : [ - ], + "classinstvars" : [ ], + "pools" : [ ], "classvars" : [ "InflectionRules", - "Uninflected" ], - "commentStamp" : "lr 12/27/2008 09:43", - "instvars" : [ - ], + "Uninflected" + ], + "instvars" : [ ], "name" : "GRInflector", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInvalidArgumentCount.class/methodProperties.json b/repository/Grease-Core.package/GRInvalidArgumentCount.class/methodProperties.json deleted file mode 100644 index 0e4a6622..00000000 --- a/repository/Grease-Core.package/GRInvalidArgumentCount.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json b/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json index 3c788a0a..8704ce3f 100644 --- a/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json +++ b/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Utilities", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "jf 3/14/2009 11:05", - "instvars" : [ - ], - "name" : "GRInvalidArgumentCount", - "pools" : [ - ], "super" : "GRError", - "type" : "normal" } + "category" : "Grease-Core-Utilities", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRInvalidArgumentCount", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInvalidUtf8Error.class/methodProperties.json b/repository/Grease-Core.package/GRInvalidUtf8Error.class/methodProperties.json deleted file mode 100644 index 0e4a6622..00000000 --- a/repository/Grease-Core.package/GRInvalidUtf8Error.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json b/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json index 0e69e8d6..3b9f7552 100644 --- a/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json +++ b/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 1/10/2009 22:29", - "instvars" : [ - ], - "name" : "GRInvalidUtf8Error", - "pools" : [ - ], "super" : "GRError", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRInvalidUtf8Error", + "type" : "normal" +} \ 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/GRMappedPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRMappedPrinter.class/methodProperties.json deleted file mode 100644 index efc38a4e..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "block:next:" : "lr 7/24/2008 11:32" }, - "instance" : { - "block:" : "lr 7/24/2008 11:29", - "initialize" : "lr 2/6/2010 10:26", - "next:" : "lr 7/24/2008 11:27", - "print:on:" : "lr 7/24/2008 11:26" } } diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/properties.json b/repository/Grease-Core.package/GRMappedPrinter.class/properties.json index 668181c1..8d00da71 100644 --- a/repository/Grease-Core.package/GRMappedPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRMappedPrinter.class/properties.json @@ -1,15 +1,14 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "GRPrinter", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "next", - "block" ], + "block" + ], "name" : "GRMappedPrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotification.class/methodProperties.json b/repository/Grease-Core.package/GRNotification.class/methodProperties.json deleted file mode 100644 index 0e4a6622..00000000 --- a/repository/Grease-Core.package/GRNotification.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Grease-Core.package/GRNotification.class/properties.json b/repository/Grease-Core.package/GRNotification.class/properties.json index 8e0efeb2..9343c7c2 100644 --- a/repository/Grease-Core.package/GRNotification.class/properties.json +++ b/repository/Grease-Core.package/GRNotification.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Exceptions", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 9/14/2013 15:50", - "instvars" : [ - ], - "name" : "GRNotification", - "pools" : [ - ], "super" : "Notification", - "type" : "normal" } + "category" : "Grease-Core-Exceptions", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNotification", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md new file mode 100644 index 00000000..b4e8afc4 --- /dev/null +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md @@ -0,0 +1,3 @@ +An implementation of a dynamic varaible based on notifications. + +Dialects that do not support dynamic variables or thread/process local variables can create an empty subclass of this class called GRDynamicVariable. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..3d7f6377 --- /dev/null +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st @@ -0,0 +1,3 @@ +defaults +defaultValue + ^ nil \ 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 new file mode 100644 index 00000000..ba04b46e --- /dev/null +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st @@ -0,0 +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 new file mode 100644 index 00000000..bedb8f2b --- /dev/null +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st @@ -0,0 +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/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st new file mode 100644 index 00000000..75d7e9c2 --- /dev/null +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st @@ -0,0 +1,3 @@ +defaults +defaultAction + ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json new file mode 100644 index 00000000..ae53018e --- /dev/null +++ b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 9/5/2017 14:34", + "super" : "GRNotification", + "category" : "Grease-Core-Utilities", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNotificationBasedDynamicVariable", + "type" : "normal" +} \ 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/GRNullCodec.class/methodProperties.json b/repository/Grease-Core.package/GRNullCodec.class/methodProperties.json deleted file mode 100644 index 9e6d611e..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "lr 7/25/2011 19:46", - "codecName" : "pmm 5/26/2010 07:07", - "codecs" : "jf 2/7/2009 20:27", - "supportsEncoding:" : "lr 7/25/2011 19:46" }, - "instance" : { - "decode:" : "pmm 8/19/2014 10:00", - "decoderFor:" : "jf 9/30/2009 00:28", - "encode:" : "pmm 8/19/2014 10:00", - "encoderFor:" : "jf 9/30/2009 00:28", - "name" : "pmm 5/26/2010 07:07", - "url" : "lr 2/7/2009 12:06" } } diff --git a/repository/Grease-Core.package/GRNullCodec.class/properties.json b/repository/Grease-Core.package/GRNullCodec.class/properties.json index fa5681d4..508887e5 100644 --- a/repository/Grease-Core.package/GRNullCodec.class/properties.json +++ b/repository/Grease-Core.package/GRNullCodec.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 9/14/2013 15:52", - "instvars" : [ - ], - "name" : "GRNullCodec", - "pools" : [ - ], "super" : "GRCodec", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNullCodec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/methodProperties.json b/repository/Grease-Core.package/GRNullCodecStream.class/methodProperties.json deleted file mode 100644 index 9b1e43c4..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "next" : "lr 7/25/2011 19:50", - "next:" : "lr 7/25/2011 19:50", - "nextPut:" : "lr 7/16/2009 08:52", - "nextPutAll:" : "lr 7/16/2009 08:52" } } diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/properties.json b/repository/Grease-Core.package/GRNullCodecStream.class/properties.json index 3dcfe4e2..c13ef53c 100644 --- a/repository/Grease-Core.package/GRNullCodecStream.class/properties.json +++ b/repository/Grease-Core.package/GRNullCodecStream.class/properties.json @@ -1,14 +1,11 @@ { + "commentStamp" : "pmm 2/20/2009 21:59", + "super" : "GRCodecStream", "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 6/25/2012 20:21", - "instvars" : [ - ], + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], "name" : "GRNullCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st index fa3867ed..6e122a37 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st @@ -1,5 +1,5 @@ accessing accuracy: aFloat "Round towards the nearest number that is a multiple of aFloat." - + accuracy := aFloat \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st index 0469766d..47e728a3 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st @@ -8,7 +8,7 @@ digitsOf: aNumber base: aBaseInteger stream := WriteStream on: (String new: 10). [ integer > 0 ] whileTrue: [ next := integer quo: aBaseInteger. - stream nextPut: (characters + stream nextPut: (characters at: 1 + integer - (next * aBaseInteger)). integer := next ]. ^ stream contents reverse \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st index a34708fd..ed18785f 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st @@ -1,5 +1,5 @@ accessing infinite: aString "The string that should be displayed if the number is positive or negative infinity." - + infinite := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st new file mode 100644 index 00000000..62f6b34d --- /dev/null +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st @@ -0,0 +1,13 @@ +utilities +lengthOf: aNumber base: aBaseInteger + "Answer the number of digits of aNumber in the base aBaseInteger. + Same as #decimalDigitLength" + + | integer current length | + integer := aNumber truncated abs. + length := 1. + current := aBaseInteger. + [ 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/padLeft.to.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/padLeft.to.on..st new file mode 100644 index 00000000..84e92aa2 --- /dev/null +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/padLeft.to.on..st @@ -0,0 +1,9 @@ +utilities +padLeft: aCharacter to: aPadCountInteger on: aStream + "Pad to the left side of aString with aCharacter to at anInteger characters." + + 1 to: aPadCountInteger do: [ :index | + separator isNil ifFalse: [ + (index ~= 1 and: [ (digits - index) \\ 3 = 2 ]) + ifTrue: [ aStream nextPut: separator ] ]. + aStream nextPut: aCharacter ] \ 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 new file mode 100644 index 00000000..7b24a6aa --- /dev/null +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st @@ -0,0 +1,16 @@ +utilities +printDigitsOf: aNumber withLength: aLengthInteger on: aStream + "Print the digits of aNumber with a lenght of aLengthInteger on aStream. + Also print a separator if required." + + | rest | + rest := aNumber truncated abs. + 1 to: aLengthInteger do: [ :index | + | divisor current | + divisor := base raisedTo: aLengthInteger - index. + current := rest // divisor. + separator isNil ifFalse: [ + (index ~= 1 and: [ (aLengthInteger - index) \\ 3 = 2 ]) + ifTrue: [ aStream nextPut: separator ] ]. + aStream nextPut: (characters at: current + 1). + rest := rest - (divisor * current) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st index bb8f4b5d..dab2293c 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st @@ -5,5 +5,5 @@ printFraction: aNumber on: aStream pad: (self digitsOf: aNumber rounded base: base) left: $0 to: precision. separator isNil - ifFalse: [ result := self separate: result left: separator ]. - aStream nextPutAll: result \ No newline at end of file + ifTrue: [ aStream nextPutAll: result ] + ifFalse: [ self separate: result left: separator on: aStream ] \ No newline at end of file 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 80836c69..0442220e 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st @@ -1,9 +1,9 @@ printing printInteger: aNumber on: aStream - | result | - result := self digitsOf: aNumber integerPart base: base. - separator isNil - ifFalse: [ result := self separate: result right: separator ]. - (digits isNil or: [ padding isNil ]) - ifFalse: [ result := self pad: result left: padding to: digits ]. - aStream nextPutAll: result \ No newline at end of file + | 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..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left..st deleted file mode 100644 index 8fb6df19..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left..st +++ /dev/null @@ -1,12 +0,0 @@ -utilities -separate: aString left: aCharacter - "Separate from the left side every 3 characters with aCharacter." - - | size stream | - size := aString size. - stream := WriteStream on: (String new: 2 * size). - 1 to: size do: [ :index | - (index ~= 1 and: [ index \\ 3 = 1 ]) - ifTrue: [ stream nextPut: aCharacter ]. - stream nextPut: (aString at: index) ]. - ^ stream contents \ 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 new file mode 100644 index 00000000..574c0646 --- /dev/null +++ b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st @@ -0,0 +1,10 @@ +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 | + (index ~= 1 and: [ index \\ 3 = 1 ]) + ifTrue: [ aStream nextPut: aCharacter ]. + aStream nextPut: (aString at: index) ] \ No newline at end of file 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/GRNumberPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRNumberPrinter.class/methodProperties.json deleted file mode 100644 index 6bfd39ce..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "class" : { - "initialize" : "lr 1/23/2009 21:18" }, - "instance" : { - "accuracy:" : "lr 7/25/2008 19:13", - "base:" : "lr 7/25/2008 19:16", - "characters:" : "lr 2/6/2010 10:17", - "delimiter:" : "lr 7/24/2008 14:36", - "digits:" : "lr 7/24/2008 11:50", - "digitsOf:base:" : "lr 5/13/2010 12:26", - "infinite:" : "lr 3/24/2008 16:19", - "initialize" : "lr 2/6/2010 10:58", - "lowercase" : "lr 2/6/2010 10:17", - "nan:" : "lr 3/24/2008 16:19", - "padding:" : "lr 7/24/2008 11:51", - "precision:" : "lr 7/25/2008 19:16", - "print:on:" : "lr 3/24/2008 16:27", - "printFloat:on:" : "pmm 9/15/2013 11:45", - "printFraction:on:" : "lr 6/4/2009 21:41", - "printInfinite:on:" : "lr 3/24/2008 16:39", - "printInteger:on:" : "lr 7/24/2008 12:39", - "printNaN:on:" : "lr 3/24/2008 16:39", - "separate:left:" : "lr 7/24/2008 14:34", - "separate:right:" : "lr 7/24/2008 14:34", - "separator:" : "lr 7/24/2008 14:35", - "uppercase" : "lr 2/6/2010 10:17" } } diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/properties.json b/repository/Grease-Core.package/GRNumberPrinter.class/properties.json index 09dc6c1c..a3ea64f8 100644 --- a/repository/Grease-Core.package/GRNumberPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRNumberPrinter.class/properties.json @@ -1,11 +1,13 @@ { + "commentStamp" : "pmm 2/1/2014 13:27", + "super" : "GRPrinter", "category" : "Grease-Core-Text", - "classinstvars" : [ - ], + "classinstvars" : [ ], + "pools" : [ ], "classvars" : [ "NumbersToCharactersLowercase", - "NumbersToCharactersUppercase" ], - "commentStamp" : "pmm 2/1/2014 13:27", + "NumbersToCharactersUppercase" + ], "instvars" : [ "characters", "base", @@ -16,9 +18,8 @@ "padding", "accuracy", "precision", - "separator" ], + "separator" + ], "name" : "GRNumberPrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/methodProperties.json b/repository/Grease-Core.package/GRObject.class/methodProperties.json deleted file mode 100644 index 83cf19bd..00000000 --- a/repository/Grease-Core.package/GRObject.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "defaultErrorClass" : "jf 9/30/2009 00:20", - "error:" : "jf 3/13/2009 16:40", - "new" : "jf 3/13/2009 16:28" }, - "instance" : { - "error:" : "jf 3/13/2009 16:40", - "initialize" : "jf 3/13/2009 16:14" } } diff --git a/repository/Grease-Core.package/GRObject.class/properties.json b/repository/Grease-Core.package/GRObject.class/properties.json index f4ddbcbd..aae31ac4 100644 --- a/repository/Grease-Core.package/GRObject.class/properties.json +++ b/repository/Grease-Core.package/GRObject.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 9/14/2013 15:52", - "instvars" : [ - ], - "name" : "GRObject", - "pools" : [ - ], "super" : "Object", - "type" : "normal" } + "category" : "Grease-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRObject", + "type" : "normal" +} \ 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/GROrderedMultiMap.class/methodProperties.json b/repository/Grease-Core.package/GROrderedMultiMap.class/methodProperties.json deleted file mode 100644 index 0d6d9890..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:" : "lr 7/25/2011 19:52", - "addAll:" : "pmm 8/26/2016 15:57", - "allAt:" : "jf 2/15/2010 15:39", - "allAt:ifAbsent:" : "jf 2/15/2010 15:39", - "at:add:" : "jf 2/15/2010 13:24", - "keysAndAllValuesDo:" : "pmm 8/26/2016 15:52", - "privateAllAt:startingAt:" : "pmm 8/26/2016 15:52", - "removeKey:ifAbsent:" : "pmm 8/26/2016 15:56" } } diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json b/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json index d9c9d2f1..81f5ae5d 100644 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json +++ b/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Collections", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "jf 2/15/2010 16:04", - "instvars" : [ - ], - "name" : "GROrderedMultiMap", - "pools" : [ - ], "super" : "GRSmallDictionary", - "type" : "normal" } + "category" : "Grease-Core-Collections", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GROrderedMultiMap", + "type" : "normal" +} \ 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/GROrderedMultiMap2.class/methodProperties.json b/repository/Grease-Core.package/GROrderedMultiMap2.class/methodProperties.json deleted file mode 100644 index 466947a4..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "add:" : "lr 7/25/2011 19:52", - "addAll:" : "pmm 8/25/2016 12:32", - "allAt:" : "pmm 8/25/2016 15:09", - "allAt:ifAbsent:" : "jf 2/15/2010 15:39", - "at:add:" : "jf 2/15/2010 13:24", - "keysAndAllValuesDo:" : "pmm 8/25/2016 15:12", - "privateAllAt:startingAt:" : "pmm 8/25/2016 15:08", - "removeKey:ifAbsent:" : "pmm 8/22/2016 12:10" } } diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json b/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json index 19872e9e..b4aecc33 100644 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json +++ b/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Collections", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "jf 2/15/2010 16:04", - "instvars" : [ - ], - "name" : "GROrderedMultiMap2", - "pools" : [ - ], "super" : "GRSmallDictionary2", - "type" : "normal" } + "category" : "Grease-Core-Collections", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GROrderedMultiMap2", + "type" : "normal" +} \ 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/GROrdinalizePrinter.class/methodProperties.json b/repository/Grease-Core.package/GROrdinalizePrinter.class/methodProperties.json deleted file mode 100644 index 999dfac7..00000000 --- a/repository/Grease-Core.package/GROrdinalizePrinter.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "ordinalize:" : "lr 2/16/2008 19:37", - "print:on:" : "lr 2/16/2008 19:32" } } diff --git a/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json b/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json index 12ee98f9..76be2fb0 100644 --- a/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json +++ b/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GROrdinalizePrinter", - "pools" : [ - ], "super" : "GRPrinter", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GROrdinalizePrinter", + "type" : "normal" +} \ 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 21b09d23..0617a084 100644 --- a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st +++ b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st @@ -1,22 +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 -Squeak-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ - "try -Squeak5-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') 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/GRPackage.class/methodProperties.json b/repository/Grease-Core.package/GRPackage.class/methodProperties.json deleted file mode 100644 index 784ba29c..00000000 --- a/repository/Grease-Core.package/GRPackage.class/methodProperties.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "instance" : { - "dependencies" : "jf 3/15/2009 17:00", - "license:" : "obi 10/8/2009 07:51", - "initialize" : "lr 2/17/2010 15:06", - "license" : "lr 2/10/2010 11:18", - "name" : "lr 2/17/2010 15:18", - "description:" : "lr 10/25/2009 11:26", - "seasideUrl" : "pmm 9/12/2013 15:58", - "allDependencies" : "lr 2/17/2010 15:18", - "isLGPL" : "lr 10/25/2009 15:19", - "seasideLGPLUrl" : "pmm 9/12/2013 15:59", - "greaseUrl" : "pmm 9/12/2013 15:57", - "name:" : "lr 10/25/2009 11:26", - "description" : "merged 10/20/2008 09:23", - "seasideAddonsUrl" : "pmm 9/12/2013 15:59", - "resolveWith:" : "JohanBrichau 5/26/2017 15:56", - "addDependency:" : "merged 10/20/2008 09:33", - "url" : "lr 2/10/2010 11:18", - "printOn:" : "merged 10/20/2008 09:24", - "addDependenciesTo:" : "lr 9/5/2009 18:35", - "url:" : "lr 2/17/2010 15:18", - "isMIT" : "lr 10/25/2009 15:19" - }, - "class" : { - "greaseCore" : "pmm 9/12/2013 16:00", - "grPackages" : "JohanBrichau 12/15/2013 18:27" - } -} \ 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 new file mode 100644 index 00000000..5f6f20ee --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st @@ -0,0 +1,8 @@ +processes +thisContext + "Answer the current activation of a method execution or block activation. + + For dialects with a thisContext variable and implementation can look like this. + + ^ thisContext sender" + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st index 68e0cef6..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: 3 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/GRPlatform.class/methodProperties.json b/repository/Grease-Core.package/GRPlatform.class/methodProperties.json deleted file mode 100644 index 61863299..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/methodProperties.json +++ /dev/null @@ -1,47 +0,0 @@ -{ - "instance" : { - "localNameOf:" : "pmm 8/19/2014 10:10", - "stackDepth" : "jf 1/22/2009 02:11", - "versionString" : "jf 2/9/2010 00:57", - "semaphoreClass" : "jf 1/22/2009 02:10", - "reducedConflictDictionary" : "jf 1/22/2009 02:39", - "directoriesIn:" : "NickAger 3/9/2012 11:29", - "doTransaction:" : "lr 7/25/2011 19:51", - "terminateProcess:" : "jf 2/6/2009 16:00", - "openDebuggerOn:" : "jf 1/22/2009 02:11", - "bindingOf:" : "pmm 8/23/2014 11:42", - "convertToSmalltalkNewlines:" : "lr 4/15/2010 19:15", - "writeCharacterStreamOn:" : "pmm 8/26/2011 09:45", - "pathSeparator" : "pmm 2/5/2011 09:53", - "compile:into:classified:" : "jf 1/22/2009 02:11", - "weakDictionaryOfSize:" : "jf 1/22/2009 02:11", - "write:toFile:inFolder:" : "pmm 8/19/2014 10:11", - "base64Decode:" : "pmm 8/27/2011 15:12", - "removeFromShutDownList:" : "jf 1/22/2009 02:11", - "removeFromStartUpList:" : "jf 1/22/2009 02:11", - "isProcessTerminated:" : "jf 2/6/2009 16:00", - "label" : "jf 2/9/2010 00:57", - "addToShutDownList:" : "jf 1/22/2009 02:11", - "newRandom" : "jf 9/25/2009 16:40", - "ensureExistenceOfFolder:" : "pmm 2/5/2011 09:54", - "version" : "JohanBrichau 5/25/2017 17:46", - "contentsOfFile:binary:" : "jf 1/22/2009 02:11", - "addToStartUpList:" : "jf 1/22/2009 02:10", - "removeSelector:from:" : "jf 1/22/2009 02:11", - "secureHashFor:" : "jf 1/22/2009 02:11", - "fileExists:" : "JohanBrichau 10/3/2014 20:02", - "filesIn:" : "pmm 2/5/2011 09:54", - "newline" : "lr 4/15/2010 19:13", - "readWriteCharacterStream" : "lr 7/25/2011 19:51", - "readWriteByteStream" : "lr 7/25/2011 19:51", - "deprecationExceptionSet" : "pmm 9/6/2014 12:17", - "asMethodReturningByteArray:named:" : "jf 1/22/2009 02:11", - "fileStreamOn:do:binary:" : "JohanBrichau 10/3/2014 20:00" - }, - "class" : { - "current" : "jgf 1/25/2009 12:06", - "unselect" : "jf 9/30/2009 00:19", - "current:" : "jf 1/21/2009 17:08", - "select" : "jf 9/30/2009 00:19" - } -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/methodProperties.json b/repository/Grease-Core.package/GRPluggablePrinter.class/methodProperties.json deleted file mode 100644 index 128bf591..00000000 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "on:" : "lr 7/24/2008 13:59" }, - "instance" : { - "block:" : "lr 7/24/2008 12:49", - "initialize" : "lr 2/6/2010 10:15", - "print:on:" : "lr 7/24/2008 12:49" } } diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json b/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json index f574ab93..3ab1e85a 100644 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json +++ b/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "GRPrinter", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "block" ], + "block" + ], "name" : "GRPluggablePrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ 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/GRPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRPrinter.class/methodProperties.json deleted file mode 100644 index b1b02058..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/methodProperties.json +++ /dev/null @@ -1,46 +0,0 @@ -{ - "class" : { - "abbreviatedMonthName" : "lr 7/24/2008 13:59", - "abbreviatedWeekName" : "lr 7/24/2008 14:25", - "absOffsetHoursPadded" : "jf 9/30/2009 00:32", - "absOffsetMinutesPadded" : "jf 9/30/2009 00:32", - "binaryFileSize" : "lr 2/19/2012 13:00", - "cookieTimestamp" : "lr 2/19/2012 13:01", - "decimalFileSize" : "lr 2/19/2012 13:00", - "fullMonthName" : "lr 7/24/2008 13:59", - "fullWeekName" : "lr 7/24/2008 14:25", - "httpDate" : "lr 2/19/2012 13:01", - "isoDate" : "pmm 8/19/2014 10:06", - "isoTime" : "pmm 8/19/2014 10:05", - "monthName:" : "jf 9/30/2009 00:32", - "numberWithAtLeastDigits:" : "lr 2/19/2012 13:00", - "offsetSign" : "jf 9/30/2009 00:33", - "paddedCentury" : "jf 9/30/2009 00:32", - "paddedDay" : "jf 9/30/2009 00:32", - "paddedHour12" : "jf 9/30/2009 00:32", - "paddedHour24" : "jf 9/30/2009 00:32", - "paddedMinute" : "jf 9/30/2009 00:32", - "paddedMonth" : "jf 9/30/2009 00:32", - "paddedSecond" : "jf 9/30/2009 00:32", - "paddedYear" : "jf 9/30/2009 00:32", - "rfc1123" : "lr 2/19/2012 13:01", - "rfc822" : "pmm 8/19/2014 10:06", - "rfc822WithTimeZone:" : "lr 2/19/2012 13:02", - "swissCurrency" : "jf 9/30/2009 00:33", - "unpaddedCentury" : "jf 9/30/2009 00:32", - "unpaddedDay" : "jf 9/30/2009 00:32", - "unpaddedHour12" : "jf 9/30/2009 00:32", - "unpaddedHour24" : "jf 9/30/2009 00:32", - "unpaddedMinute" : "jf 9/30/2009 00:32", - "unpaddedMonth" : "jf 9/30/2009 00:32", - "unpaddedSecond" : "jf 9/30/2009 00:32", - "unpaddedYear" : "jf 9/30/2009 00:32", - "usCurrency" : "jf 9/30/2009 00:33", - "weekName:" : "jf 9/30/2009 00:32" }, - "instance" : { - "," : "jf 9/30/2009 00:33", - "pad:center:to:" : "jok 1/26/2010 09:56", - "pad:left:to:" : "jok 1/26/2010 09:56", - "pad:right:to:" : "jok 1/26/2010 09:56", - "print:" : "lr 2/7/2008 10:37", - "print:on:" : "lr 7/25/2008 19:51" } } diff --git a/repository/Grease-Core.package/GRPrinter.class/properties.json b/repository/Grease-Core.package/GRPrinter.class/properties.json index 99000cf2..5a6bf772 100644 --- a/repository/Grease-Core.package/GRPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRPrinter.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPrinter", - "pools" : [ - ], "super" : "GRObject", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPrinter", + "type" : "normal" +} \ 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/GRSequentialPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRSequentialPrinter.class/methodProperties.json deleted file mode 100644 index 14a35d6c..00000000 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "," : "lr 2/7/2008 11:33", - "initialize" : "lr 2/7/2008 10:28", - "print:on:" : "lr 2/7/2008 10:29" } } diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json b/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json index a3e6728e..2b409dea 100644 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json @@ -1,14 +1,13 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "GRPrinter", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ - "parts" ], + "parts" + ], "name" : "GRSequentialPrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ 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/GRSignPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRSignPrinter.class/methodProperties.json deleted file mode 100644 index 10506768..00000000 --- a/repository/Grease-Core.package/GRSignPrinter.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "initialize" : "lr 2/6/2010 10:15", - "negativePrinter:" : "lr 2/7/2008 13:28", - "positivePrinter:" : "lr 2/7/2008 13:28", - "print:on:" : "lr 2/7/2008 13:27" } } diff --git a/repository/Grease-Core.package/GRSignPrinter.class/properties.json b/repository/Grease-Core.package/GRSignPrinter.class/properties.json index d99f010c..498737bc 100644 --- a/repository/Grease-Core.package/GRSignPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRSignPrinter.class/properties.json @@ -1,15 +1,14 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "GRPrinter", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "negativePrinter", - "positivePrinter" ], + "positivePrinter" + ], "name" : "GRSignPrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st new file mode 100644 index 00000000..9645114f --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st @@ -0,0 +1,5 @@ +accessing +any + self isEmpty + ifTrue: [ ^ self errorEmptyCollection ]. + ^ values at: 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st new file mode 100644 index 00000000..53663322 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st @@ -0,0 +1,3 @@ +private +errorEmptyCollection + self error: 'Empty' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st new file mode 100644 index 00000000..446d5103 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st @@ -0,0 +1,5 @@ +enumerating +noneSatisfy: aOneArgumentBlock + 1 to: size do: [ :index | + (aOneArgumentBlock value: (values at: index)) ifTrue: [ ^ false ] ]. + ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st new file mode 100644 index 00000000..5c2936d1 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st @@ -0,0 +1,3 @@ +testing +notEmpty + ^ size ~= 0 \ 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/GRSmallDictionary.class/instance/sorted..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted..st new file mode 100644 index 00000000..42fd3983 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted..st @@ -0,0 +1,3 @@ +sorting +sorted: aTwoArgumentBlock + ^ self values sorted: aTwoArgumentBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st new file mode 100644 index 00000000..738161d8 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st @@ -0,0 +1,3 @@ +sorting +sorted + ^ self values sorted \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/methodProperties.json b/repository/Grease-Core.package/GRSmallDictionary.class/methodProperties.json deleted file mode 100644 index 990bd67e..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/methodProperties.json +++ /dev/null @@ -1,34 +0,0 @@ -{ - "class" : { - "new" : "lr 1/24/2008 12:34", - "new:" : "jf 3/13/2009 18:19", - "withAll:" : "jf 2/15/2010 22:50" }, - "instance" : { - "add:" : "lr 7/25/2011 19:51", - "addAll:" : "pmm 8/26/2016 15:59", - "associations" : "lr 10/28/2007 14:42", - "associationsDo:" : "lr 8/20/2007 13:45", - "at:" : "lr 10/28/2007 14:42", - "at:ifAbsent:" : "lr 10/28/2007 14:42", - "at:ifAbsentPut:" : "lr 10/28/2007 14:42", - "at:ifPresent:" : "lr 10/28/2007 14:42", - "at:put:" : "lr 10/28/2007 14:42", - "do:" : "jf 12/29/2009 20:38", - "errorKeyNotFound" : "lr 7/12/2007 13:18", - "findIndexFor:" : "lr 10/28/2007 14:42", - "grow" : "lr 6/6/2007 19:12", - "includesKey:" : "lr 10/28/2007 14:42", - "initialize:" : "jf 3/13/2009 17:48", - "isCollection" : "jf 2/15/2010 15:47", - "isEmpty" : "lr 7/9/2007 08:13", - "keys" : "lr 7/9/2007 10:37", - "keysAndValuesDo:" : "lr 6/7/2007 08:04", - "keysDo:" : "lr 8/17/2007 11:52", - "postCopy" : "lr 7/9/2007 07:50", - "printOn:" : "pmm 1/22/2012 16:32", - "privateAt:put:" : "lr 6/6/2007 19:28", - "removeIndex:" : "jf 2/15/2010 14:33", - "removeKey:" : "lr 7/12/2007 13:18", - "removeKey:ifAbsent:" : "jf 2/15/2010 14:40", - "size" : "lr 7/9/2007 10:38", - "values" : "lr 7/9/2007 10:38" } } diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/properties.json b/repository/Grease-Core.package/GRSmallDictionary.class/properties.json index 5550a4ab..1019d4ab 100644 --- a/repository/Grease-Core.package/GRSmallDictionary.class/properties.json +++ b/repository/Grease-Core.package/GRSmallDictionary.class/properties.json @@ -1,16 +1,15 @@ { - "category" : "Grease-Core-Collections", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "jf 2/15/2010 15:51", + "super" : "GRObject", + "category" : "Grease-Core-Collections", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "size", "keys", - "values" ], + "values" + ], "name" : "GRSmallDictionary", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st new file mode 100644 index 00000000..bb83f5bf --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st @@ -0,0 +1,5 @@ +accessing +any + self isEmpty + ifTrue: [ ^ self errorEmptyCollection ]. + ^ table at: 2 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st new file mode 100644 index 00000000..53663322 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st @@ -0,0 +1,3 @@ +private +errorEmptyCollection + self error: 'Empty' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st new file mode 100644 index 00000000..5edb5175 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st @@ -0,0 +1,6 @@ +enumerating +noneSatisfy: aOneArgumentBlock + size = 0 ifTrue: [ ^ true ]. + 2 to: size * 2 by: 2 do: [ :index | + (aOneArgumentBlock value: (table at: index)) ifTrue: [ ^ false ] ]. + ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st new file mode 100644 index 00000000..5c2936d1 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st @@ -0,0 +1,3 @@ +testing +notEmpty + ^ size ~= 0 \ No newline at end of file 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 b22a6db0..79822d57 100644 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st @@ -1,8 +1,8 @@ private removeIndex: index | value | - value := table at: index * 2. - index to: size * 2 - 2 do: [ :i | + value := table at: index + 1. + 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/GRSmallDictionary2.class/instance/sorted..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted..st new file mode 100644 index 00000000..42fd3983 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted..st @@ -0,0 +1,3 @@ +sorting +sorted: aTwoArgumentBlock + ^ self values sorted: aTwoArgumentBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st new file mode 100644 index 00000000..738161d8 --- /dev/null +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st @@ -0,0 +1,3 @@ +sorting +sorted + ^ self values sorted \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/methodProperties.json b/repository/Grease-Core.package/GRSmallDictionary2.class/methodProperties.json deleted file mode 100644 index 8ce417f3..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/methodProperties.json +++ /dev/null @@ -1,34 +0,0 @@ -{ - "class" : { - "new" : "lr 1/24/2008 12:34", - "new:" : "jf 3/13/2009 18:19", - "withAll:" : "jf 2/15/2010 22:50" }, - "instance" : { - "add:" : "lr 7/25/2011 19:51", - "addAll:" : "pmm 8/25/2016 12:31", - "associations" : "lr 10/28/2007 14:42", - "associationsDo:" : "lr 8/20/2007 13:45", - "at:" : "lr 10/28/2007 14:42", - "at:ifAbsent:" : "pmm 8/22/2016 12:08", - "at:ifAbsentPut:" : "pmm 8/22/2016 12:09", - "at:ifPresent:" : "pmm 8/22/2016 12:09", - "at:put:" : "pmm 8/22/2016 12:09", - "do:" : "pmm 8/22/2016 12:02", - "errorKeyNotFound" : "lr 7/12/2007 13:18", - "findIndexFor:" : "pmm 8/22/2016 12:17", - "grow" : "pmm 8/25/2016 11:00", - "includesKey:" : "lr 10/28/2007 14:42", - "initialize:" : "pmm 8/22/2016 11:52", - "isCollection" : "jf 2/15/2010 15:47", - "isEmpty" : "lr 7/9/2007 08:13", - "keys" : "pmm 8/22/2016 12:33", - "keysAndValuesDo:" : "pmm 8/25/2016 15:04", - "keysDo:" : "pmm 8/22/2016 12:18", - "postCopy" : "pmm 8/22/2016 11:56", - "printOn:" : "pmm 1/22/2012 16:32", - "privateAt:put:" : "pmm 8/22/2016 12:15", - "removeIndex:" : "pmm 8/22/2016 12:29", - "removeKey:" : "lr 7/12/2007 13:18", - "removeKey:ifAbsent:" : "jf 2/15/2010 14:40", - "size" : "lr 7/9/2007 10:38", - "values" : "pmm 8/22/2016 12:34" } } diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json b/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json index 313b9fc6..ff3e5f02 100644 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json +++ b/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json @@ -1,15 +1,14 @@ { - "category" : "Grease-Core-Collections", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 8/22/2016 11:49", + "super" : "GRObject", + "category" : "Grease-Core-Collections", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "size", - "table" ], + "table" + ], "name" : "GRSmallDictionary2", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file 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/GRSmallOrderedSet.class/methodProperties.json b/repository/Grease-Core.package/GRSmallOrderedSet.class/methodProperties.json deleted file mode 100644 index 0ac3ad50..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/methodProperties.json +++ /dev/null @@ -1,23 +0,0 @@ -{ - "class" : { - "new" : "pmm 8/25/2016 14:29", - "new:" : "pmm 8/25/2016 14:29", - "withAll:" : "pmm 8/25/2016 14:29" }, - "instance" : { - "add:" : "pmm 8/25/2016 14:34", - "addAll:" : "pmm 8/25/2016 14:24", - "do:" : "pmm 8/25/2016 14:05", - "do:separatedBy:" : "pmm 8/25/2016 15:31", - "errorNotFound" : "pmm 8/25/2016 14:41", - "findIndexFor:" : "pmm 8/25/2016 14:13", - "grow" : "pmm 8/25/2016 14:27", - "includes:" : "pmm 8/25/2016 14:15", - "initialize:" : "pmm 8/25/2016 14:28", - "isCollection" : "pmm 8/26/2016 15:36", - "isEmpty" : "pmm 8/25/2016 13:48", - "postCopy" : "pmm 8/25/2016 14:47", - "privateAdd:" : "pmm 8/25/2016 14:31", - "remove:" : "pmm 8/25/2016 14:43", - "remove:ifAbsent:" : "pmm 8/25/2016 14:42", - "removeIndex:" : "pmm 8/25/2016 14:40", - "size" : "pmm 8/25/2016 13:47" } } diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json b/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json index c32ab5c5..6ca318aa 100644 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json +++ b/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json @@ -1,15 +1,14 @@ { - "category" : "Grease-Core-Collections", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "pmm 8/25/2016 14:03", + "super" : "GRObject", + "category" : "Grease-Core-Collections", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "size", - "table" ], + "table" + ], "name" : "GRSmallOrderedSet", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ 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 035a652f..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,12 +1,12 @@ 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 - ifTrue: [ string := string copyFrom: 1to: length ]. + 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 ] ]. aStream nextPutAll: string \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRStringPrinter.class/methodProperties.json deleted file mode 100644 index ea619ea5..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "character:" : "lr 1/23/2009 21:40", - "initialize" : "lr 2/6/2010 10:11", - "length:" : "lr 1/23/2009 22:00", - "padCenter" : "lr 1/23/2009 22:01", - "padLeft" : "lr 1/23/2009 22:02", - "padNone" : "lr 2/6/2010 10:11", - "padRight" : "lr 1/23/2009 22:01", - "print:on:" : "lr 2/6/2010 10:10", - "trimBoth" : "lr 1/23/2009 21:59", - "trimLeft" : "lr 1/23/2009 21:59", - "trimNone" : "lr 2/6/2010 10:11", - "trimRight" : "lr 1/23/2009 21:59" } } diff --git a/repository/Grease-Core.package/GRStringPrinter.class/properties.json b/repository/Grease-Core.package/GRStringPrinter.class/properties.json index 30a330ed..19d2dd05 100644 --- a/repository/Grease-Core.package/GRStringPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRStringPrinter.class/properties.json @@ -1,17 +1,16 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "GRPrinter", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "trim", "length", "pad", - "character" ], + "character" + ], "name" : "GRStringPrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnboundMessage.class/methodProperties.json b/repository/Grease-Core.package/GRUnboundMessage.class/methodProperties.json deleted file mode 100644 index dc4115b8..00000000 --- a/repository/Grease-Core.package/GRUnboundMessage.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "lr 1/11/2009 13:02", - "mergeArguments:" : "lr 7/25/2011 19:52" } } diff --git a/repository/Grease-Core.package/GRUnboundMessage.class/properties.json b/repository/Grease-Core.package/GRUnboundMessage.class/properties.json index 88a35531..01ffa8ba 100644 --- a/repository/Grease-Core.package/GRUnboundMessage.class/properties.json +++ b/repository/Grease-Core.package/GRUnboundMessage.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Utilities", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "jf 3/14/2009 11:03", - "instvars" : [ - ], - "name" : "GRUnboundMessage", - "pools" : [ - ], "super" : "GRDelayedSendMessage", - "type" : "normal" } + "category" : "Grease-Core-Utilities", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUnboundMessage", + "type" : "normal" +} \ No newline at end of file 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/GRUnitPrinter.class/methodProperties.json b/repository/Grease-Core.package/GRUnitPrinter.class/methodProperties.json deleted file mode 100644 index bba83ab7..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "base:units:" : "lr 9/22/2008 23:34" }, - "instance" : { - "base:" : "lr 9/22/2008 23:27", - "fractionPrinter:" : "lr 2/7/2008 13:23", - "initialize" : "lr 2/6/2010 10:07", - "integerPrinter:" : "lr 2/7/2008 13:23", - "print:on:" : "lr 9/22/2008 23:28", - "print:unit:on:" : "lr 9/22/2008 23:36", - "units:" : "lr 9/22/2008 23:27" } } diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/properties.json b/repository/Grease-Core.package/GRUnitPrinter.class/properties.json index b76f7aaa..7db099ba 100644 --- a/repository/Grease-Core.package/GRUnitPrinter.class/properties.json +++ b/repository/Grease-Core.package/GRUnitPrinter.class/properties.json @@ -1,17 +1,16 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "GRPrinter", + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "integerPrinter", "fractionPrinter", "units", - "base" ], + "base" + ], "name" : "GRUnitPrinter", - "pools" : [ - ], - "super" : "GRPrinter", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/methodProperties.json b/repository/Grease-Core.package/GRUnsupportedEncodingError.class/methodProperties.json deleted file mode 100644 index 0e4a6622..00000000 --- a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json b/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json index 5a8d1a1e..3a2e3bef 100644 --- a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json +++ b/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Core-Text", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUnsupportedEncodingError", - "pools" : [ - ], "super" : "GRError", - "type" : "normal" } + "category" : "Grease-Core-Text", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRUnsupportedEncodingError", + "type" : "normal" +} \ 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/GRVersion.class/instance/hash.st b/repository/Grease-Core.package/GRVersion.class/instance/hash.st index 7c92e4b9..50a8774e 100644 --- a/repository/Grease-Core.package/GRVersion.class/instance/hash.st +++ b/repository/Grease-Core.package/GRVersion.class/instance/hash.st @@ -1,3 +1,5 @@ comparing hash - ^ (major hash bitXor: minor hash) bitXor: revision hash \ No newline at end of file + ^ (major hash + bitXor: (minor ifNil: [ 0 ]) hash) + bitXor: (revision ifNil: [ 0 ]) hash \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/methodProperties.json b/repository/Grease-Core.package/GRVersion.class/methodProperties.json deleted file mode 100644 index 4f45017d..00000000 --- a/repository/Grease-Core.package/GRVersion.class/methodProperties.json +++ /dev/null @@ -1,35 +0,0 @@ -{ - "class" : { - "major:" : "jf 2/8/2010 23:14", - "major:minor:" : "jf 2/8/2010 23:14", - "major:minor:revision:" : "jf 2/8/2010 23:08", - "new" : "jf 2/9/2010 01:01" }, - "instance" : { - "<" : "jf 2/9/2010 00:18", - "<=" : "jf 2/9/2010 00:06", - "=" : "jf 2/9/2010 00:16", - ">" : "jf 2/9/2010 00:07", - ">=" : "jf 2/9/2010 00:07", - "beAlpha" : "jf 2/8/2010 23:18", - "beAlpha:" : "jf 2/8/2010 23:18", - "beBeta" : "jf 2/8/2010 23:18", - "beBeta:" : "jf 2/8/2010 23:18", - "beFinal" : "jf 2/9/2010 00:35", - "beReleaseCandidate" : "jf 5/22/2010 23:38", - "beReleaseCandidate:" : "jf 5/22/2010 23:37", - "greaseString" : "pmm 1/22/2012 16:32", - "hash" : "lr 2/16/2010 20:55", - "initializeWithMajor:minor:revision:" : "jf 2/8/2010 23:08", - "isAlpha" : "jf 2/9/2010 00:34", - "isBeta" : "jf 2/9/2010 00:34", - "isFinal" : "jf 2/9/2010 00:34", - "isReleaseCandidate" : "jf 5/22/2010 23:38", - "major" : "jf 2/8/2010 23:16", - "major:" : "jf 2/8/2010 23:16", - "minor" : "jf 2/8/2010 23:16", - "minor:" : "jf 2/8/2010 23:17", - "revision" : "jf 2/8/2010 23:16", - "revision:" : "jf 2/8/2010 23:17", - "stage" : "jf 2/9/2010 00:01", - "stage:number:" : "jf 2/8/2010 23:17", - "stageNumber" : "jf 2/9/2010 00:01" } } diff --git a/repository/Grease-Core.package/GRVersion.class/properties.json b/repository/Grease-Core.package/GRVersion.class/properties.json index 9a1cffc3..cb5256d0 100644 --- a/repository/Grease-Core.package/GRVersion.class/properties.json +++ b/repository/Grease-Core.package/GRVersion.class/properties.json @@ -1,18 +1,17 @@ { - "category" : "Grease-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "lr 2/19/2012 12:57", + "super" : "GRObject", + "category" : "Grease-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "major", "minor", "revision", "stageLabel", - "stageNumber" ], + "stageNumber" + ], "name" : "GRVersion", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } + "type" : "normal" +} \ 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/Integer.extension/methodProperties.json b/repository/Grease-Core.package/Integer.extension/methodProperties.json deleted file mode 100644 index 498a64f1..00000000 --- a/repository/Grease-Core.package/Integer.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04", - "pluralize:" : "jf 9/30/2009 00:37", - "pluralize:with:" : "lr 1/30/2008 22:39" } } diff --git a/repository/Grease-Core.package/Integer.extension/properties.json b/repository/Grease-Core.package/Integer.extension/properties.json index d27420be..a8c2b931 100644 --- a/repository/Grease-Core.package/Integer.extension/properties.json +++ b/repository/Grease-Core.package/Integer.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "Integer" } + "name" : "Integer" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/Number.extension/methodProperties.json b/repository/Grease-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index accbae78..00000000 --- a/repository/Grease-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04" } } diff --git a/repository/Grease-Core.package/Number.extension/properties.json b/repository/Grease-Core.package/Number.extension/properties.json index 1d2c94d4..71dace88 100644 --- a/repository/Grease-Core.package/Number.extension/properties.json +++ b/repository/Grease-Core.package/Number.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "Number" } + "name" : "Number" +} \ 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/Object.extension/methodProperties.json b/repository/Grease-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index c622488c..00000000 --- a/repository/Grease-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseDeprecatedApi:details:" : "jf 9/30/2009 01:02" } } diff --git a/repository/Grease-Core.package/Object.extension/properties.json b/repository/Grease-Core.package/Object.extension/properties.json index 3d3b9ec4..f30a86e1 100644 --- a/repository/Grease-Core.package/Object.extension/properties.json +++ b/repository/Grease-Core.package/Object.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "Object" } + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-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/String.extension/methodProperties.json b/repository/Grease-Core.package/String.extension/methodProperties.json deleted file mode 100644 index 9c6825be..00000000 --- a/repository/Grease-Core.package/String.extension/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "excerpt:" : "lr 10/25/2009 11:19", - "excerpt:radius:" : "lr 10/25/2009 11:19", - "excerpt:radius:ellipsis:" : "jf 12/17/2009 10:49", - "greaseInteger" : "pmm 8/25/2016 14:02", - "pluralize" : "jf 9/30/2009 00:37", - "print:on:" : "lr 7/24/2008 18:19", - "truncate" : "lr 10/25/2009 11:17", - "truncate:" : "lr 10/25/2009 11:17", - "truncate:ellipsis:" : "lr 2/7/2008 09:22" } } diff --git a/repository/Grease-Core.package/String.extension/properties.json b/repository/Grease-Core.package/String.extension/properties.json index c2138507..b20f2de3 100644 --- a/repository/Grease-Core.package/String.extension/properties.json +++ b/repository/Grease-Core.package/String.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "String" } + "name" : "String" +} \ No newline at end of file diff --git a/repository/Grease-Core.package/UndefinedObject.extension/methodProperties.json b/repository/Grease-Core.package/UndefinedObject.extension/methodProperties.json deleted file mode 100644 index 078a4d8f..00000000 --- a/repository/Grease-Core.package/UndefinedObject.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "print:on:" : "lr 2/7/2008 13:13" } } diff --git a/repository/Grease-Core.package/UndefinedObject.extension/properties.json b/repository/Grease-Core.package/UndefinedObject.extension/properties.json index 508a24a8..b2d2e562 100644 --- a/repository/Grease-Core.package/UndefinedObject.extension/properties.json +++ b/repository/Grease-Core.package/UndefinedObject.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "UndefinedObject" } + "name" : "UndefinedObject" +} \ 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 ffa3065c..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-Core.package/monticello.meta/version b/repository/Grease-Core.package/monticello.meta/version deleted file mode 100644 index 52b5fdbb..00000000 --- a/repository/Grease-Core.package/monticello.meta/version +++ /dev/null @@ -1,49 +0,0 @@ -(name 'Grease-Core-pmm.108' message 'merged by GitFileTree-MergeDriver' id 'b20a4dcd-14ee-473d-b3bc-996004075c34' date '25 May 2017' time '2:20:17.202819 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.107' message '- revert SmallDictionary changes for now' id '32077c22-cc68-4a2f-a7f3-050277bd0b63' date '26 August 2016' time '3:59:50.285037 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.106' message '- add GRSmallOrderedSet' id 'e7933307-f87d-4929-9a43-ecb800b71ebf' date '25 August 2016' time '3:36:09.938199 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.105' message '- add new #keysAndAllValuesDo:' id 'b8c3f92f-2bc1-4e13-820b-3fc6c84eb5d8' date '25 August 2016' time '3:23:48.853034 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.104' message '- fix #greaseInteger -- add GRSmallOrderedSet' id '0cbaaf21-cd1f-4ec9-ae06-b5cd4b9f7d9a' date '25 August 2016' time '2:55:05.659616 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.103' message '- avoid association allocation in #addAll:' id '0c5392fa-dcef-4126-a29e-0ce5aaaa6ef7' date '25 August 2016' time '12:34:57.088428 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.102' message '- merge' id '145cda97-94f7-4983-9431-dbb190abaf5e' date '25 August 2016' time '12:22:52.508208 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.101' message '- lint fixes' id '4fb7fbee-57ad-4a6a-8995-fc771a1b550b' date '25 August 2016' time '11:31:09.647343 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.100' message '- lint fixes' id 'aa8715ac-cb26-48fa-9848-844663b95a0a' date '25 August 2016' time '11:03:09.006107 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.99' message 'Optimize GRSmallDictionary to a single array #875 -- https://github.com/SeasideSt/Seaside/issues/875' id 'c93df209-d81b-4162-8f83-6e906d7cc04d' date '22 August 2016' time '12:39:19.148731 pm' author 'pmm' ancestors ((name 'Grease-Core-JohanBrichau.98' message 'Updated the Grease version method (forgot this a year ago... )' id '4b366145-692f-4fc1-a2ae-e67f5a121eb1' date '5 May 2016' time '12:56:41.101881 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-JohanBrichau.97' message 'Added resolve for Pharo5 in GRPackage resolveWith:' id '868988c3-e68d-41f6-8932-c172c82904fa' date '26 March 2016' time '3:55:55.690691 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-pmm.96' message '- empty merge commit' id '022a5a23-c294-437c-adc1-9a613ccbd2bb' date '12 July 2015' time '10:28:08 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.95' message '- empty merge commit' id '9a9f3f50-c81b-4ed6-a41a-d0961b92c731' date '12 July 2015' time '10:26:31 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.92' message '#820 Configurations should not hold on to classes' id 'd65501a6-b884-4310-881d-ec25dc7b0002' date '12 July 2015' time '10:23:24 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.91' message '- lint fixes' id '6bbf6f41-4d71-47da-a07e-c7d630cfb445' date '19 August 2014' time '10:34:54 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.90' message '- lint fixes' id '4c1849aa-9f03-4eca-8f9f-f3e98a70e0a3' date '19 August 2014' time '9:37:58 am' author 'pmm' ancestors ((name 'Grease-Core-JohanBrichau.89' message 'forgot the version number again...' id '6d882333-0356-45c9-851f-93312bce0b9e' date '20 July 2014' time '6:04:54.866362 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-JohanBrichau.88' message 'merged Grease-Core-JohanBrichau.87 and Grease-Core-StephanEggermont.87' id '8fc8f8bd-2317-4460-9abc-70752a9882b6' date '4 July 2014' time '10:54:46.225141 am' author 'JohanBrichau' ancestors ((name 'Grease-Core-JohanBrichau.87' message 'updated the version method' id '1fb6ae91-5efa-4517-bd7e-5a929c7d710f' date '11 June 2014' time '7:46:26.136116 am' author 'JohanBrichau' ancestors ((name 'Grease-Core-JohanBrichau.86' message 'merged Grease-Core-pmm.85 and Grease-Core-JohanBrichau.85' id '405a05a1-2041-4621-8412-9ff4b9842089' date '17 February 2014' time '6:51:26.464341 am' author 'JohanBrichau' ancestors ((name 'Grease-Core-JohanBrichau.85' message 'move GRCountingStream from Pharo-only package to Core' id 'ac4a44c6-5fdf-40b5-844a-eb61bc6cca48' date '16 February 2014' time '9:30:16.525052 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-pmm.84' message '- fix comment' id 'cfd4a0a1-464c-44f7-9ebf-8cad9f9ad388' date '1 February 2014' time '3:14:07 pm' author 'pmm' ancestors ((name 'Grease-Core-JohanBrichau.83' message 'Rename #packages to #grPackages (triggered to prevent a name collision in Pharo3.0)' id '33554268-7ad1-45f6-a0d9-4d0ed77d68d4' date '15 December 2013' time '6:30:54.565 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-pmm.82' message 'Issue 770: ScaledDecimal rendering support -http://code.google.com/p/seaside/issues/detail?id=770 -- avoid Float round trip' id 'd99de538-44b7-4e7f-9079-ac58dc69d64d' date '15 September 2013' time '12:06:53 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.81' message '- spelling' id '08e9c196-2dbe-4a14-8fb0-2cf958b4cfcf' date '14 September 2013' time '3:55:38 pm' author 'pmm' ancestors ((name 'Grease-Core-JohanBrichau.80' message 'use #position to get the contents size of the stream because #reset does not empty the stream and #size would return the original contents size' id '1eaaa4e0-ee2e-4cca-ba16-6f0f694166d9' date '14 September 2013' time '12:37:49.21 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-pmm.79' message '- fix URLs' id '813fa3e7-99e3-4843-9b69-d4f5984d4057' date '12 September 2013' time '4:00:56.320007 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.78' message '- fallback for Pharo 2.0 and 3.0' id 'dab40930-15c6-461a-825b-dfab6db87792' date '12 September 2013' time '3:54:44.884557 pm' author 'pmm' ancestors ((name 'Grease-Core-MattSpr.77' message 'Removed Strin>>#trim* methods from Grease because they are in Pharo.' id 'fc12361f-de07-47bf-a6a9-990608482e9c' date '28 August 2013' time '11:06:58.459433 am' author 'MattSpr' ancestors ((name 'Grease-Core-pmm.76' message '- formatting Nazis from outer space' id '824e2ddb-fbfd-4ae3-b068-cf28c68ea3d3' date '1 September 2012' time '5:00:50 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.75' message '- Issue 733: multibyte characters broken when flushing a WAComboResponse -- http://code.google.com/p/seaside/issues/detail?id=733' id '706bb981-4894-4376-a24b-75a532d8c2de' date '25 June 2012' time '9:05:23 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.74' message '- merge 3.0 trunk' id 'ded4ea2b-14d1-4f06-b667-a078f707ea79' date '29 March 2012' time '7:24:18 pm' author 'pmm' ancestors ((name 'Grease-Core-lr.73' message '- improved some class comments, fixed formatting and categorization' id 'a077ad47-9555-46cf-9989-19ffc66c6f47' date '19 February 2012' time '1:02:28 pm' author 'lr' ancestors ((name 'Grease-Core-lr.72' message '- added a class comment to GRPackage' id '07bb296f-e15f-4fa7-9cc1-c6fe2cf4718e' date '19 February 2012' time '12:39:49 pm' author 'lr' ancestors ((name 'Grease-Core-pmm.71' message '- merge' id 'b7ff008a-8265-4e23-9a74-89072a785137' date '19 February 2012' time '10:55:36 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.70' message '- formatting nazis from outer space' id 'a74144e1-0aab-4565-b0dd-da9a51cf83b4' date '22 January 2012' time '4:47:07 pm' author 'pmm' ancestors ((name 'Grease-Core-lr.69' message '- we should also update the repository URLs when we change to a new repository, otherwise the scripts work with the old version' id '66e79d0b-2e4f-4995-add5-eb13a3b40c58' date '4 November 2011' time '9:20:43 pm' author 'lr' ancestors ((name 'Grease-Core-pmm.68' message '- merge with trunk' id '7f35fdbd-efa6-474d-8e34-891fbc63bfc2' date '28 September 2011' time '5:50:09 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.67' message '- merge with trunk' id '3bacaa4e-9f4d-4d64-a37a-d9677b6eddf1' date '28 August 2011' time '12:18:34 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.66' message '- Issue 676: response generators have to reset the response before generating a new one -- add infrastructure to reset streams, work around Pharo stream bugs' id 'ecdfbbb9-5bd3-4a37-9a07-06ee406b39f0' date '26 August 2011' time '9:57:26 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.65' message '- Issue 626: Allow platforms to implement custom encoders for speed -- remove #includesUnsafeUrlCharacter: and #includesUnsafeXmlCharacter: from GRPlatform, these were just speed hacks for Pharo, they are now encapsulated in a platform specific class' id 'cc93d214-e5a3-4bd0-98fb-7fc50e077a16' date '15 August 2011' time '9:38:38 pm' author 'pmm' ancestors ((name 'Grease-Core-MrCleaner.64' message '- bump version' id '18061a20-309b-4630-8e4c-bc030b4890f0' date '2 August 2011' time '8:15:56 pm' author 'MrCleaner' ancestors ((name 'Grease-Core-lr.63' message '- fixed formatting of return message' id 'f5804cb2-8a68-4da5-a744-6aec2bb22c5f' date '25 July 2011' time '8:19:35 pm' author 'lr' ancestors ((name 'Grease-Core-jf.62' message 'Make creation of GRDelayedSend with #new clearer by implementing #empty and having #new call it. This also allows senders that depend on it to be more explicit about what they expect.' id '85d50110-72de-4010-9459-ec91c6fccae0' date '10 July 2011' time '11:50:36 pm' author 'jf' ancestors ((name 'Grease-Core-jf.61' message 'Issue 662: Refactor GRDelayedSend to use composition and reduce duplicate - -Introduce new GRDelayedSendMessage and move the two subclasses of GRDelayedSend to be subclasses of this new class instead. Then rename them to match their new position and refactor to delegate to these subclasses.' id 'bb3214ae-96e5-495c-bc40-3e597c0e741a' date '10 July 2011' time '11:41:46 pm' author 'jf' ancestors ((name 'Grease-Core-jf.60' message 'Implement #new on GRDelayedSend. - -GRDelayedSend changes the designated initialization method, and so should override the inherited constructor.' id '62f29f87-a6d2-4204-b562-be045a2ed628' date '10 July 2011' time '10:52:23 pm' author 'jf' ancestors ((name 'Grease-Core-pmm.59' message '- bump version' id 'b3ab66ab-d7ef-49fd-984a-ade1efdef0ef' date '17 May 2011' time '7:51:57 pm' author 'pmm' ancestors ((name 'Grease-Core-DaleHenrichs.58' message '- bump version to 1.0.4' id '3a6c7ed9-1ed7-41e6-b60b-b6b71ba733c5' date '11 February 2011' time '3:34:40 pm' author 'DaleHenrichs' ancestors ((name 'Grease-Core-pmm.57' message '- formatting -- remove trailing space in GRSmallDictionary print string' id '059f4662-ef8e-4310-85a8-6c4de4ac0d58' date '6 February 2011' time '12:03:27 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.56' message '- merged' id '3adcd19c-602e-4df3-ace4-cb7e8f3e2c94' date '5 February 2011' time '11:51:08 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.55' message '- went for a simple X-Sendfile design that does not use auto deploy and does not require files to be deployed in image folder' id '3c306912-4a6b-433d-adef-5bb851d286da' date '5 February 2011' time '11:50:22 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.54' message '- cosmetics' id 'c818dcbc-1ead-4a01-9a5b-1c73b160c8b7' date '26 December 2010' time '10:09:12 pm' author 'pmm' ancestors ((name 'Grease-Core-DaleHenrichs.53' message '- bump version to 1.0.3' id '2a5d9b5b-2dd3-4622-91d7-01b4e5add634' date '13 December 2010' time '2:38:51 pm' author 'DaleHenrichs' ancestors ((name 'Grease-Core-pmm.52' message '- bump version for upcomming release' id '956ed3e6-6602-493a-b554-fa2e0ac31923' date '21 November 2010' time '12:31:33 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.51' message '- fix typo' id 'e18100b0-2f7d-4093-8304-670df747fc28' date '30 October 2010' time '6:57:02 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.50' message '- remove #hash, #= and #isDictionary from GRSmallDictionary' id 'f7a2ea64-9c10-4d83-8150-8ee633b85c1b' date '7 October 2010' time '3:56:06 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.49' message '- merged' id '2f42300e-cab9-4d0c-a21b-72997fd0d5a5' date '7 October 2010' time '11:29:43 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.48' message '- GRCodecStream #isStream' id '0b26e466-e77b-414a-ae1b-ecdd0e302acc' date '7 October 2010' time '11:28:58 am' author 'pmm' ancestors () stepChildren ())(name 'Grease-Core-lr.48' message '- correct, but worse implementation of GRSmallDictionary>>#hash -- #isDictionary is not ANSI, avoid it in GRSmallDictionary>>#=' id '968fbb8c-5c1d-463b-8ac7-0c784cc79388' date '9 September 2010' time '12:18:03 pm' author 'lr' ancestors ((name 'Grease-Core-pmm.47' message '- formatting' id '3be6d293-aa73-4047-8d1b-f6b043a64d5b' date '7 September 2010' time '9:14:05 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.46' message '- add #= and #hash to GRSmallDictionary' id '2948f094-8e4f-420d-9434-88224f1bfb20' date '6 September 2010' time '11:36:02 am' author 'pmm' ancestors ((name 'Grease-Core-jf.45' message 'Update version number for 1.0' id 'e765e791-5497-49e7-9413-8a54a0fe42bb' date '8 August 2010' time '9:53:45 pm' author 'jf' ancestors ((name 'Grease-Core-pmm.44' message '- fixed seaside addons url' id '93b9c5fb-4d46-48e8-a958-bf1086e9a1ff' date '8 August 2010' time '11:24:37 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.42' message '- Issue 569: Encoding information doesn''t get included in the response -- http://code.google.com/p/seaside/issues/detail?id=569 -- add accessor for null codec name' id '2a422c1b-8310-4790-9185-fc7f522d01e1' date '26 May 2010' time '9:41:19 pm' author 'pmm' ancestors ((name 'Grease-Core-jf.41' message 'Bump version numbers in preparation for an RC release' id '1ff6239d-4612-4a10-b7cf-de249fc25b4d' date '22 May 2010' time '11:46:08 pm' author 'jf' ancestors ((name 'Grease-Core-pmm.40' message '- make character testing methods return constant value for unchanged performance everywhere but Pharo' id 'bc934cc6-cf3a-441c-af13-23aa3e6b8902' date '22 May 2010' time '10:45:58 am' author 'pmm' ancestors ((name 'Grease-Core-pmm.38' message '- add testing methods for unsafe characters' id '696e8a5c-8bc6-4f91-83c5-56f5d66970d6' date '20 May 2010' time '9:11:34 pm' author 'pmm' ancestors ((name 'Grease-Core-lr.37' message '- reverted back to #reverse (ANSI)' id 'c021b7f0-fdd1-44a6-989e-1db492961140' date '13 May 2010' time '3:57:08 pm' author 'lr' ancestors ((name 'Grease-Core-DaleHenrichs.36' message '- revert GRNumberPrinter>>digitsOf:base: to version that uses #reversed as #reverse is deprecated' id '820d8e2d-bbd4-4c25-8c92-1b36139b4cac' date '12 May 2010' time '5:00:48 pm' author 'DaleHenrichs' ancestors ((name 'Grease-Core-pmm.35' message '- merged' id 'c2523a28-17ea-43e8-9701-d3144c49c7b0' date '7 May 2010' time '10:32:25 pm' author 'pmm' ancestors ((name 'Grease-Core-pmm.34' message '- add seasideAddonsUrl' id 'c4680460-d21f-4ccc-b225-0a1345f202bd' date '7 May 2010' time '10:30:05 pm' author 'pmm' ancestors () stepChildren ())(name 'Grease-Core-jok.34' message 'Use #reverse (ANSI) rather than #reversed' id 'fca590c1-b0d8-3f42-9b8b-412824c25a14' date '22 April 2010' time '5:33:34 pm' author 'jok' ancestors ((name 'Grease-Core-lr.33' message '- added a #newline accessor to GRPlatform that returns a string with the default newline character (sequence) -- moved implementation of #convertToSmalltalkNewlines: to OBPlatform as it can now be implemented in terms of #newline and doesn''t need to be provided by other platforms anymore' id 'f6a7e283-1f08-4147-947c-904f2bc304a3' date '15 April 2010' time '7:29:31 pm' author 'lr' ancestors ((name 'Grease-Core-pmm.32' message '- Issue 561: remove GRCodecStream >> #binary -- http://code.google.com/p/seaside/issues/detail?id=561' id '341014e3-fd90-4740-b777-716056f2cd7b' date '11 April 2010' time '6:16:33 pm' author 'pmm' ancestors ((name 'Grease-Core-jok.31' message '- http://code.google.com/p/seaside/issues/detail?id=555 -- add #beginsWithSubCollection: and #endsWithSubCollection:' id 'b3a1f4c5-f496-b24e-bb0a-94395d447b1a' date '24 March 2010' time '12:30:33 pm' author 'jok' ancestors ((name 'Grease-Core-obi.30' message '- revert back to lr.28' id 'ff3d24e0-bea4-8642-aa70-0a8eaa509d55' date '22 February 2010' time '8:16:50 pm' author 'obi' ancestors ((name 'Grease-Core-obi.29' message '- add direct accessing method for url' id '79473ec4-083e-a144-aa40-4d100d2ab1e3' date '21 February 2010' time '6:43:17 pm' author 'obi' ancestors ((name 'Grease-Core-lr.28' message '- better error message when package dependencies cannot be reseolved' id 'be96fe5b-0af9-4937-8155-cafe37a0409f' date '18 February 2010' time '11:15:34 am' author 'lr' ancestors ((name 'Grease-Core-lr.27' message '- added explicit repository url' id '8a5b0209-3bc3-4ca1-b4d1-1f924d67ab47' date '17 February 2010' time '4:07:07 pm' author 'lr' ancestors ((name 'Grease-Core-lr.26' message '- do not initialize a default URL, that''s indeed too dangerous' id '231ee3c9-2dfb-491c-8c2c-c1c3f403d6cd' date '17 February 2010' time '3:09:07 pm' author 'lr' ancestors ((name 'Grease-Core-lr.25' message '- cleanup unused code' id '3ce14101-eb4d-40ca-ba28-3e82e896a957' date '17 February 2010' time '2:48:12 pm' author 'lr' ancestors ((name 'Grease-Core-lr.24' message '- fixed some lint issues' id '7b01c967-c2aa-441a-b26b-03cef0c944fe' date '16 February 2010' time '9:15:50 pm' author 'lr' ancestors ((name 'Grease-Core-jf.23' message 'Metacello version numbers for Grease have already gone up as high at 1.0a5, so let''s use 1.0a6 instead...' id '32b7d714-db34-4987-926c-c303b5cecee9' date '15 February 2010' time '11:19:48 pm' author 'jf' ancestors ((name 'Grease-Core-jf.22' message '#addAll: and #withAll: on dictionaries should take a Dictionary parameter, not a collection of Associations (according to ANSI)' id '8c843c34-4297-4448-abd7-f4092025ae07' date '15 February 2010' time '11:01:57 pm' author 'jf' ancestors ((name 'Grease-Core-jf.21' message 'Properly fix http://code.google.com/p/seaside/issues/detail?id=544 - -I introduce a GROrderedMultiMap which specifically allows duplicate keys (GRSmallDictionary no longer does). This is used to implement WARequestFields, which is used throughtout for storing GET and POST fields. #at: will return the first matching field and #allAt: will return all matching values. - -Various renamings, fixes to callbacks, and to unit and functional tests. - -I also had to fix the Swazoo and Comanche server adaptors to correctly create WARequestFields instances for the POST fields and to correctly include the raw POST body in all cases (but it seems to be a ByteArray in Swazoo''s case and a ByteString or String for Comanche... seems not ideal)' id '9a67e592-63f9-4aab-8799-ce92fd341205' date '15 February 2010' time '9:31:33 pm' author 'jf' ancestors ((name 'Grease-Core-lr.20' message '- add an url to the package' id '1ce86f1b-1e86-45bf-b755-9fcb4ffede6e' date '10 February 2010' time '11:33:14 am' author 'lr' ancestors ((name 'Grease-Core-jf.19' message 'Let''s set a good example by properly namespacing our extensions to GRPlatform. Also tidy up and remove unused methods.' id '4549ccc4-6218-4b5a-affb-5c2c1a0bf3bd' date '9 February 2010' time '1:52:55 am' author 'jf' ancestors ((name 'Grease-Core-jf.18' message 'http://code.google.com/p/seaside/issues/detail?id=503 - -Implement GRVersion as a (fairly) simple version number class.' id '75fc4f58-e849-447e-a1e9-d21cb20d1a02' date '9 February 2010' time '1:03:53 am' author 'jf' ancestors ((name 'Grease-Core-lr.17' message 'merged' id '1f83c10c-28b2-4f1f-ad0e-2a621262d18c' date '6 February 2010' time '7:04:07 pm' author 'lr' ancestors ((name 'Grease-Core-jf.16' message 'Remove usage of non-Grease methods #nameOfDay:, #anyOne, and several Squeak-specific Duration selectors. - -Add Grease tests for Duration protocols discussed with platforms. Also test for #any.' id 'd8afb489-de6a-424c-a94e-5c9eb50939ec' date '6 February 2010' time '1:21:59 am' author 'jf' ancestors () stepChildren ())(name 'Grease-Core-lr.16' message '- use accessors in initializers, that''s nicer -- pushed test coverage to 94%' id 'd10c2b98-a79b-4ee5-b8bd-f9ec27a4ffa3' date '6 February 2010' time '11:13:58 am' author 'lr' ancestors ((name 'Grease-Core-jok.15' message 'http://code.google.com/p/seaside/issues/detail?id=535 - -- add Slime transformation for #new:withAll: and run it' id 'a3dbcab3-59b8-0b40-8128-8ff7a1f1d634' date '26 January 2010' time '10:57:57 am' author 'jok' ancestors ((name 'Grease-Core-jf.14' message 'merge' id 'e59ae7f2-6e21-4d7e-b53d-68e5b2406df9' date '11 January 2010' time '8:09:27 pm' author 'jf' ancestors ((name 'Grease-Core-pmm.13' message '- Issue 513: RFC822 code in RSS package may be using obsolete code -- http://code.google.com/p/seaside/issues/detail?id=513' id '86691819-8179-4e4e-a8db-2b0cbaa0bf9c' date '2 January 2010' time '5:07:58 pm' author 'pmm' ancestors ((name 'Grease-Core-jf.12' message 'Write some more Slime rules and tests and apply them.' id '4b9eaa57-bead-4961-8b61-ea0389e0676e' date '29 December 2009' time '8:59:12 pm' author 'jf' ancestors () stepChildren ())) stepChildren ())(name 'Grease-Core-jf.11' message 'merge' id 'd560d898-8aab-4fdb-bee0-1e8eb8dde60c' date '29 December 2009' time '5:12:46 pm' author 'jf' ancestors ((name 'Grease-Core-jf.10' message '- move Task stuff into Component package -- no longer need special Flow configuration settings -- Make parameter to onAnswer: blocks optional -- Add #call:onAnswer: which does a #show:onAnswer: and then sends a render notification; rewrite #call: to use #call:onAnswer: -- Make as few of the functional tests as possible depend on Flow' id '2938fcb6-3e91-4119-bbf5-9f8699144f45' date '29 December 2009' time '4:14:26 pm' author 'jf' ancestors ((name 'Grease-Core-dkh.8' message '- fix Issue 499: http://code.google.com/p/seaside/issues/detail?id=499' id '7cea52fb-d9e9-4441-8ad5-3fa51cadceae' date '23 November 2009' time '3:07:28 pm' author 'dkh' ancestors ((name 'Grease-Core-jf.7' message 'Move seaside-specific method out of Grease' id '1a22dbe1-3b92-4449-9584-0d0e99398eec' date '3 November 2009' time '12:09:14 am' author 'jf' ancestors ((name 'Grease-Core-lr.6' message '- never use #== unless really required' id '1805834a-1d95-4cfa-ae9b-3ea1d5e38d0b' date '28 October 2009' time '11:16:09 am' author 'lr' ancestors ((name 'Grease-Core-lr.5' message '- fixed argument names and some other formatting issues' id '35c4532c-a8a4-4dbd-a856-d15513dec823' date '25 October 2009' time '11:31:51 am' author 'lr' ancestors ((name 'Grease-Core-lr.4' message '- removed duplicated code from string extensions, properly commented all methods' id '3b3f3e4f-d3e6-4f60-8482-be11f9b82404' date '25 October 2009' time '11:20:38 am' author 'lr' ancestors ((name 'Grease-Core-obi.3' message '- add license attribute' id '11a247de-6598-8348-bdf9-9d2b1ab4175d' date '8 October 2009' time '8:32:08 am' author 'obi' ancestors ((name 'Grease-Core-jf.2' message 'recategorization' id 'ed41f639-a256-4ee6-a184-8555fd48a5ea' date '1 October 2009' time '12:45:27 am' author 'jf' ancestors ((name 'Grease-Core-jf.1' message 'Rename Seaside-Platform to Grease in order to help make clear that it is not Seaside-specific and can be used by other projects as a compatibility layer. This was spawned by discussions when I started porting Magritte to VAST using the Platform layer.' id '8702f9cb-4c9f-49fe-9b8f-ed45cd2d444a' date '30 September 2009' time '10:47:12 pm' author 'jf' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-jf.9' message '#findString: is not portable - use #indexOfSubCollection:' id '5ba7bcb1-ea63-4fc1-9de2-ea443edec864' date '17 December 2009' time '10:50:18 am' author 'jf' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-NickAger.55' message 'added GRSmallDictionary>>#printOn:' id '5b995447-06d6-4525-966b-d22d45444ab9' date '5 February 2011' time '8:26:34 pm' author 'NickAger' ancestors ((id 'c818dcbc-1ead-4a01-9a5b-1c73b160c8b7')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-pmm.64' message '- add base64 comment' id 'c1fb5836-b648-46e8-b535-de41929a88ac' date '28 August 2011' time '9:58:40 am' author 'pmm' ancestors ((id 'f5804cb2-8a68-4da5-a744-6aec2bb22c5f')) stepChildren ())) stepChildren ())(name 'Grease-Core-lr.66' message '- add GRCodecStream>>#print:' id '0a3221fb-c5d8-4ce1-b139-0e6dc72481a2' date '25 September 2011' time '10:13:37 am' author 'lr' ancestors ((name 'Grease-Core-dkh.65' message '1.0.6 (dkh.153): -- open 1.0.6 for development -- update to latest packages -- update GRPlatform version to 1.0.6' id '3da25c6b-c1ca-4143-ad35-116b50bea34b' date '1 September 2011' time '3:51:36 pm' author 'dkh' ancestors ((id 'c1fb5836-b648-46e8-b535-de41929a88ac')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-pmm.43' message '- Issue 591: WAComboResponse -- a combined buffered / streaming response -- http://code.google.com/p/seaside/issues/detail?id=591' id 'f7129542-f1fe-4bd2-82ee-f234e31d00e7' date '5 August 2010' time '7:09:54 am' author 'pmm' ancestors ((id '2a422c1b-8310-4790-9185-fc7f522d01e1')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-NickAger.70' message 'changed GRPlatform>>#version to 1.0.7' id 'd48abd90-86bb-4538-ac62-e492a7a4e3f0' date '23 March 2012' time '4:36:01 pm' author 'NickAger' ancestors ((name 'Grease-Core-NickAger.69' message 'further refined the comment to GRDelayedSend ' id 'cab12ed6-1527-4a89-8c41-70e40461806b' date '20 March 2012' time '9:05:29 am' author 'NickAger' ancestors ((name 'Grease-Core-NickAger.68' message 'improved commenting for GRDelayedSend and GRDelayedSendMessage - I was confused by the intent of the classes - hopefully the comments will help others with similar confusion.' id '350d84c7-722f-4318-96d6-d7854ed52047' date '19 March 2012' time '11:23:01 am' author 'NickAger' ancestors ((name 'Grease-Core-NickAger.67' message 'added a new method: - -GRPlatform>>#directoriesIn: - -to support recursing sub-directories for file to load into a file library. - -Fix for: http://code.google.com/p/seaside/issues/detail?id=267' id '364dcb92-0613-4caf-8058-a8c25d65249c' date '9 March 2012' time '2:52:30 pm' author 'NickAger' ancestors ((id '0a3221fb-c5d8-4ce1-b139-0e6dc72481a2')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-pmm.85' message 'Issue 781: Also catch platform deprecation signals -- http://code.google.com/p/seaside/issues/detail?id=781' id '792050f8-aab9-4903-9d9d-64ef14554008' date '16 February 2014' time '11:16:53 pm' author 'pmm' ancestors ((id 'cfd4a0a1-464c-44f7-9ebf-8cad9f9ad388')) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-StephanEggermont.87' message 'Added resolve for Pharo4 in GRPackage resolveWith:' id 'fe861b91-7089-436d-98e4-06b764abe7fc' date '2 July 2014' time '7:03:08.283881 pm' author 'StephanEggermont' ancestors ((id '405a05a1-2041-4621-8412-9ff4b9842089')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-JohanBrichau.94' message 'additional file library methods' id '5283728c-3883-45c2-8b4a-0d99c65632ca' date '3 October 2014' time '8:07:43.645747 pm' author 'JohanBrichau' ancestors ((name 'Grease-Core-pmm.93' message 'Issue 827: GRPlatform >> #deprecationExceptionSet should use ExceptionSet' id '7e4068d6-301d-4e9f-a271-332e6c6adf21' date '6 September 2014' time '12:18:17 pm' author 'pmm' ancestors ((name 'Grease-Core-jok.92' message '' id '7e3bfc78-1fb0-8d43-b65f-050e9d1bf700' date '23 August 2014' time '11:02:48.249694 am' author 'jok' ancestors ((id '6bbf6f41-4d71-47da-a07e-c7d630cfb445')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Core-TravisCI.100' message 'h4x for Squeak' id '4ef84bab-74af-47fc-86ed-bc55367b9d2c' date '23 August 2016' time '11:02:57.719 am' author 'TravisCI' ancestors ((id 'c93df209-d81b-4162-8f83-6e906d7cc04d')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(id '4b366145-692f-4fc1-a2ae-e67f5a121eb1')) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Core.package/properties.json b/repository/Grease-Core.package/properties.json index f037444a..6f31cf5a 100644 --- a/repository/Grease-Core.package/properties.json +++ b/repository/Grease-Core.package/properties.json @@ -1,2 +1 @@ -{ - } +{ } \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Array.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Array.extension/methodProperties.json deleted file mode 100644 index 57c2d216..00000000 --- a/repository/Grease-GemStone-Core.package/Array.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beMutable" : "jgf 01/26/2009 15:47" } } diff --git a/repository/Grease-GemStone-Core.package/Behavior.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Behavior.extension/methodProperties.json deleted file mode 100644 index 2a828f92..00000000 --- a/repository/Grease-GemStone-Core.package/Behavior.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fullName" : "DaleHenrichs 06/02/2010 15:23", - "removeSelectorSilently:" : "jgf 01/14/2009 16:31" } } diff --git a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/BinaryFloat.extension/methodProperties.json deleted file mode 100644 index 26959d48..00000000 --- a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "DaleHenrichs 06/04/2010 14:55" } } diff --git a/repository/Grease-GemStone-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index 59255997..00000000 --- a/repository/Grease-GemStone-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "dkh 11/06/2009 10:16" } } diff --git a/repository/Grease-GemStone-Core.package/Character.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index 7dde8972..00000000 --- a/repository/Grease-GemStone-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "dkh 11/06/2009 10:18" } } diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/methodProperties.json deleted file mode 100644 index faf3cf69..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/methodProperties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "excerpt:" : "DaleHenrichs 02/17/2011 16:53", - "excerpt:radius:" : "DaleHenrichs 02/17/2011 16:53", - "excerpt:radius:ellipsis:" : "DaleHenrichs 02/17/2011 16:53", - "greaseInteger" : "DaleHenrichs 02/17/2011 16:53", - "pluralize" : "DaleHenrichs 02/17/2011 16:53", - "print:on:" : "DaleHenrichs 02/17/2011 16:53", - "substrings:" : "JohanBrichau 05/25/2017 04:14", - "trimBoth" : "DaleHenrichs 02/17/2011 16:53", - "trimBoth:" : "DaleHenrichs 02/17/2011 16:53", - "trimLeft" : "DaleHenrichs 02/17/2011 16:53", - "trimLeft:" : "DaleHenrichs 02/17/2011 16:53", - "trimLeft:right:" : "DaleHenrichs 02/17/2011 16:53", - "trimRight" : "DaleHenrichs 02/17/2011 16:53", - "trimRight:" : "DaleHenrichs 02/17/2011 16:53", - "truncate" : "DaleHenrichs 02/17/2011 16:53", - "truncate:" : "DaleHenrichs 02/17/2011 16:53", - "truncate:ellipsis:" : "DaleHenrichs 02/17/2011 16:53" } } diff --git a/repository/Grease-GemStone-Core.package/Collection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 3ead3a30..00000000 --- a/repository/Grease-GemStone-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "DaleHenrichs 06/02/2010 16:32", - "sorted" : "DaleHenrichs 06/02/2010 16:34", - "sorted:" : "DaleHenrichs 06/02/2010 16:34" } } diff --git a/repository/Grease-GemStone-Core.package/Date.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Date.extension/methodProperties.json deleted file mode 100644 index 601fc467..00000000 --- a/repository/Grease-GemStone-Core.package/Date.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "daysInMonthNumber:forYear:" : "dkh 03/17/2008 16:21" }, - "instance" : { - } } diff --git a/repository/Grease-GemStone-Core.package/Dictionary.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Dictionary.extension/methodProperties.json deleted file mode 100644 index add755ed..00000000 --- a/repository/Grease-GemStone-Core.package/Dictionary.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "copyFrom:" : "jgf 01/02/2009 13:12" } } diff --git a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/DoubleByteString.extension/methodProperties.json deleted file mode 100644 index fa06737b..00000000 --- a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "dkh 11/06/2009 10:17" } } diff --git a/repository/Grease-GemStone-Core.package/Duration.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index 294d3d1c..00000000 --- a/repository/Grease-GemStone-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "milliseconds:" : "DaleHenrichs 06/03/2010 11:09" }, - "instance" : { - "asMilliseconds" : "DaleHenrichs 06/02/2010 16:45", - "milliseconds" : "DaleHenrichs 06/03/2010 12:54" } } diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Exception.extension/methodProperties.json deleted file mode 100644 index 6e2bc81f..00000000 --- a/repository/Grease-GemStone-Core.package/Exception.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "raiseSignal" : "jgf 12/15/2008 14:24", - "raiseSignal:" : "jgf 12/15/2008 14:24" }, - "instance" : { - "raiseSignal" : "jgf 12/15/2008 14:24", - "raiseSignal:" : "jgf 12/15/2008 14:24" } } diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st new file mode 100644 index 00000000..5ccee6ab --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st @@ -0,0 +1,3 @@ +defaults +default + ^ self defaultValue \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..e9ed3f67 --- /dev/null +++ b/repository/Grease-GemStone-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-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st index 6820f6d7..a71460c8 100644 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st +++ b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st @@ -1,14 +1,18 @@ accessing use: anObject during: aBlock - - | p oldValue result | - "Proper implementation instead of use 'super value:during:' because that one does not return value, perhaps this should be fixed in DynamicVariable?" - p := Processor activeProcess. - oldValue := p environmentAt: self ifAbsent: [self default]. - [ - p environmentAt: self put: anObject. - result := aBlock value. - ] ensure: [ - p environmentAt: self put: oldValue - ]. - ^ result \ No newline at end of file + | p hasOldValue oldValue result | + "Implementation cannot send a supercall to value:during: because: + - this method needs to return the value + - the defaultValue may not be invoked here to support throwing errors as defaultValue + - nil may not remain installed as the default value once the block has finished running" + p := Processor activeProcess. + hasOldValue := p environment includesKey: self. + oldValue := p environmentAt: self. + [ + p environmentAt: self put: anObject. + result := aBlock value ] + ensure: [ + hasOldValue + ifFalse: [ p environment removeKey: self ] + ifTrue: [ p environmentAt: self put: oldValue ] ]. + ^ result \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st new file mode 100644 index 00000000..7ae39aa8 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st @@ -0,0 +1,5 @@ +accessing +value + "Override required for compatibility in GS2.4 where environmentAt:ifAbsent: is flawed because it can still return nil when absent instead of executing the ifAbsent block" + + ^ Processor activeProcess environment at: self ifAbsent: [ self defaultValue ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json deleted file mode 100644 index 4b68b87a..00000000 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "use:during:" : "JohanBrichau 05/25/2017 08:13" }, - "instance" : { - } } 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/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 new file mode 100644 index 00000000..50e2a5b0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st @@ -0,0 +1,3 @@ +*grease-gemstone-core +thisContext + ^ GsContext fromLevel: 3 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st index 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/GRGemStonePlatform.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json deleted file mode 100644 index 78129d83..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json +++ /dev/null @@ -1,48 +0,0 @@ -{ - "class" : { - "initialize" : "DataCurator 08/31/2011 03:36", - "unload" : "dkh 11/06/2009 08:41" }, - "instance" : { - "addToShutDownList:" : "dkh 11/06/2009 08:41", - "addToStartUpList:" : "dkh 11/06/2009 08:41", - "asMethodReturningByteArray:named:" : "dkh 11/06/2009 08:41", - "asMethodReturningString:named:" : "dkh 04/25/2011 20:21", - "base64Decode:" : "dkh 11/06/2009 08:41", - "compile:into:classified:" : "dkh 11/06/2009 08:41", - "contentsOfFile:binary:" : "JohanBrichau 10/11/2014 02:26", - "defaultDispatcherName" : "dkh 11/06/2009 08:41", - "deprecationExceptionSet" : "JohanBrichau 04/19/2014 10:55", - "directoriesIn:" : "JohanBrichau 02/15/2014 07:02", - "doAbortTransaction" : "dkh 11/06/2009 08:41", - "doBeginTransaction" : "dkh 11/06/2009 08:41", - "doCommitTransaction" : "dkh 11/06/2009 08:41", - "doTransaction:" : "dkh 12/21/2014 16:11", - "ensureExistenceOfFolder:" : "DaleHenrichs 12/03/2010 16:28", - "fileExists:" : "JohanBrichau 10/11/2014 02:18", - "fileStreamOn:do:binary:" : "JohanBrichau 10/11/2014 02:27", - "filesIn:" : "DaleHenrichs 09/02/2010 15:45", - "isProcessTerminated:" : "dkh 11/06/2009 08:41", - "label" : "DaleHenrichs 06/02/2010 16:39", - "localNameOf:" : "DaleHenrichs 01/17/2011 16:26", - "logError:title:" : "dkh 07/26/2011 09:18", - "logError:title:shouldCommit:" : "dkh 07/26/2011 09:18", - "newRandom" : "DaleHenrichs 11/08/2010 15:10", - "newline" : "DaleHenrichs 07/27/2010 11:42", - "openDebuggerOn:" : "dkh 11/06/2009 08:41", - "pathSeparator" : "NickAger 08/15/2011 17:09", - "readWriteByteStream" : "dkh 11/06/2009 08:41", - "readWriteCharacterStream" : "dkh 11/06/2009 08:41", - "reducedConflictDictionary" : "dkh 11/06/2009 08:41", - "removeFromShutDownList:" : "dkh 11/06/2009 08:41", - "removeFromStartUpList:" : "dkh 11/06/2009 08:41", - "removeSelector:from:" : "dkh 11/06/2009 08:41", - "saveLogEntry:shouldCommit:" : "dkh 12/23/2009 12:23", - "secureHashFor:" : "dkh 11/06/2009 08:41", - "semaphoreClass" : "dkh 11/06/2009 08:41", - "smtpServer" : "dkh 11/06/2009 08:41", - "stackDepth" : "DaleHenrichs 01/18/2011 12:47", - "terminateProcess:" : "dkh 11/06/2009 08:41", - "transactionMutex" : "dkh 11/06/2009 08:41", - "weakDictionaryOfSize:" : "dkh 11/06/2009 08:41", - "write:toFile:inFolder:" : "DaleHenrichs 12/03/2010 16:29", - "writeCharacterStreamOn:" : "dkh 09/14/2013 09:46" } } diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/methodProperties.json deleted file mode 100644 index b08c96a0..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "generator" : "dkh 07/26/2011 16:56", - "initialize" : "dkh 07/26/2011 16:30", - "mutex" : "dkh 07/26/2011 16:30", - "nextInt:" : "dkh 07/26/2011 16:31", - "randomClass" : "dkh 04/28/2011 15:37", - "randomFrom:" : "dkh 12/09/2009 14:05", - "sessionStart" : "dkh 04/28/2011 15:53" }, - "instance" : { - } } 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/GRLatin1GemStoneCodec.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/methodProperties.json deleted file mode 100644 index 3042e1e9..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "dkh 11/06/2009 08:44", - "supportsEncoding:" : "dkh 11/06/2009 08:44" }, - "instance" : { - "decode:" : "dkh 11/17/2009 16:04", - "encode:" : "dkh 11/17/2009 16:04", - "encodeUrl:" : "dkh 11/06/2009 08:44", - "encoderFor:" : "DaleHenrichs 06/03/2010 13:04", - "name" : "dkh 11/06/2009 08:44", - "name:" : "dkh 11/06/2009 08:44", - "url" : "dkh 11/06/2009 08:44" } } diff --git a/repository/Grease-GemStone-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 43afde50..00000000 --- a/repository/Grease-GemStone-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseGemStoneCore" : "DaleHenrichs 06/03/2010 12:28" }, - "instance" : { - "gemstoneUrl" : "DaleHenrichs 06/03/2010 14:30" } } diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/methodProperties.json deleted file mode 100644 index f52ab9d1..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "binary" : "dkh 11/06/2009 08:45", - "contents" : "dkh 11/06/2009 08:45", - "flush" : "dkh 11/06/2009 08:45", - "initializeOn:" : "NickAger 11/13/2010 01:54", - "next" : "DaleHenrichs 06/03/2010 13:07", - "next:" : "DaleHenrichs 06/03/2010 13:11", - "nextPut:" : "DaleHenrichs 06/03/2010 13:08", - "nextPutAll:" : "DaleHenrichs 06/03/2010 13:08", - "size" : "dkh 11/06/2009 08:45", - "text" : "dkh 11/06/2009 08:45" } } 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/GRUtf8GemStoneCodec.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/methodProperties.json deleted file mode 100644 index a381c453..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "dkh 11/06/2009 08:45", - "supportsEncoding:" : "DaleHenrichs 06/03/2010 12:06" }, - "instance" : { - "decode:" : "dkh 11/17/2009 16:06", - "decoderFor:" : "NorbertHartl 11/30/2010 12:09", - "encode:" : "dkh 05/24/2012 10:00", - "encodeUrl:" : "dkh 05/24/2012 10:00", - "encoderFor:" : "dkh 11/06/2009 08:45", - "initialize" : "dkh 11/06/2009 08:45", - "name" : "dkh 11/06/2009 08:45", - "url" : "dkh 11/06/2009 08:45" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-GemStone-Core.package/GsContext.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/README.md rename to repository/Grease-GemStone-Core.package/GsContext.class/README.md diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st b/repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st new file mode 100644 index 00000000..70e39e02 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st @@ -0,0 +1,4 @@ +instance creation +fromContinuation: aContinuation atLevel: anInteger + +^self new continuation: aContinuation level: anInteger \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st b/repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st new file mode 100644 index 00000000..3fef611a --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st @@ -0,0 +1,4 @@ +instance creation +fromLevel: anInteger + +^self new continuation: (GsProcess continuationFromLevel: anInteger) level: 1 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st new file mode 100644 index 00000000..de425186 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st @@ -0,0 +1,4 @@ +comparing += anObject + ^ anObject class == self class + and: [ anObject receiver == receiver and: [ anObject method == method ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st new file mode 100644 index 00000000..11e17a03 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st @@ -0,0 +1,4 @@ +formatting +asString + + ^self fullPrintString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st new file mode 100644 index 00000000..6ebf24ef --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st @@ -0,0 +1,8 @@ +initialization +continuation: aContinuation level: anInteger + continuation := aContinuation. + level := anInteger. "these instance variables are populated for the WAWalkback use" + method := (continuation _frameContentsAt: level) at: 1. + source := method sourceString. + receiver := (continuation _frameContentsAt: level) at: 10. + mySelf := (continuation _frameContentsAt: level) at: 8 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st new file mode 100644 index 00000000..5334e0fd --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st @@ -0,0 +1,5 @@ +accessing +fullPrintString + + +^continuation _reportAt: level \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st new file mode 100644 index 00000000..4dffa6d2 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st @@ -0,0 +1,4 @@ +formatting +greaseString + + ^self fullPrintString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st new file mode 100644 index 00000000..6e6e89e5 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st @@ -0,0 +1,4 @@ +accessing +method + +^method \ 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/receiver.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/receiver.st new file mode 100644 index 00000000..06791e73 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/receiver.st @@ -0,0 +1,4 @@ +accessing +receiver + +^receiver \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st new file mode 100644 index 00000000..08e61146 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st @@ -0,0 +1,5 @@ +accessing +sender + +continuation stackDepth == level ifTrue: [^nil]. +^self class fromContinuation: continuation atLevel: level + 1 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st new file mode 100644 index 00000000..a95857ca --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st @@ -0,0 +1,7 @@ +accessing +tempAt: index + | ar | + ar := continuation _frameContentsAt: level. + ar size < (10 + index) + ifTrue: [ ^ nil ]. + ^ ar at: 10 + 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/GsContext.class/instance/tempNames.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNames.st new file mode 100644 index 00000000..b7b144b7 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNames.st @@ -0,0 +1,3 @@ +accessing +tempNames + ^ (continuation _frameContentsAt: level) at: 9 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/properties.json b/repository/Grease-GemStone-Core.package/GsContext.class/properties.json new file mode 100644 index 00000000..ee7ef3ef --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GsContext.class/properties.json @@ -0,0 +1,19 @@ +{ + "category" : "Grease-GemStone-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "continuation", + "level", + "method", + "source", + "mySelf", + "receiver" ], + "name" : "GsContext", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/Interval.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index aab9a7c7..00000000 --- a/repository/Grease-GemStone-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "DaleHenrichs 06/02/2010 16:54" } } 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/MessageSend.extension/instance/fixCallbackTemps.st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 338a23db..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -fixCallbackTemps - "For polymorphism with BlockContext>>#fixCallbackTemps." \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index 25dcd226..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "jgf 01/14/2009 15:34", - "evaluateWithArguments:" : "dkh 03/03/2008 15:35", - "fixCallbackTemps" : "jgf 01/14/2009 15:08", - "value:" : "jgf 01/14/2009 15:13", - "value:value:" : "jgf 01/14/2009 15:14", - "valueWithPossibleArgument:" : "jgf 12/15/2008 14:24", - "valueWithPossibleArguments:" : "jgf 01/14/2009 15:36" } } diff --git a/repository/Grease-GemStone-Core.package/Number.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index ac2f92cc..00000000 --- a/repository/Grease-GemStone-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "milliseconds" : "DaleHenrichs 06/03/2010 11:11" } } diff --git a/repository/Grease-GemStone-Core.package/Object.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index 384397c0..00000000 --- a/repository/Grease-GemStone-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "displayString" : "dkh 11/09/2009 11:10", - "greaseString" : "dkh 11/06/2009 10:16", - "isMessageSend" : "jgf 12/16/2008 14:11" } } diff --git a/repository/Grease-GemStone-Core.package/PackageInfo.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/PackageInfo.extension/methodProperties.json deleted file mode 100644 index 49ba3845..00000000 --- a/repository/Grease-GemStone-Core.package/PackageInfo.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "versionString" : "dkh 03/03/2008 16:21" } } diff --git a/repository/Grease-GemStone-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index e72953e4..00000000 --- a/repository/Grease-GemStone-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseUpToAll:" : "dkh 11/06/2009 10:20" } } 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/SequenceableCollection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index bdaa248f..00000000 --- a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beginsWithSubCollection:" : "DaleHenrichs 06/03/2010 12:16", - "endsWithSubCollection:" : "DaleHenrichs 06/02/2010 16:37" } } 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/String.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/String.extension/methodProperties.json deleted file mode 100644 index 61e06303..00000000 --- a/repository/Grease-GemStone-Core.package/String.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "fromString:" : "jgf 01/02/2009 12:05" }, - "instance" : { - } } 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/SystemAbortTransaction.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/methodProperties.json deleted file mode 100644 index 2ac8a82f..00000000 --- a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "alternatives" : "dkh 07/25/2007 14:13", - "defaultAction" : "dkh 07/25/2007 14:08", - "transaction" : "dkh 07/25/2007 14:03" } } diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/methodProperties.json deleted file mode 100644 index fddb95a4..00000000 --- a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "alternatives" : "dkh 07/25/2007 14:13", - "defaultAction" : "dkh 07/25/2007 14:11", - "transaction" : "dkh 07/25/2007 14:11" } } diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/methodProperties.json deleted file mode 100644 index 7f72c488..00000000 --- a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "alternatives" : "dkh 07/25/2007 14:04", - "defaultAction" : "dkh 07/30/2007 12:42", - "transaction" : "dkh 07/25/2007 14:03" } } diff --git a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/methodProperties.json deleted file mode 100644 index 8630923c..00000000 --- a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "alternatives" : "dkh 07/25/2007 14:02", - "transaction" : "dkh 07/25/2007 14:02" } } diff --git a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/methodProperties.json deleted file mode 100644 index 24221eb7..00000000 --- a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "copyFrom:" : "jgf 01/02/2009 13:07" } } diff --git a/repository/Grease-GemStone-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index 178f910b..00000000 --- a/repository/Grease-GemStone-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "crlf" : "jgf 01/23/2009 12:50", - "greaseNext:putAll:startingAt:" : "DaleHenrichs 06/03/2010 11:13" } } diff --git a/repository/Grease-GemStone-Core.package/monticello.meta/version b/repository/Grease-GemStone-Core.package/monticello.meta/version deleted file mode 100644 index 1fd43972..00000000 --- a/repository/Grease-GemStone-Core.package/monticello.meta/version +++ /dev/null @@ -1,46 +0,0 @@ -(name 'Grease-GemStone-Core-JohanBrichau.59' message 'Added GRDynamicVariable on Gemstone' id 'e5088f7e-4246-4cdf-8dcd-87c4c8bc1f9b' date '05/25/2017' time '08:15:29' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.58' message 'Pharo 6+ compatibility: added CharacterCollection>>substrings:' id 'e7793cba-8bd0-47c0-aac0-e3694ce2d41a' date '05/25/2017' time '04:16:15' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.57' message 'Remove Process>>properties. (issue #10)' id '557705db-2b6f-4995-bb56-fe8ff0fb5dcb' date '03/26/2016' time '08:27:41' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.57' message 'Remove Process>>properties. (issue #10)' id '89b554d2-85f8-4dd0-800d-7324a9ddcf89' date '03/26/2016' time '08:26:51' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-dkh.56' message 'merged by GitFileTree-MergeDriver' id 'bbbe8dfc-013c-4896-98ff-992656827d71' date '12/21/2014' time '07:08:15' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.54' message 'implement a workaround for GemStone internal Bug 42963: ensure: block executed twice (don''t return from ensure: block)' id '62be0e37-656b-463d-99eb-f49550ae72ec' date '12/21/2014' time '19:00:49' author 'dkh' ancestors () stepChildren ())(name 'Grease-GemStone-Core-JohanBrichau.55' message 'Fix for slow handling of utf8 encoding in GS3.x (see https://github.com/GsDevKit/Grease/issues/2)' id '10706c0c-3c53-4624-aa15-ab5ef6907815' date '10/19/2014' time '08:42:03' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.54' message 'implement file library methods for GS' id '0c9983b7-e3b9-4aec-9ae4-29cd3d8eb916' date '10/11/2014' time '02:29:22' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-dkh.53' message 'ExecutableBlock is a class that is really only applicable to 2.4.x - -- The class was present in GemStone 3.0 and 3.1, but was basically - obsolete. In GemStone 3.2 was finally removed from the system. -- move the Executable block classes in the Grease-GemStone240-Core - package' id 'd4760108-7ed6-4a8f-b0c9-2c39b47d78be' date '06/04/2014' time '16:49:14' author 'dkh' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.52' message 'deprecationExceptionSet should be an instance of ExceptionSet' id 'df3d491a-7a37-461c-9ed4-b2ba62d7f6dd' date '04/19/2014' time '10:57:49' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.51' message 'Bugfix unexpected semantics of #doTransaction: with multithreading (used in WAGemStoneServiceTask)' id '193342cc-06e1-4c59-8718-6dd5c60851ed' date '03/21/2014' time '17:46:48' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-JohanBrichau.50' message 'implemented #directoriesIn:' id '3b037472-71c9-4558-a7e4-2c1747d2dc96' date '02/15/2014' time '07:04:30' author 'JohanBrichau' ancestors ((name 'Grease-GemStone-Core-dkh.49' message '- support for Seaside3.1 on GemStone -' id 'e1e59d23-6c21-4c1e-9477-e9f41b0130af' date '09/15/2013' time '22:09:32' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.48' message '1.0.7.1 (dkh.186): -- Adjust Utf8 code .. libICU produces a ByteArray when it encodes to UTF8, but Seaside wants Strings' id '3549901f-5e9c-4680-b1f8-10e172e87c68' date '05/24/2012' time '11:09:55' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.47' message '1.0.6.4 (dkh.174): -- open 1.0.6.4 for development -- support for GemStone/S 2.4.5 release' id '5351338d-a7ba-4cf7-b8d5-f72c80b56e6f' date '11/11/2011' time '15:09:11' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.46' message '1.0.6.3 (dkh.172): -- opened for development ... continued GemStone 3.0.1 work continued from 1.0.6.1 -- clean up tests when run against Minimal GLASS group' id '5356581c-4eca-4ef1-8216-b95c4c5e6a1b' date '10/19/2011' time '21:59:28' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.45' message '1.0.6.1 (dkh.159): -- port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '5899cf59-7fac-48ee-b969-abd7d4084310' date '10/14/2011' time '17:04:41' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.44' message '1.0.6 (dkh.154) [GEMSTONE]: -- merge Grease-GemStone-Core-NickAger.43' id '6d97080d-4288-4db2-b224-b585b62ec149' date '09/02/2011' time '17:03:49' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.40' message '- fix issue 290 "transactionMutex is always nil" - http://code.google.com:9393/p/glassdb/issues/detail?id=290' id 'f7d20e67-7348-40e1-95ad-99b4ba3c66d9' date '08/31/2011' time '12:41:22' author 'dkh' ancestors () stepChildren ())(name 'Grease-GemStone-Core-NickAger.43' message 'removed: -GRGemstonePlatform>>deleteFile:ifAbsent:ifFail: - -decided that it shouldn''t be in platform after discussion on dev list' id 'ced45d04-7c8c-466d-b6ef-3f5abd94d4f8' date '08/16/2011' time '08:18:46' author 'NickAger' ancestors ((name 'Grease-GemStone-Core-NickAger.42' message 'added: - GRGemstonePlatform>>#pathSeparator' id '495200ee-5b20-4d13-b4e9-6ebfd61167e3' date '08/15/2011' time '17:13:50' author 'NickAger' ancestors ((name 'Grease-GemStone-Core-NickAger.41' message 'modified the GRPharoPlatform>>#deleteFile: API (checked-in previously) to (new API): - GRPharoPlatform>>#deleteFile: filepath ifAbsent: absentBlock ifFail: failureBlock' id 'f0a83b80-27f2-4161-a266-1921c4e8367f' date '08/15/2011' time '14:49:40' author 'NickAger' ancestors ((name 'Grease-GemStone-Core-NickAger.40' message 'added: - - GRGemstonePlatform>>#deleteFile: filepath - -delete the file defined by the filepath - -...to implement the version I added to GRPlatform and GRPharoPlatform' id '9caf9d5c-8939-486e-b1b6-577fcf8f9bc5' date '08/15/2011' time '11:42:41' author 'NickAger' ancestors ((name 'Grease-GemStone-Core-dkh.39' message '1.0.5.1 (dkh.150): -- open 1.0.5.1 for development ... GemStone-specific branch aimed at bypassing use of class instance variables (etc.) to allow the GemStone 3.0 version of Seaside to run against a read only SymbolDictionary. Some class instance variables are mapped to session temps and some are mapped to user-specific storage in UserGlobals. -- refactor GRGemStonePlatform>>logError:title: and friends a bit to make it somewhat more useful -- GRGemStoneRandomProvider class instance variables mutex and generator mapped to session temps' id '5e85a8e8-6dd9-499b-845e-52892331cd93' date '07/29/2011' time '17:03:39' author 'dkh' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.38' message '1.0.5 (dkh.145): -- changes for the new Random classes available in 3.0' id '4323a6ce-2799-496c-a625-43aaabbe70a0' date '04/29/2011' time '14:37:24' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-dkh.37' message '1.0.5 (DaleHenrichs.141): -- support for Iliad -- what happened to Grease-Core-as.59?' id 'c79b8ac3-3eba-4a71-aa83-d14851974b96' date '04/25/2011' time '20:35:09' author 'dkh' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.36' message '- fix Issue 227: Squeak/Pharo String extensions methods don''t work on multibyte strings - http://code.google.com/p/glassdb/issues/detail?id=227' id '5b4ca062-9198-4777-a914-d114af3aa2bc' date '02/17/2011' time '17:31:39' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.35' message '- fix Issue 239: http://code.google.com/p/glassdb/issues/detail?id=239 "using WAFastCGIAdaptor leads the false conversion of + in urls."' id 'cfb79a92-f40f-4b0d-9112-3c2e92b49a33' date '02/16/2011' time '16:08:09' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.34' message '- implement pathSeparator based on Grease-Core-pmm.55' id '57fd33e1-d2ec-4c2b-8527-e6d01ff7e32e' date '02/11/2011' time '16:08:47' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.33' message '- open 1.0.3.1 for development -- get Seaside3.0 running on GemStone3.0beta3 -- fix Issue 212: http://code.google.com/p/glassdb/issues/detail?id=212 FileDirectory class>>onClient switched sense" [GemStone] -- ANSI block behavior means that GemStone3.0 passes GRNumberTest>>testToDoClosures -- wait for GemStone bugs 41222 and 41223 to be fixed to pass remaining tests' id '37ea8149-5129-40ef-be9d-138e373f6319' date '01/20/2011' time '11:01:36' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.32' message '- fix Issue 166: http://code.google.com/p/glassdb/issues/detail?id=166 "discrepancy between Pharo regex and Gemstone on multiline strings' id '9613b535-326a-4b03-b799-0bdb8edb6331' date '12/08/2010' time '17:37:41' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.31' message '- User ServerDirectory in Grease (for performance) [GemStone]. -- fix open file descriptor leak [GemStone]' id '423d3c47-9f0d-4c97-89fd-6108fd23e065' date '12/03/2010' time '16:50:13' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-NorbertHartl.30' message 'implemented GRGemStonePlatform>>contentsOfFile:binary:' id 'c1e93c4d-5fac-4267-a9ee-5b9ef7a649e1' date '12/01/2010' time '19:23:53' author 'NorbertHartl' ancestors ((name 'Grease-GemStone-Core-NorbertHartl.29' message '- finished implementation for GRGemStonePlatform>>write:toFile:inFolder: -- added GRGemStonePlatform>>decoderFor:' id 'c8d85831-7ac8-4674-943f-738bad454f66' date '11/30/2010' time '13:46:55' author 'NorbertHartl' ancestors ((name 'Grease-GemStone-Core-NickAger.28' message 'corrected a typeo in the method name #initalize GRTextOrBinaryCodecStream>>#initializeOn: -which stopped the initialization method being called and hence the inst var wasn''t being properly initialized.' id 'aa6d3ea6-8cec-4685-a4a2-07af083cdb33' date '11/13/2010' time '16:08:37' author 'NickAger' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.27' message '- fix comment' id 'e43397e4-00b9-4540-a94b-bb8a0402ac45' date '11/08/2010' time '15:11:34' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.26' message '- fix Issue 165: http://code.google.com/p/glassdb/issues/detail?id=165 "Include GemStone version of Seaside-FileSystem in Seaside3.0" -' id '2ae56a70-aa43-4c0b-85f7-7954ad1662e4' date '09/02/2010' time '16:22:32' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.25' message '- remove unsed variable' id '836fd85f-0ca2-4bea-a98d-6110c6d0752b' date '08/27/2010' time '10:53:52' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.24' message '- account for base overrides' id '12699c3a-6eca-4268-bed3-dbca8c625230' date '08/23/2010' time '14:17:37' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.23' message '- moved some methods that were needed by base (Squeak-DaleHenrichs.238)' id '0231c4cd-4ea3-4d04-b901-7c9684199542' date '08/23/2010' time '13:12:34' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.22' message '- add AnsiWriteStream .. for now ... they might end up in Core eventually' id '3f88a33e-ec6d-4962-8880-cf2e1cc4d0ed' date '08/11/2010' time '23:06:50' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.21' message '- fix platform newline' id '48b34c0e-0142-4e2e-8e3b-c7a0ef4807a5' date '07/27/1910' time '12:49:04' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.20' message '- Character>>digitValue* belong in Squeak package' id 'a4e0da87-0ba2-47d7-953d-114f070316c1' date '07/22/1910' time '16:48:58' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.19' message '- resolve some unresolved symbol issues' id '53149d6f-fdd1-4cf1-8e47-491477b31226' date '07/22/1910' time '15:08:08' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.18' message '- ExceptionA>>greaseString is gemstone version specific' id '3c8f5327-d61b-409e-b1b2-f6ddcd5b2a28' date '07/22/1910' time '14:16:18' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.17' message '- port to GemStone 3.0 ... use {} array constructor' id 'a2bbda2d-7212-4bc9-a99d-b301627eb58c' date '07/22/1910' time '14:05:18' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.16' message '- ExceptionA needs #greaseString defined' id '773842f9-687c-470a-8e60-ffbe606b66a6' date '06/04/1910' time '17:40:57' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.15' message '- use Squeak-based algorithm for Float greasePrintstring and javascript printing -' id '2ddbe2bf-d0f6-416f-a669-3253dc3b4d67' date '06/04/1910' time '15:33:12' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.14' message '- port to GemStone GLASS 1.0-beta.8 -- 380 run, 375 passes, 4 expected failures, 1 failures, 0 errors, 0 unexpected passes' id '3344f073-deac-48b5-8fb8-75a66cb7dc53' date '06/03/1910' time '15:22:04' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-DaleHenrichs.13' message '- move some methods from Seaside-GemStone-Core to Grease-GemStone-Core' id 'c61e1a56-0ebb-4433-a727-2381a19419bf' date '06/02/1910' time '15:33:20' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone-Core-dkh.12' message '- concurrent server gem support for FastCGI and Swazoo2 - - server logging and error handlers -' id '8eb67a2b-e49f-436c-861d-dd5296830754' date '12/23/2009' time '16:44:01' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.11' message '- fill out #logError:title:' id '3c797899-4dd9-4df1-9bf5-a73d02a33a52' date '12/14/2009' time '15:55:31' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.10' message '- renamed GRPharoRandomProvider to GRGemStoneRandomProvider [GemStone]' id '76f077b2-af28-40e1-95ce-defac19a528b' date '12/09/2009' time '17:24:42' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.9' message '- fix Issue 499: http://code.google.com/p/seaside/issues/detail?id=499' id '474190d1-4011-4ccf-8624-b037b52f30d8' date '11/23/2009' time '15:08:07' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.8' message '- gemstone-specific fixes for Issue 480: http://code.google.com/p/seaside/issues/detail?id=480' id '33e92e8a-7c74-4f47-9475-60ddf413c1fb' date '11/18/2009' time '10:12:22' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.7' message '- support ''UTF-8'' has a codec name as well' id 'db6af2d1-c993-421c-99d5-0549b1900c5d' date '11/17/2009' time '14:52:15' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.6' message '- update dependencies based on loading experiences using ConfigurationOfSeaside30 -' id 'dc9ebd3f-118f-4a60-88fd-b9db98091f08' date '11/13/2009' time '15:17:02' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.5' message '- getting down to just a couple of failed tests' id '490ad71b-7737-4c35-8ba8-6a6084e2d7f6' date '11/09/2009' time '16:57:08' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.4' message '- cleanup the grease' id 'bf163585-ff13-40ab-81cb-ae683ec72cf6' date '11/09/2009' time '12:02:45' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.3' message '- skidding on grease' id 'b08023b8-5969-4507-9e3d-da38795b3690' date '11/06/2009' time '10:23:40' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.2' message '- correct some missed GR* superclasses' id '77b3a954-3674-4d7b-a4eb-3052adfe5ea0' date '11/06/2009' time '09:42:46' author 'dkh' ancestors ((name 'Grease-GemStone-Core-dkh.1' message '- initial port from Seaside-GemStone-Platform' id 'd265fbbd-6b9a-45f7-b62c-46b1c05b6e95' date '11/06/2009' time '08:46:55' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file 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-Pharo-Core.package/.filetree b/repository/Grease-GemStone-Kernelv370.package/.filetree similarity index 100% rename from repository/Grease-Pharo-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-Pharo-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone-Kernelv370.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Pharo-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-Pharo-Core.package/properties.json b/repository/Grease-GemStone-Kernelv370.package/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/properties.json rename to repository/Grease-GemStone-Kernelv370.package/properties.json diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/methodProperties.json b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/methodProperties.json deleted file mode 100644 index 2cf6df1d..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "gemstoneExceptionSelector" : "dkh 10/14/2011 17:13", - "generateHardBreak" : "dkh 10/14/2011 16:58", - "handlesAlmostOutOfStackException:" : "dkh 10/14/2011 17:21", - "handlesBreakpointException:" : "dkh 10/14/2011 17:21", - "handlesHaltException:" : "dkh 10/14/2011 17:21" } } diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/methodProperties.json b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index 287c2518..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "crlf" : "dkh 11/06/2009 08:45", - "invalidUtf8" : "dkh 11/06/2009 08:45", - "next:" : "DaleHenrichs 08/27/2010 10:45", - "nextPut:" : "dkh 11/06/2009 08:45", - "nextPutAll:" : "dkh 05/24/2012 09:50" } } diff --git a/repository/Grease-GemStone200-Core.package/monticello.meta/version b/repository/Grease-GemStone200-Core.package/monticello.meta/version deleted file mode 100644 index 52d2e10d..00000000 --- a/repository/Grease-GemStone200-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone200-Core-JohanBrichau.3' message 'Fix for slow UTF8 encoding in GemStone3.x (see https://github.com/GsDevKit/Grease/issues/2 )' id 'fa78339a-9385-4a26-9b78-67f961b3e0ab' date '10/19/2014' time '15:57:54' author 'JohanBrichau' ancestors ((name 'Grease-GemStone200-Core-dkh.2' message '3.0.6.1 (dkh.338): - GemStone 3.0.1 fix for Issue 130: remote breakpoints don''''t work http://code.google.com/p/glassdb/issues/detail?id=130' id 'aecee0e8-add0-4657-b4c8-4eea538e526f' date '10/14/2011' time '17:50:58' author 'dkh' ancestors ((name 'Grease-GemStone200-Core-dkh.1' message '1.0.6.1 (dkh.159): - port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '864f5d8b-0f4b-44f0-ad7a-1dd0f961a6db' date '10/14/2011' time '17:03:59' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-GemStone230-Core.package/TransientRandom.extension/methodProperties.json b/repository/Grease-GemStone230-Core.package/TransientRandom.extension/methodProperties.json deleted file mode 100644 index b613cfbc..00000000 --- a/repository/Grease-GemStone230-Core.package/TransientRandom.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "open" : "dkh 09/13/2011 17:06" } } diff --git a/repository/Grease-GemStone230-Core.package/monticello.meta/version b/repository/Grease-GemStone230-Core.package/monticello.meta/version deleted file mode 100644 index c0f2decd..00000000 --- a/repository/Grease-GemStone230-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone230-Core-dkh.4' message '- fix a startup issue' id 'a89861b1-fcb3-4f0f-99b8-877ee5754ecd' date '09/13/2011' time '17:07:02' author 'dkh' ancestors ((name 'Grease-GemStone230-Core-dkh.3' message '- moved PositionableStream methods from Grease-GemStone230-Core to GemStone-23x-ANSI-Streams as these methods are needed earlier during the upgrade process' id '2ccab958-3423-4659-b6fd-8942a09b47b5' date '09/13/2011' time '14:00:50' author 'dkh' ancestors ((name 'Grease-GemStone230-Core-dkh.2' message '- woops, better to not try to take shortcuts:)' id '739d20d7-454c-4854-bb3e-266625a1961d' date '11/15/2009' time '12:39:28' author 'dkh' ancestors ((name 'Grease-GemStone230-Core-dkh.1' message '- support for ANSI streams in 2.3' id 'a9e85a41-5e61-4fda-9296-cea96bd6e987' date '11/15/2009' time '12:18:04' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/methodProperties.json b/repository/Grease-GemStone240-Core.package/ExceptionA.extension/methodProperties.json deleted file mode 100644 index cf1e891c..00000000 --- a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "raiseSignal:" : "dkh 03/03/2008 15:23" }, - "instance" : { - "greaseString" : "DaleHenrichs 06/04/2010 17:20", - "raiseSignal" : "DaleHenrichs 07/23/2010 11:19", - "raiseSignal:" : "DaleHenrichs 07/23/2010 11:19" } } diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/fixCallbackTemps.st b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/fixCallbackTemps.st deleted file mode 100644 index c058fbc4..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemStone240-core -fixCallbackTemps - "Fix the values of the temporary variables used in the block that are - ordinarily shared with the method in which the block is defined." \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/methodProperties.json b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/methodProperties.json deleted file mode 100644 index 10cfeed3..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "jgf 01/14/2009 14:59", - "fixCallbackTemps" : "DaleHenrichs 06/02/2010 15:22", - "ifCurtailed:" : "jgf 02/02/2009 15:31", - "tempVarRefs" : "jgf 12/15/2008 14:24", - "valueWithPossibleArguments:" : "dkh 09/14/2009 14:42" } } diff --git a/repository/Grease-GemStone240-Core.package/TransientRandom.extension/methodProperties.json b/repository/Grease-GemStone240-Core.package/TransientRandom.extension/methodProperties.json deleted file mode 100644 index 6ca117d3..00000000 --- a/repository/Grease-GemStone240-Core.package/TransientRandom.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "open" : "dkh 04/28/2011 15:55" } } diff --git a/repository/Grease-GemStone240-Core.package/monticello.meta/version b/repository/Grease-GemStone240-Core.package/monticello.meta/version deleted file mode 100644 index 8ee783ba..00000000 --- a/repository/Grease-GemStone240-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone240-Core-dkh.4' message 'ExecutableBlock is a class that is really only applicable to 2.4.x - The class was present in GemStone 3.0 and 3.1, but was basically obsolete. In GemStone 3.2 was finally removed from the system. - move the Executable block classes in the Grease-GemStone240-Core package' id '394694c2-55a4-4ab0-ac68-ab99dae1092e' date '06/04/2014' time '16:49:16' author 'dkh' ancestors ((name 'Grease-GemStone240-Core-dkh.3' message '- support for new Random class in 3.0' id '4f3c8585-1380-4ed8-b743-5361bd58262e' date '04/28/2011' time '18:17:58' author 'dkh' ancestors ((name 'Grease-GemStone240-Core-DaleHenrichs.2' message '- get exceptions in right spot' id '148e3082-96e9-4684-8659-24196059d603' date '07/23/1910' time '11:24:33' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone240-Core-DaleHenrichs.1' message '- ExceptionA>>greaseString is gemstone version specific' id 'aeda8534-3dfe-4ba7-85f0-cc030c9d970d' date '07/22/1910' time '14:16:28' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/Exception.extension/methodProperties.json b/repository/Grease-GemStone300-Core.package/Exception.extension/methodProperties.json deleted file mode 100644 index a42f9dba..00000000 --- a/repository/Grease-GemStone300-Core.package/Exception.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "DaleHenrichs 07/22/2010 14:14" } } diff --git a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/fixCallbackTemps.st b/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 12355301..00000000 --- a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -fixCallbackTemps - "Fix the values of the temporary variables used in the block that are - ordinarily shared with the method in which the block is defined." diff --git a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/methodProperties.json b/repository/Grease-GemStone300-Core.package/ExecBlock.extension/methodProperties.json deleted file mode 100644 index 04f15100..00000000 --- a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "DaleHenrichs 07/22/2010 16:23", - "fixCallbackTemps" : "DaleHenrichs 07/22/2010 16:24", - "ifCurtailed:" : "DaleHenrichs 07/22/2010 16:25", - "valueWithPossibleArguments:" : "DaleHenrichs 07/22/2010 16:23" } } diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/methodProperties.json b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/methodProperties.json deleted file mode 100644 index 6c9ad74e..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "gemstoneExceptionSelector" : "dkh 10/14/2011 17:11", - "generateHardBreak" : "dkh 10/14/2011 16:57", - "handlesAlmostOutOfStackException:" : "dkh 10/14/2011 17:18", - "handlesBreakpointException:" : "dkh 10/14/2011 17:18", - "handlesHaltException:" : "dkh 10/14/2011 17:18" } } diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/methodProperties.json b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index b77ebb5f..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "initialize" : "dkh 06/15/2015 10:48" }, - "instance" : { - "crlf" : "dkh 11/06/2009 08:45", - "invalidUtf8" : "dkh 11/06/2009 08:45", - "next:" : "DaleHenrichs 08/27/2010 10:45", - "nextPut:" : "dkh 06/15/2015 10:44", - "nextPutAll:" : "dkh 06/15/2015 10:45" } } diff --git a/repository/Grease-GemStone300-Core.package/monticello.meta/version b/repository/Grease-GemStone300-Core.package/monticello.meta/version deleted file mode 100644 index 6dca71ba..00000000 --- a/repository/Grease-GemStone300-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone300-Core-dkh.6' message 'Missed some spots in Grease relating to the fix for https://github.com/GsDevKit/GsDevKit/issues/27' id 'af0b39f3-714b-4b01-9c72-7536a3c128e8' date '15 June 2015' time '10:56:56 am' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-JohanBrichau.5' message 'Fix for slow handling of utf8 encoding in GS3.x (see https://github.com/GsDevKit/Grease/issues/2 )' id 'a1323a4e-ce99-4e85-bf25-ffeaaa9463f5' date '19 October 2014' time '8:40:18 am' author 'JohanBrichau' ancestors ((name 'Grease-GemStone300-Core-dkh.4' message '1.0.6.1 (dkh.159): - GemStone 3.0.1 fix for Issue 130: remote breakpoints don''''t work http://code.google.com/p/glassdb/issues/detail?id=130' id '5c8d2bf0-4319-4099-b4b1-83abcc7195b0' date '14 October 2011' time '5:52:12 pm' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.3' message '1.0.6.1 (dkh.159): - port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '2c389d30-c4d2-4def-b488-82d82b241d1d' date '14 October 2011' time '5:04:58 pm' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.2' message '- pick up some missing methods' id 'a36f8f57-31fc-4a76-84d8-d68331d70935' date '22 July 1910' time '4:42:48 pm' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.1' message '- Exception>>greaseString is gemstone version specific' id '0a2c8aaf-061e-45b6-8070-54e4b203adf3' date '22 July 1910' time '2:18:53 pm' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/.filetree b/repository/Grease-GemStone330-Core.package/.filetree similarity index 100% rename from repository/Grease-Pharo10-Core.package/.filetree rename to repository/Grease-GemStone330-Core.package/.filetree diff --git a/repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st b/repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st new file mode 100644 index 00000000..ea4bff53 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*grease-gemstone330-core +greaseString + + ^self description \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/Exception.extension/properties.json b/repository/Grease-GemStone330-Core.package/Exception.extension/properties.json new file mode 100644 index 00000000..6dcfd842 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/Exception.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Exception" } diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st new file mode 100644 index 00000000..9f25fa98 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st @@ -0,0 +1,4 @@ +*grease-gemstone330-core +argumentCount + + ^self numArgs. \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st new file mode 100644 index 00000000..cc75520a --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st @@ -0,0 +1,11 @@ +*grease-gemstone330-core +ifCurtailed: aBlock + + | wasCurtailed | + wasCurtailed := true. + [ + self value. + wasCurtailed := false. + ] ensure: [ + wasCurtailed ifTrue: aBlock. + ]. \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..5e1d8c5d --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,9 @@ +*grease-gemstone330-core +valueWithPossibleArguments: anArray + "Evaluate the block represented by the receiver with the arguments provided." + | n args | + (n := self numArgs) == 0 ifTrue: [^self value]. + args := anArray copy + size: n; + yourself. + ^ self valueWithArguments: args. \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json new file mode 100644 index 00000000..d8195e28 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "ExecBlock" } diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st new file mode 100644 index 00000000..05cad772 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st @@ -0,0 +1,4 @@ +*grease-gemstone330-core +gemstoneExceptionSelector + + ^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st new file mode 100644 index 00000000..458d1366 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st @@ -0,0 +1,5 @@ +*grease-gemstone330-core +generateHardBreak + "Generate a GemStone hard break" + + ^Break signal: 'interrupted for Seaside debugging' \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st new file mode 100644 index 00000000..725be222 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st @@ -0,0 +1,4 @@ +*grease-gemstone330-core +handlesAlmostOutOfStackException: anException + + ^AlmostOutOfStack handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st new file mode 100644 index 00000000..d82b699a --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st @@ -0,0 +1,4 @@ +*grease-gemstone330-core +handlesBreakpointException: anException + + ^Breakpoint handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st new file mode 100644 index 00000000..45fffeb8 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st @@ -0,0 +1,4 @@ +*grease-gemstone330-core +handlesHaltException: anException + + ^Halt handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json new file mode 100644 index 00000000..eab5d9b5 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "GRGemStonePlatform" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/README.md rename to repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/README.md diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st new file mode 100644 index 00000000..fa779537 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st @@ -0,0 +1,12 @@ +initialization +initialize + "self initialize" + + Latin1ToUtf8Encodings := Array new: 256. + 1 to: 256 do: [ :index | + index > 128 + ifTrue: [ + Latin1ToUtf8Encodings + at: index + put: + (String with: (Character codePoint: index - 1)) encodeAsUTF8 asString ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st new file mode 100644 index 00000000..e5bb258a --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st @@ -0,0 +1,9 @@ +streaming +crlf + binary + ifTrue: [ + stream nextPut: 13. + stream nextPut: 10 ] + ifFalse: [ + stream nextPut: Character cr. + stream nextPut: Character lf ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st new file mode 100644 index 00000000..d38b2f3b --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +private +invalidUtf8 + ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..2f2af983 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st @@ -0,0 +1,37 @@ +streaming +next: anInteger + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode count | + outStream := WriteStream on: (String new: anInteger). + count := 0. + [ 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)]. + (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)]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode). + count := count + 1 ]. + unicode := nil ]. + ^outStream contents \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..1f98bba7 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,17 @@ +streaming +nextPut: aCharacter + "old implementation is very slow !!" + + " self nextPutAll: (String with: aCharacter)" + + | codePoint | + codePoint := aCharacter codePoint. + codePoint > 127 + ifTrue: [ + codePoint > 255 + ifTrue: [ + | str | + str := (String with: aCharacter) encodeAsUTF8intoString. + stream nextPutAll: str ] + ifFalse: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] ] + ifFalse: [ stream nextPut: aCharacter ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..d43ab2ef --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + binary + ifTrue: [ stream nextPutAll: aString asString ] + ifFalse: [ stream nextPutAll: aString _encodeAsUTF8intoString ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..00add781 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-GemStone330-Core", + "classinstvars" : [ + ], + "classvars" : [ + "Latin1ToUtf8Encodings" ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRUtf8CodecStream", + "pools" : [ + ], + "super" : "GRTextOrBinaryCodecStream", + "type" : "normal" } diff --git a/repository/Grease-GemStone330-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone330-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..e25af126 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-GemStone330-Core'! diff --git a/repository/Grease-Pharo10-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone330-Core.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Pharo10-Core.package/monticello.meta/initializers.st rename to repository/Grease-GemStone330-Core.package/monticello.meta/initializers.st diff --git a/repository/Grease-GemStone330-Core.package/monticello.meta/package b/repository/Grease-GemStone330-Core.package/monticello.meta/package new file mode 100644 index 00000000..e20588a2 --- /dev/null +++ b/repository/Grease-GemStone330-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-GemStone330-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/properties.json b/repository/Grease-GemStone330-Core.package/properties.json similarity index 100% rename from repository/Grease-Pharo10-Core.package/properties.json rename to repository/Grease-GemStone330-Core.package/properties.json diff --git a/repository/Grease-Pharo-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index dd325cf0..00000000 --- a/repository/Grease-Pharo-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Behavior.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Behavior.extension/methodProperties.json deleted file mode 100644 index fe28fb35..00000000 --- a/repository/Grease-Pharo-Core.package/Behavior.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fullName" : "lr 7/25/2011 19:45" } } diff --git a/repository/Grease-Pharo-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 1bd1b31b..00000000 --- a/repository/Grease-Pharo-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,2 +0,0 @@ -*grease-pharo-core -fixCallbackTemps \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 2c440444..00000000 --- a/repository/Grease-Pharo-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/BlockClosure.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index 641628e4..00000000 --- a/repository/Grease-Pharo-Core.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fixCallbackTemps" : "lr 4/8/2009 13:33", - "valueWithPossibleArguments:" : "lr 4/8/2009 13:36" } } diff --git a/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/fixCallbackTemps.st deleted file mode 100644 index bc4dbd24..00000000 --- a/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,17 +0,0 @@ -*grease-pharo-core -fixCallbackTemps - "Fix the values of the temporary variables used in the block that are - ordinarily shared with the method in which the block is defined. - - This is needed because Squeak is a crappy Smalltalk implementation - that does not have full blcck closures." - - | temps | - home := home copy. - home swapSender: nil. - home isMethodContext - ifFalse: [ ^ self ]. - temps := self tempVarRefs. - 1 to: home size do: [ :index | - (temps includes: index) - ifFalse: [ home tempAt: index put: nil ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/tempVarRefs.st b/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/tempVarRefs.st deleted file mode 100644 index 851f16bf..00000000 --- a/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/tempVarRefs.st +++ /dev/null @@ -1,16 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/BlockContext.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index ef1ac850..00000000 --- a/repository/Grease-Pharo-Core.package/BlockContext.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -valueWithPossibleArguments: anArray - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/BlockContext.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/BlockContext.extension/methodProperties.json deleted file mode 100644 index 73532ed7..00000000 --- a/repository/Grease-Pharo-Core.package/BlockContext.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fixCallbackTemps" : "lr 10/28/2007 14:42", - "tempVarRefs" : "lr 8/25/2007 16:26", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:50" } } diff --git a/repository/Grease-Pharo-Core.package/BlockContext.extension/properties.json b/repository/Grease-Pharo-Core.package/BlockContext.extension/properties.json deleted file mode 100644 index ea80c1e5..00000000 --- a/repository/Grease-Pharo-Core.package/BlockContext.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockContext" } diff --git a/repository/Grease-Pharo-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index 5e8d883f..00000000 --- a/repository/Grease-Pharo-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index add0c68e..00000000 --- a/repository/Grease-Pharo-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" } } diff --git a/repository/Grease-Pharo-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 0cff74a5..00000000 --- a/repository/Grease-Pharo-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo-core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Character.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index accbae78..00000000 --- a/repository/Grease-Pharo-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04" } } diff --git a/repository/Grease-Pharo-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index aeaf4a3e..00000000 --- a/repository/Grease-Pharo-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Collection.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 3196464b..00000000 --- a/repository/Grease-Pharo-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 00:41" } } diff --git a/repository/Grease-Pharo-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index 42304bc8..00000000 --- a/repository/Grease-Pharo-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index c531fca6..00000000 --- a/repository/Grease-Pharo-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index f2865197..00000000 --- a/repository/Grease-Pharo-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Duration.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index 018f4c60..00000000 --- a/repository/Grease-Pharo-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "milliseconds:" : "jf 2/6/2010 00:12" }, - "instance" : { - "asMilliseconds" : "jf 2/5/2010 23:58", - "milliseconds" : "jf 2/6/2010 00:02" } } diff --git a/repository/Grease-Pharo-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index d7a13496..00000000 --- a/repository/Grease-Pharo-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/GRDelegatingStream.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/GRDelegatingStream.extension/methodProperties.json deleted file mode 100644 index 4dd2cf88..00000000 --- a/repository/Grease-Pharo-Core.package/GRDelegatingStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:13" } } diff --git a/repository/Grease-Pharo-Core.package/GRPackage.extension/class/greasePharoCore.st b/repository/Grease-Pharo-Core.package/GRPackage.extension/class/greasePharoCore.st deleted file mode 100644 index c09fd018..00000000 --- a/repository/Grease-Pharo-Core.package/GRPackage.extension/class/greasePharoCore.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-pharo-core -greasePharoCore - ^ self new - name: 'Grease-Pharo-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 0c562a57..00000000 --- a/repository/Grease-Pharo-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greasePharoCore" : "pmm 9/12/2013 16:08" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/methodProperties.json deleted file mode 100644 index 5fe65894..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "on:converter:" : "pmm 10/30/2010 18:58" }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:12", - "initializeOn:converter:" : "pmm 10/30/2010 18:58", - "next" : "pmm 4/10/2010 13:32", - "next:" : "lr 2/7/2009 12:57", - "nextPut:" : "pmm 4/10/2010 13:30", - "nextPutAll:" : "lr 2/7/2009 12:54" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 32d54c9c..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/14/2013 15:53", - "instvars" : [ - "converter" ], - "name" : "GRPharoConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoGenericCodec.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/methodProperties.json deleted file mode 100644 index 5a10058b..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "pmm 6/28/2009 15:43", - "codecs" : "pmm 8/19/2014 10:04", - "supportedEncodingNames" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 6/28/2009 16:43" }, - "instance" : { - "converter" : "lr 7/25/2011 19:51", - "decoderFor:" : "lr 2/7/2009 12:52", - "encoderFor:" : "jf 9/30/2009 00:46", - "initializeWithName:" : "pmm 8/16/2010 11:52", - "name" : "lr 2/7/2009 10:16", - "url" : "lr 2/7/2009 12:36" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index c31bbb5a..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRPharoGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/methodProperties.json deleted file mode 100644 index 92c046e8..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "pmm 8/16/2010 00:36", - "codecs" : "lr 7/25/2011 19:46", - "supportedEncodingNames" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 8/16/2010 00:36" }, - "instance" : { - "decode:" : "pmm 8/19/2014 10:00", - "decoderFor:" : "pmm 8/16/2010 00:32", - "encoderFor:" : "pmm 8/16/2010 00:32", - "initializeWithName:" : "pmm 9/1/2012 15:32", - "name" : "pmm 8/16/2010 00:32" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index e95a8855..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRPharoLatin1Codec", - "pools" : [ - ], - "super" : "GRNullCodec", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json deleted file mode 100644 index c3e59bc2..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "next" : "pmm 9/14/2013 09:50", - "next:" : "lr 7/25/2011 19:50" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index 13aa961b..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoLatin1CodecStream", - "pools" : [ - ], - "super" : "GRNullCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index 3357dd27..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index d558068e..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 1aad81ef..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index b9a34e3d..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index d7e6feab..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 9565ae8b..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/methodProperties.json deleted file mode 100644 index c4a6cad2..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/methodProperties.json +++ /dev/null @@ -1,43 +0,0 @@ -{ - "class" : { - "initialize" : "pmm 5/20/2010 11:49", - "initializeUrlTable" : "pmm 5/20/2010 20:56", - "initializeXmlTable" : "pmm 5/20/2010 20:56", - "unload" : "jf 1/22/2009 02:45" }, - "instance" : { - "addToShutDownList:" : "jf 1/21/2009 17:31", - "addToStartUpList:" : "jf 1/21/2009 17:31", - "asMethodReturningByteArray:named:" : "lr 7/25/2011 19:51", - "asMethodReturningByteArrayLiteral:named:" : "lr 7/25/2011 19:51", - "asMethodReturningByteArrayWithCache:named:" : "pmm 2/20/2009 17:44", - "base64Decode:" : "jf 1/21/2009 17:31", - "bindingOf:" : "pmm 8/23/2014 11:42", - "compile:into:classified:" : "pmm 8/13/2010 11:52", - "contentsOfFile:binary:" : "lr 7/25/2011 19:51", - "deprecationExceptionSet" : "pmm 2/16/2014 23:12", - "directoriesIn:" : "NickAger 3/9/2012 11:33", - "doSilently:" : "JohanBrichau 9/10/2013 11:39", - "ensureExistenceOfFolder:" : "jf 1/21/2009 17:31", - "fileExists:" : "pmm 7/16/2015 16:36", - "fileStreamOn:do:binary:" : "pmm 7/16/2015 16:39", - "filesIn:" : "lr 7/25/2011 19:51", - "isProcessTerminated:" : "jf 2/6/2009 15:58", - "label" : "jf 2/9/2010 00:56", - "localNameOf:" : "lr 7/25/2011 19:51", - "newRandom" : "pmm 10/7/2010 13:10", - "newline" : "pmm 9/14/2013 09:56", - "openDebuggerOn:" : "pmm 1/22/2012 16:31", - "pathSeparator" : "pmm 2/5/2011 09:52", - "readWriteByteStream" : "lr 11/20/2011 17:16", - "readWriteCharacterStream" : "dkh 9/4/2009 09:14", - "removeFromShutDownList:" : "jf 1/21/2009 17:31", - "removeFromStartUpList:" : "jf 1/21/2009 17:31", - "removeSelector:from:" : "jf 1/21/2009 17:31", - "secureHashFor:" : "jf 1/21/2009 17:31", - "semaphoreClass" : "lr 7/25/2011 19:51", - "stackDepth" : "jf 1/21/2009 17:31", - "terminateProcess:" : "jf 2/6/2009 15:59", - "useByteArrayLiterals" : "pmm 2/11/2011 07:27", - "weakDictionaryOfSize:" : "lr 7/25/2011 19:51", - "write:toFile:inFolder:" : "pmm 8/19/2014 10:11", - "writeCharacterStreamOn:" : "pmm 8/26/2011 09:45" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index e9b795b9..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo-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-Pharo-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index a33a6ac9..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/methodProperties.json deleted file mode 100644 index cedc66aa..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "initialize" : "jgf 1/25/2009 12:05", - "nextInt:" : "lr 7/25/2011 19:46", - "randomClass" : "lr 7/25/2011 19:46", - "randomFrom:" : "lr 7/25/2011 18:28", - "startUp" : "pmm 1/10/2009 16:01", - "unload" : "jf 9/30/2009 00:19" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 7ef64458..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - "mutex", - "generator" ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoRandomProvider", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/methodProperties.json deleted file mode 100644 index cf1f05f1..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "lr 7/25/2011 19:46", - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "lr 7/25/2011 19:46" }, - "instance" : { - "decode:" : "pmm 2/17/2012 19:45", - "decoderFor:" : "jf 9/30/2009 00:46", - "encoderFor:" : "jf 9/30/2009 00:46", - "invalidUtf8" : "pmm 9/14/2013 09:37", - "name" : "pmm 2/20/2009 13:25", - "url" : "pmm 2/20/2009 12:50" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 0bc24d8e..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRPharoUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index d5942a3a..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "initialize" : "lr 7/25/2011 19:46" }, - "instance" : { - "crlf" : "pmm 4/10/2010 13:28", - "encodeDefault:" : "lr 7/25/2011 18:36", - "encodeFast:" : "pmm 9/1/2012 15:25", - "greaseNext:putAll:startingAt:" : "pmm 5/21/2014 21:33", - "greaseNext:putAllFast:startingAt:" : "pmm 5/21/2014 21:19", - "invalidUtf8" : "jf 9/30/2009 00:39", - "next" : "pmm 2/17/2010 20:09", - "next:" : "pmm 9/1/2012 15:25", - "nextPut:" : "lr 7/25/2011 19:51", - "nextPutAll:" : "pmm 4/10/2010 13:28" } } diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index 502ea13c..00000000 --- a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo-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-Pharo-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index 17d097d1..00000000 --- a/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index 941bd6d7..00000000 --- a/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index 22b0ff03..00000000 --- a/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/methodProperties.json deleted file mode 100644 index 9dbcc9c5..00000000 --- a/repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "customizeExplorerContents" : "lr 7/25/2011 19:51", - "explorerContents" : "lr 7/25/2011 19:51", - "hasContentsInExplorer" : "lr 7/25/2011 19:51" } } diff --git a/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Pharo-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-Pharo-Core.package/GRWorkingWriteStream.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/methodProperties.json deleted file mode 100644 index e8d4055e..00000000 --- a/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reset" : "pmm 8/26/2011 09:39" } } diff --git a/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index 097b9818..00000000 --- a/repository/Grease-Pharo-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/25/2011 18:30", - "instvars" : [ - ], - "name" : "GRWorkingWriteStream", - "pools" : [ - ], - "super" : "WriteStream", - "type" : "normal" } diff --git a/repository/Grease-Pharo-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 9bb6b557..00000000 --- a/repository/Grease-Pharo-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/Interval.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index 1dedf542..00000000 --- a/repository/Grease-Pharo-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 03:25" } } diff --git a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 9ee774f8..00000000 --- a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 001bf81a..00000000 --- a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -fixCallbackTemps - "for polymorphism with BlockContext >> #fixCallbackTemps" \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/value..st b/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/value..st deleted file mode 100644 index 5320c092..00000000 --- a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/value..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -value: anObject - ^ self valueWithArguments: (Array with: anObject) \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/value.value..st b/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/value.value..st deleted file mode 100644 index 63db5a5f..00000000 --- a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/value.value..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -value: aFirstObject value: aSecondObject - ^ self valueWithArguments: (Array with: aFirstObject with: aSecondObject) \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 4cceece4..00000000 --- a/repository/Grease-Pharo-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index e83e4177..00000000 --- a/repository/Grease-Pharo-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "pmm 1/10/2009 19:22", - "fixCallbackTemps" : "pmm 4/23/2007 20:02", - "value:" : "pmm 1/10/2009 18:40", - "value:value:" : "pmm 1/10/2009 23:54", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:52" } } diff --git a/repository/Grease-Pharo-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 6628c015..00000000 --- a/repository/Grease-Pharo-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Number.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index 977cd782..00000000 --- a/repository/Grease-Pharo-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "milliseconds" : "jf 2/6/2010 00:12" } } diff --git a/repository/Grease-Pharo-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index eceedc29..00000000 --- a/repository/Grease-Pharo-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/Object.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index add0c68e..00000000 --- a/repository/Grease-Pharo-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" } } diff --git a/repository/Grease-Pharo-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index 2899e843..00000000 --- a/repository/Grease-Pharo-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/Point.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/Point.extension/methodProperties.json deleted file mode 100644 index 353fca89..00000000 --- a/repository/Grease-Pharo-Core.package/Point.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "pmm 3/4/2012 20:24" } } diff --git a/repository/Grease-Pharo-Core.package/Point.extension/properties.json b/repository/Grease-Pharo-Core.package/Point.extension/properties.json deleted file mode 100644 index 3ae71f02..00000000 --- a/repository/Grease-Pharo-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Point" } diff --git a/repository/Grease-Pharo-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 8a5ed3c1..00000000 --- a/repository/Grease-Pharo-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index cfb79423..00000000 --- a/repository/Grease-Pharo-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseUpToAll:" : "jf 9/30/2009 01:06" } } diff --git a/repository/Grease-Pharo-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 3d7ec6d3..00000000 --- a/repository/Grease-Pharo-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/ScaledDecimal.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/ScaledDecimal.extension/methodProperties.json deleted file mode 100644 index f28c2e73..00000000 --- a/repository/Grease-Pharo-Core.package/ScaledDecimal.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "JohanBrichau 7/15/2015 13:26" } } diff --git a/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 442455a1..00000000 --- a/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 7d27b764..00000000 --- a/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 2f08d330..00000000 --- a/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo-core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index c683223d..00000000 --- a/repository/Grease-Pharo-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beginsWithSubCollection:" : "jok 3/22/2010 11:48", - "endsWithSubCollection:" : "jok 3/22/2010 11:47", - "sorted" : "jf 2/6/2010 02:01" } } diff --git a/repository/Grease-Pharo-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 78adaf37..00000000 --- a/repository/Grease-Pharo-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/SocketStream.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/SocketStream.extension/methodProperties.json deleted file mode 100644 index 8f430aea..00000000 --- a/repository/Grease-Pharo-Core.package/SocketStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 5/23/2010 08:17" } } diff --git a/repository/Grease-Pharo-Core.package/String.extension/instance/trimBoth..st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimBoth..st deleted file mode 100644 index 3f73af12..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimBoth..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/instance/trimBoth.st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimBoth.st deleted file mode 100644 index 35edfbc9..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimBoth.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/instance/trimLeft..st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimLeft..st deleted file mode 100644 index 52a18d2f..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimLeft..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/instance/trimLeft.right..st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimLeft.right..st deleted file mode 100644 index cd4eee74..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimLeft.right..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/instance/trimLeft.st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimLeft.st deleted file mode 100644 index ea50ec0e..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimLeft.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/instance/trimRight..st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimRight..st deleted file mode 100644 index 0abd4ae3..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimRight..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/instance/trimRight.st b/repository/Grease-Pharo-Core.package/String.extension/instance/trimRight.st deleted file mode 100644 index 02c513e4..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/instance/trimRight.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/String.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/String.extension/methodProperties.json deleted file mode 100644 index 2661c833..00000000 --- a/repository/Grease-Pharo-Core.package/String.extension/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "trimBoth" : "lr 10/25/2009 11:13", - "trimBoth:" : "lr 10/25/2009 11:11", - "trimLeft" : "lr 10/25/2009 11:14", - "trimLeft:" : "lr 10/25/2009 11:11", - "trimLeft:right:" : "lr 10/25/2009 11:15", - "trimRight" : "lr 10/25/2009 11:14", - "trimRight:" : "lr 10/25/2009 11:11" } } diff --git a/repository/Grease-Pharo-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 57b90f3c..00000000 --- a/repository/Grease-Pharo-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo-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-Pharo-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-Pharo-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index e8241b94..00000000 --- a/repository/Grease-Pharo-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "jf 5/22/2010 20:26" } } diff --git a/repository/Grease-Pharo-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo-Core.package/monticello.meta/categories.st deleted file mode 100644 index 0909ae8b..00000000 --- a/repository/Grease-Pharo-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo-Core'! diff --git a/repository/Grease-Pharo-Core.package/monticello.meta/package b/repository/Grease-Pharo-Core.package/monticello.meta/package deleted file mode 100644 index 98070803..00000000 --- a/repository/Grease-Pharo-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/monticello.meta/version b/repository/Grease-Pharo-Core.package/monticello.meta/version deleted file mode 100644 index 29152eed..00000000 --- a/repository/Grease-Pharo-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo-Core-pmm.75' message '- implement missing methods' id '715a1334-30b6-4621-b714-36d26615cd4c' date '16 July 2015' time '4:41:22 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-JohanBrichau.74' message 'Missing sign on ScaledDecimal>>greaseString (https://github.com/SeasideSt/Grease/issues/1) Thanks Hilaire!' id '2d4e3c5b-a220-4771-be39-b335912e16f9' date '15 July 2015' time '1:26:55.26 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo-Core-pmm.73' message '#820 Configurations should not hold on to classes' id 'e22794f6-2f43-4c58-986c-8616f6788707' date '12 July 2015' time '10:23:49 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.72' message '- lint fixes' id '64020abe-01f6-4b35-8918-185dc34e1b90' date '19 August 2014' time '10:35:19 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.71' message 'Issue 792: Issue encoding a non-ascii character preceded by an xml-unsafe one - https://code.google.com/p/seaside/issues/detail?id=792' id 'c823f84d-3cb3-4142-a402-c513325f37d3' date '21 May 2014' time '9:34:11 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.70' message '- formatting - move GRCountingStream from Pharo-only package to Core' id 'a547a055-973b-4af4-840a-691be105670b' date '21 May 2014' time '8:57:26 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.69' message 'Issue 781: Also catch platform deprecation signals - http://code.google.com/p/seaside/issues/detail?id=781' id '62d63448-9ddd-4681-8a58-e1ab1a1613b8' date '16 February 2014' time '11:18:12 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.68' message '- fix comment' id '5b81b23d-edc1-4ad4-aa38-00ccd3732027' date '1 February 2014' time '3:14:38 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.67' message 'Issue 770: ScaledDecimal rendering support http://code.google.com/p/seaside/issues/detail?id=770' id 'a278cbb9-ca35-41a7-b8c9-48bcbaa88df3' date '15 September 2013' time '12:07:44 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.66' message '- spelling' id 'eedba520-4519-4a2f-98a2-dae65d94651f' date '14 September 2013' time '3:55:58 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.65' message '- Slime' id 'cec7735d-8994-44fe-a508-47eced261684' date '14 September 2013' time '10:02:13 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.64' message '- Slime' id '327ab314-0531-4261-9f19-4590f39c4bea' date '14 September 2013' time '9:51:44 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.63' message '- implement missing method' id '1cfbe808-23be-4ad3-8d2e-40a5905c85fb' date '14 September 2013' time '9:38:35 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.62' message '- update URLs' id '5af25cab-95bc-4809-83b4-13eadb393333' date '12 September 2013' time '4:09:29 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.61' message '- update URLs' id '7c04fd10-875e-4b5b-b86c-342359ccb29e' date '12 September 2013' time '4:06:59 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-JohanBrichau.60' message 'deal with #doSilently: difference from Pharo2.0 onwards' id '074cb71f-16bc-4471-ad7e-0ba3665a1672' date '10 September 2013' time '11:40:27.421 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo-Core-JohanBrichau.59' message 'added the trim* methods for pharo versions prior to 2.0' id 'a9d37f3e-7a6d-4926-87f2-771e06dc7128' date '10 September 2013' time '9:34:11.097 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo-Core-pmm.58' message '- remove Object >> #displayString again, deprecated in 3.0 -> removed in 3.1' id '5e914a2d-bd92-4062-bc89-8aa72b18331a' date '16 March 2013' time '2:12 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-jf.57' message 'Cherry pick 4 methods that should have come in to Grease-Pharo-Core-pmm.51(4e5260c5-46b4-499f-bcd9-cc5e5a4e60ca) when Grease-Pharo-Core-NickAger.49 (d9f63c7b-0139-45df-a253-63649469f427) was merged in from the 3.0 to the 3.1 branch.' id 'd3d875fc-58a3-4881-8ef4-d2f0c3d4dc7c' date '13 January 2013' time '3:18:32 pm' author 'jf' ancestors ((name 'Grease-Pharo-Core-pmm.56' message '- Slime fixes, mostly recategorizations' id 'edaed043-e023-49a5-bf3d-e0a70bdd4526' date '3 September 2012' time '4:33:55 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.55' message '- formatting Nazis from outer space' id 'fb375e80-7261-4ea9-b9fe-57103fd6c1e0' date '1 September 2012' time '5:01:58 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.54' message '- Issue 736: implement #basicNextPutAll: on pseudo streams' id '0d54029e-c67b-4cb9-926e-80967a272d3d' date '14 August 2012' time '7:46:15 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.53' message '- Issue 733: multibyte characters broken when flushing a WAComboResponse - http://code.google.com/p/seaside/issues/detail?id=733' id 'cf4c1332-9d26-4f1c-8da4-359fc02ac66a' date '25 June 2012' time '9:05:56 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.52' message '- fix off by one error' id 'dbbe8c77-5681-47b0-bac0-9750ca2db809' date '21 April 2012' time '9:01:07 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.51' message '- merge 3.0 trunk' id '4e5260c5-46b4-499f-bcd9-cc5e5a4e60ca' date '29 March 2012' time '7:24:59 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.50' message '- merge Pharo 1.4 fixes from 3.0 branch' id 'a8f92057-af3a-4e85-ab95-f7b445156b55' date '6 March 2012' time '8:00:36 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.49' message '- inline GRPharoUtf8Codec >> #decode:, reduce the amount of allocation that has to be done, seems to give about 5% in some benchmarks ' id 'b0285b47-df74-4fac-8952-bf705c048d61' date '17 February 2012' time '7:49:36 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.48' message '- more utf-8 performance tweaks' id '28563f32-1d5a-4aad-9f33-11d2468df9b7' date '17 February 2012' time '8:05:57 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.47' message '- formatting nazis from outer space' id '87cbdd2d-b4db-41ea-a1a1-851180720755' date '22 January 2012' time '9:22:46 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.46' message '- formatting nazis from outer space' id '091d7896-66a9-48d3-8a9b-10892f15085b' date '22 January 2012' time '4:47:43 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.45' message '- Issue 699: GRPharoPlatform>>#write:toFile:inFolder: uses CrLfFileStream in seaside 3.0.6.3' id '458930d3-97b2-42c2-86d9-163b972f7f44' date '22 January 2012' time '3:58:58 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.44' message '- Issue 676: response generators have to reset the response before generating a new one - add infrastructure to reset streams, work around Pharo stream bugs' id 'abd8769c-35eb-4673-ba88-a2e16c4fd2b6' date '26 August 2011' time '9:58:05 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.42' message '- Issue 626: Allow platforms to implement custom encoders for speed - remove #includesUnsafeUrlCharacter: and #includesUnsafeXmlCharacter: from GRPlatform, these were just speed hacks for Pharo, they are now encapsulated in a platform specific class - speed up GRPharoUtf8CodecStream >> #greaseNext:putAll:startingAt:, avoid unnecessary object allocation' id 'd92827ca-ba7c-4613-9fc2-095659ef13e6' date '15 August 2011' time '9:40:58 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.41' message '- remove deprecated methods and classes' id 'f363bf67-f9b2-4b88-908a-c01c6567f548' date '2 August 2011' time '9:01:03 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-lr.40' message '- fixed formatting of return message' id '0ec7a5f7-c31c-4f65-a727-4b9856dd885c' date '25 July 2011' time '8:17:40 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-lr.39' message '- fixed spacing in blocks' id 'f8257aec-8b3a-49e1-80f5-acd7b5fcf6c7' date '25 July 2011' time '7:23:08 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-lr.38' message '- fixed formatting of temporaries' id 'c92b971d-e802-497c-82bc-32836a23cd2b' date '25 July 2011' time '6:31:24 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-pmm.37' message '- experimental Pharo 1.2 support' id 'aef98cdf-4936-4bbc-890c-32c11cf16ea3' date '5 March 2011' time '1:40:54 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.36' message '- Grease shouldn''t have class extensions in Seaside' id 'd1e6c559-8e94-4fab-874b-5c9e0406e0eb' date '10 February 2011' time '7:39:47 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.35' message '- went for a simple X-Sendfile design that does not use auto deploy and does not require files to be deployed in image folder' id '5f39172f-b91f-4e71-81ba-bc26c5539015' date '5 February 2011' time '5:38:29 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.34' message '- implement #greaseNext:putAll:startingAt: in more places' id 'c46b8f9b-f323-469f-a7ec-d07d6ce36165' date '28 December 2010' time '10:18:31 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.33' message '- add WriteStream compatibility methods' id '7b0a6818-acf3-4218-ba38-345034a08898' date '27 December 2010' time '1:56:43 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.32' message '- Issue 612: subscript out of bounds when encoding a single 0 character to UTF-8 - http://code.google.com/p/seaside/issues/detail?id=612' id 'd5971e3b-28be-4ace-afdc-c6feaa162a6c' date '17 November 2010' time '10:43:29 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.31' message '- fix typos' id '35eccdfe-1eaf-4082-a02b-65dc6a744943' date '30 October 2010' time '7:01:04 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.30' message '- fix comment' id '6eae4eb5-5a64-49ad-ab60-cf6627c9c8ff' date '7 October 2010' time '3:45:50 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-lr.29' message '- remove overrides in Pharo 1.1 (WriteStream class>>crlf) - if you load this package make sure to revert Collections-Streams' id '3b0b1a91-6341-45fc-ba22-3ca77d075698' date '9 September 2010' time '12:13:35 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-lr.28' message '- remove two overrides in Pharo 1.1 (Collection>>#sorted and Collection>>#sorted:) - if you load this package make sure to revert Collection-Abstract' id '71ae2a52-bb9b-422e-9051-56b163b16acc' date '9 September 2010' time '12:11:29 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-lr.27' message '- removed unused variables' id '4638ee0a-a4ea-4a70-87c4-ce59ac767aab' date '22 August 2010' time '3:32:21 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-pmm.26' message '- Issue 570: iso-8859-1 doesn''t show up in the encoding list of the server adapter - http://code.google.com/p/seaside/issues/detail?id=570' id 'd9f7eda2-9872-4ee7-984f-bf022648aba8' date '16 August 2010' time '12:54:25 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.25' message '- Issue 474: Using Halos - CSS Style Editor to update CSS of a component breaks versions view with ''subscript is out of bounds: x''. - http://code.google.com/p/seaside/issues/detail?id=474' id '8497956d-987c-4dbe-935b-4ea156d26bf9' date '13 August 2010' time '12:04:07 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-DaleHenrichs.24' message '- fix Issue 574: http://code.google.com/p/seaside/issues/detail?id=574 "MessageSend>>numArgs is part of PharoCore 1.0" ' id '9e0be068-0ea5-48b2-bf8a-0311ab01f921' date '4 June 2010' time '12:20:27 pm' author 'DaleHenrichs' ancestors ((name 'Grease-Pharo-Core-pmm.23' message '- implement correct method' id '47fc011d-40c8-44a7-a59d-526b374a264a' date '23 May 2010' time '8:19:16 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-jf.22' message 'fix dependency from Grease-Pharo-Core on Seaside-Adaptors-Comanche' id '01c5a311-f795-480b-81f7-3a213fb101a9' date '22 May 2010' time '8:37:03 pm' author 'jf' ancestors ((name 'Grease-Pharo-Core-pmm.21' message '- bug fix for single character utf-8 encoding' id '17d59097-7a27-409e-a733-b7eeffded5be' date '21 May 2010' time '7:20:16 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.20' message '- bugfix - optimized Pharo implementations of testing methods' id '93655b5b-c48a-4089-b33e-db9199b0363e' date '20 May 2010' time '9:13:07 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.19' message '- speed up GRPharoUtf8CodecStream >> #nextPut:, avoid String creation' id '561bf000-b4b1-476e-a044-fdba3f8221f8' date '20 May 2010' time '11:13:09 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-jok.18' message 'merge ' id '990f1a78-1fa9-b94f-ab42-8e93dc1bab17' date '15 April 2010' time '4:00:57 pm' author 'jok' ancestors ((name 'Grease-Pharo-Core-pmm.17' message '- fix off by one error' id 'b6fd6a9f-9297-4de0-a9e9-9699d5d32f66' date '12 April 2010' time '7:37:16 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.16' message '- Issue 561: remove GRCodecStream >> #binary - http://code.google.com/p/seaside/issues/detail?id=561' id 'ba77b4e9-717a-422b-81c4-713f15b9387f' date '11 April 2010' time '6:20:47 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-lr.15' message '- fix test for SortedCollection>>#sorted: by removing some code, not really sure if this is a valid fix but it makes all tests pass' id '4cc58271-ef9c-4e96-91aa-d37e9e3d82f4' date '31 March 2010' time '8:41:10 am' author 'lr' ancestors ((name 'Grease-Pharo-Core-jok.14' message '- http://code.google.com/p/seaside/issues/detail?id=556 - add #beginsWithSubCollection: and #endsWithSubCollection:' id '180a4764-20ef-dd45-93e1-65694dc478d8' date '24 March 2010' time '12:29:49 pm' author 'jok' ancestors ((name 'Grease-Pharo-Core-pmm.13' message '- Issue 546: GCCodecEncoderStream>>next gives different types on different platforms - http://code.google.com/p/seaside/issues/detail?id=546' id 'b8302305-f692-463e-8d4a-51f29036738b' date '17 February 2010' time '8:10:56 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-lr.12' message '- added explicit repository url' id 'd626279a-d55f-43e5-86c4-8c3eaf5d981b' date '17 February 2010' time '3:54:34 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-jf.11' message 'http://code.google.com/p/seaside/issues/detail?id=503 Implement GRVersion as a (fairly) simple version number class.' id '129da4a5-95a2-4277-812d-d509f66b8927' date '9 February 2010' time '1:10:09 am' author 'jf' ancestors ((name 'Grease-Pharo-Core-jf.10' message 'Add Pharo implementations of #sorted and #sorted: and fix a bug in Interval>>any' id 'e0975dcd-42ff-4b3a-8da8-7fdc28ca9afc' date '6 February 2010' time '4:43:30 am' author 'jf' ancestors ((name 'Grease-Pharo-Core-jf.9' message 'Remove usage of non-Grease methods #nameOfDay:, #anyOne, and several Squeak-specific Duration selectors. Add Grease tests for Duration protocols discussed with platforms. Also test for #any.' id '4810f3f7-d17c-4bfb-9421-d84dcd20a9cd' date '6 February 2010' time '1:16:17 am' author 'jf' ancestors ((name 'Grease-Pharo-Core-jf.8' message 'Move Seaside-specific extension methods from Grease-Pharo-Core to Seaside-Pharo-Core' id '21396770-a48e-40c6-8305-2f380cae2b94' date '26 January 2010' time '1:33:37 am' author 'jf' ancestors ((name 'Grease-Pharo-Core-jf.7' message 'merge' id '04e9989f-94cd-4cd3-807c-573aeb6360c4' date '29 December 2009' time '5:07:49 pm' author 'jf' ancestors ((name 'Grease-Pharo-Core-jf.6' message '- move Task stuff into Component package - no longer need special Flow configuration settings - Make parameter to onAnswer: blocks optional - Add #call:onAnswer: which does a #show:onAnswer: and then sends a render notification; rewrite #call: to use #call:onAnswer: - Make as few of the functional tests as possible depend on Flow' id '7d74e93c-4f5d-4d06-9d6b-96df83be35ba' date '29 December 2009' time '4:09:03 pm' author 'jf' ancestors ((name 'Grease-Pharo-Core-dkh.4' message '- renamed GRPharoPlatform>>smtpServer to #seasideSmtpServer - moved #seasideSmtpServer to Seaside-Pharo-Core' id '7258ba26-985d-4a3b-82d9-7589ca1a5881' date '24 November 2009' time '9:43:55 am' author 'dkh' ancestors ((name 'Grease-Pharo-Core-dkh.3' message '- fix Issue 499: http://code.google.com/p/seaside/issues/detail?id=499' id '92ee7795-4535-43bc-af5f-04cfd2f39bd8' date '23 November 2009' time '4:06:07 pm' author 'dkh' ancestors ((name 'Grease-Pharo-Core-pmm.2' message '- support ''UTF-8'' has a codec name as well' id '0dae0ad0-c578-4797-ba1d-5cb19876a2f4' date '15 November 2009' time '11:06:59 am' author 'pmm' ancestors ((name 'Grease-Pharo-Core-jf.1' message 'Rename Seaside-Platform to Grease in order to help make clear that it is not Seaside-specific and can be used by other projects as a compatibility layer. This was spawned by discussions when I started porting Magritte to VAST using the Platform layer.' id '6c0a574e-e199-4e0c-8ccd-5671da4eedf2' date '30 September 2009' time '10:47:20 pm' author 'jf' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Pharo-Core-jf.5' message 'Stop using #newDay:monthNumber:year:, which is only in VW and can be worked around using #newDay:month:year: and #nameOfMonth: Stop using #daysInMonthNumber:forYear:, which is different than the method that VA already has. Some discussion on this needs to be had by all platforms but for now it can be worked around using #daysInMonth:year: and #nameOfMonth:' id '2bf8b64c-91ee-4432-8a9b-b8ab1eb475dc' date '18 December 2009' time '10:33:54 am' author 'jf' ancestors ((id '7258ba26-985d-4a3b-82d9-7589ca1a5881')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Pharo-Core-lr.17' message '- added a #newline accessor to GRPlatform that returns a string with the default newline character (sequence) - moved implementation of #convertToSmalltalkNewlines: to OBPlatform as it can now be implemented in terms of #newline and doesn''t need to be provided by other platforms anymore' id 'bf167910-58cc-4d29-b6a9-30fe0afae428' date '15 April 2010' time '7:30:55 pm' author 'lr' ancestors ((id 'ba77b4e9-717a-422b-81c4-713f15b9387f')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Pharo-Core-NickAger.49' message 'GRPharoPlatform>>#write:toFile:inFolder: changed CrLfFileStream to MultiByteFileStream (CrLfFileStream is deprecated)' id 'd9f63c7b-0139-45df-a253-63649469f427' date '19 March 2012' time '12:24:54 pm' author 'NickAger' ancestors ((name 'Grease-Pharo-Core-NickAger.48' message 'added a new method: GRPharoPlatform>>#directoriesIn: to support recursing sub-directories for file to load into a file library. Fix for: http://code.google.com/p/seaside/issues/detail?id=267' id '23a31158-9c41-49bc-a1cd-b5c3984ef2bd' date '9 March 2012' time '2:53:27 pm' author 'NickAger' ancestors ((name 'Grease-Pharo-Core-pmm.47' message ' _ ' id '706ff2de-6505-4d6e-b21d-a791e9fb3b37' date '4 March 2012' time '8:26:13 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-pmm.46' message '- fix Color >> #greaseString on Pharo 1.4' id 'd8189b05-ef89-4bf7-9a59-2141f02e1784' date '1 March 2012' time '9:25:35 pm' author 'pmm' ancestors ((name 'Grease-Pharo-Core-lr.45' message '- WAMimeDocuments can contain String or ByteArray data and break if written to a ReadWriteStream, so use RWBinaryOrTextStream that fixes the issue (hopefully?)' id 'a542095b-92ff-4f77-9383-156f2755da34' date '20 November 2011' time '5:20:30 pm' author 'lr' ancestors ((name 'Grease-Pharo-Core-lr.44' message '- fixed deprecated message' id 'd4adf471-fac4-4097-ac23-972da5d9a2b5' date '25 September 2011' time '11:16:38 am' author 'lr' ancestors ((name 'Grease-Pharo-Core-pmm.43' message '- fix an ugly "typo"' id 'a4358e0d-4477-47d6-8f48-ed3bab5d8632' date '15 August 2011' time '10:05 pm' author 'pmm' ancestors ((id '0ec7a5f7-c31c-4f65-a727-4b9856dd885c')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Collection.extension/instance/sorted..st b/repository/Grease-Pharo10-Core.package/Collection.extension/instance/sorted..st deleted file mode 100644 index f52fad63..00000000 --- a/repository/Grease-Pharo10-Core.package/Collection.extension/instance/sorted..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo10-core -sorted: sortBlock - ^ self asArray sorted: sortBlock \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Collection.extension/instance/sorted.st b/repository/Grease-Pharo10-Core.package/Collection.extension/instance/sorted.st deleted file mode 100644 index b8677a24..00000000 --- a/repository/Grease-Pharo10-Core.package/Collection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo10-core -sorted - ^ self asArray sorted \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/Collection.extension/methodProperties.json b/repository/Grease-Pharo10-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 5b9c8fc3..00000000 --- a/repository/Grease-Pharo10-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "sorted" : "jf 2/6/2010 02:02", - "sorted:" : "jf 2/6/2010 02:02" } } diff --git a/repository/Grease-Pharo10-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo10-Core.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc32..00000000 --- a/repository/Grease-Pharo10-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } diff --git a/repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo10Core.st b/repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo10Core.st deleted file mode 100644 index 46582faa..00000000 --- a/repository/Grease-Pharo10-Core.package/GRPackage.extension/class/greasePharo10Core.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-pharo10-core -greasePharo10Core - ^ self new - name: 'Grease-Pharo-Core'; - description: 'Compatiblity for Pharo 1.0'; - addDependency: 'Grease-Pharo-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo10-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 5b56ad27..00000000 --- a/repository/Grease-Pharo10-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greasePharo10Core" : "pmm 10/9/2010 10:23" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/sorted..st b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/sorted..st deleted file mode 100644 index b8ed5ef6..00000000 --- a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/instance/sorted..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo10-core -sorted: sortBlock - ^ self sortBy: sortBlock \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index 4fafe3aa..00000000 --- a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "sorted:" : "dkh 5/17/2011 14:12" } } diff --git a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-Pharo10-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } diff --git a/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/instance/globals.st b/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/instance/globals.st deleted file mode 100644 index abc92c35..00000000 --- a/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/instance/globals.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo10-core -globals - - ^self \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/methodProperties.json b/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/methodProperties.json deleted file mode 100644 index 705b3fde..00000000 --- a/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "globals" : "dkh 11/10/2010 13:46" } } diff --git a/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/properties.json b/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/properties.json deleted file mode 100644 index 2693878d..00000000 --- a/repository/Grease-Pharo10-Core.package/SystemDictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SystemDictionary" } diff --git a/repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/crlf.st b/repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/crlf.st deleted file mode 100644 index 3dcf7e5c..00000000 --- a/repository/Grease-Pharo10-Core.package/WriteStream.extension/instance/crlf.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo10-core -crlf - self nextPut: Character cr; nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-Pharo10-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index 7c5b3d3d..00000000 --- a/repository/Grease-Pharo10-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "crlf" : "lr 1/22/2009 22:31" } } diff --git a/repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 239b3632..00000000 --- a/repository/Grease-Pharo10-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "WriteStream" } diff --git a/repository/Grease-Pharo10-Core.package/monticello.meta/package b/repository/Grease-Pharo10-Core.package/monticello.meta/package deleted file mode 100644 index dad6b8fe..00000000 --- a/repository/Grease-Pharo10-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo10-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo10-Core.package/monticello.meta/version b/repository/Grease-Pharo10-Core.package/monticello.meta/version deleted file mode 100644 index eedacddd..00000000 --- a/repository/Grease-Pharo10-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo10-Core-dkh.4' message '- SequenceableCollect>>sorted: still needed by Pharo 1.0' id '12f56488-ae6f-4872-94bf-0ed9d4916fcc' date '17 May 2011' time '2:15:58 pm' author 'dkh' ancestors ((name 'Grease-Pharo10-Core-dkh.3' message '- SystemDictionary>>globals is needed now' id 'f9c9b4e2-9594-45d4-bbfa-015607d869ee' date '10 November 2010' time '1:49:05 pm' author 'dkh' ancestors ((name 'Grease-Pharo10-Core-pmm.2' message '- bump extension on GRPackage' id '80d6ff43-2cce-4650-8eeb-d8eacd668e46' date '9 October 2010' time '10:25:33 am' author 'pmm' ancestors ((name 'Grease-Pharo10-Core-pmm.1' message '- bump' id '6f80b103-ebdd-495d-94a8-5f8c0307d519' date '9 October 2010' time '10:20:31 am' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/.filetree b/repository/Grease-Pharo100-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-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-Pharo20-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md similarity index 100% rename from repository/Grease-Pharo20-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-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st new file mode 100644 index 00000000..59cb6f1b --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st @@ -0,0 +1,3 @@ +accessing +default + ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json new file mode 100644 index 00000000..2867fd3d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "DynamicVariable", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRDynamicVariable", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st new file mode 100644 index 00000000..241c674a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo100-Core +greasePharo100Core + ^ self new + name: 'Grease-Pharo100-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPackage.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo-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-Pharo-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-Pharo-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo20-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/bindingOf..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st 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-Pharo20-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-Pharo20-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-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/label.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st new file mode 100644 index 00000000..64db9825 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -0,0 +1,3 @@ +files +localNameOf: aFilename + ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st new file mode 100644 index 00000000..eb03a167 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st @@ -0,0 +1,10 @@ +factory +newRandom + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st new file mode 100644 index 00000000..01578607 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +files +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..29d781b7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st @@ -0,0 +1,7 @@ +files +newTemporaryFileNamed: aName + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st new file mode 100644 index 00000000..7992374f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -0,0 +1,11 @@ +files +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..81baa7c1 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,11 @@ +files +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st rename to repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo20-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo-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-Pharo-Core.package/GRPharoRandomProvider.class/class/randomClass.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoRandomProvider.class/class/randomFrom..st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoRandomProvider.class/class/startUp.st rename to repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo30-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Pharo-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo30-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/README.md rename to repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st new file mode 100644 index 00000000..a91977ca --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st @@ -0,0 +1,3 @@ +instance creation +on: aStream withEncoder: aZnEncoder + ^ self basicNew initializeOn: aStream withEncoder: aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..365093e2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +accessing +greaseNext: anInteger putAll: aCollection startingAt: startIndex + encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st new file mode 100644 index 00000000..8fc52caa --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st @@ -0,0 +1,5 @@ +initialization +initializeOn: aStream withEncoder: aZnEncoder + self initialize. + stream := aStream. + encoder := aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st new file mode 100644 index 00000000..b5f1ff9a --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +accessing +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st new file mode 100644 index 00000000..ccde08f3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +accessing +next + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..30014e3d --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +accessing +nextPut: aCharacter + encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..bd42bba5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + | string | + string := aString asString. + encoder next: string size putAll: string startingAt: 1 toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json new file mode 100644 index 00000000..44040131 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRCodecStream", + "category" : "Grease-Pharo100-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "encoder" + ], + "name" : "GRPharoZnCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st new file mode 100644 index 00000000..cb666a56 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo100-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/properties.json rename to repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st new file mode 100644 index 00000000..cb666a56 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st @@ -0,0 +1,15 @@ +*Grease-Pharo100-Core +inspectionItems: aBuilder + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json new file mode 100644 index 00000000..c5c0f1c8 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary2" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st new file mode 100644 index 00000000..45ebf480 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st @@ -0,0 +1,6 @@ +*Grease-Pharo100-Core +any + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Interval.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Interval.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..6b1d45ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseByteAt: index + ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..ef791cd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseBytesCount + ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json new file mode 100644 index 00000000..029bc676 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "LargeInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st new file mode 100644 index 00000000..df74aff3 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +argumentCount + ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..0a56ac34 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,7 @@ +*Grease-Pharo100-Core +valueWithPossibleArguments: anArray + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/MessageSend.extension/properties.json rename to repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..fb4e6ce5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +milliseconds + ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Number.extension/properties.json b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Number.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Number.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..f23889b4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Object.extension/properties.json b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Object.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Object.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st new file mode 100644 index 00000000..1cded0cc --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st @@ -0,0 +1,13 @@ +*Grease-Pharo100-Core +greaseString + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Point.extension/properties.json b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/Point.extension/properties.json rename to repository/Grease-Pharo100-Core.package/Point.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..b3fd7893 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseUpToAll: aCollection + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/PositionableStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..90680805 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +encodeOn: aDocument + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..10a8dc02 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseString + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/properties.json rename to repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st new file mode 100644 index 00000000..738a82b7 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +1,8 @@ +*Grease-Pharo100-Core +beginsWithSubCollection: aSequenceableCollection + "Some platforms implement #beginsWith: to answer true for an empty argument." + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBegins:'. + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st new file mode 100644 index 00000000..43af03a2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +1,8 @@ +*Grease-Pharo100-Core +endsWithSubCollection: aSequenceableCollection + "Some platforms implement #endsWith: to answer true for an empty argument." + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st new file mode 100644 index 00000000..572bc2ce --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseBeginsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st new file mode 100644 index 00000000..efbbc0d0 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st @@ -0,0 +1,5 @@ +*Grease-Pharo100-Core +greaseEndsWith: aSequenceableCollection + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/properties.json rename to repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st new file mode 100644 index 00000000..6b1d45ee --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseByteAt: index + ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st new file mode 100644 index 00000000..ef791cd5 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseBytesCount + ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json new file mode 100644 index 00000000..ca9cd21f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SmallInteger" +} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..5e08d17f --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,13 @@ +*Grease-Pharo100-Core +greaseNext: anInteger putAll: aCollection startingAt: startIndex + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/SocketStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st new file mode 100644 index 00000000..365aad78 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st @@ -0,0 +1,3 @@ +*Grease-Pharo100-Core +greaseAsMutator + ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-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-Pharo30-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/WriteStream.extension/properties.json rename to repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..47e57aa2 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +self packageOrganizer ensurePackage: #'Grease-Pharo100-Core' withTags: #()! diff --git a/repository/Grease-Pharo11-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Pharo11-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/package b/repository/Grease-Pharo100-Core.package/monticello.meta/package new file mode 100644 index 00000000..7239cac4 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo100-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/properties.json b/repository/Grease-Pharo100-Core.package/properties.json similarity index 100% rename from repository/Grease-Pharo30-Core.package/properties.json rename to repository/Grease-Pharo100-Core.package/properties.json diff --git a/repository/Grease-Pharo11-Core.package/GRPackage.extension/class/greasePharo11Core.st b/repository/Grease-Pharo11-Core.package/GRPackage.extension/class/greasePharo11Core.st deleted file mode 100644 index 80767b76..00000000 --- a/repository/Grease-Pharo11-Core.package/GRPackage.extension/class/greasePharo11Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-pharo11-core -greasePharo11Core - ^ self new - name: 'Grease-Pharo11-Core'; - addDependency: 'Grease-Pharo-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo11-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo11-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 605567bc..00000000 --- a/repository/Grease-Pharo11-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greasePharo11Core" : "pmm 3/5/2011 13:43" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/instance/sorted..st b/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/instance/sorted..st deleted file mode 100644 index 3f4dd6a9..00000000 --- a/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/instance/sorted..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo11-core -sorted: sortBlock - ^ self sortBy: sortBlock \ No newline at end of file diff --git a/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index 2e5b4a01..00000000 --- a/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "sorted:" : "pmm 3/5/2011 13:42" } } diff --git a/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-Pharo11-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } diff --git a/repository/Grease-Pharo11-Core.package/monticello.meta/package b/repository/Grease-Pharo11-Core.package/monticello.meta/package deleted file mode 100644 index 9f5e455a..00000000 --- a/repository/Grease-Pharo11-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo11-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo11-Core.package/monticello.meta/version b/repository/Grease-Pharo11-Core.package/monticello.meta/version deleted file mode 100644 index 0c6c24e3..00000000 --- a/repository/Grease-Pharo11-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo11-Core-pmm.1' message '- bump' id '7161a975-029f-4130-be5b-553452d7699f' date '5 March 2011' time '1:44:23 pm' author 'pmm' ancestors () stepChildren ()) \ 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-Squeak-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/README.md similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/README.md rename to repository/Grease-Pharo110-Slime-Core.package/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/GRDynamicVariable.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/README.md rename to repository/Grease-Pharo110-Slime-Core.package/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/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.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/GRReSlimeParseTreeLintRule.class/README.md diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st new file mode 100644 index 00000000..2d2913fb --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json new file mode 100644 index 00000000..e590c6d3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ReNodeMatchRule", + "category" : "Grease-Pharo110-Slime-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeParseTreeLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.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/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-Pharo20-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st diff --git a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package new file mode 100644 index 00000000..8e727ec7 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo110-Slime-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/properties.json b/repository/Grease-Pharo110-Slime-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/.filetree b/repository/Grease-Pharo110-Slime-Portability.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/README.md rename to repository/Grease-Pharo110-Slime-Portability.package/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/GRDoubleByteStringTest.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/GRDoubleByteStringTest.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/GRGemStonePlatformTest.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/GRGemStonePlatformTest.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-GemStone-Core.v32.package/GRQuadByteStringTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.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/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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Squeak-Core.package/GRSqueakPlatformTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.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/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-Squeak5-Core.package/GRPharoCodecTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.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/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-Squeak5-Core.package/GRPharoColorTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.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/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-Squeak5-Core.package/GRPharoGenericCodecTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.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/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-Squeak5-Core.package/GRPharoPlatformTest.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.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/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-Pharo30-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/README.md similarity index 100% rename from repository/Grease-Pharo30-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-Squeak-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/README.md similarity index 100% rename from repository/Grease-Squeak-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-Squeak5-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md 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-Tests-GemStone-Core.v32.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.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/GRUsesNotPortableClassRule.class/README.md 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-Tests-Pharo20-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st 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-Pharo20-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo20-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index 0a480ed9..00000000 --- a/repository/Grease-Pharo20-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo20-core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Behavior.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Behavior.extension/methodProperties.json deleted file mode 100644 index fe28fb35..00000000 --- a/repository/Grease-Pharo20-Core.package/Behavior.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fullName" : "lr 7/25/2011 19:45" } } diff --git a/repository/Grease-Pharo20-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo20-Core.package/Behavior.extension/properties.json deleted file mode 100644 index 37061187..00000000 --- a/repository/Grease-Pharo20-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Behavior" } diff --git a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo20-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st deleted file mode 100644 index d623a1ee..00000000 --- a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,2 +0,0 @@ -*grease-pharo20-core -fixCallbackTemps \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo20-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 10af90f6..00000000 --- a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/BlockClosure.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index 641628e4..00000000 --- a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fixCallbackTemps" : "lr 4/8/2009 13:33", - "valueWithPossibleArguments:" : "lr 4/8/2009 13:36" } } diff --git a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo20-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 1d6f4884..00000000 --- a/repository/Grease-Pharo20-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockClosure" } diff --git a/repository/Grease-Pharo20-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo20-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index 127fa53f..00000000 --- a/repository/Grease-Pharo20-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index add0c68e..00000000 --- a/repository/Grease-Pharo20-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" } } diff --git a/repository/Grease-Pharo20-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo20-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index 191a2eca..00000000 --- a/repository/Grease-Pharo20-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ByteArray" } diff --git a/repository/Grease-Pharo20-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo20-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 1e49e0ca..00000000 --- a/repository/Grease-Pharo20-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo20-core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Character.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index accbae78..00000000 --- a/repository/Grease-Pharo20-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04" } } diff --git a/repository/Grease-Pharo20-Core.package/Character.extension/properties.json b/repository/Grease-Pharo20-Core.package/Character.extension/properties.json deleted file mode 100644 index 7532e33e..00000000 --- a/repository/Grease-Pharo20-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Character" } diff --git a/repository/Grease-Pharo20-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo20-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index a2a3c6f4..00000000 --- a/repository/Grease-Pharo20-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Collection.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 3196464b..00000000 --- a/repository/Grease-Pharo20-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 00:41" } } diff --git a/repository/Grease-Pharo20-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo20-Core.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc32..00000000 --- a/repository/Grease-Pharo20-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } diff --git a/repository/Grease-Pharo20-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo20-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index 4fc13b6f..00000000 --- a/repository/Grease-Pharo20-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo20-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index c4a233a0..00000000 --- a/repository/Grease-Pharo20-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo20-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index 2c48800a..00000000 --- a/repository/Grease-Pharo20-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Duration.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index 018f4c60..00000000 --- a/repository/Grease-Pharo20-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "milliseconds:" : "jf 2/6/2010 00:12" }, - "instance" : { - "asMilliseconds" : "jf 2/5/2010 23:58", - "milliseconds" : "jf 2/6/2010 00:02" } } diff --git a/repository/Grease-Pharo20-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo20-Core.package/Duration.extension/properties.json deleted file mode 100644 index 512e0f01..00000000 --- a/repository/Grease-Pharo20-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Duration" } diff --git a/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 03007cc8..00000000 --- a/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/GRDelegatingStream.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/methodProperties.json deleted file mode 100644 index 4dd2cf88..00000000 --- a/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:13" } } diff --git a/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 472cde09..00000000 --- a/repository/Grease-Pharo20-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRDelegatingStream" } diff --git a/repository/Grease-Pharo20-Core.package/GRPackage.extension/class/greasePharo20Core.st b/repository/Grease-Pharo20-Core.package/GRPackage.extension/class/greasePharo20Core.st deleted file mode 100644 index 7b8ab3e8..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPackage.extension/class/greasePharo20Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-pharo20-core -greasePharo20Core - ^ self new - name: 'Grease-Pharo20-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 78263113..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greasePharo20Core" : "pmm 9/12/2013 16:02" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo20-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo20-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/methodProperties.json deleted file mode 100644 index 5fe65894..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "on:converter:" : "pmm 10/30/2010 18:58" }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:12", - "initializeOn:converter:" : "pmm 10/30/2010 18:58", - "next" : "pmm 4/10/2010 13:32", - "next:" : "lr 2/7/2009 12:57", - "nextPut:" : "pmm 4/10/2010 13:30", - "nextPutAll:" : "lr 2/7/2009 12:54" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 65a7102a..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 6/25/2012 20:22", - "instvars" : [ - "converter" ], - "name" : "GRPharoConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoGenericCodec.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/methodProperties.json deleted file mode 100644 index ab5cb50c..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "pmm 6/28/2009 15:43", - "codecs" : "pmm 8/16/2010 00:19", - "supportedEncodingNames" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 6/28/2009 16:43" }, - "instance" : { - "converter" : "lr 7/25/2011 19:51", - "decoderFor:" : "lr 2/7/2009 12:52", - "encoderFor:" : "jf 9/30/2009 00:46", - "initializeWithName:" : "pmm 8/16/2010 11:52", - "name" : "lr 2/7/2009 10:16", - "url" : "lr 2/7/2009 12:36" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index e7a60df2..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRPharoGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index c2c774b3..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoLatin1Codec.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/methodProperties.json deleted file mode 100644 index ce5e1283..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "pmm 8/16/2010 00:36", - "codecs" : "lr 7/25/2011 19:46", - "supportedEncodingNames" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 8/16/2010 00:36" }, - "instance" : { - "decode:" : "pmm 8/16/2010 09:20", - "decoderFor:" : "pmm 8/16/2010 00:32", - "encoderFor:" : "pmm 8/16/2010 00:32", - "initializeWithName:" : "pmm 8/16/2010 00:35", - "name" : "pmm 8/16/2010 00:32" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index 48d38248..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRPharoLatin1Codec", - "pools" : [ - ], - "super" : "GRNullCodec", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json deleted file mode 100644 index 0a44c0e1..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "next" : "pmm 8/16/2010 09:16", - "next:" : "lr 7/25/2011 19:50" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index 41fcabfc..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoLatin1CodecStream", - "pools" : [ - ], - "super" : "GRNullCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index ecbbe65e..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 119ba39b..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index b9fe78cc..00000000 --- a/repository/Grease-Pharo20-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 ensureDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 09cc5c70..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index ecd7d527..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index f9541b7e..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index b0c1e2b2..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index d7e6feab..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index e77ae8c1..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/methodProperties.json deleted file mode 100644 index ac034eb6..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/methodProperties.json +++ /dev/null @@ -1,42 +0,0 @@ -{ - "class" : { - "initialize" : "pmm 5/20/2010 11:49", - "initializeUrlTable" : "pmm 5/20/2010 20:56", - "initializeXmlTable" : "pmm 5/20/2010 20:56", - "unload" : "jf 1/22/2009 02:45" }, - "instance" : { - "addToShutDownList:" : "jf 1/21/2009 17:31", - "addToStartUpList:" : "jf 1/21/2009 17:31", - "asMethodReturningByteArray:named:" : "lr 7/25/2011 19:51", - "asMethodReturningByteArrayLiteral:named:" : "lr 7/25/2011 19:51", - "asMethodReturningByteArrayWithCache:named:" : "pmm 2/20/2009 17:44", - "base64Decode:" : "jf 1/21/2009 17:31", - "bindingOf:" : "JohanBrichau 7/12/2015 17:21", - "compile:into:classified:" : "pmm 9/12/2013 11:28", - "contentsOfFile:binary:" : "JohanBrichau 10/4/2014 10:05", - "directoriesIn:" : "pmm 8/19/2012 10:19", - "doSilently:" : "pmm 9/12/2013 17:55", - "ensureExistenceOfFolder:" : "pmm 8/13/2012 21:29", - "fileExists:" : "JohanBrichau 10/4/2014 10:05", - "fileStreamOn:do:binary:" : "JohanBrichau 10/4/2014 10:05", - "filesIn:" : "pmm 8/19/2012 10:18", - "isProcessTerminated:" : "jf 2/6/2009 15:58", - "label" : "jf 2/9/2010 00:56", - "localNameOf:" : "pmm 8/19/2012 10:19", - "newRandom" : "pmm 10/7/2010 13:10", - "newline" : "lr 4/15/2010 19:14", - "openDebuggerOn:" : "pmm 1/22/2012 16:31", - "pathSeparator" : "pmm 8/4/2012 12:38", - "readWriteByteStream" : "dkh 9/4/2009 09:14", - "readWriteCharacterStream" : "dkh 9/4/2009 09:14", - "removeFromShutDownList:" : "jf 1/21/2009 17:31", - "removeFromStartUpList:" : "jf 1/21/2009 17:31", - "removeSelector:from:" : "jf 1/21/2009 17:31", - "secureHashFor:" : "jf 1/21/2009 17:31", - "semaphoreClass" : "lr 7/25/2011 19:51", - "stackDepth" : "jf 1/21/2009 17:31", - "terminateProcess:" : "jf 2/6/2009 15:59", - "useByteArrayLiterals" : "pmm 8/4/2012 12:39", - "weakDictionaryOfSize:" : "lr 7/25/2011 19:51", - "write:toFile:inFolder:" : "pmm 8/4/2012 13:02", - "writeCharacterStreamOn:" : "pmm 8/26/2011 09:45" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index d6bbcdb4..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo20-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-Pharo20-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoRandomProvider.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/methodProperties.json deleted file mode 100644 index cedc66aa..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "initialize" : "jgf 1/25/2009 12:05", - "nextInt:" : "lr 7/25/2011 19:46", - "randomClass" : "lr 7/25/2011 19:46", - "randomFrom:" : "lr 7/25/2011 18:28", - "startUp" : "pmm 1/10/2009 16:01", - "unload" : "jf 9/30/2009 00:19" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 755e93da..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - "mutex", - "generator" ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoRandomProvider", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8Codec.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/methodProperties.json deleted file mode 100644 index 11f7bec2..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "lr 7/25/2011 19:46", - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "lr 7/25/2011 19:46" }, - "instance" : { - "decode:" : "pmm 2/17/2012 19:45", - "decoderFor:" : "jf 9/30/2009 00:46", - "encoderFor:" : "jf 9/30/2009 00:46", - "name" : "pmm 2/20/2009 13:25", - "url" : "pmm 2/20/2009 12:50" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index b2264bc0..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRPharoUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 864f3b8f..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/next..st deleted file mode 100644 index a69aa27f..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index 1db46f02..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "initialize" : "lr 7/25/2011 19:46" }, - "instance" : { - "crlf" : "pmm 4/10/2010 13:28", - "encodeDefault:" : "lr 7/25/2011 18:36", - "encodeFast:" : "lr 7/25/2011 19:51", - "greaseNext:putAll:startingAt:" : "pmm 8/15/2011 21:32", - "greaseNext:putAllFast:startingAt:" : "pmm 5/24/2014 15:17", - "invalidUtf8" : "jf 9/30/2009 00:39", - "next" : "pmm 2/17/2010 20:09", - "next:" : "pmm 2/17/2012 08:00", - "nextPut:" : "lr 7/25/2011 19:51", - "nextPutAll:" : "pmm 4/10/2010 13:28" } } diff --git a/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index 071dbc65..00000000 --- a/repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Pharo20-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-Pharo20-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index f062e85a..00000000 --- a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index f730af68..00000000 --- a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index cf2215e2..00000000 --- a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/methodProperties.json deleted file mode 100644 index 9dbcc9c5..00000000 --- a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "customizeExplorerContents" : "lr 7/25/2011 19:51", - "explorerContents" : "lr 7/25/2011 19:51", - "hasContentsInExplorer" : "lr 7/25/2011 19:51" } } diff --git a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 943ee5f4..00000000 --- a/repository/Grease-Pharo20-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRSmallDictionary" } diff --git a/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRWorkingWriteStream.class/methodProperties.json b/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/methodProperties.json deleted file mode 100644 index e8d4055e..00000000 --- a/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reset" : "pmm 8/26/2011 09:39" } } diff --git a/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index 4f13f04a..00000000 --- a/repository/Grease-Pharo20-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/25/2011 18:30", - "instvars" : [ - ], - "name" : "GRWorkingWriteStream", - "pools" : [ - ], - "super" : "WriteStream", - "type" : "normal" } diff --git a/repository/Grease-Pharo20-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo20-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 9697fc1b..00000000 --- a/repository/Grease-Pharo20-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/Interval.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index 1dedf542..00000000 --- a/repository/Grease-Pharo20-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 03:25" } } diff --git a/repository/Grease-Pharo20-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo20-Core.package/Interval.extension/properties.json deleted file mode 100644 index d468cd35..00000000 --- a/repository/Grease-Pharo20-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Interval" } diff --git a/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index a5ea98c0..00000000 --- a/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 310f2fa2..00000000 --- a/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -fixCallbackTemps - "for polymorphism with BlockContext >> #fixCallbackTemps" \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 22929446..00000000 --- a/repository/Grease-Pharo20-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index 78bb2233..00000000 --- a/repository/Grease-Pharo20-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "pmm 1/10/2009 19:22", - "fixCallbackTemps" : "pmm 4/23/2007 20:02", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:52" } } diff --git a/repository/Grease-Pharo20-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo20-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 66fcc3c1..00000000 --- a/repository/Grease-Pharo20-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MessageSend" } diff --git a/repository/Grease-Pharo20-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo20-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 95c16f44..00000000 --- a/repository/Grease-Pharo20-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Number.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index 977cd782..00000000 --- a/repository/Grease-Pharo20-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "milliseconds" : "jf 2/6/2010 00:12" } } diff --git a/repository/Grease-Pharo20-Core.package/Number.extension/properties.json b/repository/Grease-Pharo20-Core.package/Number.extension/properties.json deleted file mode 100644 index 1d2c94d4..00000000 --- a/repository/Grease-Pharo20-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Number" } diff --git a/repository/Grease-Pharo20-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo20-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index 2443774a..00000000 --- a/repository/Grease-Pharo20-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/Object.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index add0c68e..00000000 --- a/repository/Grease-Pharo20-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" } } diff --git a/repository/Grease-Pharo20-Core.package/Object.extension/properties.json b/repository/Grease-Pharo20-Core.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec4..00000000 --- a/repository/Grease-Pharo20-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/repository/Grease-Pharo20-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo20-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index 88961bda..00000000 --- a/repository/Grease-Pharo20-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/Point.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/Point.extension/methodProperties.json deleted file mode 100644 index 353fca89..00000000 --- a/repository/Grease-Pharo20-Core.package/Point.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "pmm 3/4/2012 20:24" } } diff --git a/repository/Grease-Pharo20-Core.package/Point.extension/properties.json b/repository/Grease-Pharo20-Core.package/Point.extension/properties.json deleted file mode 100644 index 3ae71f02..00000000 --- a/repository/Grease-Pharo20-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Point" } diff --git a/repository/Grease-Pharo20-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo20-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 1a30e1e8..00000000 --- a/repository/Grease-Pharo20-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index cfb79423..00000000 --- a/repository/Grease-Pharo20-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseUpToAll:" : "jf 9/30/2009 01:06" } } diff --git a/repository/Grease-Pharo20-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo20-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 9e1697a6..00000000 --- a/repository/Grease-Pharo20-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PositionableStream" } diff --git a/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index add84855..00000000 --- a/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/ScaledDecimal.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/methodProperties.json deleted file mode 100644 index 9e195ed0..00000000 --- a/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "JohanBrichau 5/25/2015 09:40" } } diff --git a/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 6e425dda..00000000 --- a/repository/Grease-Pharo20-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ScaledDecimal" } diff --git a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 33ca8b32..00000000 --- a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index df3c07ee..00000000 --- a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 261a257a..00000000 --- a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo20-core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index c683223d..00000000 --- a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beginsWithSubCollection:" : "jok 3/22/2010 11:48", - "endsWithSubCollection:" : "jok 3/22/2010 11:47", - "sorted" : "jf 2/6/2010 02:01" } } diff --git a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-Pharo20-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } diff --git a/repository/Grease-Pharo20-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo20-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 3137820c..00000000 --- a/repository/Grease-Pharo20-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/SocketStream.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/SocketStream.extension/methodProperties.json deleted file mode 100644 index 8f430aea..00000000 --- a/repository/Grease-Pharo20-Core.package/SocketStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 5/23/2010 08:17" } } diff --git a/repository/Grease-Pharo20-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo20-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 4800d84e..00000000 --- a/repository/Grease-Pharo20-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SocketStream" } diff --git a/repository/Grease-Pharo20-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo20-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 03e991d9..00000000 --- a/repository/Grease-Pharo20-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-pharo20-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-Pharo20-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-Pharo20-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index e8241b94..00000000 --- a/repository/Grease-Pharo20-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "jf 5/22/2010 20:26" } } diff --git a/repository/Grease-Pharo20-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo20-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 239b3632..00000000 --- a/repository/Grease-Pharo20-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "WriteStream" } diff --git a/repository/Grease-Pharo20-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo20-Core.package/monticello.meta/categories.st deleted file mode 100644 index 180bc69f..00000000 --- a/repository/Grease-Pharo20-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo20-Core'! diff --git a/repository/Grease-Pharo20-Core.package/monticello.meta/package b/repository/Grease-Pharo20-Core.package/monticello.meta/package deleted file mode 100644 index d38f2b58..00000000 --- a/repository/Grease-Pharo20-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo20-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/monticello.meta/version b/repository/Grease-Pharo20-Core.package/monticello.meta/version deleted file mode 100644 index 384eb50c..00000000 --- a/repository/Grease-Pharo20-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo20-Core-JohanBrichau.22' message 'Implements #bindingOf: in Pharo2' id '883e1c64-9fa0-4167-ae55-8cd41f346dad' date '12 July 2015' time '5:22:06.563 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo20-Core-JohanBrichau.21' message 'Missing sign on ScaledDecimal>>greaseString (https://github.com/SeasideSt/Grease/issues/1) Thanks Hilaire!' id 'a9a0a841-882d-486d-a8ed-dcacf4e78af9' date '25 May 2015' time '9:41:17.846 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo20-Core-JohanBrichau.20' message 'additional file library methods' id 'bf315320-7512-4c64-952d-17453195cf9f' date '4 October 2014' time '10:07:20.979 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo20-Core-pmm.19' message ' Issue 792 : Issue encoding a non-ascii character preceded by an xml-unsafe one - https://code.google.com/p/seaside/issues/detail?id=792' id '091e6e30-84fe-4281-ab9b-b586baa80ec0' date '24 May 2014' time '3:19:05.51 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-JohanBrichau.18' message 'moved GRCountingStream from Pharo specific package to Core' id '0be4fbfb-45e8-4a63-9800-6adf07b3d8c3' date '16 February 2014' time '9:36:20.377 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo20-Core-pmm.17' message 'Issue 770: ScaledDecimal rendering support http://code.google.com/p/seaside/issues/detail?id=770' id 'd7a1eeaa-f58e-4603-971f-6cd59230204e' date '15 September 2013' time '12:24:13.475 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.16' message '- merge' id 'f7d28925-70ae-4366-854a-1160f562395f' date '12 September 2013' time '5:58:13.97 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.15' message '- bring #doSilently: back' id 'f4aaf942-4c29-41d5-b585-f936f0a72bc0' date '12 September 2013' time '5:57:39.57 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.13' message 'Issue 760: addAllFilesIn: is broken in Pharo 20 http://code.google.com/p/seaside/issues/detail?id=760' id '6259cd85-05d0-485c-aa5f-ce8b08e1d56b' date '12 September 2013' time '12:12:53.334125 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.12' message '- use new compiler API' id '6d75cfee-a670-4eb5-bec2-d32e9689670d' date '12 September 2013' time '11:29:15.683227 am' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-JohanBrichau.11' message 'deal with #doSilently: difference from Pharo2.0 onward' id 'ded240e6-cedd-4892-972a-ed672d5eb5d7' date '10 September 2013' time '11:37:29.755 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo20-Core-pmm.10' message '- more fs fixes' id '05c86e58-c910-4317-8e9b-47b6fd57c19f' date '19 August 2012' time '10:20:18.316 am' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.9' message '- Issue 736: implement #basicNextPutAll: on pseudo streams - http://code.google.com/p/seaside/issues/detail?id=736' id '310db583-7be2-4c4d-b911-8097d66481f4' date '19 August 2012' time '10:12:26.043 am' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.8' message '- more FS' id '8eb78157-6f56-4d61-bf7d-a3fe0b7144a9' date '13 August 2012' time '9:30:05.4 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.7' message '- more FS' id '2f0d58f8-da48-4378-acb2-d16dc3084098' date '4 August 2012' time '3:13:15.968 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.6' message '- change package name' id 'befeca18-9752-4b8d-8af9-29143036e384' date '4 August 2012' time '1:09:21.558 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.5' message '- more FS' id '397deea2-2611-468e-bc32-b06b84a8eeb5' date '4 August 2012' time '1:03:35.508 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.4' message '- more FS fixes' id '10d636c6-60c0-4445-bc52-e58c2694a62d' date '4 August 2012' time '12:53:24.724 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.3' message '- start to use FS' id '95e05251-e337-4ced-8d96-6608473fd288' date '4 August 2012' time '12:41:12.074 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.2' message '- use SystemAnnouncer' id '1cde944c-5368-4cbd-b074-6d29b30b5d1e' date '4 August 2012' time '12:32:52.4 pm' author 'pmm' ancestors ((name 'Grease-Pharo20-Core-pmm.1' message '- bump' id 'f5552691-cc57-47ca-8b09-987e6b976f5b' date '4 August 2012' time '12:29:29.556 pm' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Pharo20-Core-pmm.14' message '- fix URLs' id 'e60023ec-b58b-49e4-81b5-4d17412a11dc' date '12 September 2013' time '4:02:53.563496 pm' author 'pmm' ancestors ((id '6259cd85-05d0-485c-aa5f-ce8b08e1d56b')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st deleted file mode 100644 index a044e493..00000000 --- a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,2 +0,0 @@ -*Grease-Pharo30-Core -fixCallbackTemps \ 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index 641628e4..00000000 --- a/repository/Grease-Pharo30-Core.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fixCallbackTemps" : "lr 4/8/2009 13:33", - "valueWithPossibleArguments:" : "lr 4/8/2009 13:36" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index add0c68e..00000000 --- a/repository/Grease-Pharo30-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index accbae78..00000000 --- a/repository/Grease-Pharo30-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 3196464b..00000000 --- a/repository/Grease-Pharo30-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 00:41" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index 018f4c60..00000000 --- a/repository/Grease-Pharo30-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "milliseconds:" : "jf 2/6/2010 00:12" }, - "instance" : { - "asMilliseconds" : "jf 2/5/2010 23:58", - "milliseconds" : "jf 2/6/2010 00:02" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/methodProperties.json deleted file mode 100644 index 4dd2cf88..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDelegatingStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:13" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/methodProperties.json deleted file mode 100644 index f90221a0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { }, - "class" : { - "use:during:" : "MaxLeske 5/16/2017 21:54" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 7c37da28..00000000 --- a/repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "MaxLeske 5/16/2017 22:05", - "super" : "DynamicVariable", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st b/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st deleted file mode 100644 index a88ea6ba..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPackage.extension/class/greasePharo30Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo30-Core -greasePharo30Core - ^ self new - name: 'Grease-Pharo30-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index a6087806..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greasePharo30Core" : "pmm 9/12/2013 16:00" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/methodProperties.json deleted file mode 100644 index 6455039d..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "instance" : { - "nextPut:" : "pmm 4/10/2010 13:30", - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:12", - "nextPutAll:" : "lr 2/7/2009 12:54", - "next" : "pmm 4/10/2010 13:32", - "next:" : "lr 2/7/2009 12:57", - "initializeOn:converter:" : "pmm 10/30/2010 18:58" - }, - "class" : { - "on:converter:" : "pmm 10/30/2010 18:58" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 78d23224..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:22", - "super" : "GRCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "converter" - ], - "name" : "GRPharoConverterCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ TextConverter allEncodingNames - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/methodProperties.json deleted file mode 100644 index 561fbf1e..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "instance" : { - "converter" : "lr 7/25/2011 19:51", - "decoderFor:" : "lr 2/7/2009 12:52", - "url" : "lr 2/7/2009 12:36", - "encoderFor:" : "jf 9/30/2009 00:46", - "initializeWithName:" : "pmm 8/16/2010 11:52", - "name" : "lr 2/7/2009 10:16" - }, - "class" : { - "codecs" : "pmm 8/16/2010 00:19", - "supportsEncoding:" : "pmm 6/28/2009 16:43", - "basicForEncoding:" : "pmm 6/28/2009 15:43", - "supportedEncodingNames" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index 3fd04eb8..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "urlCodec" - ], - "name" : "GRPharoGenericCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/methodProperties.json deleted file mode 100644 index 1bd8105c..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "instance" : { - "decoderFor:" : "pmm 8/16/2010 00:32", - "decode:" : "pmm 8/16/2010 09:20", - "initializeWithName:" : "pmm 8/25/2016 11:00", - "encoderFor:" : "pmm 8/16/2010 00:32", - "name" : "pmm 8/16/2010 00:32" - }, - "class" : { - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 8/16/2010 00:36", - "basicForEncoding:" : "pmm 8/16/2010 00:36", - "supportedEncodingNames" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index 9c4baf85..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name" - ], - "name" : "GRPharoLatin1Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json deleted file mode 100644 index eaf30bc6..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "next:" : "lr 7/25/2011 19:50", - "next" : "pmm 8/16/2010 09:16" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index f842b80b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoLatin1CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index ecbbe65e..00000000 --- a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 119ba39b..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/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/fileExists..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index 2a02cc3f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index e3b9a6b0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -file library -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk filesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index 8f4efb85..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -exceptions -openDebuggerOn: anError - | process | - process := Processor activeProcess. - "If we are running in the UI process, we don't want to suspend the active process. The - error was presumably triggered while stepping in the Debugger. If we simply immediately - signal an UnhandledError, the debugger will catch this and display the signaling context. - It isn't perfect or pretty but it works." - (ProcessBrowser isUIProcess: process) - ifTrue: [ - UnhandledError signalForException: anError ] - ifFalse: [ - WorldState addDeferredUIMessage: [ - process - debug: anError signalerContext - title: anError description - full: true ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 10f88300..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 35251d7b..00000000 --- a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 09cc5c70..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: anObject - "Remove anObject from the shutdown list in the system." - - Smalltalk removeFromShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index ecd7d527..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: anObject - "Remove anObject from the startup list in the system." - - Smalltalk removeFromStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/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/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/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/methodProperties.json deleted file mode 100644 index 07ab4190..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/methodProperties.json +++ /dev/null @@ -1,45 +0,0 @@ -{ - "instance" : { - "pathSeparator" : "pmm 8/4/2012 12:38", - "readWriteCharacterStream" : "dkh 9/4/2009 09:14", - "fileStreamOn:do:binary:" : "JohanBrichau 10/3/2014 19:59", - "addToShutDownList:" : "jf 1/21/2009 17:31", - "removeFromShutDownList:" : "jf 1/21/2009 17:31", - "removeSelector:from:" : "JohanBrichau 4/19/2014 13:44", - "semaphoreClass" : "lr 7/25/2011 19:51", - "useByteArrayLiterals" : "pmm 8/4/2012 12:39", - "bindingOf:" : "JohanBrichau 7/12/2015 14:45", - "write:toFile:inFolder:" : "pmm 8/4/2012 13:02", - "newRandom" : "pmm 10/7/2010 13:10", - "asMethodReturningByteArray:named:" : "lr 7/25/2011 19:51", - "filesIn:" : "pmm 8/19/2012 10:18", - "newline" : "lr 4/15/2010 19:14", - "terminateProcess:" : "jf 2/6/2009 15:59", - "writeCharacterStreamOn:" : "pmm 8/26/2011 09:45", - "contentsOfFile:binary:" : "JohanBrichau 10/3/2014 19:59", - "doSilently:" : "pmm 9/12/2013 17:55", - "fileExists:" : "JohanBrichau 10/3/2014 20:02", - "isProcessTerminated:" : "jf 2/6/2009 15:58", - "removeFromStartUpList:" : "jf 1/21/2009 17:31", - "stackDepth" : "jf 1/21/2009 17:31", - "secureHashFor:" : "DamienCassou 8/27/2013 18:30", - "base64Decode:" : "jf 1/21/2009 17:31", - "compile:into:classified:" : "pmm 9/12/2013 11:24", - "asMethodReturningByteArrayWithCache:named:" : "pmm 2/20/2009 17:44", - "label" : "jf 2/9/2010 00:56", - "weakDictionaryOfSize:" : "lr 7/25/2011 19:51", - "localNameOf:" : "pmm 8/19/2012 10:19", - "openDebuggerOn:" : "pmm 1/22/2012 16:31", - "ensureExistenceOfFolder:" : "pmm 9/12/2013 12:05", - "asMethodReturningByteArrayLiteral:named:" : "lr 7/25/2011 19:51", - "addToStartUpList:" : "jf 1/21/2009 17:31", - "directoriesIn:" : "pmm 8/19/2012 10:19", - "readWriteByteStream" : "JohanBrichau 1/18/2014 07:05" - }, - "class" : { - "initialize" : "pmm 5/20/2010 11:49", - "initializeXmlTable" : "pmm 5/20/2010 20:56", - "unload" : "jf 1/22/2009 02:45", - "initializeUrlTable" : "pmm 5/20/2010 20:56" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index fd949a23..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 6/1/2008 01:03", - "super" : "GRPlatform", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "UrlTable", - "XmlTable" - ], - "instvars" : [ ], - "name" : "GRPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/methodProperties.json deleted file mode 100644 index e9905923..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "instance" : { }, - "class" : { - "initialize" : "jgf 1/25/2009 12:05", - "randomFrom:" : "lr 7/25/2011 18:28", - "randomClass" : "lr 7/25/2011 19:46", - "nextInt:" : "lr 7/25/2011 19:46", - "startUp" : "pmm 1/10/2009 16:01", - "unload" : "jf 9/30/2009 00:19" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 5c8d294a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ - "mutex", - "generator" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoRandomProvider", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/methodProperties.json deleted file mode 100644 index ab426978..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "instance" : { - "decoderFor:" : "jf 9/30/2009 00:46", - "url" : "pmm 2/20/2009 12:50", - "decode:" : "pmm 2/17/2012 19:45", - "invalidUtf8" : "JohanBrichau 1/18/2016 08:13", - "encoderFor:" : "jf 9/30/2009 00:46", - "name" : "pmm 2/20/2009 13:25" - }, - "class" : { - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "lr 7/25/2011 19:46", - "basicForEncoding:" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 14e538f0..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:51", - "super" : "GRCodec", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index f7520d19..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "instance" : { - "crlf" : "pmm 4/10/2010 13:28", - "next" : "pmm 2/17/2010 20:09", - "invalidUtf8" : "jf 9/30/2009 00:39", - "greaseNext:putAllFast:startingAt:" : "pmm 5/21/2014 21:28", - "greaseNext:putAll:startingAt:" : "pmm 8/15/2011 21:32", - "encodeDefault:" : "lr 7/25/2011 18:36", - "nextPut:" : "lr 7/25/2011 19:51", - "nextPutAll:" : "pmm 4/10/2010 13:28", - "next:" : "pmm 8/25/2016 11:00", - "encodeFast:" : "pmm 8/25/2016 11:00" - }, - "class" : { - "initialize" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index c71cb642..00000000 --- a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index f7176f32..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index cbadc3b5..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo30-Core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index e413f59a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/methodProperties.json deleted file mode 100644 index 780f7a2a..00000000 --- a/repository/Grease-Pharo30-Core.package/GRSmallDictionary.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "explorerContents" : "lr 7/25/2011 19:51", - "customizeExplorerContents" : "lr 7/25/2011 19:51", - "hasContentsInExplorer" : "lr 7/25/2011 19:51" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I'm a work around for bugs in the Pharo stream classes. \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/instance/reset.st +++ /dev/null @@ -1,3 +0,0 @@ -positioning -reset - self resetToStart \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/methodProperties.json b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/methodProperties.json deleted file mode 100644 index ef5029dc..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "reset" : "pmm 8/26/2011 09:39" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index df3388a3..00000000 --- a/repository/Grease-Pharo30-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/25/2011 18:30", - "super" : "WriteStream", - "category" : "Grease-Pharo30-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRWorkingWriteStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 6c9daea2..00000000 --- a/repository/Grease-Pharo30-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*Grease-Pharo30-Core -any - "#first (used by SequenceableCollection>>anyOne) is an accessor of - Interval and does not error on an empty Interval." - - ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Interval.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index 15fc20f1..00000000 --- a/repository/Grease-Pharo30-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "any" : "jf 2/6/2010 03:25" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 1c64d870..00000000 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 2a299ce5..00000000 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -fixCallbackTemps - "for polymorphism with BlockContext >> #fixCallbackTemps" \ 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index e8c80c34..00000000 --- a/repository/Grease-Pharo30-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "fixCallbackTemps" : "pmm 4/23/2007 20:02", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:52", - "argumentCount" : "pmm 1/10/2009 19:22" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 0efe7b61..00000000 --- a/repository/Grease-Pharo30-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Number.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index 4fa9352e..00000000 --- a/repository/Grease-Pharo30-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "milliseconds" : "jf 2/6/2010 00:12" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index e2b437b6..00000000 --- a/repository/Grease-Pharo30-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Object.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index 74afa640..00000000 --- a/repository/Grease-Pharo30-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index ecde7ba6..00000000 --- a/repository/Grease-Pharo30-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo30-Core -greaseString - "Reimplemented because in Pharo 1.4 - (4 @ 2) greaseString - ansers '(4@2)'" - ^ String streamContents: [ :stream | - x printOn: stream. - stream nextPut: $@. - (y notNil and: [ y negative ]) - ifTrue: [ - "Avoid ambiguous @- construct" - stream space ]. - y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/Point.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/Point.extension/methodProperties.json deleted file mode 100644 index 0404714c..00000000 --- a/repository/Grease-Pharo30-Core.package/Point.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseString" : "pmm 8/25/2016 10:59" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 483cb725..00000000 --- a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-Core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index c3b569c5..00000000 --- a/repository/Grease-Pharo30-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseUpToAll:" : "jf 9/30/2009 01:06" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index 5d361f76..00000000 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-Core -encodeOn: aDocument - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 7fea0e16..00000000 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-Core -greaseString - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/methodProperties.json deleted file mode 100644 index 49427152..00000000 --- a/repository/Grease-Pharo30-Core.package/ScaledDecimal.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "encodeOn:" : "pmm 8/25/2016 18:52", - "greaseString" : "JohanBrichau 5/25/2015 08:55" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 3acb2e9e..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -beginsWithSubCollection: aSequenceableCollection - "Some platforms implement #beginsWith: to answer true for an empty argument." - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 371cdf37..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo30-Core -endsWithSubCollection: aSequenceableCollection - "Some platforms implement #endsWith: to answer true for an empty argument." - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 4341e0e2..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo30-Core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index 6601bb05..00000000 --- a/repository/Grease-Pharo30-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "endsWithSubCollection:" : "jok 3/22/2010 11:47", - "sorted" : "jf 2/6/2010 02:01", - "beginsWithSubCollection:" : "jok 3/22/2010 11:48" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index c384e1eb..00000000 --- a/repository/Grease-Pharo30-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo30-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Put a String or a ByteArray onto the stream starting at the given position. - Currently a large collection will allocate a large buffer." - - | toPut | - anInteger = 0 ifTrue: [ - ^ aCollection ]. - toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. - self adjustOutBuffer: anInteger. - outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. - outNextToWrite := outNextToWrite + anInteger. - self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/SocketStream.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/SocketStream.extension/methodProperties.json deleted file mode 100644 index 4ae249e5..00000000 --- a/repository/Grease-Pharo30-Core.package/SocketStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 5/23/2010 08:17" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st b/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st deleted file mode 100644 index f3df9e7a..00000000 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo30-Core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/TBehavior.extension/methodProperties.json b/repository/Grease-Pharo30-Core.package/TBehavior.extension/methodProperties.json deleted file mode 100644 index 7e1eb466..00000000 --- a/repository/Grease-Pharo30-Core.package/TBehavior.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fullName" : "PavelKrivanek 4/21/2017 11:40" } } 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/methodProperties.json b/repository/Grease-Pharo30-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index 8ae2fa45..00000000 --- a/repository/Grease-Pharo30-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseNext:putAll:startingAt:" : "jf 5/22/2010 20:26" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st deleted file mode 100644 index 71924e52..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo30-Core'! diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/package b/repository/Grease-Pharo30-Core.package/monticello.meta/package deleted file mode 100644 index bd865be3..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo30-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/monticello.meta/version b/repository/Grease-Pharo30-Core.package/monticello.meta/version deleted file mode 100644 index bb17d57a..00000000 --- a/repository/Grease-Pharo30-Core.package/monticello.meta/version +++ /dev/null @@ -1,11 +0,0 @@ -(name 'Grease-Pharo30-Core-MaxLeske.23' message 'merged by GitFileTree-MergeDriver' id 'bf826cec-f28e-4871-a5a8-f86c21244de8' date '25 May 2017' time '2:48:46.179573 pm' author 'MaxLeske' ancestors ((name 'Grease-Pharo30-Core-MaxLeske.22' message '* added GRDynamicVariable as replacement for WADynamicVariable' id 'ea9f25a6-270c-0d00-82d8-687107321642' date '18 May 2017' time '7:45:27.980288 am' author 'MaxLeske' ancestors ((name 'Grease-Pharo30-Core-pmm.21' message '- direct rendering for ScaledDecimal' id 'db8b6a8e-ce95-4c7b-817a-0fc352c0c000' date '26 August 2016' time '8:56:20.501423 am' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.20' message '- lint fixes' id 'ec123007-ffe6-483d-aba9-e36840b7a24c' date '25 August 2016' time '11:03:48.029702 am' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.19' message 'Added missing method GRPharoUtf8Coded>>invalidUtf8' id '3fc62b04-668c-4f6d-801d-54640757217c' date '18 January 2016' time '8:15:58.41072 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.18' message 'Implements #bindingOf: in Pharo3+' id 'cbd9dc15-a5ad-4b29-8399-e185c2b38f8e' date '12 July 2015' time '2:47:09.890712 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.17' message 'Missing sign on ScaledDecimal>>greaseString -(https://github.com/SeasideSt/Grease/issues/1) - -Thanks Hilaire!' id 'bd1dc3a1-c04d-47ab-9637-c6ba13afe679' date '25 May 2015' time '9:05:39.60184 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.16' message 'additional file library methods' id 'bd9e3924-0ff7-443a-a361-68768ee52b77' date '3 October 2014' time '8:05:16.758249 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-pmm.15' message 'Issue 792: Issue encoding a non-ascii character preceded by an xml-unsafe one -- https://code.google.com/p/seaside/issues/detail?id=792' id 'ee0aef7f-007a-4b55-ab96-ac338d55fed0' date '21 May 2014' time '9:30:02.077151 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.14' message 'Issue 789: Running WAFilelibraryTest on Pharo3 leaves Seaside-Tests-Core package in a dirty state - -https://code.google.com/p/seaside/issues/detail?id=789' id 'e845ca33-9427-435c-9a3c-f3d3a6669295' date '19 April 2014' time '5:23:30.089075 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.13' message 'move GRCountingStream from Pharo-only package to Core' id 'af3fd2e2-3290-4de5-8ea1-a92a78eeed4a' date '16 February 2014' time '9:29:51.277053 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-JohanBrichau.12' message 'bugfix #readWriteByteStream - http://forum.world.st/errorImproperStore-error-because-of-change-in-GRPharoPlatform-gt-gt-readWriteByteStream-td4737266.html' id 'f0022f14-d33b-47cd-98e9-891c3d72e7af' date '18 January 2014' time '7:06:52.139327 am' author 'JohanBrichau' ancestors ((name 'Grease-Pharo30-Core-pmm.11' message 'Issue 770: ScaledDecimal rendering support -http://code.google.com/p/seaside/issues/detail?id=770' id '9cfba12f-0b05-432d-84d1-d5cd8bf23dfe' date '15 September 2013' time '12:25:15.521 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.10' message '- add #doSilentlyBack:' id '5ccc9407-d97b-45f3-b9b0-c5135257da27' date '12 September 2013' time '6:07:05.251 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.9' message '- fix URLs' id 'd89a3a93-8df2-4fef-b4ed-6d99b3e4befb' date '12 September 2013' time '4:01:20.912841 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.8' message '- fix metadata' id '53897910-3143-4a50-8b56-3af0a1219593' date '12 September 2013' time '3:55:52.88988 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.7' message 'Issue 760: addAllFilesIn: is broken in Pharo 20 -http://code.google.com/p/seaside/issues/detail?id=760' id '326a7053-4672-4be5-b268-90e286a74f6c' date '12 September 2013' time '12:14:04.352265 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.6' message 'Issue 760: addAllFilesIn: is broken in Pharo 20 -http://code.google.com/p/seaside/issues/detail?id=760' id 'e43e7571-1bd1-4733-b53f-72a19245eed1' date '12 September 2013' time '12:10:25.447758 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.5' message '- FileSystem fixes' id '2a3dc16b-d38e-4f50-be28-2138a431d832' date '12 September 2013' time '12:05:46.224478 pm' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-pmm.4' message '- fix compilation' id '8d649251-34e2-4ed0-a007-223b556888a8' date '12 September 2013' time '11:25:48.069182 am' author 'pmm' ancestors ((name 'Grease-Pharo30-Core-DamienCassou.3' message '- Pharo 3.0: no need for sending #defaultMethodTrailer anymore' id 'c5d1b0db-bf87-43a3-bd4b-9d4d47169699' date '9 September 2013' time '10:39:38.671985 am' author 'DamienCassou' ancestors ((name 'Grease-Pharo30-Core-MattSpr.2' message 'Fixed #compile:into:classified: for Pharo3.0.' id '26925549-0374-4ecc-a49b-fd8d4e28962d' date '28 August 2013' time '10:43:32.58787 am' author 'MattSpr' ancestors ((name 'Grease-Pharo30-Core-MattSpr.1' message 'Copy of package from Pharo 2.0.' id '6da53441-b2d0-49dc-ae04-15d757b7a8af' date '28 August 2013' time '10:41:57.145859 am' author 'MattSpr' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Pharo30-Core-PavelKrivanek.22' message 'move extensions of Behavior to TBehavior' id '72b159cb-0b0a-0d00-90c8-922f067edcaa' date '21 April 2017' time '11:41:09.810975 am' author 'PavelKrivanek' ancestors ((id 'db8b6a8e-ce95-4c7b-817a-0fc352c0c000')) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/methodProperties.json deleted file mode 100644 index 4b5ba396..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:37", - "initialize" : "lr 2/24/2009 15:27", - "name" : "lr 2/24/2009 15:37", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/methodProperties.json deleted file mode 100644 index 52437cbe..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/16/2009 08:35", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 7/16/2009 08:35", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/methodProperties.json deleted file mode 100644 index d1616b8d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:37", - "initialize" : "jok 4/23/2010 08:34", - "name" : "lr 2/24/2009 15:37", - "rationale" : "jok 1/26/2010 09:41" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/methodProperties.json deleted file mode 100644 index 1c5de2b2..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:36", - "initialize" : "lr 2/28/2009 21:38", - "name" : "lr 2/24/2009 15:37", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/methodProperties.json deleted file mode 100644 index b65fcecb..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 4/14/2009 00:32", - "initialize" : "jf 12/8/2009 23:17", - "name" : "lr 4/14/2009 00:33", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/methodProperties.json deleted file mode 100644 index 212023fd..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:36", - "initialize" : "lr 2/28/2009 21:44", - "name" : "lr 2/24/2009 15:37", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/methodProperties.json deleted file mode 100644 index fa4bbea7..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:36", - "initialize" : "lr 2/24/2009 15:29", - "name" : "lr 2/24/2009 15:52", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/methodProperties.json deleted file mode 100644 index f06345da..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jf 12/29/2009 19:44", - "initialize" : "JohanBrichau 1/18/2014 16:39", - "name" : "jf 12/29/2009 19:44", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/methodProperties.json deleted file mode 100644 index 771a25b1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "JohanBrichau 11/7/2014 20:38", - "group" : "jok 1/26/2010 14:20", - "initialize" : "lr 11/2/2009 20:09", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/methodProperties.json deleted file mode 100644 index 840d8771..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 16:38", - "initialize" : "lr 7/25/2011 19:55", - "name" : "lr 7/25/2011 16:38", - "rationale" : "lr 7/25/2011 16:39" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/methodProperties.json deleted file mode 100644 index f474a7d4..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "pmm 8/25/2016 11:08", - "group" : "lr 7/26/2011 08:12", - "initialize" : "lr 11/2/2009 20:09", - "name" : "lr 2/24/2009 15:35", - "rationale" : "jok 1/26/2010 14:24" } } diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/methodProperties.json deleted file mode 100644 index 4b1f41f2..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "JohanBrichau 11/7/2014 20:47", - "group" : "jok 1/26/2010 14:25", - "name" : "lr 9/8/2009 13:59", - "rationale" : "lr 9/8/2009 14:12", - "resetResult" : "lr 9/8/2009 19:15" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/methodProperties.json deleted file mode 100644 index 8d25753a..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "JohanBrichau 11/7/2014 20:40", - "group" : "jok 1/26/2010 14:27", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/methodProperties.json deleted file mode 100644 index 747c5fd7..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "JohanBrichau 11/7/2014 20:38", - "group" : "AvO 9/13/2013 13:45", - "methodNames" : "AvO 9/13/2013 14:57", - "name" : "AvO 9/13/2013 14:03", - "rationale" : "AvO 9/13/2013 13:45" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/methodProperties.json deleted file mode 100644 index a4affb68..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "JohanBrichau 11/7/2014 20:39", - "checkMethod:" : "JohanBrichau 11/7/2014 20:40", - "group" : "lr 11/8/2010 22:45", - "name" : "lr 11/8/2010 22:45", - "rationale" : "lr 11/8/2010 22:48" } } 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-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/methodProperties.json deleted file mode 100644 index c23930b3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 3/24/2010 12:56", - "initialize" : "jok 3/24/2010 14:52", - "name" : "jok 3/24/2010 12:57", - "rationale" : "jok 3/24/2010 14:33" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/methodProperties.json deleted file mode 100644 index 30986091..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 1/26/2010 14:55", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 9/12/2009 11:09", - "rationale" : "lr 9/12/2009 11:09" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 2316171e..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseSlime" : "JohanBrichau 11/7/2014 21:07" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/methodProperties.json deleted file mode 100644 index 35e557b1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 14:44", - "initialize" : "lr 7/25/2011 17:19", - "name" : "lr 7/25/2011 12:20", - "rationale" : "lr 7/25/2011 12:20" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/methodProperties.json deleted file mode 100644 index b64c2c76..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 14:44", - "initialize" : "lr 7/25/2011 17:19", - "name" : "lr 7/25/2011 12:04", - "rationale" : "lr 7/25/2011 12:10" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/methodProperties.json deleted file mode 100644 index 7bd0b7e1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isVisible" : "jok 1/26/2010 14:32" }, - "instance" : { - "category" : "JohanBrichau 6/8/2014 17:58" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/methodProperties.json deleted file mode 100644 index 7bd0b7e1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isVisible" : "jok 1/26/2010 14:32" }, - "instance" : { - "category" : "JohanBrichau 6/8/2014 17:58" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/methodProperties.json deleted file mode 100644 index 069617fd..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isVisible" : "jok 1/26/2010 14:36" }, - "instance" : { - } } diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/methodProperties.json deleted file mode 100644 index b843ff0d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 12:04", - "initialize" : "lr 7/25/2011 17:20", - "name" : "lr 7/25/2011 12:05", - "rationale" : "lr 7/25/2011 12:10" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/methodProperties.json deleted file mode 100644 index 72850a0b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "JohanBrichau 11/7/2014 21:09", - "group" : "pmm 8/17/2014 11:21", - "initialize" : "pmm 8/17/2014 11:21", - "name" : "pmm 8/17/2014 11:22", - "rationale" : "pmm 8/17/2014 11:55" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/methodProperties.json deleted file mode 100644 index 139f4fd1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "JohanBrichau 11/7/2014 20:48", - "group" : "pmm 9/1/2012 12:28", - "name" : "pmm 9/1/2012 11:40", - "rationale" : "pmm 9/1/2012 12:03", - "resetResult" : "pmm 9/1/2012 11:39" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/methodProperties.json deleted file mode 100644 index e6866927..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "pmm 3/29/2012 19:54", - "initialize" : "lr 3/30/2012 09:14", - "name" : "pmm 3/29/2012 19:55", - "rationale" : "lr 3/30/2012 09:15" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/methodProperties.json deleted file mode 100644 index 3fd33818..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "lr 10/14/2010 09:08", - "group" : "lr 10/14/2010 09:04", - "initialize" : "lr 10/14/2010 09:07", - "name" : "lr 10/14/2010 09:05", - "rationale" : "lr 10/14/2010 09:06" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/methodProperties.json deleted file mode 100644 index 3dcc01bf..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 1/26/2010 14:33", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/methodProperties.json deleted file mode 100644 index 98611301..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 1/26/2010 15:58", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/methodProperties.json deleted file mode 100644 index f0208403..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "JohanBrichau 11/7/2014 20:42", - "group" : "jok 1/26/2010 15:58", - "name" : "lr 2/27/2009 21:49", - "rationale" : "lr 2/27/2009 21:52", - "shouldExclude:" : "JohanBrichau 11/7/2014 20:41" } } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/methodProperties.json b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/methodProperties.json deleted file mode 100644 index 0801451a..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "JohanBrichau 11/7/2014 20:39", - "checkMethod:" : "JohanBrichau 11/7/2014 20:42", - "classNames" : "jf 12/18/2009 14:16", - "group" : "jok 1/26/2010 14:16", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Pharo40-Slime.package/monticello.meta/version b/repository/Grease-Pharo40-Slime.package/monticello.meta/version deleted file mode 100644 index 1ad0b18c..00000000 --- a/repository/Grease-Pharo40-Slime.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo40-Slime-pmm.4' message '- lint fixes' id '53ef3168-20b9-482c-93ad-dc3c7aa21fa9' date '25 August 2016' time '11:31:51.515958 am' author 'pmm' ancestors ((name 'Grease-Pharo40-Slime-JohanBrichau.3' message 'solved superclass check differently' id '67b78409-cd47-404a-8b1b-51604deff874' date '7 November 2014' time '9:10:27.639115 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo40-Slime-JohanBrichau.2' message 'a method got lost' id '337dc141-fe61-45c3-96ce-b7175b5ad4c7' date '7 November 2014' time '9:06:12.417154 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo40-Slime-JohanBrichau.1' message 'Fixed broken tests in Pharo4.0 (forked of Grease-Slime-pmm.29)' id '9952099a-c337-4a8c-a3f1-8957d36d557e' date '7 November 2014' time '8:53:19.136964 pm' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 29e49456..00000000 --- a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,2 +0,0 @@ -*Grease-Pharo60-Core -fixCallbackTemps \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index 32997637..00000000 --- a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "fixCallbackTemps" : "lr 4/8/2009 13:33", - "valueWithPossibleArguments:" : "lr 4/8/2009 13:36" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index 74afa640..00000000 --- a/repository/Grease-Pharo60-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Character.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index 65a91aa5..00000000 --- a/repository/Grease-Pharo60-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Collection.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index e1a71262..00000000 --- a/repository/Grease-Pharo60-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "any" : "jf 2/6/2010 00:41" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Color.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Color.extension/methodProperties.json deleted file mode 100644 index 76299b05..00000000 --- a/repository/Grease-Pharo60-Core.package/Color.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "asHTMLColor" : "JohanBrichau 5/25/2017 11:54" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Duration.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index 90cd5df9..00000000 --- a/repository/Grease-Pharo60-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "instance" : { - "asMilliseconds" : "jf 2/5/2010 23:58", - "milliseconds" : "jf 2/6/2010 00:02" - }, - "class" : { - "milliseconds:" : "jf 2/6/2010 00:12" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/methodProperties.json deleted file mode 100644 index 17581cee..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:13" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md index e69de29b..5b308f84 100644 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md +++ b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md @@ -0,0 +1,11 @@ +A GRDynamicVariable is a variable that is visible only in the stackframes outgoing from this one. + +Example: + +GRDynamicVariable + use: 'Seaside' + during: [ self compilcatedCalculation ] + +Whenever GRDynamicVariable value gets evaluated somewhere inside [ self compilcatedCalculation ] or a method invoked directly or indirectly by it, its value will be 'Seaside'. If no #use:during: handler is around the current stack frame, then the value will be the return value of the class side #defaultValue. + +Do not use GRDynamicVariable directly, instead create a subclass for each variable you want to use. \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..3d7f6377 --- /dev/null +++ b/repository/Grease-Pharo60-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-Pharo60-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/instance/default.st new file mode 100644 index 00000000..59cb6f1b --- /dev/null +++ b/repository/Grease-Pharo60-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-Pharo60-Core.package/GRDynamicVariable.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/methodProperties.json deleted file mode 100644 index f90221a0..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { }, - "class" : { - "use:during:" : "MaxLeske 5/16/2017 21:54" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json index f990263b..c8b6c982 100644 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json +++ b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "", + "commentStamp" : "pmm 9/5/2017 07:53", "super" : "DynamicVariable", "category" : "Grease-Pharo60-Core", "classinstvars" : [ ], diff --git a/repository/Grease-Pharo60-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index fb511c6f..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { }, - "class" : { - "greasePharo60Core" : "JohanBrichau 5/25/2017 15:26" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/methodProperties.json deleted file mode 100644 index 6455039d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "instance" : { - "nextPut:" : "pmm 4/10/2010 13:30", - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:12", - "nextPutAll:" : "lr 2/7/2009 12:54", - "next" : "pmm 4/10/2010 13:32", - "next:" : "lr 2/7/2009 12:57", - "initializeOn:converter:" : "pmm 10/30/2010 18:58" - }, - "class" : { - "on:converter:" : "pmm 10/30/2010 18:58" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md index e69de29b..f4f5002a 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md +++ b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md @@ -0,0 +1,12 @@ +A codec that delegates to TextConverter. + +Instance Variables + name: + urlCodec: + + +name + - the name of the encoding + +urlCodec: + - the codec used to encode URLs \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/methodProperties.json deleted file mode 100644 index 561fbf1e..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "instance" : { - "converter" : "lr 7/25/2011 19:51", - "decoderFor:" : "lr 2/7/2009 12:52", - "url" : "lr 2/7/2009 12:36", - "encoderFor:" : "jf 9/30/2009 00:46", - "initializeWithName:" : "pmm 8/16/2010 11:52", - "name" : "lr 2/7/2009 10:16" - }, - "class" : { - "codecs" : "pmm 8/16/2010 00:19", - "supportsEncoding:" : "pmm 6/28/2009 16:43", - "basicForEncoding:" : "pmm 6/28/2009 15:43", - "supportedEncodingNames" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json index 3948c7a1..03337fa2 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json +++ b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "", + "commentStamp" : "pmm 9/5/2017 07:58", "super" : "GRCodec", "category" : "Grease-Pharo60-Core", "classinstvars" : [ ], diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/methodProperties.json deleted file mode 100644 index 1bd8105c..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "instance" : { - "decoderFor:" : "pmm 8/16/2010 00:32", - "decode:" : "pmm 8/16/2010 09:20", - "initializeWithName:" : "pmm 8/25/2016 11:00", - "encoderFor:" : "pmm 8/16/2010 00:32", - "name" : "pmm 8/16/2010 00:32" - }, - "class" : { - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 8/16/2010 00:36", - "basicForEncoding:" : "pmm 8/16/2010 00:36", - "supportedEncodingNames" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json deleted file mode 100644 index eaf30bc6..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "next:" : "lr 7/25/2011 19:50", - "next" : "pmm 8/16/2010 09:16" - }, - "class" : { } -} \ 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 new file mode 100644 index 00000000..97018fc5 --- /dev/null +++ b/repository/Grease-Pharo60-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-Pharo60-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index d69ff426..00000000 --- a/repository/Grease-Pharo60-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-Pharo60-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/methodProperties.json deleted file mode 100644 index 4e14201e..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/methodProperties.json +++ /dev/null @@ -1,45 +0,0 @@ -{ - "instance" : { - "pathSeparator" : "pmm 8/4/2012 12:38", - "readWriteCharacterStream" : "dkh 9/4/2009 09:14", - "fileStreamOn:do:binary:" : "JohanBrichau 10/3/2014 19:59", - "addToShutDownList:" : "jf 1/21/2009 17:31", - "removeFromShutDownList:" : "JohanBrichau 5/25/2017 11:46", - "removeSelector:from:" : "JohanBrichau 4/19/2014 13:44", - "semaphoreClass" : "lr 7/25/2011 19:51", - "useByteArrayLiterals" : "pmm 8/4/2012 12:39", - "bindingOf:" : "JohanBrichau 7/12/2015 14:45", - "write:toFile:inFolder:" : "pmm 8/4/2012 13:02", - "newRandom" : "pmm 10/7/2010 13:10", - "asMethodReturningByteArray:named:" : "lr 7/25/2011 19:51", - "filesIn:" : "pmm 8/19/2012 10:18", - "newline" : "lr 4/15/2010 19:14", - "terminateProcess:" : "jf 2/6/2009 15:59", - "writeCharacterStreamOn:" : "pmm 8/26/2011 09:45", - "contentsOfFile:binary:" : "JohanBrichau 10/3/2014 19:59", - "doSilently:" : "pmm 9/12/2013 17:55", - "fileExists:" : "JohanBrichau 10/3/2014 20:02", - "isProcessTerminated:" : "jf 2/6/2009 15:58", - "removeFromStartUpList:" : "JohanBrichau 5/25/2017 11:46", - "stackDepth" : "jf 1/21/2009 17:31", - "secureHashFor:" : "DamienCassou 8/27/2013 18:30", - "base64Decode:" : "jf 1/21/2009 17:31", - "compile:into:classified:" : "pmm 9/12/2013 11:24", - "asMethodReturningByteArrayWithCache:named:" : "pmm 2/20/2009 17:44", - "label" : "jf 2/9/2010 00:56", - "weakDictionaryOfSize:" : "lr 7/25/2011 19:51", - "localNameOf:" : "pmm 8/19/2012 10:19", - "openDebuggerOn:" : "pmm 1/22/2012 16:31", - "ensureExistenceOfFolder:" : "pmm 9/12/2013 12:05", - "asMethodReturningByteArrayLiteral:named:" : "lr 7/25/2011 19:51", - "addToStartUpList:" : "JohanBrichau 5/25/2017 11:44", - "directoriesIn:" : "pmm 8/19/2012 10:19", - "readWriteByteStream" : "JohanBrichau 1/18/2014 07:05" - }, - "class" : { - "initialize" : "pmm 5/20/2010 11:49", - "initializeXmlTable" : "pmm 5/20/2010 20:56", - "unload" : "jf 1/22/2009 02:45", - "initializeUrlTable" : "pmm 5/20/2010 20:56" - } -} \ 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/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md index e69de29b..852705fe 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md +++ b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md @@ -0,0 +1 @@ +I make GRPlatform use Random as a random number generator. \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/methodProperties.json deleted file mode 100644 index e9905923..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "instance" : { }, - "class" : { - "initialize" : "jgf 1/25/2009 12:05", - "randomFrom:" : "lr 7/25/2011 18:28", - "randomClass" : "lr 7/25/2011 19:46", - "nextInt:" : "lr 7/25/2011 19:46", - "startUp" : "pmm 1/10/2009 16:01", - "unload" : "jf 9/30/2009 00:19" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json index e5bb19bb..73a91ed2 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json +++ b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json @@ -1,5 +1,5 @@ { - "commentStamp" : "", + "commentStamp" : "pmm 9/5/2017 07:59", "super" : "GRObject", "category" : "Grease-Pharo60-Core", "classinstvars" : [ diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/methodProperties.json deleted file mode 100644 index ab426978..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "instance" : { - "decoderFor:" : "jf 9/30/2009 00:46", - "url" : "pmm 2/20/2009 12:50", - "decode:" : "pmm 2/17/2012 19:45", - "invalidUtf8" : "JohanBrichau 1/18/2016 08:13", - "encoderFor:" : "jf 9/30/2009 00:46", - "name" : "pmm 2/20/2009 13:25" - }, - "class" : { - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "lr 7/25/2011 19:46", - "basicForEncoding:" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st index ad2d94ab..58839f8a 100644 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st @@ -1,11 +1,15 @@ streaming nextPut: aCharacter - | codePoint shouldEncode | + | codePoint | 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 ] + codePoint < 128 ifTrue: [ + ^ stream nextPut: aCharacter ]. + codePoint < 256 ifTrue: [ + | shouldEncode | + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + ^ shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] ]. + + ^ self nextPutAll: (String with: aCharacter) \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index f7520d19..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "instance" : { - "crlf" : "pmm 4/10/2010 13:28", - "next" : "pmm 2/17/2010 20:09", - "invalidUtf8" : "jf 9/30/2009 00:39", - "greaseNext:putAllFast:startingAt:" : "pmm 5/21/2014 21:28", - "greaseNext:putAll:startingAt:" : "pmm 8/15/2011 21:32", - "encodeDefault:" : "lr 7/25/2011 18:36", - "nextPut:" : "lr 7/25/2011 19:51", - "nextPutAll:" : "pmm 4/10/2010 13:28", - "next:" : "pmm 8/25/2016 11:00", - "encodeFast:" : "pmm 8/25/2016 11:00" - }, - "class" : { - "initialize" : "lr 7/25/2011 19:46" - } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index 3f53f0d0..00000000 --- a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index dd5fea12..00000000 --- a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo60-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-Pharo60-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index c66c0048..00000000 --- a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/methodProperties.json deleted file mode 100644 index 780f7a2a..00000000 --- a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "explorerContents" : "lr 7/25/2011 19:51", - "customizeExplorerContents" : "lr 7/25/2011 19:51", - "hasContentsInExplorer" : "lr 7/25/2011 19:51" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/README.md deleted file mode 100644 index 3f2ed8e8..00000000 --- a/repository/Grease-Pharo60-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-Pharo60-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/instance/reset.st deleted file mode 100644 index 8232867f..00000000 --- a/repository/Grease-Pharo60-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-Pharo60-Core.package/GRWorkingWriteStream.class/methodProperties.json b/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/methodProperties.json deleted file mode 100644 index ef5029dc..00000000 --- a/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "reset" : "pmm 8/26/2011 09:39" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/properties.json deleted file mode 100644 index afe7853d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRWorkingWriteStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/25/2011 18:30", - "super" : "WriteStream", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRWorkingWriteStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Interval.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index 15fc20f1..00000000 --- a/repository/Grease-Pharo60-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "any" : "jf 2/6/2010 03:25" - }, - "class" : { } -} \ No newline at end of file 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/MessageSend.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 5c33248e..00000000 --- a/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -fixCallbackTemps - "for polymorphism with BlockContext >> #fixCallbackTemps" \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index e8c80c34..00000000 --- a/repository/Grease-Pharo60-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "fixCallbackTemps" : "pmm 4/23/2007 20:02", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:52", - "argumentCount" : "pmm 1/10/2009 19:22" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Number.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index 4fa9352e..00000000 --- a/repository/Grease-Pharo60-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "milliseconds" : "jf 2/6/2010 00:12" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Object.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index 74afa640..00000000 --- a/repository/Grease-Pharo60-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Point.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/Point.extension/methodProperties.json deleted file mode 100644 index 0404714c..00000000 --- a/repository/Grease-Pharo60-Core.package/Point.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseString" : "pmm 8/25/2016 10:59" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index c3b569c5..00000000 --- a/repository/Grease-Pharo60-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseUpToAll:" : "jf 9/30/2009 01:06" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/methodProperties.json deleted file mode 100644 index 49427152..00000000 --- a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "encodeOn:" : "pmm 8/25/2016 18:52", - "greaseString" : "JohanBrichau 5/25/2015 08:55" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index 6601bb05..00000000 --- a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "endsWithSubCollection:" : "jok 3/22/2010 11:47", - "sorted" : "jf 2/6/2010 02:01", - "beginsWithSubCollection:" : "jok 3/22/2010 11:48" - }, - "class" : { } -} \ 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/SocketStream.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/SocketStream.extension/methodProperties.json deleted file mode 100644 index 4ae249e5..00000000 --- a/repository/Grease-Pharo60-Core.package/SocketStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 5/23/2010 08:17" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st new file mode 100644 index 00000000..5527fdeb --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*grease-pharo60-core +greaseString + ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/String.extension/properties.json b/repository/Grease-Pharo60-Core.package/String.extension/properties.json new file mode 100644 index 00000000..b20f2de3 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/String.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "String" +} \ 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-Pharo60-Core.package/Symbol.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseString.st new file mode 100644 index 00000000..6346e122 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*grease-pharo60-core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json new file mode 100644 index 00000000..8c6bce81 --- /dev/null +++ b/repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Symbol" +} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/TBehavior.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/TBehavior.extension/methodProperties.json deleted file mode 100644 index 683abe21..00000000 --- a/repository/Grease-Pharo60-Core.package/TBehavior.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "fullName" : "PavelKrivanek 4/21/2017 11:40" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-Pharo60-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index 8ae2fa45..00000000 --- a/repository/Grease-Pharo60-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "greaseNext:putAll:startingAt:" : "jf 5/22/2010 20:26" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/monticello.meta/version b/repository/Grease-Pharo60-Core.package/monticello.meta/version deleted file mode 100644 index d4bac1a2..00000000 --- a/repository/Grease-Pharo60-Core.package/monticello.meta/version +++ /dev/null @@ -1,2 +0,0 @@ -(name 'Grease-Pharo60-Core-JohanBrichau.2' message 'Added GRDynamicVariable (copied from Grease-Pharo30-Core-MaxLeske.23)' id 'c95f31f1-ba0c-0d00-9a91-77be09e6dcd5' date '25 May 2017' time '3:29:07.233987 pm' author 'JohanBrichau' ancestors ((name 'Grease-Pharo60-Core-JohanBrichau.1' message 'Split from Grease-Pharo30-Core-PavelKrivanek.22 -with changes for Pharo6.0 onwards' id 'fec0f92f-b80c-0d00-b4b4-c13800bfc9db' date '25 May 2017' time '12:11:55.651574 pm' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/.filetree b/repository/Grease-Pharo70-Core.package/.filetree new file mode 100644 index 00000000..57a67973 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st new file mode 100644 index 00000000..806a660c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st @@ -0,0 +1,5 @@ +*Grease-Pharo70-Core +fullName + "In VW, will include the namespace" + + ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json new file mode 100644 index 00000000..c4116c4c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Behavior" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..e4af2ccf --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,11 @@ +*Grease-Pharo70-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-Pharo70-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/properties.json new file mode 100644 index 00000000..2190e5e2 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BlockClosure" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st new file mode 100644 index 00000000..caa950d1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*Grease-Pharo70-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-Pharo70-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo70-Core.package/ByteArray.extension/properties.json new file mode 100644 index 00000000..f81bcb8d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ByteArray.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ByteArray" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st new file mode 100644 index 00000000..13cfc191 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st @@ -0,0 +1,4 @@ +*Grease-Pharo70-Core +greaseInteger + "Answer an unicode code point of the receiver." + ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Character.extension/properties.json b/repository/Grease-Pharo70-Core.package/Character.extension/properties.json new file mode 100644 index 00000000..5219281d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Character.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Character" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..daf61979 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +any + ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo70-Core.package/Collection.extension/properties.json new file mode 100644 index 00000000..48f9f8d9 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Collection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Collection" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st new file mode 100644 index 00000000..7460ba3b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +asHTMLColor + ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Color.extension/properties.json b/repository/Grease-Pharo70-Core.package/Color.extension/properties.json new file mode 100644 index 00000000..8b86fc95 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Color.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Color" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st new file mode 100644 index 00000000..cf3b7f79 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +milliseconds: anInteger + ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st new file mode 100644 index 00000000..54cfbc56 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +asMilliseconds + ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st new file mode 100644 index 00000000..7048395d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +milliseconds + ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo70-Core.package/Duration.extension/properties.json new file mode 100644 index 00000000..d141a092 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Duration.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Duration" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..36a59baf --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +*Grease-Pharo70-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-Pharo70-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/properties.json new file mode 100644 index 00000000..5ec29ea0 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRDelegatingStream" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/README.md diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..3d7f6377 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-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-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/instance/default.st new file mode 100644 index 00000000..59cb6f1b --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/properties.json new file mode 100644 index 00000000..5017b02d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "DynamicVariable", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRDynamicVariable", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st b/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st new file mode 100644 index 00000000..a210248c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo70-Core +greasePharo70Core + ^ self new + name: 'Grease-Pharo70-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json new file mode 100644 index 00000000..ae522a7e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoConverterCodecStream.class/README.md rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/next.st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st rename to repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json new file mode 100644 index 00000000..9b03d8a5 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "pmm 6/25/2012 20:22", + "super" : "GRCodecStream", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "converter" + ], + "name" : "GRPharoConverterCodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/README.md similarity index 100% rename from repository/Grease-Tests-Squeak5-Core.package/monticello.meta/initializers.st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/README.md diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/class/codecs.st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..d1c6d00b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st @@ -0,0 +1,8 @@ +private +supportedEncodingNames + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/instance/converter.st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoGenericCodec.class/instance/url.st rename to repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json new file mode 100644 index 00000000..78866c3d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRCodec", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name", + "urlCodec" + ], + "name" : "GRPharoGenericCodec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json new file mode 100644 index 00000000..a8e2f8c7 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodec", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "name" + ], + "name" : "GRPharoLatin1Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md diff --git a/repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json new file mode 100644 index 00000000..cac5a286 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRNullCodecStream", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoLatin1CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/README.md rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st new file mode 100644 index 00000000..c4ab1dea --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo20-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st new file mode 100644 index 00000000..3fb71b1a --- /dev/null +++ b/repository/Grease-Pharo70-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-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-Pharo30-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st 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 new file mode 100644 index 00000000..3c95a9de --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -0,0 +1,5 @@ +file library +contentsOfFile: aString binary: aBoolean + ^ 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-Pharo20-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/directoriesIn..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/fileExists..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/filesIn..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st 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-Pharo20-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/label.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/localNameOf..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/newRandom.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st 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-Pharo30-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/pathSeparator.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st 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-Pharo20-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st new file mode 100644 index 00000000..58137e33 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st new file mode 100644 index 00000000..76918209 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st new file mode 100644 index 00000000..92cbd7ff --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st 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 new file mode 100644 index 00000000..7b994393 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo20-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/terminateProcess..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st new file mode 100644 index 00000000..97018fc5 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st rename to repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st 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 new file mode 100644 index 00000000..77cf8f76 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st @@ -0,0 +1,8 @@ +file library +write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + "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 new file mode 100644 index 00000000..ab8c26b8 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 2/1/2014 13:28", + "super" : "GRPlatform", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "UrlTable", + "XmlTable" + ], + "instvars" : [ ], + "name" : "GRPharoPlatform", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/initialize.st rename to repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoRandomProvider.class/class/nextInt..st rename to repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/randomClass.st rename to repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/randomFrom..st rename to repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoRandomProvider.class/class/unload.st rename to repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json new file mode 100644 index 00000000..ae214abc --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "GRObject", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ + "mutex", + "generator" + ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoRandomProvider", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/README.md rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/class/codecs.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/decode..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8Codec.class/instance/url.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json new file mode 100644 index 00000000..d0276c27 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:51", + "super" : "GRCodec", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoUtf8Codec", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/next..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st rename to repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json new file mode 100644 index 00000000..74edd5a9 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 2/20/2009 12:27", + "super" : "GRPharoConverterCodecStream", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "Latin1ToUtf8Encodings", + "Latin1ToUtf8Map" + ], + "instvars" : [ ], + "name" : "GRPharoUtf8CodecStream", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st new file mode 100644 index 00000000..6657fda7 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +customizeExplorerContents + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st new file mode 100644 index 00000000..8f2edc9c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st @@ -0,0 +1,10 @@ +*Grease-Pharo70-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-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st new file mode 100644 index 00000000..2226672f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +hasContentsInExplorer + ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json similarity index 100% rename from repository/Grease-Pharo60-Core.package/GRSmallDictionary.extension/properties.json rename to repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json diff --git a/repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st new file mode 100644 index 00000000..25452fdd --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st @@ -0,0 +1,6 @@ +*Grease-Pharo70-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-Pharo70-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo70-Core.package/Interval.extension/properties.json new file mode 100644 index 00000000..534eb553 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Interval.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Interval" +} \ No newline at end of file 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/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/argumentCount.st new file mode 100644 index 00000000..7c92a0fa --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/argumentCount.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +argumentCount + ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..a1e7de6f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,7 @@ +*Grease-Pharo70-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-Pharo70-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo70-Core.package/MessageSend.extension/properties.json new file mode 100644 index 00000000..00669b90 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/MessageSend.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "MessageSend" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..4b41de47 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +milliseconds + ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Number.extension/properties.json b/repository/Grease-Pharo70-Core.package/Number.extension/properties.json new file mode 100644 index 00000000..71dace88 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Number.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Number" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..790b6c38 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Object.extension/properties.json b/repository/Grease-Pharo70-Core.package/Object.extension/properties.json new file mode 100644 index 00000000..f30a86e1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Object.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Object" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st new file mode 100644 index 00000000..d9236f37 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st @@ -0,0 +1,13 @@ +*Grease-Pharo70-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-Pharo70-Core.package/Point.extension/properties.json b/repository/Grease-Pharo70-Core.package/Point.extension/properties.json new file mode 100644 index 00000000..c6cf8dd5 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Point.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Point" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..ee9c1227 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -0,0 +1,5 @@ +*Grease-Pharo70-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-Pharo70-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/properties.json new file mode 100644 index 00000000..8e090ee3 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "PositionableStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..285dad3a --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,5 @@ +*Grease-Pharo70-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-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..08d07e1e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*Grease-Pharo70-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-Pharo70-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/properties.json new file mode 100644 index 00000000..75f85f87 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ScaledDecimal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st new file mode 100644 index 00000000..a3a6fdda --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +1,4 @@ +*Grease-Pharo70-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-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st new file mode 100644 index 00000000..966cb147 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +1,4 @@ +*Grease-Pharo70-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-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/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/sorted.st new file mode 100644 index 00000000..7958186c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/sorted.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +sorted + ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json new file mode 100644 index 00000000..a68b7db6 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SequenceableCollection" +} \ 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/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..b5ce9a98 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,13 @@ +*Grease-Pharo70-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-Pharo70-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/SocketStream.extension/properties.json new file mode 100644 index 00000000..797e09e5 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "SocketStream" +} \ 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-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..e6f77851 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,4 @@ +*Grease-Pharo70-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-Pharo70-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/WriteStream.extension/properties.json new file mode 100644 index 00000000..8688e80d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/WriteStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "WriteStream" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo70-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..a10a79b9 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Pharo70-Core'! diff --git a/repository/Grease-Pharo70-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo70-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo70-Core.package/monticello.meta/package b/repository/Grease-Pharo70-Core.package/monticello.meta/package new file mode 100644 index 00000000..fdb06b59 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Pharo70-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/properties.json b/repository/Grease-Pharo70-Core.package/properties.json new file mode 100644 index 00000000..6f31cf5a --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ 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-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st new file mode 100644 index 00000000..1e03f82f --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st @@ -0,0 +1,5 @@ +accessing +use: anObject during: aBlock + ^ self + value: anObject + during: aBlock \ No newline at end of file diff --git a/repository/Grease-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoConverterCodecStream.class/instance/next.st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoUtf8CodecStream.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-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo30-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-Pharo30-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-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..d1c6d00b --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st @@ -0,0 +1,8 @@ +private +supportedEncodingNames + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoGenericCodec.class/instance/converter.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo30-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo20-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-Pharo20-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st diff --git a/repository/Grease-Pharo20-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-Pharo20-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-Pharo30-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-Pharo30-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-Pharo30-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoPlatform.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st new file mode 100644 index 00000000..e878c01b --- /dev/null +++ b/repository/Grease-Pharo90-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-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-Pharo30-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-Pharo30-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo20-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-Pharo20-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-Pharo30-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-Pharo30-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-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st new file mode 100644 index 00000000..46b9e2d2 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st @@ -0,0 +1,3 @@ +cryptography +secureHashFor: aString + ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomClass.st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoRandomProvider.class/class/randomFrom..st rename to repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st new file mode 100644 index 00000000..663a5243 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st @@ -0,0 +1,4 @@ +class initialization +startUp + generator := self randomClass new. + mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo20-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoUtf8Codec.class/README.md rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md diff --git a/repository/Grease-Pharo30-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-Pharo30-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/GRPharoUtf8Codec.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/GRPharoUtf8Codec.class/instance/invalidUtf8.st rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Pharo30-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-Pharo30-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/GRAnsiBooleansRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/methodProperties.json deleted file mode 100644 index 4b5ba396..00000000 --- a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:37", - "initialize" : "lr 2/24/2009 15:27", - "name" : "lr 2/24/2009 15:37", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/methodProperties.json deleted file mode 100644 index 52437cbe..00000000 --- a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/16/2009 08:35", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 7/16/2009 08:35", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/methodProperties.json deleted file mode 100644 index d1616b8d..00000000 --- a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:37", - "initialize" : "jok 4/23/2010 08:34", - "name" : "lr 2/24/2009 15:37", - "rationale" : "jok 1/26/2010 09:41" } } diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/methodProperties.json deleted file mode 100644 index 1c5de2b2..00000000 --- a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:36", - "initialize" : "lr 2/28/2009 21:38", - "name" : "lr 2/24/2009 15:37", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/methodProperties.json deleted file mode 100644 index b65fcecb..00000000 --- a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 4/14/2009 00:32", - "initialize" : "jf 12/8/2009 23:17", - "name" : "lr 4/14/2009 00:33", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/methodProperties.json deleted file mode 100644 index 212023fd..00000000 --- a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:36", - "initialize" : "lr 2/28/2009 21:44", - "name" : "lr 2/24/2009 15:37", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/methodProperties.json deleted file mode 100644 index fa4bbea7..00000000 --- a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 2/24/2009 15:36", - "initialize" : "lr 2/24/2009 15:29", - "name" : "lr 2/24/2009 15:52", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRAnsiStringsRule.class/methodProperties.json deleted file mode 100644 index f06345da..00000000 --- a/repository/Grease-Slime.package/GRAnsiStringsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jf 12/29/2009 19:44", - "initialize" : "JohanBrichau 1/18/2014 16:39", - "name" : "jf 12/29/2009 19:44", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/methodProperties.json b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/methodProperties.json deleted file mode 100644 index 329e02f0..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "pmm 9/2/2012 10:43", - "group" : "jok 1/26/2010 14:20", - "initialize" : "lr 11/2/2009 20:09", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 1/25/2010 22:07" } } diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/methodProperties.json b/repository/Grease-Slime.package/GRBlockFormattingRule.class/methodProperties.json deleted file mode 100644 index 840d8771..00000000 --- a/repository/Grease-Slime.package/GRBlockFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 16:38", - "initialize" : "lr 7/25/2011 19:55", - "name" : "lr 7/25/2011 16:38", - "rationale" : "lr 7/25/2011 16:39" } } diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/methodProperties.json b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/methodProperties.json deleted file mode 100644 index e81c863c..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "JohanBrichau 1/18/2014 16:31", - "group" : "lr 7/26/2011 08:12", - "initialize" : "lr 11/2/2009 20:09", - "name" : "lr 2/24/2009 15:35", - "rationale" : "jok 1/26/2010 14:24" } } diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/methodProperties.json b/repository/Grease-Slime.package/GREmptyStatementsRule.class/methodProperties.json deleted file mode 100644 index c613361e..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "pmm 8/19/2014 09:36", - "group" : "jok 1/26/2010 14:25", - "name" : "lr 9/8/2009 13:59", - "rationale" : "lr 9/8/2009 14:12", - "resetResult" : "lr 9/8/2009 19:15" } } diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/methodProperties.json b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/methodProperties.json deleted file mode 100644 index 4546ab0d..00000000 --- a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "jok 3/22/2010 11:51", - "group" : "jok 1/26/2010 14:27", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/methodProperties.json b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/methodProperties.json deleted file mode 100644 index 318bf927..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "AvO 9/13/2013 14:04", - "group" : "AvO 9/13/2013 13:45", - "methodNames" : "AvO 9/13/2013 14:57", - "name" : "AvO 9/13/2013 14:03", - "rationale" : "AvO 9/13/2013 13:45" } } diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/methodProperties.json b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/methodProperties.json deleted file mode 100644 index d1dfc46c..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "pmm 2/12/2011 09:54", - "checkMethod:" : "pmm 2/12/2011 09:54", - "group" : "lr 11/8/2010 22:45", - "name" : "lr 11/8/2010 22:45", - "rationale" : "lr 11/8/2010 22:48" } } 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-Slime.package/GRNotPortableCollectionsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/methodProperties.json deleted file mode 100644 index c23930b3..00000000 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 3/24/2010 12:56", - "initialize" : "jok 3/24/2010 14:52", - "name" : "jok 3/24/2010 12:57", - "rationale" : "jok 3/24/2010 14:33" } } diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/methodProperties.json b/repository/Grease-Slime.package/GRObjectInRule.class/methodProperties.json deleted file mode 100644 index 30986091..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 1/26/2010 14:55", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 9/12/2009 11:09", - "rationale" : "lr 9/12/2009 11:09" } } diff --git a/repository/Grease-Slime.package/GRPackage.extension/methodProperties.json b/repository/Grease-Slime.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index b9b1e4e8..00000000 --- a/repository/Grease-Slime.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseSlime" : "lr 2/17/2010 15:22" }, - "instance" : { - } } diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/methodProperties.json b/repository/Grease-Slime.package/GRParensFormattingRule.class/methodProperties.json deleted file mode 100644 index 35e557b1..00000000 --- a/repository/Grease-Slime.package/GRParensFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 14:44", - "initialize" : "lr 7/25/2011 17:19", - "name" : "lr 7/25/2011 12:20", - "rationale" : "lr 7/25/2011 12:20" } } diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/methodProperties.json b/repository/Grease-Slime.package/GRReturnFormattingRule.class/methodProperties.json deleted file mode 100644 index b64c2c76..00000000 --- a/repository/Grease-Slime.package/GRReturnFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 14:44", - "initialize" : "lr 7/25/2011 17:19", - "name" : "lr 7/25/2011 12:04", - "rationale" : "lr 7/25/2011 12:10" } } diff --git a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/methodProperties.json b/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/methodProperties.json deleted file mode 100644 index 7bd0b7e1..00000000 --- a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isVisible" : "jok 1/26/2010 14:32" }, - "instance" : { - "category" : "JohanBrichau 6/8/2014 17:58" } } diff --git a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/methodProperties.json b/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/methodProperties.json deleted file mode 100644 index 7bd0b7e1..00000000 --- a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isVisible" : "jok 1/26/2010 14:32" }, - "instance" : { - "category" : "JohanBrichau 6/8/2014 17:58" } } diff --git a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/methodProperties.json b/repository/Grease-Slime.package/GRSlimeTransformationRule.class/methodProperties.json deleted file mode 100644 index 069617fd..00000000 --- a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "isVisible" : "jok 1/26/2010 14:36" }, - "instance" : { - } } diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/methodProperties.json b/repository/Grease-Slime.package/GRTempsFormattingRule.class/methodProperties.json deleted file mode 100644 index b843ff0d..00000000 --- a/repository/Grease-Slime.package/GRTempsFormattingRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "lr 7/25/2011 12:04", - "initialize" : "lr 7/25/2011 17:20", - "name" : "lr 7/25/2011 12:05", - "rationale" : "lr 7/25/2011 12:10" } } diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRTestAssertionsRule.class/methodProperties.json deleted file mode 100644 index 4b304be9..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "pmm 8/17/2014 12:27", - "group" : "pmm 8/17/2014 11:21", - "initialize" : "pmm 8/17/2014 11:21", - "name" : "pmm 8/17/2014 11:22", - "rationale" : "pmm 8/17/2014 11:55" } } diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/methodProperties.json deleted file mode 100644 index 15c3e6c1..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "pmm 9/14/2013 16:52", - "group" : "pmm 9/1/2012 12:28", - "name" : "pmm 9/1/2012 11:40", - "rationale" : "pmm 9/1/2012 12:03", - "resetResult" : "pmm 9/1/2012 11:39" } } diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/methodProperties.json deleted file mode 100644 index e6866927..00000000 --- a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "pmm 3/29/2012 19:54", - "initialize" : "lr 3/30/2012 09:14", - "name" : "pmm 3/29/2012 19:55", - "rationale" : "lr 3/30/2012 09:15" } } diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/methodProperties.json deleted file mode 100644 index 3fd33818..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "lr 10/14/2010 09:08", - "group" : "lr 10/14/2010 09:04", - "initialize" : "lr 10/14/2010 09:07", - "name" : "lr 10/14/2010 09:05", - "rationale" : "lr 10/14/2010 09:06" } } diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/methodProperties.json deleted file mode 100644 index 3dcc01bf..00000000 --- a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 1/26/2010 14:33", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/methodProperties.json deleted file mode 100644 index 98611301..00000000 --- a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "group" : "jok 1/26/2010 15:58", - "initialize" : "lr 1/25/2010 22:07", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/methodProperties.json deleted file mode 100644 index 3a6642c8..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkMethod:" : "pmm 9/2/2012 10:27", - "group" : "jok 1/26/2010 15:58", - "name" : "lr 2/27/2009 21:49", - "rationale" : "lr 2/27/2009 21:52", - "shouldExclude:" : "pmm 4/1/2013 13:45" } } diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/methodProperties.json b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/methodProperties.json deleted file mode 100644 index e5b38a64..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "checkClass:" : "lr 2/27/2009 22:14", - "checkMethod:" : "topa 3/25/2014 10:09", - "classNames" : "jf 12/18/2009 14:16", - "group" : "jok 1/26/2010 14:16", - "name" : "lr 2/24/2009 15:35", - "rationale" : "lr 2/24/2009 15:35" } } diff --git a/repository/Grease-Slime.package/monticello.meta/version b/repository/Grease-Slime.package/monticello.meta/version deleted file mode 100644 index fd7ec8c3..00000000 --- a/repository/Grease-Slime.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Slime-pmm.29' message '- lint fixes' id '0d72147b-a194-41f1-b949-5de649c2e63a' date '19 August 2014' time '9:38:45 am' author 'pmm' ancestors ((name 'Grease-Slime-pmm.28' message 'Issue 777: Make TestCase >> #fail SLime rule' id '1e31208a-5f9c-4bcc-917e-365b8971da02' date '17 August 2014' time '12:29:07 pm' author 'pmm' ancestors ((name 'Grease-Slime-JohanBrichau.27' message '- Slime rules were not appearing in a category in the Pharo3 critics browser - Bugfix empty statement detection rule (crashes in Pharo3)' id '3125304b-c2a6-41cd-9804-15d1fec84833' date '8 June 2014' time '6:01:12.137052 pm' author 'JohanBrichau' ancestors ((name 'Grease-Slime-topa.26' message 'Use (ironically )more portable variant to check for class references in a Method' id '13ddba5d-32b6-4745-8898-62e8584bf058' date '25 March 2014' time '10:28:36.219 am' author 'topa' ancestors ((name 'Grease-Slime-JohanBrichau.25' message 'Fixed failing test in Pharo3.0 by replacing senders of #isLiteral with #isLiteralNode (the former being deprecated since Pharo1.4)' id '7a5e0938-07f9-45f0-b061-2a1aafafaa58' date '18 January 2014' time '4:40:22.938705 pm' author 'JohanBrichau' ancestors ((name 'Grease-Slime-pmm.24' message '- Slime' id 'd28fa15e-5eac-4160-bb27-4dc655858db4' date '14 September 2013' time '4:53:18 pm' author 'pmm' ancestors ((name 'Grease-Slime-pmm.23' message '- Slime' id '97acedcb-aaff-4ec4-976c-cea3775aed5b' date '14 September 2013' time '4:50:45 pm' author 'pmm' ancestors ((name 'Grease-Slime-pmm.22' message '- merge commit' id 'c68be1a4-baa0-42f5-8b03-aa0006b7c506' date '14 September 2013' time '8:47:40 am' author 'pmm' ancestors ((name 'Grease-Slime-pmm.21' message 'Issue 741: #includesSubString: deprecated in Pharo 2.0 http://code.google.com/p/seaside/issues/detail?id=741' id 'f701a809-7c35-4544-ac47-ad2e388887a1' date '13 September 2013' time '9:53:50 am' author 'pmm' ancestors ((name 'Grease-Slime-pmm.20' message '- replaced senders of #includesSubString by #indexOfSubCollection:startingAt: - port from with 3.0' id '9d92108a-1c2b-4c19-9ba4-a61961261355' date '1 April 2013' time '1:48:39 pm' author 'pmm' ancestors ((name 'Grease-Slime-pmm.19' message '- allow -REST- packages to contain pragmas' id '4d8710a4-0855-442f-9a46-81934184c01e' date '3 September 2012' time '4:33:02 pm' author 'pmm' ancestors ((name 'Grease-Slime-pmm.18' message '- add rule to detect unnecessary last period' id 'eea1fba7-a231-4ad1-969b-bf92ffd73a3c' date '1 September 2012' time '12:29:57 pm' author 'pmm' ancestors ((name 'Grease-Slime-lr.17' message '- fix GRUsesCanPerformOrUnderstandRule' id '6c9cf6e5-02d6-4750-892a-d14483cfdb03' date '30 March 2012' time '9:16:52 am' author 'lr' ancestors ((name 'Grease-Slime-pmm.16' message '- add rule for #canPerform: or #canUnderstand:' id '70c4f15d-856c-4bf0-9dab-9e8dc8b57645' date '29 March 2012' time '8:00:32 pm' author 'pmm' ancestors ((name 'Grease-Slime-pmm.15' message '- classes in -Pharo- packages are allowed to use non-portable classes' id '21821e7f-c961-4eb0-8711-173137497e8c' date '22 January 2012' time '5:24:42 pm' author 'pmm' ancestors ((name 'Grease-Slime-lr.14' message '- removed unused extension' id '821507ca-30cc-48e7-903e-ea3f2b995793' date '8 September 2011' time '11:33:07 pm' author 'lr' ancestors ((name 'Grease-Slime-lr.13' message '- fixed grouping of deprecated api rule' id 'f3379224-3e52-486c-a0d2-38637dab4244' date '26 July 2011' time '10:22:15 am' author 'lr' ancestors ((name 'Grease-Slime-lr.12' message '- also detect issues in nested blocks' id 'e9c3473c-d638-4a83-9f18-7dcc2cab4935' date '25 July 2011' time '7:56:10 pm' author 'lr' ancestors ((name 'Grease-Slime-lr.11' message '- be more strict about block formatting' id '2650eac9-2d70-4070-b132-7298674c2025' date '25 July 2011' time '7:16:27 pm' author 'lr' ancestors ((name 'Grease-Slime-lr.10' message '- fixed a bug' id '99f423c9-5db6-46d3-a383-8a9d6ccd0c28' date '25 July 2011' time '6:14:40 pm' author 'lr' ancestors ((name 'Grease-Slime-lr.9' message '- added some tests for spacing (in parenthesis, return statements, blocks and temps)' id '0242fe95-c51f-47e0-8663-1616ee1920c6' date '25 July 2011' time '5:33:01 pm' author 'lr' ancestors ((name 'Grease-Slime-pmm.8' message '- check individual literals for WideStrings as well - check class comment for WideStrings as well' id 'c0dc2754-0c78-42a9-87df-7d149e9a2910' date '12 February 2011' time '10:09:06 am' author 'pmm' ancestors ((name 'Grease-Slime-lr.7' message '- added a rule to detect WideString source' id '10c04775-7a8b-4ca8-8d7a-e7bb090f399f' date '8 November 2010' time '10:54:27 pm' author 'lr' ancestors ((name 'Grease-Slime-lr.6' message '- added a rule decting the use of "self class hash", which does not work in GemStone - fixed findTokens: rule' id '362db39b-54d8-413a-9c70-5dee24407f4d' date '14 October 2010' time '9:44:52 am' author 'lr' ancestors ((name 'Grease-Slime-jok.5' message 'Use #reverse (ANSI) rather than #reversed' id 'ec9be1fc-6e29-a741-8666-9b052af49625' date '23 April 2010' time '8:45:21 am' author 'jok' ancestors ((name 'Grease-Slime-jok.4' message '- http://code.google.com/p/seaside/issues/detail?id=555 - add #beginsWithSubCollection: and #endsWithSubCollection:' id '9bf79761-74b7-5a40-8adc-21b7ab9aab00' date '25 March 2010' time '8:29:38 am' author 'jok' ancestors ((name 'Grease-Slime-lr.3' message '- added explicit repository url' id 'ebebbd56-1d42-4f52-87e0-db690abd61f5' date '17 February 2010' time '3:55:22 pm' author 'lr' ancestors ((name 'Grease-Slime-jok.2' message 'Fix a couple rules that still had a Seaside group' id '363a8283-e666-6344-90a9-9a82abad98f9' date '26 January 2010' time '4:01:30 pm' author 'jok' ancestors ((name 'Grease-Slime-jok.1' message 'Promote Grease-related portions of Slime' id 'ab805d1f-3934-f54d-af21-d64f60091319' date '26 January 2010' time '3:30:35 pm' author 'jok' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Slime-AvO.21' message 'Added GRNonPortableMessageRule with methods #( anyOne withIndexCollect: ). See issue http://code.google.com/p/seaside/issues/detail?id=769`.' id '950c6c66-30f7-5948-913b-5cef157d1f0f' date '13 September 2013' time '3:14:08 pm' author 'AvO' ancestors ((id '9d92108a-1c2b-4c19-9ba4-a61961261355')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Squeak-Core.package/.filetree b/repository/Grease-Squeak-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Squeak-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } 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/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/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/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/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/methodProperties.json b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/methodProperties.json deleted file mode 100644 index 34a4e0b6..00000000 --- a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - "initialize" : "JohnMcKeon 3/19/2015 22:16" }, - "instance" : { - "defaultDirectoryPathString" : "pmm 7/15/2015 15:07", - "deleteFile:inFolder:" : "JohnMcKeon 12/26/2014 19:35", - "directoriesIn:" : "JohnMcKeon 12/31/2014 09:23", - "doSilently:" : "JohnMcKeon 12/26/2014 19:36", - "ensureExistenceOfFolder:" : "JohnMcKeon 12/31/2014 09:32", - "fileExists:" : "JohnMcKeon 12/31/2014 09:35", - "fileNameFor:" : "pmm 7/15/2015 16:48", - "fileStreamOn:do:binary:" : "pmm 7/15/2015 14:47", - "filesIn:" : "JohnMcKeon 12/26/2014 19:35", - "isDirectory:" : "pmm 7/15/2015 15:21", - "localNameOf:" : "JohnMcKeon 12/27/2014 11:04", - "pathSeparator" : "JohnMcKeon 12/26/2014 19:35", - "write:toFile:inFolder:" : "JohnMcKeon 12/26/2014 19:36" } } 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/methodProperties.json b/repository/Grease-Squeak-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index d4e637d1..00000000 --- a/repository/Grease-Squeak-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "sizeInMemory" : "cmm 10/7/2015 10:22" } } 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/SmallInteger.extension/methodProperties.json b/repository/Grease-Squeak-Core.package/SmallInteger.extension/methodProperties.json deleted file mode 100644 index 2a06daf2..00000000 --- a/repository/Grease-Squeak-Core.package/SmallInteger.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "sizeInMemory" : "pmm 7/15/2015 16:31" } } 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-Squeak-Core.package/monticello.meta/version b/repository/Grease-Squeak-Core.package/monticello.meta/version deleted file mode 100644 index 592642f1..00000000 --- a/repository/Grease-Squeak-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Squeak-Core-JohanBrichau.6' message 'Object>>#sizeInMemory asks #isCompact to determine the number of bytes, but this has been removed from Squeak. Thanks Chris Muller' id '5899d218-fe39-41b2-880a-d052b41d0d63' date '24 October 2015' time '5:24:10.125 pm' author 'JB' ancestors ((name 'Grease-Squeak-Core-pmm.5' message '- add #sizeInMemory to Squeak' id '407fc250-3664-4ffb-ae92-17102efa6e47' date '15 July 2015' time '6:09:33.359 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-pmm.4' message '- add more missing methods' id '1e5dee9a-f686-43eb-91e2-5942fe6143d5' date '15 July 2015' time '3:34:35.74 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-pmm.3' message '- implement missing method' id '3683851e-6da7-4972-afa0-f4928390b3a9' date '15 July 2015' time '2:48:40.968 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.2' message '-add override of class initialize method' id '22c9a55a-0754-2a4c-8028-482fa4ffc669' date '19 March 2015' time '10:18:53.936 pm' author 'JohnMcKeon' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.1' message '-grease for squeak' id '76e50246-7376-7f43-9e50-daa9d7108db6' date '16 March 2015' time '9:14:49.119 pm' author 'JohnMcKeon' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Behavior.extension/methodProperties.json deleted file mode 100644 index fe28fb35..00000000 --- a/repository/Grease-Squeak5-Core.package/Behavior.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fullName" : "lr 7/25/2011 19:45" } } 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/fixCallbackTemps.st b/repository/Grease-Squeak5-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st deleted file mode 100644 index e22afa1b..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,2 +0,0 @@ -*grease-squeak5-core -fixCallbackTemps \ No newline at end of file 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index 641628e4..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fixCallbackTemps" : "lr 4/8/2009 13:33", - "valueWithPossibleArguments:" : "lr 4/8/2009 13:36" } } 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/fixCallbackTemps.st b/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 113990d1..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockContext.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,17 +0,0 @@ -*grease-squeak5-core -fixCallbackTemps - "Fix the values of the temporary variables used in the block that are - ordinarily shared with the method in which the block is defined. - - This is needed because Squeak is a crappy Smalltalk implementation - that does not have full blcck closures." - - | temps | - home := home copy. - home swapSender: nil. - home isMethodContext - ifFalse: [ ^ self ]. - temps := self tempVarRefs. - 1 to: home size do: [ :index | - (temps includes: index) - ifFalse: [ home tempAt: index put: nil ] ] \ No newline at end of file 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/BlockContext.extension/methodProperties.json deleted file mode 100644 index 73532ed7..00000000 --- a/repository/Grease-Squeak5-Core.package/BlockContext.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fixCallbackTemps" : "lr 10/28/2007 14:42", - "tempVarRefs" : "lr 8/25/2007 16:26", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:50" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index add0c68e..00000000 --- a/repository/Grease-Squeak5-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index accbae78..00000000 --- a/repository/Grease-Squeak5-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "jf 9/30/2009 01:04" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 3196464b..00000000 --- a/repository/Grease-Squeak5-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 00:41" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index 018f4c60..00000000 --- a/repository/Grease-Squeak5-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "milliseconds:" : "jf 2/6/2010 00:12" }, - "instance" : { - "asMilliseconds" : "jf 2/5/2010 23:58", - "milliseconds" : "jf 2/6/2010 00:02" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/methodProperties.json deleted file mode 100644 index 4dd2cf88..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:13" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/methodProperties.json deleted file mode 100644 index b877d8f1..00000000 --- a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "use:during:" : "MaxLeske 5/25/2017 15:27" }, - "instance" : { - } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 21efe367..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseSqueak5Core" : "TravisCI 8/23/2016 10:53" }, - "instance" : { - } } 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/README.md b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index f25fd5b5..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -streaming -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/methodProperties.json deleted file mode 100644 index 5fe65894..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "on:converter:" : "pmm 10/30/2010 18:58" }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:12", - "initializeOn:converter:" : "pmm 10/30/2010 18:58", - "next" : "pmm 4/10/2010 13:32", - "next:" : "lr 2/7/2009 12:57", - "nextPut:" : "pmm 4/10/2010 13:30", - "nextPutAll:" : "lr 2/7/2009 12:54" } } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 13abd07b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/14/2013 15:53", - "instvars" : [ - "converter" ], - "name" : "GRPharoConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index 1ed0b26a..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ TextConverter allEncodingNames - removeAllFoundIn: GRPharoLatin1Codec 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-Squeak5-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/methodProperties.json deleted file mode 100644 index 5a10058b..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "pmm 6/28/2009 15:43", - "codecs" : "pmm 8/19/2014 10:04", - "supportedEncodingNames" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 6/28/2009 16:43" }, - "instance" : { - "converter" : "lr 7/25/2011 19:51", - "decoderFor:" : "lr 2/7/2009 12:52", - "encoderFor:" : "jf 9/30/2009 00:46", - "initializeWithName:" : "pmm 8/16/2010 11:52", - "name" : "lr 2/7/2009 10:16", - "url" : "lr 2/7/2009 12:36" } } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index b24261dc..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRPharoGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/decode..st deleted file mode 100644 index 74b1f7bd..00000000 --- a/repository/Grease-Squeak5-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-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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/methodProperties.json deleted file mode 100644 index 92c046e8..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "pmm 8/16/2010 00:36", - "codecs" : "lr 7/25/2011 19:46", - "supportedEncodingNames" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "pmm 8/16/2010 00:36" }, - "instance" : { - "decode:" : "pmm 8/19/2014 10:00", - "decoderFor:" : "pmm 8/16/2010 00:32", - "encoderFor:" : "pmm 8/16/2010 00:32", - "initializeWithName:" : "pmm 9/1/2012 15:32", - "name" : "pmm 8/16/2010 00:32" } } 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/instance/next.st b/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next.st deleted file mode 100644 index 766a570d..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json deleted file mode 100644 index c3e59bc2..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "next" : "pmm 9/14/2013 09:50", - "next:" : "lr 7/25/2011 19:50" } } 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/bindingOf..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index 2c8a9b8d..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 7fde3ad8..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index e9f9d30b..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index bb22f36e..00000000 --- a/repository/Grease-Squeak5-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-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/label.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index f943c14d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/newline.st deleted file mode 100644 index f3752602..00000000 --- a/repository/Grease-Squeak5-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-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/removeSelector.from..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index f9541b7e..00000000 --- a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index b0c1e2b2..00000000 --- a/repository/Grease-Squeak5-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-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/useByteArrayLiterals.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index f65fb83a..00000000 --- a/repository/Grease-Squeak5-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-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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/methodProperties.json deleted file mode 100644 index c4a6cad2..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/methodProperties.json +++ /dev/null @@ -1,43 +0,0 @@ -{ - "class" : { - "initialize" : "pmm 5/20/2010 11:49", - "initializeUrlTable" : "pmm 5/20/2010 20:56", - "initializeXmlTable" : "pmm 5/20/2010 20:56", - "unload" : "jf 1/22/2009 02:45" }, - "instance" : { - "addToShutDownList:" : "jf 1/21/2009 17:31", - "addToStartUpList:" : "jf 1/21/2009 17:31", - "asMethodReturningByteArray:named:" : "lr 7/25/2011 19:51", - "asMethodReturningByteArrayLiteral:named:" : "lr 7/25/2011 19:51", - "asMethodReturningByteArrayWithCache:named:" : "pmm 2/20/2009 17:44", - "base64Decode:" : "jf 1/21/2009 17:31", - "bindingOf:" : "pmm 8/23/2014 11:42", - "compile:into:classified:" : "pmm 8/13/2010 11:52", - "contentsOfFile:binary:" : "lr 7/25/2011 19:51", - "deprecationExceptionSet" : "pmm 2/16/2014 23:12", - "directoriesIn:" : "NickAger 3/9/2012 11:33", - "doSilently:" : "JohanBrichau 9/10/2013 11:39", - "ensureExistenceOfFolder:" : "jf 1/21/2009 17:31", - "fileExists:" : "pmm 7/16/2015 16:36", - "fileStreamOn:do:binary:" : "pmm 7/16/2015 16:39", - "filesIn:" : "lr 7/25/2011 19:51", - "isProcessTerminated:" : "jf 2/6/2009 15:58", - "label" : "jf 2/9/2010 00:56", - "localNameOf:" : "lr 7/25/2011 19:51", - "newRandom" : "pmm 10/7/2010 13:10", - "newline" : "pmm 9/14/2013 09:56", - "openDebuggerOn:" : "pmm 1/22/2012 16:31", - "pathSeparator" : "pmm 2/5/2011 09:52", - "readWriteByteStream" : "lr 11/20/2011 17:16", - "readWriteCharacterStream" : "dkh 9/4/2009 09:14", - "removeFromShutDownList:" : "jf 1/21/2009 17:31", - "removeFromStartUpList:" : "jf 1/21/2009 17:31", - "removeSelector:from:" : "jf 1/21/2009 17:31", - "secureHashFor:" : "jf 1/21/2009 17:31", - "semaphoreClass" : "lr 7/25/2011 19:51", - "stackDepth" : "jf 1/21/2009 17:31", - "terminateProcess:" : "jf 2/6/2009 15:59", - "useByteArrayLiterals" : "pmm 2/11/2011 07:27", - "weakDictionaryOfSize:" : "lr 7/25/2011 19:51", - "write:toFile:inFolder:" : "pmm 8/19/2014 10:11", - "writeCharacterStreamOn:" : "pmm 8/26/2011 09:45" } } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index 7320ab9a..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - "UrlTable", - "XmlTable" ], - "commentStamp" : "pmm 2/1/2014 13:28", - "instvars" : [ - ], - "name" : "GRPharoPlatform", - "pools" : [ - ], - "super" : "GRPlatform", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st deleted file mode 100644 index 04ca54c3..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -private -initialize - Smalltalk addToStartUpList: self. - self startUp \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st deleted file mode 100644 index 85a2db91..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomClass - ^ Random \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st deleted file mode 100644 index a5fe470c..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -public -randomFrom: aCollection - | random count | - random := self nextInt: aCollection size. - ^ aCollection isSequenceable - ifTrue: [ aCollection at: random ] - ifFalse: [ - count := 1. - aCollection do: [ :ea | - count = random ifTrue: [ ^ ea ]. - count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index a33a6ac9..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st deleted file mode 100644 index fd4cb930..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -private -unload - GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/methodProperties.json deleted file mode 100644 index cedc66aa..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "initialize" : "jgf 1/25/2009 12:05", - "nextInt:" : "lr 7/25/2011 19:46", - "randomClass" : "lr 7/25/2011 19:46", - "randomFrom:" : "lr 7/25/2011 18:28", - "startUp" : "pmm 1/10/2009 16:01", - "unload" : "jf 9/30/2009 00:19" }, - "instance" : { - } } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 513b71fb..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - "mutex", - "generator" ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoRandomProvider", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/class/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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/methodProperties.json deleted file mode 100644 index cf1f05f1..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - "basicForEncoding:" : "lr 7/25/2011 19:46", - "codecs" : "lr 7/25/2011 19:46", - "supportsEncoding:" : "lr 7/25/2011 19:46" }, - "instance" : { - "decode:" : "pmm 2/17/2012 19:45", - "decoderFor:" : "jf 9/30/2009 00:46", - "encoderFor:" : "jf 9/30/2009 00:46", - "invalidUtf8" : "pmm 9/14/2013 09:37", - "name" : "pmm 2/20/2009 13:25", - "url" : "pmm 2/20/2009 12:50" } } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 68130682..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRPharoUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint shouldEncode | - codePoint := aCharacter codePoint. - codePoint > 255 - ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] - \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json deleted file mode 100644 index d5942a3a..00000000 --- a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - "initialize" : "lr 7/25/2011 19:46" }, - "instance" : { - "crlf" : "pmm 4/10/2010 13:28", - "encodeDefault:" : "lr 7/25/2011 18:36", - "encodeFast:" : "pmm 9/1/2012 15:25", - "greaseNext:putAll:startingAt:" : "pmm 5/21/2014 21:33", - "greaseNext:putAllFast:startingAt:" : "pmm 5/21/2014 21:19", - "invalidUtf8" : "jf 9/30/2009 00:39", - "next" : "pmm 2/17/2010 20:09", - "next:" : "pmm 9/1/2012 15:25", - "nextPut:" : "lr 7/25/2011 19:51", - "nextPutAll:" : "pmm 4/10/2010 13:28" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/methodProperties.json deleted file mode 100644 index 9dbcc9c5..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "customizeExplorerContents" : "lr 7/25/2011 19:51", - "explorerContents" : "lr 7/25/2011 19:51", - "hasContentsInExplorer" : "lr 7/25/2011 19:51" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/methodProperties.json deleted file mode 100644 index 34a4e0b6..00000000 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "class" : { - "initialize" : "JohnMcKeon 3/19/2015 22:16" }, - "instance" : { - "defaultDirectoryPathString" : "pmm 7/15/2015 15:07", - "deleteFile:inFolder:" : "JohnMcKeon 12/26/2014 19:35", - "directoriesIn:" : "JohnMcKeon 12/31/2014 09:23", - "doSilently:" : "JohnMcKeon 12/26/2014 19:36", - "ensureExistenceOfFolder:" : "JohnMcKeon 12/31/2014 09:32", - "fileExists:" : "JohnMcKeon 12/31/2014 09:35", - "fileNameFor:" : "pmm 7/15/2015 16:48", - "fileStreamOn:do:binary:" : "pmm 7/15/2015 14:47", - "filesIn:" : "JohnMcKeon 12/26/2014 19:35", - "isDirectory:" : "pmm 7/15/2015 15:21", - "localNameOf:" : "JohnMcKeon 12/27/2014 11:04", - "pathSeparator" : "JohnMcKeon 12/26/2014 19:35", - "write:toFile:inFolder:" : "JohnMcKeon 12/26/2014 19:36" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/methodProperties.json deleted file mode 100644 index e8d4055e..00000000 --- a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "reset" : "pmm 8/26/2011 09:39" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index 1dedf542..00000000 --- a/repository/Grease-Squeak5-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "jf 2/6/2010 03:25" } } 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/fixCallbackTemps.st b/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/fixCallbackTemps.st deleted file mode 100644 index 575f0180..00000000 --- a/repository/Grease-Squeak5-Core.package/MessageSend.extension/instance/fixCallbackTemps.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak5-core -fixCallbackTemps - "for polymorphism with BlockContext >> #fixCallbackTemps" \ 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index 78bb2233..00000000 --- a/repository/Grease-Squeak5-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "pmm 1/10/2009 19:22", - "fixCallbackTemps" : "pmm 4/23/2007 20:02", - "valueWithPossibleArguments:" : "lr 7/25/2011 19:52" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index 977cd782..00000000 --- a/repository/Grease-Squeak5-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "milliseconds" : "jf 2/6/2010 00:12" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index c0906e2e..00000000 --- a/repository/Grease-Squeak5-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "jf 9/30/2009 01:10", - "sizeInMemory" : "cmm 10/7/2015 10:22" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/Point.extension/methodProperties.json deleted file mode 100644 index 353fca89..00000000 --- a/repository/Grease-Squeak5-Core.package/Point.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "pmm 3/4/2012 20:24" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index cfb79423..00000000 --- a/repository/Grease-Squeak5-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseUpToAll:" : "jf 9/30/2009 01:06" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/methodProperties.json deleted file mode 100644 index 90d07924..00000000 --- a/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "encodeOn:" : "TravisCI 8/27/2016 15:16", - "greaseString" : "JohanBrichau 7/15/2015 13:26" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index c683223d..00000000 --- a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beginsWithSubCollection:" : "jok 3/22/2010 11:48", - "endsWithSubCollection:" : "jok 3/22/2010 11:47", - "sorted" : "jf 2/6/2010 02:01" } } 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/SmallInteger.extension/methodProperties.json b/repository/Grease-Squeak5-Core.package/SmallInteger.extension/methodProperties.json deleted file mode 100644 index 2a06daf2..00000000 --- a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "sizeInMemory" : "pmm 7/15/2015 16:31" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/SocketStream.extension/methodProperties.json deleted file mode 100644 index 8f430aea..00000000 --- a/repository/Grease-Squeak5-Core.package/SocketStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "pmm 5/23/2010 08:17" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/String.extension/methodProperties.json deleted file mode 100644 index 6be2c59e..00000000 --- a/repository/Grease-Squeak5-Core.package/String.extension/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "substrings:" : "JB 5/25/2017 13:53", - "trimBoth" : "lr 10/25/2009 11:13", - "trimBoth:" : "lr 10/25/2009 11:11", - "trimLeft" : "lr 10/25/2009 11:14", - "trimLeft:" : "lr 10/25/2009 11:11", - "trimLeft:right:" : "lr 10/25/2009 11:15", - "trimRight" : "lr 10/25/2009 11:14", - "trimRight:" : "lr 10/25/2009 11:11" } } 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/methodProperties.json b/repository/Grease-Squeak5-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index e8241b94..00000000 --- a/repository/Grease-Squeak5-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "jf 5/22/2010 20:26" } } 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/monticello.meta/version b/repository/Grease-Squeak5-Core.package/monticello.meta/version deleted file mode 100644 index 1e80f973..00000000 --- a/repository/Grease-Squeak5-Core.package/monticello.meta/version +++ /dev/null @@ -1,4 +0,0 @@ -(name 'Grease-Squeak5-Core-JB.12' message 'merged by GitFileTree-MergeDriver' id '03f0d322-a928-4979-8f10-4df0e0b9642e' date '25 May 2017' time '3:36:05.857645 pm' author 'JB' ancestors ((name 'Grease-Squeak5-Core-JB.11' message 'Added String>>substrings: method' id '1a829fc4-8f63-4ff5-a23f-33fbbea10ed2' date '25 May 2017' time '1:54:48.525961 pm' author 'JB' ancestors ((name 'Grease-Squeak5-Core-TravisCI.10' message 'fix Squeak 5 tests' id '12f060db-b04d-420d-bb5d-a7d6e547680d' date '27 August 2016' time '3:19:34.029733 pm' author 'TravisCI' ancestors ((name 'Grease-Squeak5-Core-TravisCI.9' message 'extension methods to make tests work' id 'ec38e1f9-bef2-4390-a8df-d7792084be52' date '23 August 2016' time '11:03:45.642 am' author 'TravisCI' ancestors ((name 'Grease-Squeak5-Core-JB.8' message 'New package from Squeak5 onwards' id 'e3b34f8f-b14d-4fb1-95b8-86670bb48ed6' date '11 November 2015' time '1:12:31.115 pm' author 'JB' ancestors ((name 'Grease-Squeak-Core-JB.7' message 'Moved methods from Pharo-Core to Squeak-Core' id 'd870beb8-0de8-4e72-a73b-5f7e569fd859' date '11 November 2015' time '1:07:25.226 pm' author 'JB' ancestors ((name 'Grease-Squeak-Core-JohanBrichau.6' message 'Object>>#sizeInMemory asks #isCompact to determine the number of -bytes, but this has been removed from Squeak. - -Thanks Chris Muller' id '5899d218-fe39-41b2-880a-d052b41d0d63' date '24 October 2015' time '5:24:10.125 pm' author 'JB' ancestors ((name 'Grease-Squeak-Core-pmm.5' message '- add #sizeInMemory to Squeak' id '407fc250-3664-4ffb-ae92-17102efa6e47' date '15 July 2015' time '6:09:33.359 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-pmm.4' message '- add more missing methods' id '1e5dee9a-f686-43eb-91e2-5942fe6143d5' date '15 July 2015' time '3:34:35.74 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-pmm.3' message '- implement missing method' id '3683851e-6da7-4972-afa0-f4928390b3a9' date '15 July 2015' time '2:48:40.968 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.2' message '-add override of class initialize method' id '22c9a55a-0754-2a4c-8028-482fa4ffc669' date '19 March 2015' time '10:18:53.936 pm' author 'JohnMcKeon' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.1' message '-grease for squeak' id '76e50246-7376-7f43-9e50-daa9d7108db6' date '16 March 2015' time '9:14:49.119 pm' author 'JohnMcKeon' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Squeak5-Core-MaxLeske.10' message '* added GRDynamicVariable' id '32ec7b60-10cb-40f8-938d-792e9f0a94be' date '25 May 2017' time '3:32:18.967355 pm' author 'MaxLeske' ancestors ((id 'ec38e1f9-bef2-4390-a8df-d7792084be52')) stepChildren ())) stepChildren ()) \ 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-Pharo11-Core.package/.filetree b/repository/Grease-Squeak6-Core.package/.filetree similarity index 100% rename from repository/Grease-Pharo11-Core.package/.filetree rename to repository/Grease-Squeak6-Core.package/.filetree diff --git a/repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st new file mode 100644 index 00000000..6e09f0a2 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st @@ -0,0 +1,5 @@ +*grease-squeak6-core +fullName + "In VW, will include the namespace" + + ^ self name \ No newline at end of file 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-Pharo-Core.package/Behavior.extension/properties.json b/repository/Grease-Squeak6-Core.package/Behavior.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Behavior.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Behavior.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..eec59324 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,4 @@ +*grease-squeak6-core +valueWithPossibleArguments: anArray + + ^ self valueWithEnoughArguments: anArray \ No newline at end of file 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-Pharo-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/BlockClosure.extension/properties.json rename to repository/Grease-Squeak6-Core.package/BlockClosure.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st new file mode 100644 index 00000000..c8affabf --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st @@ -0,0 +1,4 @@ +*grease-squeak6-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-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-Pharo-Core.package/ByteArray.extension/properties.json b/repository/Grease-Squeak6-Core.package/ByteArray.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/ByteArray.extension/properties.json rename to repository/Grease-Squeak6-Core.package/ByteArray.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st new file mode 100644 index 00000000..136d5d0e --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st @@ -0,0 +1,4 @@ +*grease-squeak6-core +greaseInteger + "Answer an unicode code point of the receiver." + ^ self asUnicode \ No newline at end of file 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-Pharo-Core.package/Character.extension/properties.json b/repository/Grease-Squeak6-Core.package/Character.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Character.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Character.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st b/repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st new file mode 100644 index 00000000..f0ab3697 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +any + ^ self anyOne \ No newline at end of file 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-Pharo-Core.package/Collection.extension/properties.json b/repository/Grease-Squeak6-Core.package/Collection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Collection.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Collection.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st new file mode 100644 index 00000000..60a65d0c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st @@ -0,0 +1,3 @@ +*grease-squeak6-core +milliseconds: anInteger + ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st new file mode 100644 index 00000000..14976605 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +asMilliseconds + ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st new file mode 100644 index 00000000..2952d5dc --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +milliseconds + ^ nanos quo: NanosInMillisecond \ No newline at end of file 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-Pharo-Core.package/Duration.extension/properties.json b/repository/Grease-Squeak6-Core.package/Duration.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Duration.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Duration.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..946a8627 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +*grease-squeak6-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-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-Pharo-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/GRDelegatingStream.extension/properties.json rename to repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st new file mode 100644 index 00000000..28508572 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st @@ -0,0 +1,3 @@ +accessing +default + ^ self defaultValue \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..b0275614 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st @@ -0,0 +1,3 @@ +accessing +defaultValue + ^ nil \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st new file mode 100644 index 00000000..1e03f82f --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st @@ -0,0 +1,5 @@ +accessing +use: anObject during: aBlock + ^ self + value: anObject + during: aBlock \ No newline at end of file diff --git a/repository/Grease-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/GRDynamicVariable.class/properties.json b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/properties.json new file mode 100644 index 00000000..f57ef2b1 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GRDynamicVariable", + "pools" : [ + ], + "super" : "DynamicVariable", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st b/repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st new file mode 100644 index 00000000..8882e111 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st @@ -0,0 +1,7 @@ +*grease-squeak6-core +greaseSqueak6Core + ^ self new + name: 'Grease-Squeak6-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file 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-Pharo-Core.package/GRPackage.extension/properties.json b/repository/Grease-Squeak6-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPackage.extension/properties.json rename to repository/Grease-Squeak6-Core.package/GRPackage.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md new file mode 100644 index 00000000..581959b9 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md @@ -0,0 +1 @@ +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-Core.package/GRCodecStream.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json similarity index 100% rename from repository/Grease-Core.package/GRCodecStream.class/methodProperties.json rename to repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json new file mode 100644 index 00000000..aaface47 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "pmm 7/15/2024 15:09", + "instvars" : [ + ], + "name" : "GRPharoPlatform", + "pools" : [ + ], + "super" : "GRPlatform", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st new file mode 100644 index 00000000..04a4d9d4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +customizeExplorerContents + ^ true \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st new file mode 100644 index 00000000..f102460b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st @@ -0,0 +1,9 @@ +*grease-squeak6-core +explorerContents + | contents | + contents := self keys sort: [ :a :b | a compareSafely: b ]. + ^contents replace: [ :key | + ObjectExplorerWrapper + with: (self at: key) + name: (key printString contractTo: 32) + model: self ]. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st new file mode 100644 index 00000000..e86f480c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +hasContentsInExplorer + ^ true \ No newline at end of file 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-Pharo-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/GRSmallDictionary.extension/properties.json rename to repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/properties.json diff --git a/repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoConverterCodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st rename to repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json new file mode 100644 index 00000000..2dde7c8d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "pmm 9/14/2013 15:53", + "instvars" : [ + "converter" ], + "name" : "GRSqueakConverterCodecStream", + "pools" : [ + ], + "super" : "GRCodecStream", + "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo20-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-Pharo20-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/converter.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st new file mode 100644 index 00000000..66a348a4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRSqueakConverterCodecStream + on: aStream + converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/instance/url.st rename to repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json new file mode 100644 index 00000000..970bce64 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "name", + "urlCodec" ], + "name" : "GRSqueakGenericCodec", + "pools" : [ + ], + "super" : "GRCodec", + "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/codecs.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st diff --git a/repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo-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-Pharo-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-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json new file mode 100644 index 00000000..3468df5f --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "name" ], + "name" : "GRSqueakLatin1Codec", + "pools" : [ + ], + "super" : "GRNullCodec", + "type" : "normal" } diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/instance/next..st rename to repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st diff --git a/repository/Grease-Pharo-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-Pharo-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 new file mode 100644 index 00000000..fb7f3baf --- /dev/null +++ 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-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoPlatform.class/class/unload.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/bindingOf..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo-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-Pharo-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-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.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-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/doSilently..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st new file mode 100644 index 00000000..e667077f --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st @@ -0,0 +1,3 @@ +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-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st diff --git a/repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st similarity index 100% rename from repository/Grease-Pharo20-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/filesIn..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/filesIn..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/filesIn..st 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-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isDirectory..st similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isDirectory..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st new file mode 100644 index 00000000..3ab4dd4d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st @@ -0,0 +1,3 @@ +version info +label + ^ 'Squeak' \ No newline at end of file diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st similarity index 100% rename from repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/localNameOf..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st new file mode 100644 index 00000000..c77d4481 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st @@ -0,0 +1,10 @@ +factory +newRandom + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ ThreadSafeRandom value \ No newline at end of file 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-Pharo-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-Pharo-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 new file mode 100644 index 00000000..00c6db56 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st @@ -0,0 +1,3 @@ +files +pathSeparator + ^ 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-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st diff --git a/repository/Grease-Pharo-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-Pharo-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-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/secureHashFor..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st new file mode 100644 index 00000000..2beda3e4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aString + + ^ aString asDirectoryEntry fileSize \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st new file mode 100644 index 00000000..6131cf3d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st @@ -0,0 +1,5 @@ +meta-object-protocol +sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st new file mode 100644 index 00000000..7b994393 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st @@ -0,0 +1,10 @@ +exceptions +stackDepth + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/terminateProcess..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st new file mode 100644 index 00000000..97018fc5 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st @@ -0,0 +1,4 @@ +processes +thisContext + + ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo-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-Pharo-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st similarity index 100% rename from repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st similarity index 100% rename from repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st rename to repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..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 new file mode 100644 index 00000000..5caa470c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Grease-Squeak6-Core", + "classinstvars" : [ + ], + "classvars" : [ + "UrlTable", + "XmlTable" ], + "commentStamp" : "pmm 7/15/2024 15:10", + "instvars" : [ + ], + "name" : "GRSqueakPlatform", + "pools" : [ + ], + "super" : "GRPharoPlatform", + "type" : "normal" } diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8Codec.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8Codec.class/class/codecs.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st diff --git a/repository/Grease-Pharo20-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-Pharo20-Core.package/GRPharoUtf8Codec.class/instance/decode..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..55d20732 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,5 @@ +conversion +decoderFor: aStream + ^ GRSqueakUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..a8883243 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRSqueakUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st diff --git a/repository/Grease-Squeak5-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-Squeak5-Core.package/GRPharoUtf8Codec.class/instance/name.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st diff --git a/repository/Grease-Squeak5-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-Squeak5-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md similarity index 100% rename from repository/Grease-Pharo30-Core.package/GRPharoUtf8CodecStream.class/README.md rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st diff --git a/repository/Grease-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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-Pharo30-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/GRPharoUtf8Codec.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/GRPharoUtf8Codec.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-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/next.st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st diff --git a/repository/Grease-Pharo30-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-Pharo30-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st rename to repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st diff --git a/repository/Grease-Pharo30-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-Pharo30-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/Interval.extension/instance/any.st b/repository/Grease-Squeak6-Core.package/Interval.extension/instance/any.st new file mode 100644 index 00000000..ffdfc68c --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Interval.extension/instance/any.st @@ -0,0 +1,6 @@ +*grease-squeak6-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-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-Pharo-Core.package/Interval.extension/properties.json b/repository/Grease-Squeak6-Core.package/Interval.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Interval.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Interval.extension/properties.json 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/instance/argumentCount.st b/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/argumentCount.st new file mode 100644 index 00000000..3bcbd612 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/argumentCount.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +argumentCount + ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st new file mode 100644 index 00000000..8b5e0ed3 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st @@ -0,0 +1,7 @@ +*grease-squeak6-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-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-Pharo-Core.package/MessageSend.extension/properties.json b/repository/Grease-Squeak6-Core.package/MessageSend.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/MessageSend.extension/properties.json rename to repository/Grease-Squeak6-Core.package/MessageSend.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st new file mode 100644 index 00000000..71f332b4 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +milliseconds + ^ self milliSeconds \ No newline at end of file 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-Pharo-Core.package/Number.extension/properties.json b/repository/Grease-Squeak6-Core.package/Number.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Number.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Number.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st new file mode 100644 index 00000000..b6ad60ee --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st @@ -0,0 +1,3 @@ +*grease-squeak6-core +greaseString + ^ self asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st b/repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st new file mode 100644 index 00000000..a4993b8b --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st @@ -0,0 +1,9 @@ +*grease-squeak6-core +sizeInMemory + "Answer the number of bytes consumed by this instance including object header." + + ^ [ self class isVariable + ifTrue: [ self class byteSizeOfInstanceOfSize: self basicSize] + ifFalse: [ self class byteSizeOfInstance] + "Some classes count them no size (SmallInteger, Character..), so this fails" + ] on: Error do: [0]. \ No newline at end of file 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-Pharo-Core.package/Object.extension/properties.json b/repository/Grease-Squeak6-Core.package/Object.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/Object.extension/properties.json rename to repository/Grease-Squeak6-Core.package/Object.extension/properties.json 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/instance/greaseUpToAll..st b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/instance/greaseUpToAll..st new file mode 100644 index 00000000..8a9bc547 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/instance/greaseUpToAll..st @@ -0,0 +1,5 @@ +*grease-squeak6-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-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-Pharo-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/PositionableStream.extension/properties.json rename to repository/Grease-Squeak6-Core.package/PositionableStream.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st b/repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st new file mode 100644 index 00000000..50da867d --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st @@ -0,0 +1,4 @@ +*grease-squeak6-core +randomFrom: aCollection + + ^ aCollection atRandom: self \ No newline at end of file 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/Random.extension/properties.json b/repository/Grease-Squeak6-Core.package/Random.extension/properties.json new file mode 100644 index 00000000..1c67d9ee --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/Random.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Random" } diff --git a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st new file mode 100644 index 00000000..add369dc --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st @@ -0,0 +1,6 @@ +*grease-squeak6-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-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st new file mode 100644 index 00000000..06c66fa2 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st @@ -0,0 +1,5 @@ +*grease-squeak6-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-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-Pharo-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/ScaledDecimal.extension/properties.json rename to repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st new file mode 100644 index 00000000..be930027 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st @@ -0,0 +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 new file mode 100644 index 00000000..7eb90e86 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st @@ -0,0 +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-Pharo-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/SequenceableCollection.extension/properties.json rename to repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/properties.json 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/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..179c35ab --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,10 @@ +*grease-squeak6-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." + + anInteger > 0 ifFalse: [ ^ aCollection ]. + ^self + next: anInteger + putAll: (self isBinary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]) + startingAt: startIndex. 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-Pharo-Core.package/SocketStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/SocketStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/SocketStream.extension/properties.json rename to repository/Grease-Squeak6-Core.package/SocketStream.extension/properties.json 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/instance/trimBoth..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth..st new file mode 100644 index 00000000..de95b969 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth..st @@ -0,0 +1,5 @@ +*grease-squeak6-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-Squeak6-Core.package/String.extension/instance/trimBoth.st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth.st new file mode 100644 index 00000000..6bef8a94 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth.st @@ -0,0 +1,5 @@ +*grease-squeak6-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-Squeak6-Core.package/String.extension/instance/trimLeft..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft..st new file mode 100644 index 00000000..245e4455 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft..st @@ -0,0 +1,5 @@ +*grease-squeak6-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-Squeak6-Core.package/String.extension/instance/trimLeft.right..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.right..st new file mode 100644 index 00000000..d83b385a --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.right..st @@ -0,0 +1,12 @@ +*grease-squeak6-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-Squeak6-Core.package/String.extension/instance/trimLeft.st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.st new file mode 100644 index 00000000..9ef08a98 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.st @@ -0,0 +1,5 @@ +*grease-squeak6-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-Squeak6-Core.package/String.extension/instance/trimRight..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight..st new file mode 100644 index 00000000..4f782511 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight..st @@ -0,0 +1,5 @@ +*grease-squeak6-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-Squeak6-Core.package/String.extension/instance/trimRight.st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight.st new file mode 100644 index 00000000..45eeb0d2 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight.st @@ -0,0 +1,5 @@ +*grease-squeak6-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-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-Pharo-Core.package/String.extension/properties.json b/repository/Grease-Squeak6-Core.package/String.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/String.extension/properties.json rename to repository/Grease-Squeak6-Core.package/String.extension/properties.json 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/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..61b9e3e6 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,4 @@ +*grease-squeak6-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-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-Pharo-Core.package/WriteStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/WriteStream.extension/properties.json similarity index 100% rename from repository/Grease-Pharo-Core.package/WriteStream.extension/properties.json rename to repository/Grease-Squeak6-Core.package/WriteStream.extension/properties.json diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/categories.st b/repository/Grease-Squeak6-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..89aae6c1 --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Squeak6-Core'! diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/initializers.st b/repository/Grease-Squeak6-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/package b/repository/Grease-Squeak6-Core.package/monticello.meta/package new file mode 100644 index 00000000..a8f1b73e --- /dev/null +++ b/repository/Grease-Squeak6-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Squeak6-Core') \ No newline at end of file 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-Pharo11-Core.package/properties.json b/repository/Grease-Squeak6-Core.package/properties.json similarity index 100% rename from repository/Grease-Pharo11-Core.package/properties.json rename to repository/Grease-Squeak6-Core.package/properties.json diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/methodProperties.json deleted file mode 100644 index 635226d6..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "instance" : { - "arbitraryAssociations" : "jf 2/15/2010 22:42", - "isInitializable" : "jf 2/9/2010 11:29", - "valuesOf:" : "jf 2/6/2010 01:58", - "allowsDuplicateValues" : "jf 2/6/2010 04:22", - "testAssociationsDo" : "lr 7/25/2011 18:34", - "createArbitraryAssociations" : "jf 2/15/2010 22:41", - "arbitraryCollection" : "jf 2/15/2010 22:08", - "isKey:equivalentTo:" : "jf 2/15/2010 22:05", - "isExtensible" : "jf 2/6/2010 03:35" - }, - "class" : { - "isAbstract" : "jf 2/15/2010 22:01" - } -} \ 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/GRAbstractSequenceableCollectionTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/methodProperties.json deleted file mode 100644 index 2236e28b..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/methodProperties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "instance" : { - "testCopyAfter" : "lr 7/25/2011 18:28", - "testBeginsWithEmptySubCollection" : "pmm 9/1/2012 15:21", - "testCopyUpTo" : "pmm 1/22/2012 16:30", - "isSequenced" : "jok 3/29/2010 12:54", - "testCopyAfterLast" : "lr 7/25/2011 18:28", - "isUnique" : "jok 3/29/2010 13:02", - "testAddFirst" : "pmm 9/1/2012 15:24", - "testEndsWithEmptySubCollection" : "pmm 9/1/2012 15:20", - "testSort" : "pmm 9/1/2012 15:20", - "testEndsWithSubCollection" : "pmm 9/1/2012 15:20", - "isHomogeneous" : "jok 3/29/2010 13:20", - "testCopyUpToLast" : "lr 7/25/2011 18:34", - "testBeginsWithSubCollection" : "pmm 9/1/2012 15:20" - }, - "class" : { - "isAbstract" : "jok 3/26/2010 17:21" - } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRArrayTest.class/methodProperties.json deleted file mode 100644 index 414218a8..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "instance" : { - "isInitializable" : "jf 2/9/2010 11:28", - "collectionClass" : "jf 2/6/2010 01:51", - "isSequenced" : "jf 2/6/2010 04:03", - "isHomogeneous" : "jok 3/29/2010 13:22", - "allowsDuplicateValues" : "jf 2/6/2010 04:22", - "isUnique" : "jok 3/29/2010 13:02", - "isExtensible" : "jf 2/6/2010 03:34" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRBagTest.class/methodProperties.json deleted file mode 100644 index 58fa5472..00000000 --- a/repository/Grease-Tests-Core.package/GRBagTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "instance" : { - "isExtensible" : "jf 2/6/2010 03:34", - "isInitializable" : "jf 2/9/2010 11:28", - "collectionClass" : "jf 2/6/2010 01:51", - "allowsDuplicateValues" : "jf 2/6/2010 04:22" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRCodecTest.class/methodProperties.json deleted file mode 100644 index b7b87a50..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/methodProperties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "instance" : { - "testNext" : "pmm 2/17/2010 20:06", - "testAllCodecs" : "pmm 11/17/2010 21:41", - "utf16beString" : "dkh 11/13/2009 15:24", - "utf8String" : "dkh 11/13/2009 15:24", - "latin1String" : "dkh 11/13/2009 15:24", - "macromanString" : "dkh 11/13/2009 15:24", - "testNullCodec" : "pmm 9/1/2012 15:19", - "testCodecLatin1" : "pmm 5/27/2010 22:55", - "asString:" : "lr 7/25/2011 19:50", - "seasideByteArray" : "pmm 2/17/2010 20:01", - "testCodecLatin1BorderLineString" : "pmm 11/17/2010 22:09", - "testReset" : "pmm 8/26/2011 09:38", - "decodedString" : "lr 7/25/2011 19:50", - "utf16leString" : "dkh 11/13/2009 15:24" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st new file mode 100644 index 00000000..98b858fd --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st @@ -0,0 +1,5 @@ +asserting +assert: responseCollection validSequencedResponseFrom: receiverCollection + "Assert that the returned object is of a valid response class for the tested collection." + + self assert: (self isValidNewSequencedResponseClass: responseCollection class) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRCollectionTest.class/methodProperties.json deleted file mode 100644 index 8b1760c1..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/methodProperties.json +++ /dev/null @@ -1,26 +0,0 @@ -{ - "instance" : { - "arbitraryCollection" : "jok 3/25/2010 15:21", - "isValidNewSequencedResponseClass:" : "jok 3/29/2010 12:24", - "testEmptyAny" : "jf 2/6/2010 02:05", - "includedElement" : "jf 2/9/2010 12:01", - "testNoneSatisfy" : "lr 7/25/2011 18:34", - "testSorted" : "pmm 9/1/2012 15:20", - "collectionClass" : "jf 2/9/2010 11:59", - "duplicateElement" : "jok 3/25/2010 11:59", - "isExtensible" : "jf 2/9/2010 11:10", - "allowsDuplicateValues" : "jf 2/9/2010 11:58", - "testAny" : "jf 2/6/2010 01:54", - "assert:sortedWith:" : "jf 2/9/2010 11:57", - "testNotEmpty" : "jf 2/6/2010 02:08", - "isInitializable" : "jf 2/9/2010 11:28", - "emptyCollection" : "jf 2/9/2010 12:00", - "testIsCollection" : "jf 2/15/2010 23:05", - "assert:validSequencedNewResponseFrom:" : "jf 2/9/2010 11:56", - "valuesOf:" : "jf 2/9/2010 12:02", - "excludedElement" : "jf 2/9/2010 12:01" - }, - "class" : { - "isAbstract" : "jf 2/6/2010 01:52" - } -} \ 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/GRCountingStreamTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/methodProperties.json deleted file mode 100644 index c3b7b639..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "instance" : { - "setUp" : "pmm 7/16/2015 16:32", - "testInitialSize" : "pmm 6/25/2012 20:51", - "testReset" : "pmm 6/25/2012 20:51", - "testNextPut" : "pmm 8/19/2014 09:29", - "testNextPutAll" : "pmm 8/19/2014 09:29" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testFixCallbackTemps.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testFixCallbackTemps.st deleted file mode 100644 index 876c2e8e..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testFixCallbackTemps.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-evaluating -testFixCallbackTemps - | send | - send := GRDelayedSend - receiver: 1 - selector: #+. - self assert: send fixCallbackTemps == send. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send fixCallbackTemps == send \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/methodProperties.json deleted file mode 100644 index acb67147..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/methodProperties.json +++ /dev/null @@ -1,22 +0,0 @@ -{ - "instance" : { - "testValueWithPossibleArgumentsUnary" : "jf 9/30/2009 00:22", - "testValueUnary" : "jf 9/30/2009 00:22", - "testValueWithArgumentsUnary" : "jf 9/30/2009 00:24", - "testValueValueKeyword" : "jf 9/30/2009 00:24", - "testValueValueUnary" : "jf 9/30/2009 00:24", - "testValueValueBinary" : "jf 9/30/2009 00:24", - "testFixCallbackTemps" : "jf 9/30/2009 00:22", - "testArgumentCount" : "jf 9/30/2009 00:22", - "testValueWithPossibleArgumentsBinary" : "jf 9/30/2009 00:24", - "testValueWithArgumentsBinary" : "jf 9/30/2009 00:24", - "testValueWithArgumentsKeyword" : "jf 9/30/2009 00:24", - "testValueWithArgumentUnary" : "jf 9/30/2009 00:24", - "testValueWithPossibleArgumentsKeyword" : "jf 9/30/2009 00:24", - "testValueWithArgumentKeyword" : "jf 9/30/2009 00:24", - "testValueKeyword" : "jf 9/30/2009 00:24", - "testValueBinary" : "jf 9/30/2009 00:24", - "testValueWithArgumentBinary" : "jf 9/30/2009 00:24" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRDictionaryTest.class/methodProperties.json deleted file mode 100644 index 30f8f403..00000000 --- a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "createArbitraryAssociations" : "jf 2/15/2010 22:41", - "isKey:equivalentTo:" : "jf 2/15/2010 22:06", - "collectionClass" : "jf 2/15/2010 22:00" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st index 0a7dd89d..8e5c57d2 100644 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st +++ b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st @@ -5,5 +5,4 @@ testConversions self assert: duration asSeconds = 356521. self assert: duration asMilliseconds = 356521000. self assert: duration negated asSeconds = -356521. - self assert: duration negated asMilliseconds = -356521000 - \ No newline at end of file + self assert: duration negated asMilliseconds = -356521000 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st index 43e40e60..b7fcabaa 100644 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st +++ b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st @@ -1,3 +1,3 @@ tests testMixedInstanceCreation - self assert: (Duration days: 1 hours: -23 minutes: 1 seconds: -59) asMilliseconds = 3601000 + self assert: (Duration days: 1 hours: -23 minutes: 1 seconds: -59) asMilliseconds = 3601000 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRDurationTest.class/methodProperties.json deleted file mode 100644 index 1567b2d7..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "instance" : { - "testBasicInstanceCreation" : "pmm 9/1/2012 15:29", - "testIntegerConvenienceMethods" : "pmm 9/1/2012 15:25", - "testNegativeInstanceCreation" : "pmm 9/1/2012 15:26", - "testPartialSecondsInstanceCreation" : "pmm 9/1/2012 15:25", - "testRolloverInstanceCreation" : "pmm 9/1/2012 15:29", - "testZero" : "jf 2/5/2010 23:47", - "testConversions" : "pmm 9/1/2012 15:25", - "testMixedInstanceCreation" : "pmm 9/1/2012 15:26", - "testAccessors" : "pmm 9/1/2012 15:26" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st new file mode 100644 index 00000000..132e9588 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st @@ -0,0 +1,8 @@ +tests +testDefaultValue + self assert: GRTestDynamicVariable value = 'default test value'. + + GRTestDynamicVariable + use: 'my value' + during: [ ]. + self assert: GRTestDynamicVariable value = 'default test value' description:'The default value is no longer correct' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/methodProperties.json deleted file mode 100644 index cad734f4..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "instance" : { - "testWithValue" : "MaxLeske 5/18/2017 07:42", - "testWithoutValue" : "MaxLeske 5/18/2017 07:42", - "testWithNestedValue" : "MaxLeske 5/18/2017 07:42", - "testAnswer" : "MaxLeske 5/18/2017 07:42" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRErrorStub.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRErrorStub.class/methodProperties.json deleted file mode 100644 index f2606777..00000000 --- a/repository/Grease-Tests-Core.package/GRErrorStub.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "initialize" : "jf 3/13/2009 16:56", - "foo" : "jf 3/13/2009 16:56" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRExceptionTest.class/methodProperties.json deleted file mode 100644 index 63dc2934..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/methodProperties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "instance" : { - "testSignalWithNotification" : "pmm 8/19/2014 10:02", - "testSignalWithNotificationClassSide" : "pmm 8/19/2014 10:03", - "testErrorInitialization" : "jf 9/30/2009 00:56", - "testSignalNotificationClassSide" : "pmm 8/19/2014 10:02", - "testDeprecatedApi" : "lr 1/25/2010 23:31", - "testDefaultActionResume" : "pmm 9/1/2012 15:31", - "testOnDoImplicitReturn" : "pmm 9/1/2012 15:31", - "testOnDoNonLocalReturn" : "jf 11/3/2009 00:53", - "testSignalNotification" : "pmm 8/19/2014 10:03", - "testSignalWithError" : "pmm 8/19/2014 10:02", - "testIsResumable" : "jf 11/3/2009 00:39", - "onExceptionReturn:" : "lr 7/25/2011 18:34", - "testNotificationInitialization" : "jf 9/30/2009 00:57", - "testSignalErrorClassSide" : "pmm 8/19/2014 10:02", - "testSignalError" : "pmm 8/19/2014 10:01", - "testSignalWithErrorClassSide" : "pmm 8/19/2014 10:02" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/methodProperties.json deleted file mode 100644 index 7c91df0c..00000000 --- a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "createArbitraryAssociations" : "jf 2/15/2010 22:43", - "isKey:equivalentTo:" : "jf 2/15/2010 22:06", - "collectionClass" : "jf 2/15/2010 21:57" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st new file mode 100644 index 00000000..b7b0ada5 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st @@ -0,0 +1,12 @@ +tests +testSorted + "Unlike super implementation do not assume Interval >> #sorted returns a new object" + | sorted collection | + collection := self arbitraryCollection. + sorted := collection sorted. + self assert: sorted validSequencedResponseFrom: collection. + self assert: sorted sortedWith: [ :a :b | a <= b ]. + + sorted := collection sorted: [ :a :b | a > b ]. + self assert: sorted validSequencedNewResponseFrom: collection. + self assert: sorted sortedWith: [ :a :b | a > b ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRIntervalTest.class/methodProperties.json deleted file mode 100644 index d3c7e2b3..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "instance" : { - "allowsDuplicateValues" : "jf 2/6/2010 04:22", - "isInitializable" : "jf 2/9/2010 11:29", - "emptyCollection" : "jf 2/6/2010 02:50", - "isSequenced" : "jf 2/6/2010 04:03", - "collectionClass" : "jf 2/6/2010 02:48", - "isUnique" : "jok 3/29/2010 13:03", - "testEndsWithSubCollection" : "pmm 9/1/2012 15:24", - "arbitraryCollection" : "jf 2/6/2010 02:49", - "isHomogeneous" : "jok 3/29/2010 13:22", - "testBeginsWithSubCollection" : "pmm 9/1/2012 15:24", - "isExtensible" : "jf 2/6/2010 03:35" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st new file mode 100644 index 00000000..57b002f0 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st @@ -0,0 +1,3 @@ +tests +testAnswer + self assert: (GRNotificationBasedDynamicVariable use: 'value' during: [ true ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st new file mode 100644 index 00000000..c97a7b65 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st @@ -0,0 +1,8 @@ +tests +testDefaultValue + self assert: GRTestNotificationBasedDynamicVariable value = 'default test value'. + + GRTestNotificationBasedDynamicVariable + use: 'my value' + during: [ ]. + self assert: GRTestNotificationBasedDynamicVariable value = 'default test value' description:'The default value is no longer correct' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st new file mode 100644 index 00000000..36d38629 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st @@ -0,0 +1,9 @@ +tests +testWithNestedValue + GRNotificationBasedDynamicVariable + use: 'outer' + during: [ + GRNotificationBasedDynamicVariable + use: 'inner' + during: [ self assert: GRNotificationBasedDynamicVariable value = 'inner' ]. + self assert: GRNotificationBasedDynamicVariable value = 'outer' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st new file mode 100644 index 00000000..a666dd9b --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st @@ -0,0 +1,5 @@ +tests +testWithValue + GRNotificationBasedDynamicVariable + use: 'value' + during: [ self assert: GRNotificationBasedDynamicVariable value = 'value' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st new file mode 100644 index 00000000..d1831981 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st @@ -0,0 +1,3 @@ +tests +testWithoutValue + self assert: GRNotificationBasedDynamicVariable value isNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json new file mode 100644 index 00000000..f30d17fb --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Grease-Tests-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRNotificationBasedDynamicVariableTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationStub.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRNotificationStub.class/methodProperties.json deleted file mode 100644 index e4ae5db6..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationStub.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "initialize" : "jf 3/13/2009 16:56", - "foo" : "jf 3/13/2009 16:56", - "defaultAction" : "jf 11/3/2009 00:45" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/seasideByteArray.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/seasideByteArray.st deleted file mode 100644 index ecd5b581..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/seasideByteArray.st +++ /dev/null @@ -1,3 +0,0 @@ -private -seasideByteArray - ^ #(83 101 97 115 105 100 101) "Seaside" asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/methodProperties.json deleted file mode 100644 index 70122620..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "instance" : { - "testNext" : "pmm 2/17/2010 20:09", - "testReadString" : "dkh 11/13/2009 15:36", - "testSpace" : "lr 2/6/2010 10:34", - "testTab" : "lr 2/6/2010 10:35", - "testName" : "pmm 5/26/2010 07:08", - "testPrint" : "lr 9/25/2011 10:12", - "testFlush" : "lr 2/6/2010 10:37", - "testWriteString" : "dkh 11/13/2009 15:36", - "testSize" : "lr 2/6/2010 10:37", - "codecStreamClass" : "lr 2/6/2010 10:30", - "seasideByteArray" : "pmm 2/17/2010 20:03", - "testCrlf" : "lr 2/6/2010 10:34" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st index 78af5425..0d989b13 100644 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st +++ b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st @@ -7,5 +7,5 @@ testToDoClosures | collection | collection := OrderedCollection new. - 1 to: 5 do: [ :each | collection add: [ each ] fixCallbackTemps ]. + 1 to: 5 do: [ :each | collection add: [ each ] ]. self assert: (collection collect: [ :each | each value ]) asArray = #(1 2 3 4 5) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRNumberTest.class/methodProperties.json deleted file mode 100644 index 3705934f..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "instance" : { - "testBetweenAnd" : "jf 9/25/2009 16:50", - "testPluralize" : "pmm 2/24/2008 18:33", - "testTo" : "pmm 9/1/2012 15:31", - "testToDoClosures" : "pmm 8/19/2014 10:03", - "testReadFrom" : "lr 5/13/2010 12:11", - "testToDo" : "pmm 9/1/2012 15:31" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectStub.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRObjectStub.class/methodProperties.json deleted file mode 100644 index f1551294..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectStub.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "initialize" : "jf 2/3/2009 15:19", - "foo" : "jf 2/3/2009 15:19" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRObjectTest.class/methodProperties.json deleted file mode 100644 index 8b85a031..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { - "testRespondsTo" : "pmm 3/29/2012 19:50", - "testError" : "pmm 8/19/2014 10:09", - "testInitialize" : "jf 9/30/2009 00:56" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/methodProperties.json deleted file mode 100644 index 0db9c8d3..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "instance" : { - "isInitializable" : "jf 2/9/2010 11:28", - "collectionClass" : "jf 2/6/2010 02:16", - "isSequenced" : "jf 2/6/2010 04:03", - "isHomogeneous" : "jok 3/29/2010 13:23", - "allowsDuplicateValues" : "jf 2/6/2010 04:22", - "isUnique" : "jok 3/29/2010 13:04", - "isExtensible" : "jf 2/6/2010 03:34" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/methodProperties.json b/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/methodProperties.json deleted file mode 100644 index 9c3cd95a..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "collectionClass" : "pmm 8/26/2016 15:38" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/methodProperties.json deleted file mode 100644 index fe713199..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "instance" : { - "allowsDuplicateKeys" : "jf 2/15/2010 13:53", - "testAllAt" : "jf 2/15/2010 16:05", - "testKeysAndAllValuesDo" : "pmm 8/25/2016 15:18", - "testAllAtIfAbsent" : "jf 2/15/2010 16:05", - "testAtAdd" : "jf 2/15/2010 16:05", - "collectionClass" : "jf 2/15/2010 17:46" - }, - "class" : { - "shouldInheritSelectors" : "jf 2/15/2010 13:29" - } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Tests-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index fcfb9274..00000000 --- a/repository/Grease-Tests-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { }, - "class" : { - "greaseTestsCore" : "pmm 9/12/2013 16:00" - } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st index ca79782b..dc012270 100644 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st +++ b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st @@ -5,5 +5,4 @@ testDependencies package addDependency: 'Envy'. self assert: package dependencies size = 2. self assert: package dependencies first = 'Lust'. - self assert: package dependencies last = 'Envy' - \ No newline at end of file + self assert: package dependencies last = 'Envy' \ 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/GRPackageTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRPackageTest.class/methodProperties.json deleted file mode 100644 index f6878842..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "instance" : { - "testPackages" : "JohanBrichau 12/15/2013 18:29", - "testName" : "lr 2/6/2010 10:44", - "testLicense" : "lr 2/6/2010 10:58", - "testAllDependencies" : "pmm 9/1/2012 15:32", - "testDescription" : "lr 2/6/2010 10:44", - "setUp" : "lr 2/6/2010 10:44", - "testDependencies" : "lr 2/6/2010 10:47", - "testUrl" : "lr 2/17/2010 15:24" - }, - "class" : { } -} \ 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/testBlockValuableProtocol.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st index 4fc7e2c0..89d324a4 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st @@ -4,11 +4,11 @@ testBlockValuableProtocol self assert: [ :x | x ] argumentCount = 1. self assert: [ :a :b | a + b ] argumentCount = 2. self - shouldnt: [ [ nil ] fixCallbackTemps ] + shouldnt: [ [ nil ] ] raise: Error. self - shouldnt: [ [ :x | x ] fixCallbackTemps ] + shouldnt: [ [ :x | x ] ] raise: Error. self - shouldnt: [ [ :a :b | a + b ] fixCallbackTemps ] + shouldnt: [ [ :a :b | a + b ] ] raise: Error \ 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/testFixCallbackTemps.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFixCallbackTemps.st deleted file mode 100644 index ae08b4f2..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFixCallbackTemps.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testFixCallbackTemps - "Make sure that #fixCallbackTemps is properly understood by block-contexts. Make sure that this is either a nop for Smalltalks with true block closures, or it properly fixes the context otherwise." - - | array blocks values | - array := #(1 2 3). - blocks := array collect: [ :each | [ each ] fixCallbackTemps ]. - values := blocks collect: [ :each | each value ]. - self assert: values = array \ 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/testGreaseString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st index 7e646c23..94d10350 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st @@ -2,6 +2,7 @@ tests testGreaseString self assert: 'Timberwolf' greaseString = 'Timberwolf'. self assert: #DireWolf greaseString = 'DireWolf'. + self deny: #DireWolf greaseString isSymbol. self assert: true greaseString = 'true'. self assert: 666 greaseString = '666'. "make sure we're not immediate" @@ -25,5 +26,4 @@ testGreaseString self assert: Object new greaseString isString. "Printing scaled decimals (https://github.com/SeasideSt/Grease/issues/1)" self assert: 1.21s3 greaseString = '1.210'. - self assert: -1.21s3 greaseString = '-1.210' - \ No newline at end of file + self assert: -1.21s3 greaseString = '-1.210' \ 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/testReadStreamPosition.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st index ae76092a..a27c4c50 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st @@ -19,5 +19,4 @@ testReadStreamPosition self assert: stream position = 0. self assert: stream next = $a. stream position: 3. - self assert: stream atEnd - \ No newline at end of file + self assert: stream atEnd \ 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..64a5c334 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st @@ -0,0 +1,11 @@ +tests-mop +testSourceCodeStringOf + + | sourceCodeString | + sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:. + self + assert: sourceCodeString + equals: '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 new file mode 100644 index 00000000..d8fecfc7 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st @@ -0,0 +1,27 @@ +tests +testThisContext + | 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/GRPlatformTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRPlatformTest.class/methodProperties.json deleted file mode 100644 index 14c5e10c..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/methodProperties.json +++ /dev/null @@ -1,80 +0,0 @@ -{ - "instance" : { - "testWriteStreamNextPutAll" : "jgf 1/23/2009 15:28", - "testReadStreamSeasideUpToAll" : "jf 9/30/2009 01:06", - "testPathSeparator" : "pmm 2/5/2011 10:12", - "testVersion" : "jf 2/9/2010 00:43", - "testLabel" : "jf 2/9/2010 00:58", - "testAsNumber" : "lr 10/28/2007 14:42", - "testIsUnary" : "pmm 9/1/2012 15:32", - "testPrintStringLimitedTo" : "lr 7/25/2011 18:36", - "testStartUpList" : "lr 3/16/2009 19:16", - "testNumArgs" : "pmm 1/10/2009 22:23", - "testDateArithmetic" : "pmm 9/13/2008 14:36", - "testBlockContextWithPossibleArguments" : "pmm 1/10/2009 23:41", - "testSymbolAsMutator" : "pmm 2/25/2007 23:08", - "testReadStreamAtEnd" : "lr 1/22/2009 22:01", - "testReadWriteStreamUpTo" : "jf 9/30/2009 00:19", - "testGreaseIntegerOnNumber" : "jf 9/30/2009 01:07", - "testReadStreamUpTo" : "mlucas-smith 6/3/2009 22:33", - "testReadStreamUpToEnd" : "jf 7/31/2009 13:33", - "testBindingOf" : "pmm 8/23/2014 11:43", - "testReadWriteStreamReset" : "jf 9/30/2009 00:19", - "testStackDepth" : "lr 9/29/2009 22:54", - "testBlockValuableProtocol" : "jf 12/18/2009 12:26", - "testSecureHashFor" : "lr 3/16/2009 19:18", - "testGreaseString" : "pmm 7/16/2015 15:58", - "testDaysInMonthForYear" : "jf 12/18/2009 10:30", - "testGreaseIntegerOnString" : "jf 9/30/2009 01:08", - "testReadWriteStreamNegativeSkip" : "jf 9/30/2009 00:19", - "testIfNil" : "pmm 11/10/2007 17:19", - "testIsCharacter" : "pmm 5/2/2009 17:18", - "testFixCallbackTemps" : "lr 10/28/2007 14:42", - "testGreaseIntegerOnCharacterBmp" : "pmm 12/26/2010 21:15", - "testNewline" : "lr 4/15/2010 19:20", - "testEmptyOrNil" : "pmm 10/2/2007 06:54", - "testReadStreamPosition" : "jf 7/31/2009 13:40", - "testWriteStreamPosition" : "JohanBrichau 9/14/2013 11:53", - "testTotalSeconds" : "lr 6/5/2009 08:59", - "platform" : "jf 9/30/2009 00:19", - "testReadWriteStreamNextPutAll" : "pmm 9/14/2013 16:37", - "testReadWriteStreamPeek" : "jf 9/30/2009 00:19", - "testReadStreamPeek" : "lr 1/22/2009 22:00", - "testWriteStreamTab" : "jgf 1/23/2009 15:28", - "testGreaseIntegerOnCharacterLatin1" : "pmm 12/26/2010 21:14", - "testReadWriteStreamNextPut" : "jf 9/30/2009 00:19", - "testReadWriteStreamTab" : "jf 9/30/2009 00:19", - "testIsKeyword" : "pmm 9/1/2012 15:32", - "testReadWriteStreamPosition" : "jf 9/30/2009 00:19", - "testWriteStreamSpace" : "jgf 1/23/2009 15:28", - "testReadStreamContents" : "lr 1/22/2009 22:06", - "testWriteStreamContents" : "JohanBrichau 9/14/2013 11:49", - "testDigitValue" : "lr 1/23/2010 13:28", - "testCharacterAsUnicode" : "lr 10/28/2007 14:42", - "testCharacterTo" : "lr 1/23/2010 13:29", - "testReadStreamReset" : "lr 1/23/2009 11:41", - "testTerminate" : "mlucas-smith 6/3/2009 22:33", - "testReadWriteStreamAtEnd" : "jf 9/30/2009 00:19", - "testReadWriteStreamSkip" : "jf 9/30/2009 00:19", - "testReadStreamNegativeSkip" : "jf 9/14/2009 13:52", - "testReadWriteStreamNext" : "jf 9/30/2009 00:19", - "testReadStreamSkip" : "lr 1/22/2009 22:02", - "testRandomGenerator" : "pmm 9/1/2012 15:32", - "testReadWriteStreamContents" : "jf 9/30/2009 00:19", - "testReadWriteStreamUpToEnd" : "jf 9/30/2009 00:19", - "testWriteStreamCrLf" : "mlucas-smith 6/3/2009 22:33", - "testReadStreamNext" : "lr 1/22/2009 22:00", - "decodeUtf8Character:" : "pmm 9/2/2012 11:17", - "testBase64Decode" : "pmm 8/27/2011 15:10", - "testIfTrueIfFalse" : "lr 12/3/2009 10:54", - "testWriteStreamNextPut" : "jgf 1/23/2009 15:29", - "testIsCollection" : "jf 2/15/2010 23:06", - "testConvertToSmalltalkNewlines" : "lr 4/15/2010 19:27", - "testSeconds" : "pmm 3/6/2012 19:34", - "testGreaseIntegerOnCharacterSmp" : "pmm 12/26/2010 21:16", - "testShutDownList" : "lr 3/16/2009 19:16", - "testWriteStreamReset" : "jgf 1/23/2009 15:28", - "testGreaseIntegerOnCharacterAscii" : "pmm 1/22/2012 16:23" - }, - "class" : { } -} \ 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/GRPrinterTest.class/instance/separate.left..st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/separate.left..st new file mode 100644 index 00000000..9fa47cda --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/separate.left..st @@ -0,0 +1,9 @@ +tests-utilites +separate: aString left: aCharacter + | converter | + converter := GRNumberPrinter new. + ^ String streamContents: [ :stream | + converter + separate: aString + left: aCharacter + on: stream ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st index d154be0d..71c4170e 100644 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st +++ b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st @@ -14,4 +14,18 @@ testIntegerPrinter self assert: (converter print: 123123) = '1e0f3'. converter uppercase. self assert: (converter print: 1234) = '4D2'. - self assert: (converter print: 123123) = '1E0F3' \ No newline at end of file + self assert: (converter print: 123123) = '1E0F3'. + + + converter + base: 10; + separator: $'; + digits: 6; + padding: $0. + self assert: (converter print: 1234) = '001''234'. + self assert: (converter print: 12345) = '012''345'. + self assert: (converter print: 123456) = '123''456'. + self assert: (converter print: 1234567) = '1''234''567'. + self assert: (converter print: 12345678) = '12''345''678'. + self assert: (converter print: 123456789) = '123''456''789'. + self assert: (converter print: 0) = '000''000' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st index d44fd2ee..4a091978 100644 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st +++ b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st @@ -1,34 +1,32 @@ tests-utilites testSeparateLeft - | converter | - converter := GRNumberPrinter new. - self assert: (converter + self assert: (self separate: '' left: $*) = ''. - self assert: (converter + self assert: (self separate: '1' left: $*) = '1'. - self assert: (converter + self assert: (self separate: '12' left: $*) = '12'. - self assert: (converter + self assert: (self separate: '123' left: $*) = '123'. - self assert: (converter + self assert: (self separate: '1234' left: $*) = '123*4'. - self assert: (converter + self assert: (self separate: '12345' left: $*) = '123*45'. - self assert: (converter + self assert: (self separate: '123456' left: $*) = '123*456'. - self assert: (converter + self assert: (self separate: '1234567' left: $*) = '123*456*7'. - self assert: (converter + self assert: (self separate: '12345678' left: $*) = '123*456*78'. - self assert: (converter + self assert: (self separate: '123456789' left: $*) = '123*456*789' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRPrinterTest.class/methodProperties.json deleted file mode 100644 index 5cd3f22d..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/methodProperties.json +++ /dev/null @@ -1,49 +0,0 @@ -{ - "instance" : { - "testUnpaddedHour12" : "lr 2/6/2010 11:05", - "testHttp" : "jf 9/30/2009 00:32", - "testUnpaddedCentury" : "lr 2/6/2010 11:10", - "testPaddedHour12" : "lr 2/6/2010 11:07", - "testUnpaddedDay" : "lr 2/6/2010 11:09", - "testPadCenter" : "jf 9/30/2009 00:32", - "testDigitsOf" : "jf 9/30/2009 00:32", - "testSeparateLeft" : "jf 9/30/2009 00:32", - "testStringPrinterPad" : "jf 9/30/2009 00:33", - "testUnpaddedMonth" : "lr 2/6/2010 11:07", - "testComposedPrinter" : "jf 9/30/2009 00:33", - "testIntegerPrinter" : "jf 9/30/2009 00:32", - "testCookieTimestamp" : "lr 2/6/2010 11:12", - "testOrdinalizePrinter" : "jf 9/30/2009 00:32", - "testFloatPrinter" : "jf 9/30/2009 00:32", - "testUnpaddedSecond" : "lr 2/6/2010 11:06", - "testFloatPrinterPadding" : "jf 9/30/2009 00:32", - "testSeparateRight" : "jf 9/30/2009 00:32", - "testPaddedCentury" : "lr 2/6/2010 11:03", - "testIsoDate" : "jf 9/30/2009 00:32", - "testStringPrinter" : "jf 9/30/2009 00:33", - "testRfc822WithTimeZone" : "lr 2/6/2010 11:12", - "testSwissCurrency" : "jf 9/30/2009 00:32", - "testFileSizePrinterBinary" : "jf 9/30/2009 00:32", - "testDigitsOfBase" : "jf 9/30/2009 00:32", - "testFloatPrinterSeparator" : "jf 9/30/2009 00:32", - "testSignPrinter" : "jf 9/30/2009 00:33", - "testUsCurrency" : "jf 9/30/2009 00:32", - "testUnpaddedYear" : "lr 2/6/2010 11:08", - "testFloatPrinterNaN" : "jf 9/30/2009 00:32", - "testIsoTime" : "jf 9/30/2009 00:32", - "testStringPrinterTrim" : "jf 9/30/2009 00:33", - "testFullWeekName" : "lr 2/6/2010 11:10", - "testRfc822" : "jf 9/30/2009 00:32", - "testUnpaddedMinute" : "lr 2/6/2010 11:02", - "testFloatPrinterInfinity" : "jf 9/30/2009 00:32", - "testUnpaddedHour24" : "lr 2/6/2010 11:07", - "testPadRight" : "jf 9/30/2009 00:32", - "testFileSizePrinterDecimal" : "jf 9/30/2009 00:32", - "testFullMonthName" : "lr 2/6/2010 11:09", - "testPadLeft" : "jf 9/30/2009 00:32", - "testStringPrinterLength" : "jf 9/30/2009 00:33" - }, - "class" : { - "packageNamesUnderTest" : "lr 2/6/2010 10:14" - } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/README.md b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st new file mode 100644 index 00000000..ec4c1e18 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st @@ -0,0 +1,3 @@ +configuration +collectionClass + ^ GRPlatform current reducedConflictDictionary \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json new file mode 100644 index 00000000..73bd00e9 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRDictionaryTest", + "category" : "Grease-Tests-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReducedConflictDictionaryTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRSetTest.class/methodProperties.json deleted file mode 100644 index 58fa5472..00000000 --- a/repository/Grease-Tests-Core.package/GRSetTest.class/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "instance" : { - "isExtensible" : "jf 2/6/2010 03:34", - "isInitializable" : "jf 2/9/2010 11:28", - "collectionClass" : "jf 2/6/2010 01:51", - "allowsDuplicateValues" : "jf 2/6/2010 04:22" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/methodProperties.json deleted file mode 100644 index 9c3cd95a..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "collectionClass" : "pmm 8/26/2016 15:38" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st index 94e2b23c..985c7d66 100644 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st @@ -1,11 +1,11 @@ asserting assertAssociations: anOrderedCollection - | associations iterated | - associations := collection associations. + | collAssociations iterated | + collAssociations := collection associations. iterated := Array streamContents: [ :stream | collection associationsDo: [ :each | stream nextPut: each ] ]. - self assert: associations size = anOrderedCollection size. + self assert: collAssociations size = anOrderedCollection size. self assert: iterated size = anOrderedCollection size. 1 to: anOrderedCollection size do: [ :index | - self assert: (associations at: index) = (anOrderedCollection at: index). + self assert: (collAssociations at: index) = (anOrderedCollection at: index). self assert: (iterated at: index) = (anOrderedCollection at: index) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st new file mode 100644 index 00000000..1023a77f --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st @@ -0,0 +1,9 @@ +configuration +createArbitraryAssociations + ^ OrderedCollection new + add: 'c' -> 3; + add: 'a' -> 1; + add: 'b' -> 2; + add: 'e' -> 1; + add: 'd' -> 4; + yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st index 34adbc6f..1f4dfd3a 100644 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st @@ -13,4 +13,4 @@ testAddAll self assertAssociations: (self allowsDuplicateKeys ifFalse: [ Array with: '1' -> 'bar' ] - ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) + ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st index 3ab8f3a5..61c4e6d8 100644 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st @@ -17,4 +17,4 @@ testAddAndAssociations self assertAssociations: (self allowsDuplicateKeys ifFalse: [ Array with: '1' -> 'baz' with: '2' -> 'bar' ] - ifTrue: [ Array with: '1' -> 'foo' with: '2' -> 'bar' with: '1' -> 'baz' ]) + ifTrue: [ Array with: '1' -> 'foo' with: '2' -> 'bar' with: '1' -> 'baz' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsCollection.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsCollection.st deleted file mode 100644 index ec714294..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -tests-testing -testIsCollection - self assert: collection isCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st new file mode 100644 index 00000000..f2fbf914 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st @@ -0,0 +1,21 @@ +tests-accessing +testRemoveKey2 + "https://github.com/SeasideSt/Grease/issues/81" + collection + at: 'x' put: 1; + at: 'y' put: 2; + at: 'z' put: 3. + + self + assert: (collection removeKey: 'z') equals: (self allowsDuplicateKeys ifTrue: [ #(3) ] ifFalse: [ 3 ]); + assert: collection size equals: 2. + + collection := self newCollection + at: 'x' put: 1; + at: 'y' put: 2; + at: 'z' put: 3; + yourself. + + self + assert: (collection removeKey: 'y') equals: (self allowsDuplicateKeys ifTrue: [ #(2) ] ifFalse: [ 2 ]); + assert: collection size equals: 2 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st index a6829f97..d7f4b5d0 100644 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st @@ -10,4 +10,4 @@ testWithAll self assertAssociations: (self allowsDuplicateKeys ifFalse: [ Array with: '1' -> 'bar' ] - ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) + ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/methodProperties.json deleted file mode 100644 index e448d026..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/methodProperties.json +++ /dev/null @@ -1,32 +0,0 @@ -{ - "instance" : { - "testIsEmpty" : "jf 2/15/2010 16:05", - "testValues" : "jf 2/15/2010 16:05", - "testAtPut" : "pmm 9/1/2012 15:33", - "setUp" : "jf 2/15/2010 16:05", - "testCopy" : "jf 2/15/2010 16:05", - "testAtIfAbsentPut" : "jf 2/15/2010 16:05", - "testRemoveKeyIfAbsent" : "pmm 9/1/2012 15:33", - "collectionClass" : "jf 2/15/2010 17:45", - "testGrow" : "jf 2/15/2010 16:05", - "testAtIfAbsent" : "jf 2/15/2010 16:05", - "testAtIfPresent" : "jf 2/15/2010 16:05", - "testDo" : "jf 2/15/2010 16:05", - "newCollection" : "jf 2/15/2010 17:45", - "isKey:equivalentTo:" : "jf 2/15/2010 22:06", - "assertAssociations:" : "jf 2/15/2010 16:05", - "testKeys" : "jf 2/15/2010 16:05", - "testAddAll" : "jf 2/15/2010 22:58", - "testKeysAndValuesDo" : "pmm 9/1/2012 15:33", - "testRemoveKey" : "pmm 9/1/2012 15:33", - "testWithAll" : "jf 2/15/2010 22:54", - "testIsCollection" : "jf 2/15/2010 16:05", - "testAt" : "jf 2/15/2010 16:05", - "testKeysDo" : "jf 2/15/2010 16:05", - "testAddAndAssociations" : "jf 2/15/2010 16:05", - "allowsDuplicateKeys" : "jf 2/15/2010 13:52", - "testIncludesKey" : "jf 2/15/2010 16:05", - "testSize" : "pmm 9/1/2012 15:33" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json index d247ac3f..9f7c857b 100644 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json +++ b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "TestCase", + "super" : "GRAbstractDictionaryTest", "category" : "Grease-Tests-Core", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st new file mode 100644 index 00000000..86f0ffb1 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st @@ -0,0 +1,3 @@ +configuration +collectionClass + ^ GRSmallOrderedSet \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/methodProperties.json deleted file mode 100644 index c6231e6d..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/methodProperties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "instance" : { - "testCopy" : "pmm 8/25/2016 14:49", - "testAddAll" : "pmm 8/25/2016 14:25", - "setUp" : "pmm 8/25/2016 14:33", - "testIsEmpty" : "pmm 8/25/2016 14:49", - "testRemove" : "pmm 8/25/2016 14:51", - "testDo" : "pmm 8/25/2016 14:09", - "testSize" : "pmm 8/25/2016 14:10", - "testRemoveIfAbsent" : "pmm 8/25/2016 14:52", - "testIncludes" : "pmm 8/25/2016 14:49", - "testAdd" : "pmm 8/25/2016 14:21" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json index 741482c3..57445798 100644 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json +++ b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "TestCase", + "super" : "GRSetTest", "category" : "Grease-Tests-Core", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/methodProperties.json deleted file mode 100644 index 89c9ab84..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "instance" : { - "isInitializable" : "jok 3/22/2010 14:34", - "collectionClass" : "jok 3/22/2010 14:30", - "isSequenced" : "jok 3/25/2010 14:26", - "isHomogeneous" : "jok 3/29/2010 13:23", - "allowsDuplicateValues" : "jok 3/22/2010 14:29", - "isUnique" : "jok 3/29/2010 13:05", - "isExtensible" : "jok 3/22/2010 14:31" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st index 8d0f1c98..881c323d 100644 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st +++ b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st @@ -23,4 +23,4 @@ testSubStrings self assert: tokens size = 3. self assert: tokens first = 'abc'. self assert: tokens second = 'def'. - self assert: tokens third = 'ghi' + self assert: tokens third = 'ghi' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRStringTest.class/methodProperties.json deleted file mode 100644 index bb2ef5fa..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/methodProperties.json +++ /dev/null @@ -1,35 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "allowsDuplicateValues" : "jf 2/6/2010 04:22", - "arbitraryCollection" : "jok 2/9/2010 13:19", - "collectionClass" : "jf 2/6/2010 01:50", - "duplicateElement" : "jf 2/6/2010 02:44", - "excludedElement" : "jf 2/6/2010 02:20", - "includedElement" : "jf 2/6/2010 02:44", - "isExtensible" : "jf 2/6/2010 03:35", - "isHomogeneous" : "jok 3/29/2010 13:24", - "isInitializable" : "jf 2/9/2010 11:28", - "isSequenced" : "jf 2/6/2010 04:04", - "isUnique" : "jok 3/29/2010 13:14", - "testAsUppercase" : "jf 9/25/2009 16:50", - "testCapitalized" : "pmm 9/1/2012 15:24", - "testCapitalizedUmlauts" : "jf 9/25/2009 16:50", - "testExcerpt" : "lr 2/7/2008 09:31", - "testExcerptEmpty" : "lr 2/7/2008 09:31", - "testExcerptLeft" : "lr 2/7/2008 09:30", - "testExcerptRight" : "lr 2/7/2008 09:29", - "testInflectorAssimilated" : "lr 2/7/2008 10:21", - "testInflectorCommonSuffixes" : "lr 2/7/2008 09:11", - "testInflectorFfffSuffixes" : "lr 2/7/2008 09:11", - "testInflectorIrregular" : "lr 2/7/2008 10:21", - "testInflectorNotInflecting" : "mlucas-smith 6/3/2009 22:33", - "testInflectorTsssSuffixes" : "lr 2/7/2008 09:11", - "testInflectorYyyySuffixes" : "pmm 9/1/2012 15:24", - "testSubStrings" : "JohanBrichau 5/25/2017 11:31", - "testTrimBoth" : "jf 9/25/2009 16:46", - "testTrimLeft" : "lr 2/7/2008 09:34", - "testTrimRight" : "lr 2/7/2008 09:35", - "testTruncate" : "lr 2/7/2008 09:32", - "testTruncateEmpty" : "lr 2/7/2008 09:32" } } diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRSymbolTest.class/methodProperties.json deleted file mode 100644 index 2773f47e..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "instance" : { - "includedElement" : "jok 3/22/2010 14:59", - "excludedElement" : "jok 3/22/2010 15:00", - "allowsDuplicateValues" : "jok 3/26/2010 16:41", - "isInitializable" : "jok 3/25/2010 14:21", - "emptyCollection" : "jok 3/29/2010 14:27", - "isSequenced" : "jok 3/25/2010 14:27", - "duplicateElement" : "jok 3/29/2010 12:21", - "collectionClass" : "jok 3/22/2010 14:15", - "isUnique" : "jok 3/26/2010 12:38", - "arbitraryCollection" : "jok 3/22/2010 14:37", - "isExtensible" : "jok 3/22/2010 14:38", - "isHomogeneous" : "jok 3/29/2010 13:24" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/README.md b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..dab874c7 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st @@ -0,0 +1,3 @@ +defaults +defaultValue + ^ 'default test value' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json new file mode 100644 index 00000000..45a40585 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRDynamicVariable", + "category" : "Grease-Tests-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRTestDynamicVariable", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/README.md b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st new file mode 100644 index 00000000..dab874c7 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st @@ -0,0 +1,3 @@ +defaults +defaultValue + ^ 'default test value' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json new file mode 100644 index 00000000..fd4b4364 --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "GRNotificationBasedDynamicVariable", + "category" : "Grease-Tests-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRTestNotificationBasedDynamicVariable", + "type" : "normal" +} \ 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/GRUtf8CodecTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/methodProperties.json deleted file mode 100644 index 53751d0c..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "instance" : { - "testCodecUtf8ShortestForm" : "pmm 4/11/2010 19:47", - "testCodecUtf8Bom" : "pmm 11/10/2010 06:59", - "testCodecUtf8" : "pmm 10/25/2010 18:50", - "asString:" : "lr 7/25/2011 19:52", - "testCodecUtf8BorderLineString" : "pmm 11/17/2010 22:11", - "seasideByteArray" : "pmm 2/17/2010 20:02", - "utf8String" : "dkh 11/13/2009 15:27", - "decodedString" : "PaoloBonzini 4/7/2010 09:30", - "testNext" : "pmm 2/17/2010 20:07" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st index dd70b022..72d1e90e 100644 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st +++ b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st @@ -11,4 +11,5 @@ assert: aVersionArray equals: bVersionArray self assert: b >= a. self deny: a > b. self assert: a >= b. - self assert: a = b \ No newline at end of file + self assert: a = b. + self assert: a hash = b hash \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st new file mode 100644 index 00000000..4e897e3c --- /dev/null +++ b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st @@ -0,0 +1,9 @@ +tests +testAccessors + | version | + version := self buildVersion: #(1 2 3 #alpha 4). + self assert: version major = 1. + self assert: version minor = 2. + self assert: version revision = 3. + self assert: version stage = #alpha. + self assert: version stageNumber = 4. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRVersionTest.class/methodProperties.json deleted file mode 100644 index a9efdd0f..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "instance" : { - "testConvenience" : "pmm 9/1/2012 15:50", - "testComparison" : "pmm 9/1/2012 15:55", - "assert:sortsBefore:" : "pmm 9/1/2012 15:55", - "buildVersion:" : "jf 2/8/2010 23:31", - "assert:equals:" : "pmm 9/1/2012 15:54", - "testEquality" : "pmm 9/1/2012 15:54", - "testStringConversion" : "pmm 9/1/2012 15:50" - }, - "class" : { } -} \ 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-Core.package/monticello.meta/version b/repository/Grease-Tests-Core.package/monticello.meta/version deleted file mode 100644 index 13d882ba..00000000 --- a/repository/Grease-Tests-Core.package/monticello.meta/version +++ /dev/null @@ -1,62 +0,0 @@ -(name 'Grease-Tests-Core-MaxLeske.109' message 'merged by GitFileTree-MergeDriver' id 'f34e7206-c498-4cbb-b7b5-c1ca34155247' date '25 May 2017' time '2:48:44.577356 pm' author 'MaxLeske' ancestors ((name 'Grease-Tests-Core-MaxLeske.108' message '* added tests for GRDynamicVariables (these tests were formerly in Seaside-Tests-Core-Utilities and tested WADynamicVariable)' id 'fdd887ba-270c-0d00-82dd-cfbd07321642' date '18 May 2017' time '7:51:09.961705 am' author 'MaxLeske' ancestors ((name 'Grease-Tests-Core-pmm.107' message '- revert SmallDictionary changes for now' id '8314abad-f651-49f1-9fd7-d8737b4c0f2e' date '26 August 2016' time '4:00:15.004248 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.106' message '- add new #keysAndAllValuesDo:' id 'bfbbb90b-78dc-4c42-9f40-ce07352c9d53' date '25 August 2016' time '3:24:29.901974 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.105' message '- add GRSmallOrderedSet' id 'f0b315d3-0448-4764-8e28-96db57facb05' date '25 August 2016' time '2:55:37.243319 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.104' message '- lint fixes' id 'ab4ab731-004c-4f4a-a01b-f073e9349785' date '16 July 2015' time '4:33:14 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.103' message '- lint fixes' id '98d1d5b9-3acb-4886-a6d3-eafd9d5bd5ad' date '16 July 2015' time '4:30:16 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.102' message '- lint fixes' id 'e6a8c34c-d286-4acf-b2bd-8343fa661998' date '16 July 2015' time '3:59:40 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-JohanBrichau.101' message 'merge Grease-Tests-Core-pmm.100 and Grease-Tests-Core-JohanBrichau.100' id '343a249d-795e-4ed3-9637-5a649c3aec65' date '12 July 2015' time '2:50:54.640379 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Core-JohanBrichau.100' message 'Missing sign on ScaledDecimal>>greaseString -(https://github.com/SeasideSt/Grease/issues/1) - -Thanks Hilaire!' id '73065b17-0bbd-48b8-8d9a-35e534049cbe' date '25 May 2015' time '9:05:19.861467 am' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Core-pmm.99' message '- lint fixes' id 'de282121-6c1f-4f8f-8f29-de7977548fd4' date '19 August 2014' time '10:35:49 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.98' message '- lint fixes' id 'edc3c406-4a97-44c1-900b-54e4ff5190bd' date '19 August 2014' time '9:56:19 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.97' message '- lint fixes' id 'f2fcf488-679e-4158-8c4f-3130c1b17a87' date '19 August 2014' time '9:39:15 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.96' message '- lint fixes' id '01da883d-049c-4dbd-b27b-16ca2d35067f' date '19 August 2014' time '9:31:16 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-JohanBrichau.95' message 'move GRCountingStream from Pharo-only package to Core' id '6950e220-fdb9-41e8-9251-2e3164ad7632' date '16 February 2014' time '9:29:30.735687 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Core-pmm.94' message '- revert #shouldnt:raise: changes' id '3f89ddf2-bc1d-460f-9c1d-c5337ebb1152' date '19 December 2013' time '12:23:23 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-JohanBrichau.93' message 'Rename #packages to #grPackages (triggered to prevent a name collision in Pharo3.0)' id '1c33a36a-0a81-43cf-b84e-5421e0f5acc3' date '15 December 2013' time '6:32:02.572 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Core-DamienCassou.92' message '- Use #shouldnt:raise: only with specific errors, or evaluate the given expression directly' id 'e2787f2b-de0e-44c7-b494-effdced8d930' date '17 October 2013' time '3:05:30.690328 pm' author 'DamienCassou' ancestors ((name 'Grease-Tests-Core-pmm.91' message '- add tests for non-immediate integers' id '9b2b04fb-379e-43c4-9030-ac4bef824811' date '15 September 2013' time '12:19:07 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.90' message '- formatting' id '44dd54a7-09fe-4e50-9c20-860bf24d7a45' date '14 September 2013' time '4:38:07 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.89' message '- spelling' id 'fd25ace7-b543-47ef-9add-55ce516e4ef6' date '14 September 2013' time '4:14:24 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-JohanBrichau.88' message 'use #position to get the contents size of the stream because #reset does not empty the stream and #size would return the original contents size' id 'dcbcd589-0839-4bd0-8471-fde528e71c98' date '14 September 2013' time '12:36:50.178 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Core-pmm.87' message '- fix URLs' id 'd995b84b-ab28-4b9d-940e-21ff5b687835' date '12 September 2013' time '4:01:38.884179 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.86' message '- Slime fixes, mostly recategorizations' id '18ddf175-b7f9-4f01-bd6e-383d86d121cc' date '3 September 2012' time '4:35:02 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.85' message '- formatting Nazis from outer space' id 'b04c9269-43b9-4e71-8335-60d614195e96' date '1 September 2012' time '5:02:23 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.84' message '- add test for #respondsTo:' id 'c3750f57-764b-4252-9dee-b75e1b5f24a6' date '29 March 2012' time '7:50:58 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.83' message '- merge Pharo 1.4 fixes from 3.0 branch' id '02d62f6f-9e09-4785-bfe3-0261d7027734' date '6 March 2012' time '7:58:22 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.82' message '- formatting nazis from outer space' id 'd2d3266d-f979-47af-9562-83e73de22d93' date '22 January 2012' time '5:15:48 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.81' message '- formatting nazis from outer space' id '3a4a717e-0791-452b-8791-fe9f084dad6c' date '22 January 2012' time '4:48:23 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.80' message '- merge with trunk' id '53b849bc-762a-4ab3-afe0-4325f9e0f5dc' date '28 September 2011' time '5:53:20 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.79' message '- merge with trunk' id 'f801c4e3-10d7-41ac-ba3c-a27e43efde46' date '28 August 2011' time '12:22:54 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.77' message '- Issue 676: response generators have to reset the response before generating a new one -- add infrastructure to reset streams, work around Pharo stream bugs' id '4b1e0c9b-fe4f-4d58-9c66-77db529e289c' date '26 August 2011' time '10:00:36 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.76' message '- merge with trunk' id '381ce6a9-0019-4e80-9b38-fc1bc8ff9d7f' date '25 August 2011' time '9:18:41 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.74' message '- Issue 626: Allow platforms to implement custom encoders for speed -- remove #includesUnsafeUrlCharacter: and #includesUnsafeXmlCharacter: from GRPlatform, these were just speed hacks for Pharo, they are now encapsulated in a platform specific class' id '7b719044-d34a-4f63-8352-1b4585b3575d' date '15 August 2011' time '9:41:43 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.73' message '- Issue 672: SequenceableCollection>>#endsWith: is not portable -- remove tests that are already in GRAbstractSequenceableCollectionTest and friends' id '4aaa728d-9213-4f25-a547-e4d96b8dd263' date '8 August 2011' time '7:59:40 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.72' message '- Issue 672: SequenceableCollection>>#endsWith: is not portable -- add tests for SequenceableCollection>>#beginsWithSubCollection:' id 'eec3a137-28d6-4eab-98c4-f4432c37e845' date '5 August 2011' time '11:20:24 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.71' message '- Issue 672: SequenceableCollection>>#endsWith: is not portable -- add tests for SequenceableCollection>>#endsWithSubCollection:' id 'ec82bb59-c56a-4f4f-9c61-4148c79cc181' date '5 August 2011' time '11:02:25 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-jok.70' message 'Issue 672: SequenceableCollection>>#endsWith: is not portable - - remove GRPlatformTest>>#testEndsWith:' id '75fa4887-f54f-a142-868c-1ca7283213dd' date '3 August 2011' time '9:46:45 am' author 'jok' ancestors ((name 'Grease-Tests-Core-lr.69' message '- fixed formatting of return message' id '7774d2b6-85f7-4249-8631-b01f6f68d821' date '25 July 2011' time '8:25:40 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.68' message '- fixed spacing in blocks' id '262d74fe-6113-49b7-937d-27d917c50f91' date '25 July 2011' time '7:21:17 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.67' message '- fixed formatting of temporaries' id '6d232518-1847-4631-8e2e-b26c98fb1372' date '25 July 2011' time '6:31:45 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.66' message '- unified formatting of parentheses' id '8b786bc1-6964-4da0-9165-179db414aee0' date '25 July 2011' time '6:26:37 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-pmm.65' message '- went for a simple X-Sendfile design that does not use auto deploy and does not require files to be deployed in image folder' id 'cbcd0fc7-cf62-42f6-820b-79bc6ee16034' date '5 February 2011' time '5:39:06 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.64' message '- split decoding tests accoriding to character range so platforms that don''t support full Unicode can more selectively disable some' id '810c0294-30ff-4eea-9f3e-ca859d01b668' date '26 December 2010' time '9:19:24 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.63' message '- Issue 612: subscript out of bounds when encoding a single 0 character to UTF-8 -- http://code.google.com/p/seaside/issues/detail?id=612' id 'cff0b51f-efb3-4e84-a7c9-3ad497615d8a' date '17 November 2010' time '10:44:31 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.62' message '- try to massage test so that it works on VW and GST *crosses fingers*' id 'b363ae54-d371-4feb-a11e-093edd766d5d' date '25 October 2010' time '6:53:44 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.61' message '- remove #hash, #= and #isDictionary from GRSmallDictionary' id '3ef177e8-8cfe-4220-8ec9-c6465a2ca0a3' date '7 October 2010' time '3:56:34 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.60' message '- add #= and #hash to GRSmallDictionary' id 'e946e1ae-bf98-4e40-8ed4-edd6a74a5e59' date '6 September 2010' time '11:36:23 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-lr.59' message '- removed unused variables' id '2f67ce57-f819-4325-a755-83702fdb99c5' date '22 August 2010' time '3:32:41 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-DaleHenrichs.58' message '- adjust grease tests for GemStone Interval implementation; replace #= with #keysAndValuesDo: -' id 'eee22a4f-f247-40b3-adce-1506e74e1e11' date '4 June 1910' time '3:29:41 pm' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-Core-DaleHenrichs.57' message '- extend test coverage for GRStringTest>>testSubStrings to validate case when delimiters appear at beginning or end of the string' id 'b7655d05-7166-4820-8cbb-ea991289c39a' date '3 June 1910' time '3:15:58 pm' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-Core-pmm.56' message '- replace #asByteArray with #greaseString -- should really be portable now' id 'cad9705d-3e88-4e69-ac26-a484be26479d' date '27 May 1910' time '10:58:27 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.55' message '- Issue 569: Encoding information doesn''t get included in the response -- http://code.google.com/p/seaside/issues/detail?id=569 -- add accessor for null codec name' id '23a05e94-8f3c-4eff-902e-158dbd154be9' date '26 May 1910' time '9:42:20 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.54' message '- add test for #includesUnsafeXmlCharacter: -- add test for #includesUnsafeUrlCharacter:' id 'fb6ba21e-b2b5-4ece-b424-fd6ca2b4ada8' date '24 May 1910' time '6:29:48 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.53' message '- merge' id 'f82eb617-261d-4e44-89ac-b7f8543f8229' date '23 May 1910' time '8:06:26 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-jf.52' message 'Bump version numbers in preparation for an RC release' id 'de65bd6c-092f-4b90-83be-448847c95c4d' date '22 May 1910' time '11:46:52 pm' author 'jf' ancestors () stepChildren ())(name 'Grease-Tests-Core-NDA.52' message 'Fixed failing testCodecUtf8. Seemed that Michael had changed the test to check the codec name against the case of the encoding string. However Pharo GRPharoUtf8Codec>>name always returns a hardcoded ''utf-8'' resulting in a failing test on Pharo. It seemed unnecessary to store the case in an instance variable in GRPharoUtf8Codec so we changed the test to ignore case.' id 'bd5d325a-9c4c-496d-8f4e-f8e3cfc4d225' date '22 May 1910' time '4:26:32 pm' author 'NDA' ancestors ((name 'Grease-Tests-Core-mls.51' message '+ changed testCodecUtf8 to not assume the encoding name would always be lowercase. This is inconsistent with testCodecLatin1 which assumes the encoding name will be the same as the request name.' id '14cf1775-3b62-4151-8c52-bf50199c41ea' date '19 May 1910' time '2:47:45 pm' author 'mls' ancestors ((name 'Grease-Tests-Core-lr.50' message '- removed a part of a test that is marked as "might be incorrect" and that fails in Pharo 1.1' id '35c5195d-6aae-486f-9067-e1fafab8c22f' date '13 May 1910' time '3:56:34 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.49' message '- added a #newline accessor to GRPlatform that returns a string with the default newline character (sequence) -- moved implementation of #convertToSmalltalkNewlines: to OBPlatform as it can now be implemented in terms of #newline and doesn''t need to be provided by other platforms anymore' id '0f564e1c-14bf-4721-b656-b81e89595f4e' date '15 April 1910' time '7:31:50 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-pmm.48' message '- formatting' id 'eec2686d-d081-43e8-911d-bf8aa7914c77' date '11 April 1910' time '7:50:13 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.47' message '- Issue 559: codec tests cannot really work outside Pharo -- http://code.google.com/p/seaside/issues/detail?id=559 -- merge PaoloBozini.46' id 'c3da2a26-3053-4607-a70b-3a03a0b0188c' date '11 April 1910' time '7:46:22 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-pmm.46' message '- Issue 561: remove GRCodecStream >> #binary -- http://code.google.com/p/seaside/issues/detail?id=561' id '08ec86fa-2cba-41d6-9b2e-9ceb5acfdccc' date '11 April 1910' time '6:22:43 pm' author 'pmm' ancestors () stepChildren ())(name 'Grease-Tests-Core-PaoloBonzini.46' message 'codec fixes for gnu smalltalk - -- GRPlatform>>#decodeUtf8Character: fails in gst because (Character codePoint: NNN) can only be placed in a String for 0<=NNN<=127. Above 127 it returns a UnicodeCharacter. A portable application would use a codec on a ByteArray, which is what the proposed implementation does. - -- GRUtf8CodecTest>>#testCodecUtf8ShortestForm: allow raising an error. In fact, I believe the #deny: is not necessary, and the expected behavior should be to raise an error always. The test is currently XFAILed on Squeak. - -- other changes: compare the result of #decode: against a string literal instead of a Latin-1 string. Before comparing the result of #encode:, convert to ByteArray (gst doesn''t know the encodings, so it tries to convert the encoded string from UTF-8 to Unicode; this leads to failure)' id '4c6a8fed-7c43-41a9-995f-a346eb69106b' date '7 April 1910' time '9:41:45 am' author 'PaoloBonzini' ancestors ((name 'Grease-Tests-Core-jok.45' message 'Remove GRPlatformTest>>#testAsSeconds since it duplicates part of GRDurationTest>>#testConversions' id '113a8b36-960a-5040-ad4f-993cf555449e' date '5 April 1910' time '4:21:36 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-lr.44' message '- renamed all #testing protocols in TestCase classes with test methods to #tests or #tests-*, as discussed in the mailing list: - - #testing is for predicate methods, not unit tests. I''ve been moving them to #tests or #tests-* gradually but it might be good to do a sweeping change if others agree with me.' id 'b4e1b8dc-b3da-4949-aeb5-a18c4e34d13e' date '30 March 1910' time '8:59:03 am' author 'lr' ancestors ((name 'Grease-Tests-Core-jok.43' message 'VA Smalltalk doesn''t support ''Symbol new'' to create an empty collection; use #'''' instead' id 'b106192d-5a90-a041-87e6-fb80e59d79e8' date '29 March 1910' time '2:30:19 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-jok.42' message '- fix remaining tests (and add a few) from Issue 555 -- revert category from testing to tests' id 'd4ad3f84-f2f1-9b4f-bb62-318770590527' date '29 March 1910' time '2:14:29 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-jok.41' message 'fix the broken tests' id '02128e77-76d6-7f43-a894-eabe4796310c' date '25 March 1910' time '4:19:03 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-jok.40' message '- http://code.google.com/p/seaside/issues/detail?id=555 -- add #beginsWithSubCollection: and #endsWithSubCollection:' id '59d04e3f-ec91-fa43-bfbf-b2ead78e0d87' date '25 March 1910' time '10:49:30 am' author 'jok' ancestors ((name 'Grease-Tests-Core-pmm.39' message '- Issue 546: GCCodecEncoderStream>>next gives different types on different platforms -- http://code.google.com/p/seaside/issues/detail?id=546' id 'e7af7ec0-0d90-4ca5-ba0a-e7fda7a8c4e4' date '17 February 1910' time '8:12:07 pm' author 'pmm' ancestors ((name 'Grease-Tests-Core-lr.38' message '- added explicit repository url' id '5888b879-f025-4db4-861d-325c6c07e2aa' date '17 February 1910' time '3:53:56 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.37' message '- fixed some lint issues' id '7831ac5d-d4fd-43b5-9611-f4bd9e67f931' date '16 February 1910' time '9:16:38 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.36' message '- run protocol cleanup script' id '3178c569-6efb-4905-b297-2e732a274c6e' date '16 February 1910' time '7:59:38 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-jf.35' message 'move Collection isCollection tests on GRCollectionTest' id 'aecb109c-7d01-48ce-a598-d6afe38bd359' date '15 February 1910' time '11:07:05 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.34' message '#addAll: and #withAll: on dictionaries should take a Dictionary parameter, not a collection of Associations (according to ANSI)' id 'b37729a9-ab26-4c16-b525-65dc4d5a6461' date '15 February 1910' time '11:02:11 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.33' message 'add tests for IdentityDictionary and move testAssociationsDo: down so it only runs for dictionaries' id '7699143b-c170-48b7-88fc-8d5d0c9a0e02' date '15 February 1910' time '10:45:50 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.32' message 'Properly fix http://code.google.com/p/seaside/issues/detail?id=544 - -I introduce a GROrderedMultiMap which specifically allows duplicate keys (GRSmallDictionary no longer does). This is used to implement WARequestFields, which is used throughtout for storing GET and POST fields. #at: will return the first matching field and #allAt: will return all matching values. - -Various renamings, fixes to callbacks, and to unit and functional tests. - -I also had to fix the Swazoo and Comanche server adaptors to correctly create WARequestFields instances for the POST fields and to correctly include the raw POST body in all cases (but it seems to be a ByteArray in Swazoo''s case and a ByteString or String for Comanche... seems not ideal)' id 'c6c1f5f9-a7e2-4904-83a0-9dba70498b4a' date '15 February 1910' time '9:31:49 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-lr.31' message '- add an url to the package' id '0c35af12-5a97-411f-8c81-de1608752fa7' date '10 February 1910' time '11:33:39 am' author 'lr' ancestors ((name 'Grease-Tests-Core-jf.30' message 'The copyUpTo* tests were a bit harsh for Interval. Interval gets dispensation from ANSI to return any sequenced collection from its "copy" methods so we might as well follow the same practice for these methods. - -Also add comments throughout the Collection test case.' id 'ddd90b0d-50e9-4ed5-bb34-11f9002052d1' date '9 February 1910' time '12:22:44 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jok.29' message 'A string literals is immutable; don''t try to change it' id '2dc239fe-59bb-5640-a92a-b126969ca1a3' date '9 February 1910' time '1:23:22 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-jf.28' message 'http://code.google.com/p/seaside/issues/detail?id=503 - -Implement GRVersion as a (fairly) simple version number class.' id 'd97fcc1b-7389-4f03-8510-c326011c1ef3' date '9 February 1910' time '1:04:41 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.27' message 'merge' id 'dbaacd90-8945-4aae-98d4-45138b0d954b' date '6 February 1910' time '4:42:15 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.26' message 'add tests for #sorted and #sorted: and set up the Collection test suite to use a subclass for each Collection class. The latter should help ensure better test coverage of the various ANSI collection types. - -Note, there are a couple of failing tests on Pharo.' id '6c4eb454-5ff4-488f-867c-64fd8b2a2453' date '6 February 1910' time '4:41:02 am' author 'jf' ancestors () stepChildren ())(name 'Grease-Tests-Core-lr.26' message 'merged' id '13779a68-fb50-4739-930f-57068faa30d2' date '6 February 1910' time '11:16:32 am' author 'lr' ancestors ((name 'Grease-Tests-Core-lr.24' message '- pushed test coverage to 94%' id 'cdaee068-9ae1-409a-b94e-1cf309f0656c' date '6 February 1910' time '11:14:30 am' author 'lr' ancestors ((name 'Grease-Tests-Core-jf.23' message 'remove tests for singular forms of Duration helpers on Integer - -Discussions with platforms have formed agreement around supporting the plural forms, but not the singulars.' id '2dffff72-403c-4422-ae36-a27b7e6621bc' date '5 February 1910' time '11:11:59 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jok.22' message 'http://code.google.com/p/seaside/issues/detail?id=535 - -- remove test for #new:withAll: since Slime rewrote all senders' id 'bbb7f836-a0cd-cd4e-882e-a9d2b1d60685' date '26 January 1910' time '10:59:38 am' author 'jok' ancestors ((name 'Grease-Tests-Core-jf.21' message 'http://code.google.com/p/seaside/issues/detail?id=488 -Revert part of Grease-Tests-Core-dkh.4' id 'db971bf6-e519-4a10-99a2-5c3f76a1ee93' date '26 January 1910' time '2:01:29 am' author 'jf' ancestors ((name 'Grease-Tests-Core-lr.20' message '- fixing some slime issues' id 'b26bcc1a-bea2-405e-bd47-f0bbafe102b8' date '25 January 1910' time '11:36:53 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-jok.19' message 'http://code.google.com/p/seaside/issues/detail?id=536 - -- add Slime rule for keysSortedSafely -- transform keysSortedSafely -> keys asSortedCollection -- remove Grease test for keysSortedSafely' id '3f7bb47e-a8b6-bc47-ba3a-a50e63bd650b' date '25 January 1910' time '2:40:58 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-lr.18' message '- refactor character intervals $a to: $c to ''abc''' id 'd2f77b1f-a5a4-4505-bba2-6a8a234ebe77' date '23 January 1910' time '1:39:33 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-jok.17' message '#atRandom and #atRandom: are not portable (and not used by Seaside) -- remove their tests. - -' id 'ecc16f0f-c81c-e043-807b-3f6dcfb1bea0' date '22 January 1910' time '12:21:53 pm' author 'jok' ancestors ((name 'Grease-Tests-Core-jok.16' message 'remove #testCount since senders of #count: have been changed to use #inject:into:' id 'b26328f6-8376-2e46-8ffe-4ea480d1c0f8' date '8 January 1910' time '9:22:28 am' author 'jok' ancestors ((name 'Grease-Tests-Core-jf.15' message 'oops, forgot to remove this test' id '133a52a8-43b2-4fcf-9774-4610c0c84991' date '31 December 2009' time '11:26:16 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.14' message 'Write some more Slime rules and tests and apply them.' id '45b4b787-3546-4b20-8748-42b851064628' date '29 December 2009' time '8:54:04 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.13' message 'http://code.google.com/p/seaside/issues/detail?id=519 - -#findTokens: is not portable and has the same behaviour as ANSI''s #subStrings:, except that the parameter *must* be a collection of Characters (#findTokens: allows a single Character as wel)' id '09102181-eb65-4bcd-bd25-d07b2448468b' date '29 December 2009' time '2:29:41 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.12' message 'No need to test MessageSend for all platforms. VA doesn''t even have it and we have the GRDelayedSend classes that we use internally. - -Move the tests of the valuable protocol on MessageSend into the Pharo platform tests.' id 'a3775eb0-b1f1-45ca-81aa-613cf3e92c25' date '18 December 2009' time '12:31:37 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.11' message 'don''t need #printStringBase as you can use GRNumberPrinter' id 'ae4e8377-36a1-4d93-ab6a-6d3080a27451' date '18 December 2009' time '11:48:54 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.10' message 'Stop using #daysInMonthNumber:forYear:, which is different than the method that VA already has. Some discussion on this needs to be had by all platforms but for now it can be worked around using #daysInMonth:year: and #nameOfMonth:' id '3cb235a1-d352-4a08-91c8-917de33653e2' date '18 December 2009' time '10:32:44 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.9' message 'Stop using #newDay:monthNumber:year:, which is only in VW and can be worked around using #newDay:month:year: and #nameOfMonth:' id '0a84d54c-2d6d-4c0a-b509-121230344db8' date '18 December 2009' time '10:17:51 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.8' message 'this is only sent by platform code anyway - let''s revisit string comparison some time with an eye to having a *nice* API...' id '872c0fd5-c22f-4525-a022-57a00f6c6fb1' date '17 December 2009' time '11:05:17 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.7' message 'rename test method for accuracy' id 'c1a18a9a-a265-402c-a2b0-68f80542a2f1' date '7 December 2009' time '11:30:55 pm' author 'jf' ancestors ((name 'Grease-Tests-Core-lr.6' message '- fixed some lint rules' id 'ca6a3c3c-a010-4f08-a44e-36ba0d4c8047' date '3 December 2009' time '1:12:45 pm' author 'lr' ancestors ((name 'Grease-Tests-Core-pmm.5' message '- support ''UTF-8'' has a codec name as well' id '5a82da52-86dd-40a4-9445-16b680e3dff4' date '15 November 2009' time '11:07:53 am' author 'pmm' ancestors ((name 'Grease-Tests-Core-dkh.4' message '- fix bug http://code.google.com/p/seaside/issues/detail?id=488' id '916eae54-cdea-4628-8985-18ecd61ff50e' date '13 November 2009' time '3:47:58 pm' author 'dkh' ancestors ((name 'Grease-Tests-Core-dkh.3' message '- in GemStone the block arg for #on:do: must always have an argument ... fixed that in the new tests' id 'ed95f1d6-fc4d-4e27-b7c6-fc59c10388b7' date '13 November 2009' time '11:21:04 am' author 'dkh' ancestors ((name 'Grease-Tests-Core-jf.2' message 'VA Smalltalk had differing behaviour when an exception handler block ran to completion (depending on the exception type, sometimes it returned and sometimes it resumed). - -However, I have since discovered that the correct behaviour (returning in all cases) is defined in ANSI 5.5.15.2 and John has fixed the bug in the latest VASt 8.0.1. So I''m replacing the Slime rules with Grease tests.' id '81584859-a50b-474c-a75d-6e8a86632acf' date '3 November 2009' time '1:00:22 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.1' message 'Rename Seaside-Platform to Grease in order to help make clear that it is not Seaside-specific and can be used by other projects as a compatibility layer. This was spawned by discussions when I started porting Magritte to VAST using the Platform layer.' id '17fcc910-612b-4ee7-9d53-f93459751997' date '30 September 2009' time '10:47:28 pm' author 'jf' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-jf.25' message 'add tests for #any on empty collections' id 'b541cf88-64d9-490a-9e07-770006ba9c80' date '6 February 1910' time '1:28:40 am' author 'jf' ancestors ((name 'Grease-Tests-Core-jf.24' message 'Remove usage of non-Grease methods #nameOfDay:, #anyOne, and several Squeak-specific Duration selectors. - -Add Grease tests for Duration protocols discussed with platforms. Also test for #any.' id 'd8df12f4-821a-42ef-8c62-21ff964856dc' date '6 February 1910' time '1:15:51 am' author 'jf' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-pmm.75' message '- 1 / 0 results in a load time error in Smalltalk/X, use a #perform: to get around it' id '5a4f24bf-854a-4149-9e74-c85827bf8aca' date '24 August 2011' time '12:53:53 pm' author 'pmm' ancestors ((id '4aaa728d-9213-4f25-a547-e4d96b8dd263')) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-pmm.78' message '- add base64 test' id 'b2c98f48-1985-4c77-a231-c092b9a9a7a9' date '27 August 2011' time '3:15:26 pm' author 'pmm' ancestors ((id '5a4f24bf-854a-4149-9e74-c85827bf8aca')) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-lr.79' message '- add test for GRCodecStream>>#print:' id 'fbd38ae4-6daa-4712-926f-2893774a0c96' date '25 September 2011' time '10:19:41 am' author 'lr' ancestors ((id 'b2c98f48-1985-4c77-a231-c092b9a9a7a9')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-pmm.80' message '- kick #isFraction test' id 'cbcc68f0-8f2e-49db-b36e-bfe6a80af781' date '6 March 2012' time '7:35:36 pm' author 'pmm' ancestors ((id 'fbd38ae4-6daa-4712-926f-2893774a0c96')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-DamienCassou.81' message '- Use #shouldnt:raise: only with specific errors, or evaluate the given expression directly' id '8a4e2f51-3488-4cdd-bb23-b09cad4bd366' date '17 October 2013' time '2:01:41.211867 pm' author 'DamienCassou' ancestors ((id 'cbcc68f0-8f2e-49db-b36e-bfe6a80af781')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-pmm.100' message '#820 Configurations should not hold on to classes' id '2ef5713e-79bb-4e2c-951e-7ad6511940ec' date '12 July 2015' time '10:24:17 am' author 'pmm' ancestors ((id 'de282121-6c1f-4f8f-8f29-de7977548fd4')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Core-JohanBrichau.108' message 'subStrings: -> substrings:' id '39e0ba32-b80c-0d00-b4b5-477a00bfc9db' date '25 May 2017' time '12:12:41.862534 pm' author 'JohanBrichau' ancestors ((id '8314abad-f651-49f1-9fd7-d8737b4c0f2e')) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/methodProperties.json deleted file mode 100644 index 190af932..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "arbitraryCollection" : "DaleHenrichs 02/17/2011 17:09", - "collectionClass" : "DaleHenrichs 02/17/2011 17:09" } } 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..c3aa2463 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st @@ -0,0 +1,7 @@ +*Grease-Tests-Pharo-Core +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/GRGemStonePlatformTest.class/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/methodProperties.json deleted file mode 100644 index e9f4530b..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCompileIntoClassified" : "dkh 11/06/2009 09:41", - "testConvertToSmalltalkNewlines" : "DaleHenrichs 07/27/2010 12:03", - "testEncoderForUtf8Roundtrip" : "NorbertHartl 12/01/2010 19:17", - "testFullName" : "dkh 11/06/2009 08:50" } } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/methodProperties.json deleted file mode 100644 index f30efa20..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addBlockToCollection:with:" : "dkh 11/09/2009 16:25", - "expectedFailures" : "DaleHenrichs 01/18/2011 13:18", - "testToDoClosuresGemStone" : "dkh 11/09/2009 16:26" } } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 54583c0d..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsGemStoneCore" : "DaleHenrichs 06/03/2010 12:29" }, - "instance" : { - } } 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-Pharo20-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-Pharo20-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.package/GRQuadByteStringTest.class/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/methodProperties.json deleted file mode 100644 index 190af932..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "arbitraryCollection" : "DaleHenrichs 02/17/2011 17:09", - "collectionClass" : "DaleHenrichs 02/17/2011 17:09" } } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/methodProperties.json deleted file mode 100644 index 227fef90..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "multiByteConvert:" : "DaleHenrichs 02/17/2011 17:17", - "testMultiByteCapitalized" : "DaleHenrichs 02/17/2011 17:17", - "testMultiByteExcerpt" : "DaleHenrichs 02/17/2011 17:18", - "testMultiByteSubStrings" : "DaleHenrichs 02/17/2011 17:19", - "testMultiByteTrimBoth" : "DaleHenrichs 02/17/2011 17:19", - "testMultiByteTruncate" : "DaleHenrichs 02/17/2011 17:20" } } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/methodProperties.json deleted file mode 100644 index f731b902..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "DaleHenrichs 06/03/2010 12:27" } } diff --git a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/version b/repository/Grease-Tests-GemStone-Core.package/monticello.meta/version deleted file mode 100644 index 9c98886a..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-GemStone-Core-dkh.14' message '1.0.5 (dkh.143): - Move GRGemStonePlatformTest>>testFileLibrary to WAGemStoneFileLibraryTest ... reference to WAFileLibrary belongs in a Seaside package' id '094fb51b-4f5c-4ca1-a138-e528b0521f2f' date '04/27/2011' time '16:07:47' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.13' message '- fix Issue 227: Squeak/Pharo String extensions methods don''t work on multibyte strings http://code.google.com/p/glassdb/issues/detail?id=227' id 'f62ab156-12b1-4303-a41b-e7d7024698b5' date '02/17/2011' time '17:31:37' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.12' message '- open 1.0.3.1 for development - get Seaside3.0 running on GemStone3.0beta3 - fix Issue 212: http://code.google.com/p/glassdb/issues/detail?id=212 FileDirectory class>>onClient switched sense" [GemStone] - ANSI block behavior means that GemStone3.0 passes GRNumberTest>>testToDoClosures - wait for GemStone bugs 41222 and 41223 to be fixed to pass remaining tests' id 'f42c9e24-ead1-4c9b-9ca0-7375d1451cbe' date '01/20/2011' time '11:01:23' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.11' message '- User ServerDirectory in Grease (for performance) [GemStone]. - fix open file descriptor leak [GemStone]' id 'a11b0fb5-d54a-4794-a321-3fda02485a88' date '12/03/2010' time '16:50:11' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.10' message '- add GemStone test coverage for GRPlatform file library support methods' id 'dee1526c-d27a-47dd-b847-4f614dfba644' date '12/02/2010' time '17:16:25' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-NorbertHartl.9' message 'added test for GRCodec encoderFor:/decoderFor:' id '374d0ba8-bea4-4fe6-ba6d-a9068ab3ba36' date '12/01/2010' time '19:18:57' author 'NorbertHartl' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.8' message '- fix platform convert to newlines test' id 'caf41207-df6e-442c-bc9f-1bb77c840f2a' date '07/27/1910' time '12:49:27' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.7' message '- adjusted grease tests for GemStone Interval implementation; replace #= with #keysAndValuesDo:, so remove expected failures for those tests' id 'bc799773-ee27-43b2-89fe-a4c7227bf7e8' date '06/04/1910' time '15:33:50' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.6' message '- port to GemStone GLASS 1.0-beta.8 - 380 run, 375 passes, 4 expected failures, 1 failures, 0 errors, 0 unexpected passes' id '7e04736f-89b9-4439-96d7-a0d9912d3d97' date '06/03/1910' time '15:22:15' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.5' message '- fix bug http://code.google.com/p/seaside/issues/detail?id=488' id '41e1de46-dfc9-4fd1-97d2-34c9ae5cd94e' date '11/13/2009' time '15:48:13' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.4' message '- update dependencies based on loading experiences using ConfigurationOfSeaside30 ' id '37b746e7-a3c7-415a-a245-1e3382ae0eee' date '11/13/2009' time '15:17:13' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.3' message '- getting down to just a couple of failed tests' id 'f5635053-32f3-4beb-ae51-6e476dd1010a' date '11/09/2009' time '16:57:31' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.2' message '- fix some GR* refs' id '4afdfd1b-c258-4edd-ad1e-33afef08e3f2' date '11/06/2009' time '09:43:00' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.1' message '- port from Seaside-Tests-GemStone-Platform' id 'b7b28aea-1c5f-445b-9236-7aefd7be4f69' date '11/06/2009' time '08:51:24' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file 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/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/methodProperties.json deleted file mode 100644 index 190af932..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRDoubleByteStringTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "arbitraryCollection" : "DaleHenrichs 02/17/2011 17:09", - "collectionClass" : "DaleHenrichs 02/17/2011 17:09" } } 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/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/methodProperties.json deleted file mode 100644 index e9f4530b..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRGemStonePlatformTest.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCompileIntoClassified" : "dkh 11/06/2009 09:41", - "testConvertToSmalltalkNewlines" : "DaleHenrichs 07/27/2010 12:03", - "testEncoderForUtf8Roundtrip" : "NorbertHartl 12/01/2010 19:17", - "testFullName" : "dkh 11/06/2009 08:50" } } 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/GRNumberTest.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/methodProperties.json deleted file mode 100644 index f30efa20..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRNumberTest.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addBlockToCollection:with:" : "dkh 11/09/2009 16:25", - "expectedFailures" : "DaleHenrichs 01/18/2011 13:18", - "testToDoClosuresGemStone" : "dkh 11/09/2009 16:26" } } 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/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 54583c0d..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsGemStoneCore" : "DaleHenrichs 06/03/2010 12:29" }, - "instance" : { - } } 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/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/methodProperties.json deleted file mode 100644 index 190af932..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRQuadByteStringTest.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "arbitraryCollection" : "DaleHenrichs 02/17/2011 17:09", - "collectionClass" : "DaleHenrichs 02/17/2011 17:09" } } 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/GRStringTest.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/methodProperties.json deleted file mode 100644 index 227fef90..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRStringTest.extension/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "multiByteConvert:" : "DaleHenrichs 02/17/2011 17:17", - "testMultiByteCapitalized" : "DaleHenrichs 02/17/2011 17:17", - "testMultiByteExcerpt" : "DaleHenrichs 02/17/2011 17:18", - "testMultiByteSubStrings" : "DaleHenrichs 02/17/2011 17:19", - "testMultiByteTrimBoth" : "DaleHenrichs 02/17/2011 17:19", - "testMultiByteTruncate" : "DaleHenrichs 02/17/2011 17:20" } } 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/GRUtf8CodecTest.extension/methodProperties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/methodProperties.json deleted file mode 100644 index 8051b203..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/GRUtf8CodecTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "dkh 06/04/2014 14:54" } } 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/monticello.meta/version b/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/version deleted file mode 100644 index 15cff5de..00000000 --- a/repository/Grease-Tests-GemStone-Core.v32.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-GemStone-Core.v32-dkh.16' message 'no expected failurs in GRUtf8CodecTest for GemStone 3.2' id 'e5901bc5-5d3d-4cda-ae14-fd6e7b5bd5cf' date '06/04/2014' time '14:54:37' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core.v32-dkh.15' message 'GemStone3.2 branch for glassdb/Seaside31#21 work' id '1c824354-12b8-4e2b-b64f-64c769d4bdff' date '06/04/2014' time '14:52:52' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.14' message '1.0.5 (dkh.143): - Move GRGemStonePlatformTest>>testFileLibrary to WAGemStoneFileLibraryTest ... reference to WAFileLibrary belongs in a Seaside package' id '094fb51b-4f5c-4ca1-a138-e528b0521f2f' date '04/27/2011' time '16:07:47' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.13' message '- fix Issue 227: Squeak/Pharo String extensions methods don''t work on multibyte strings http://code.google.com/p/glassdb/issues/detail?id=227' id 'f62ab156-12b1-4303-a41b-e7d7024698b5' date '02/17/2011' time '17:31:37' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.12' message '- open 1.0.3.1 for development - get Seaside3.0 running on GemStone3.0beta3 - fix Issue 212: http://code.google.com/p/glassdb/issues/detail?id=212 FileDirectory class>>onClient switched sense" [GemStone] - ANSI block behavior means that GemStone3.0 passes GRNumberTest>>testToDoClosures - wait for GemStone bugs 41222 and 41223 to be fixed to pass remaining tests' id 'f42c9e24-ead1-4c9b-9ca0-7375d1451cbe' date '01/20/2011' time '11:01:23' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.11' message '- User ServerDirectory in Grease (for performance) [GemStone]. - fix open file descriptor leak [GemStone]' id 'a11b0fb5-d54a-4794-a321-3fda02485a88' date '12/03/2010' time '16:50:11' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.10' message '- add GemStone test coverage for GRPlatform file library support methods' id 'dee1526c-d27a-47dd-b847-4f614dfba644' date '12/02/2010' time '17:16:25' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-NorbertHartl.9' message 'added test for GRCodec encoderFor:/decoderFor:' id '374d0ba8-bea4-4fe6-ba6d-a9068ab3ba36' date '12/01/2010' time '19:18:57' author 'NorbertHartl' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.8' message '- fix platform convert to newlines test' id 'caf41207-df6e-442c-bc9f-1bb77c840f2a' date '07/27/1910' time '12:49:27' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.7' message '- adjusted grease tests for GemStone Interval implementation; replace #= with #keysAndValuesDo:, so remove expected failures for those tests' id 'bc799773-ee27-43b2-89fe-a4c7227bf7e8' date '06/04/1910' time '15:33:50' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-DaleHenrichs.6' message '- port to GemStone GLASS 1.0-beta.8 - 380 run, 375 passes, 4 expected failures, 1 failures, 0 errors, 0 unexpected passes' id '7e04736f-89b9-4439-96d7-a0d9912d3d97' date '06/03/1910' time '15:22:15' author 'DaleHenrichs' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.5' message '- fix bug http://code.google.com/p/seaside/issues/detail?id=488' id '41e1de46-dfc9-4fd1-97d2-34c9ae5cd94e' date '11/13/2009' time '15:48:13' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.4' message '- update dependencies based on loading experiences using ConfigurationOfSeaside30 ' id '37b746e7-a3c7-415a-a245-1e3382ae0eee' date '11/13/2009' time '15:17:13' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.3' message '- getting down to just a couple of failed tests' id 'f5635053-32f3-4beb-ae51-6e476dd1010a' date '11/09/2009' time '16:57:31' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.2' message '- fix some GR* refs' id '4afdfd1b-c258-4edd-ad1e-33afef08e3f2' date '11/06/2009' time '09:43:00' author 'dkh' ancestors ((name 'Grease-Tests-GemStone-Core-dkh.1' message '- port from Seaside-Tests-GemStone-Platform' id 'b7b28aea-1c5f-445b-9236-7aefd7be4f69' date '11/06/2009' time '08:51:24' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ 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-Pharo20-Core.package/.filetree b/repository/Grease-Tests-GemStone32-Core.package/.filetree similarity index 100% rename from repository/Grease-Pharo20-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..c3aa2463 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st @@ -0,0 +1,7 @@ +*Grease-Tests-Pharo-Core +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-Pharo10-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo10-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-Squeak5-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-GemStone32-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-GemStone32-Core.package/GRPlatformTest.extension/properties.json 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-Pharo20-Core.package/properties.json b/repository/Grease-Tests-GemStone32-Core.package/properties.json similarity index 100% rename from repository/Grease-Pharo20-Core.package/properties.json rename to repository/Grease-Tests-GemStone32-Core.package/properties.json diff --git a/repository/Grease-Tests-Pharo-Core.package/.filetree b/repository/Grease-Tests-Pharo-Core.package/.filetree index 8998102c..57a67973 100644 --- a/repository/Grease-Tests-Pharo-Core.package/.filetree +++ b/repository/Grease-Tests-Pharo-Core.package/.filetree @@ -1,4 +1,5 @@ { - "noMethodMetaData" : true, "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st b/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st index 13e2b7cf..faa9bf79 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st @@ -1,9 +1,9 @@ -*grease-tests-pharo-core +*Grease-Tests-Pharo-Core greaseTestsPharoCore ^ self new name: 'Grease-Tests-Pharo-Core'; description: 'Unit tests for the package Grease-Pharo-Core.'; addDependency: 'Grease-Pharo-Core'; addDependency: 'Grease-Tests-Core'; - url: #seasideUrl; + url: #greaseUrl; yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index d24a28b9..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsPharoCore" : "lr 2/17/2010 15:11" }, - "instance" : { - } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json index dd2faaf0..ae522a7e 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json +++ b/repository/Grease-Tests-Pharo-Core.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-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/GRPharoCodecTest.class/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/methodProperties.json deleted file mode 100644 index f6f5a240..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assert:next:startingAt:gives:" : "pmm 4/21/2012 20:54", - "assertEncodingIgnoresLanguageTat:" : "pmm 12/26/2010 22:24", - "stripLeadingCharFrom:" : "pmm 12/26/2010 22:13", - "testAllCodesIncludesIso88591" : "pmm 8/16/2010 00:24", - "testGreaseNextPutAllStartingAt" : "pmm 5/21/2014 21:09", - "testLanguageTag" : "pmm 12/26/2010 22:25" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json index 8534beee..4ab9f669 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoCodecTest", - "pools" : [ - ], "super" : "TestCase", - "type" : "normal" } + "category" : "Grease-Tests-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoCodecTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/methodProperties.json deleted file mode 100644 index 04f10d1b..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "lr 7/25/2011 19:51", - "testAllColors" : "lr 7/25/2011 18:34", - "testColorAsHtmlColor" : "MAD 8/29/2008 15:36", - "testFromSixDigit" : "pmm 11/20/2008 22:00", - "testFromStringName" : "pmm 9/1/2012 15:32", - "testFromStringSixDigit" : "pmm 11/20/2008 22:01", - "testFromStringThreeDigit" : "pmm 9/1/2012 15:32" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json index c378a9cc..d2512288 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoColorTest", - "pools" : [ - ], "super" : "TestCase", - "type" : "normal" } + "category" : "Grease-Tests-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoColorTest", + "type" : "normal" +} \ 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/GRPharoGenericCodecTest.class/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/methodProperties.json deleted file mode 100644 index a58c2b7c..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testNoAmbiguities" : "pmm 8/16/2010 00:47" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json index f3220883..5a620d00 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoGenericCodecTest", - "pools" : [ - ], "super" : "TestCase", - "type" : "normal" } + "category" : "Grease-Tests-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoGenericCodecTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/runCase.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/runCase.st similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/runCase.st rename to repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/runCase.st 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 9af1697f..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. - self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelectorSilently: selector ] \ No newline at end of file + 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..da5e9af5 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st @@ -0,0 +1,7 @@ +*Grease-Tests-Pharo-Core +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/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st index d2d7a808..b1c2016e 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st @@ -24,12 +24,10 @@ testMessageSendValueWithPossibleArguments selector: #+. self assert: send argumentCount = 1. self assert: send arguments size = 0. - self assert: send fixCallbackTemps == send. send := MessageSend receiver: 1 selector: #+ argument: 2. self assert: send argumentCount isZero. - self assert: send arguments size = 1. - self assert: send fixCallbackTemps == send \ No newline at end of file + self assert: send arguments size = 1 \ 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/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st new file mode 100644 index 00000000..65cfb81c --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st @@ -0,0 +1,5 @@ +tests +testUseByteArrayLiterals + | useByteArrayLiterals | + useByteArrayLiterals := GRPlatform current useByteArrayLiterals. + self assert: (useByteArrayLiterals or: [ useByteArrayLiterals not ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st deleted file mode 100644 index d9e95032..00000000 --- a/repository/Grease-Tests-Pharo-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-Pharo20-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st rename to repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/methodProperties.json deleted file mode 100644 index 77ca0b72..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCompileIntoClassified" : "jf 9/30/2009 00:19", - "testFullName" : "jf 10/6/2008 14:37", - "testGreaseIntegerOnCharacter" : "pmm 12/26/2010 21:44", - "testMessageSendValueWithPossibleArguments" : "jf 12/18/2009 12:29", - "testWriteToFileInFolderBinary" : "pmm 1/22/2012 16:09", - "testWriteToFileInFolderText" : "pmm 1/22/2012 15:54", - "writeToFile:" : "pmm 1/22/2012 15:57" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json index 7863f9fd..806464d0 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoPlatformTest", - "pools" : [ - ], "super" : "TestCase", - "type" : "normal" } + "category" : "Grease-Tests-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRPharoPlatformTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st index 4a9a1fa4..4d8e31eb 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st @@ -1,4 +1,4 @@ -*grease-tests-pharo-core +*Grease-Tests-Pharo-Core testScaledDecimalGreaseString self assert: 123.4s1 greaseString = '123.4'. self assert: 123.4s2 greaseString = '123.40'. 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/GRPlatformTest.extension/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/methodProperties.json deleted file mode 100644 index 09cf1de3..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalGreaseString" : "pmm 9/15/2013 12:00" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json index ab3f269a..63c6422f 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "GRPlatformTest" } + "name" : "GRPlatformTest" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st index 5e5d9a6b..a118fc23 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st @@ -1,4 +1,4 @@ -*grease-tests-pharo-core +*Grease-Tests-Pharo-Core testScaledDecimalPrinter | converter | converter := GRNumberPrinter new precision: 2. diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/methodProperties.json deleted file mode 100644 index 4738d7db..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalPrinter" : "pmm 9/15/2013 11:35" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json index 125a8c96..c4ec57ca 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "GRPrinterTest" } + "name" : "GRPrinterTest" +} \ 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 545c023a..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 +*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/GRUtf8CodecTest.extension/methodProperties.json b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/methodProperties.json deleted file mode 100644 index e948a56d..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "lr 7/25/2011 19:52" } } diff --git a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json index 8b1a3361..3821af97 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json @@ -1,2 +1,3 @@ { - "name" : "GRUtf8CodecTest" } + "name" : "GRUtf8CodecTest" +} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st index 8f89143a..7bce97a3 100644 --- a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st +++ b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st @@ -1 +1 @@ -SystemOrganization addCategory: #'Grease-Tests-Pharo-Core'! +self packageOrganizer ensurePackage: #'Grease-Tests-Pharo-Core' withTags: #()! diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/version b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/version deleted file mode 100644 index e21206d5..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Pharo-Core-pmm.22' message 'Issue 792: Issue encoding a non-ascii character preceded by an xml-unsafe one - https://code.google.com/p/seaside/issues/detail?id=792 - move GRCountingStream from Pharo-only package to Core' id '9544fcd4-e1e7-4d17-9586-82ecc0402a4c' date '21 May 2014' time '9:35:59 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.21' message 'Issue 770: ScaledDecimal rendering support http://code.google.com/p/seaside/issues/detail?id=770' id '87f003ce-ca35-4b4d-940f-716ceadfec2b' date '15 September 2013' time '12:19:58 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.20' message '- Slime' id '0af86ec3-1c6f-4158-b32d-a6db74ed5c19' date '14 September 2013' time '9:52:16 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.19' message '- Slime fixes, mostly recategorizations' id 'c563e0f1-b510-46fd-aa49-1b0aa7c03b89' date '3 September 2012' time '4:35:15 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.18' message '- formatting Nazis from outer space' id '6c9df51f-cf00-4a1e-8ee9-cc58fa45b610' date '1 September 2012' time '5:02:57 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.17' message '- Issue 733: multibyte characters broken when flushing a WAComboResponse - http://code.google.com/p/seaside/issues/detail?id=733' id '18f64df3-3cc1-4bb7-97cd-ddd9a3e18561' date '25 June 2012' time '9:06:57 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.16' message '- fix off by one error' id '4918147b-5d79-434e-92c8-68e10be339ef' date '21 April 2012' time '9:01:22 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.15' message '- checkstyle' id 'f097854b-5c2e-4767-9031-39075bf621ed' date '22 January 2012' time '4:10:12 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.14' message '- Issue 699: GRPharoPlatform>>#write:toFile:inFolder: uses CrLfFileStream in seaside 3.0.6.3' id '3b417409-7b1e-47a5-9601-4931425fb496' date '22 January 2012' time '4:00:25 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-lr.13' message '- fixed formatting of return message' id 'c6dbcdf2-251f-4ad9-9219-927ba1cd2465' date '25 July 2011' time '8:18:52 pm' author 'lr' ancestors ((name 'Grease-Tests-Pharo-Core-lr.12' message '- fixed spacing in blocks' id 'dc350031-4a17-4557-8fc2-eb8aaa939159' date '25 July 2011' time '7:19:24 pm' author 'lr' ancestors ((name 'Grease-Tests-Pharo-Core-lr.11' message '- fixing method categories' id 'd42b8469-aaab-4cd5-bf8f-8efd15ae33fb' date '25 July 2011' time '11:07:38 am' author 'lr' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.10' message '- check leading char does not have an influce on encoding' id '7c8ccfc0-34fd-410b-adbc-3ef2ffef5091' date '26 December 2010' time '10:29:22 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.9' message '- cosmetics' id '53c26199-0b1c-4f1f-8339-6e0bbbcd4c05' date '26 December 2010' time '10:09:49 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-pmm.8' message '- Issue 570: iso-8859-1 doesn''t show up in the encoding list of the server adapter - http://code.google.com/p/seaside/issues/detail?id=570' id '7bb03449-cc68-4546-afb5-bdd2af40438f' date '16 August 2010' time '12:58:10 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo-Core-jok.7' message 'remove redundant #testConvertToSmalltalkNewlines' id '427a0773-62f9-f04a-ac30-cbb8db7bc866' date '15 April 2010' time '4:13:48 pm' author 'jok' ancestors ((name 'Grease-Tests-Pharo-Core-lr.6' message '- added explicit repository url' id '1b881541-baf0-41c8-9c20-c84f1900b030' date '17 February 2010' time '3:44:35 pm' author 'lr' ancestors ((name 'Grease-Tests-Pharo-Core-jf.5' message 'Write some more Slime rules and tests and apply them.' id 'd330cc25-558e-4d6a-9e6f-e5dfe7174210' date '29 December 2009' time '8:50:27 pm' author 'jf' ancestors ((name 'Grease-Tests-Pharo-Core-lr.4' message '- do not use any longer #printOn: and #printContentOn: in JSObject, but use #javascriptOn: and #javascriptContentOn: - implementors of external libraries that implment or send any of these methods need to perform the renaming as well' id 'd18ae4a5-33f6-4c79-bf14-a9fd162687b2' date '24 December 2009' time '11:19:28 am' author 'lr' ancestors ((name 'Grease-Tests-Pharo-Core-jf.3' message 'No need to test MessageSend for all platforms. VA doesn''t even have it and we have the GRDelayedSend classes that we use internally. Move the tests of the valuable protocol on MessageSend into the Pharo platform tests.' id '9f25fb89-15ae-4483-8b86-46ba68d13df6' date '18 December 2009' time '12:32:10 pm' author 'jf' ancestors ((name 'Grease-Tests-Pharo-Core-dkh.2' message '- move the expected failure for #testCodecUtf8ShortestForm from Seaside-Tests-Pharo-Core to Grease-Tests-Pharo-Core. since utf8 tests moved to Grease' id 'a291cb07-37e5-46a0-9eb5-fb93aa7a5ce8' date '13 November 2009' time '4:11:29 pm' author 'dkh' ancestors ((name 'Grease-Tests-Pharo-Core-jf.1' message 'Rename Seaside-Platform to Grease in order to help make clear that it is not Seaside-specific and can be used by other projects as a compatibility layer. This was spawned by discussions when I started porting Magritte to VAST using the Platform layer.' id 'dd546d83-004b-436b-8c98-02e8a5c42727' date '30 September 2009' time '10:47:37 pm' author 'jf' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/properties.json b/repository/Grease-Tests-Pharo-Core.package/properties.json index f037444a..6f31cf5a 100644 --- a/repository/Grease-Tests-Pharo-Core.package/properties.json +++ b/repository/Grease-Tests-Pharo-Core.package/properties.json @@ -1,2 +1 @@ -{ - } +{ } \ No newline at end of file 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-Pharo20-Core.package/.filetree b/repository/Grease-Tests-Pharo20-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/class/greaseTestsPharo20Core.st b/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/class/greaseTestsPharo20Core.st deleted file mode 100644 index 0d808d21..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/class/greaseTestsPharo20Core.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-tests-pharo20-core -greaseTestsPharo20Core - ^ self new - name: 'Grease-Tests-Pharo20-Core'; - description: 'Unit tests for the package Grease-Pharo-Core.'; - addDependency: 'Grease-Pharo20-Core'; - addDependency: 'Grease-Tests-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 809f9e26..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsPharo20Core" : "pmm 9/12/2013 16:00" }, - "instance" : { - } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/instance/testLanguageTag.st deleted file mode 100644 index 57a2a02c..00000000 --- a/repository/Grease-Tests-Pharo20-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-Pharo20-Core.package/GRPharoCodecTest.class/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/methodProperties.json deleted file mode 100644 index 5050d679..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assert:next:startingAt:gives:" : "pmm 4/21/2012 20:54", - "assertEncodingIgnoresLanguageTat:" : "pmm 12/26/2010 22:24", - "stripLeadingCharFrom:" : "pmm 12/26/2010 22:13", - "testAllCodesIncludesIso88591" : "pmm 8/16/2010 00:24", - "testGreaseNextPutAllStartingAt" : "pmm 5/21/2014 20:43", - "testLanguageTag" : "pmm 12/26/2010 22:25" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/properties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/properties.json deleted file mode 100644 index 90921f0b..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoColorTest.class/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoColorTest.class/methodProperties.json deleted file mode 100644 index 4c08773c..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoColorTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "lr 7/25/2011 19:51", - "testAllColors" : "lr 7/25/2011 18:34", - "testColorAsHtmlColor" : "MAD 8/29/2008 15:36", - "testFromSixDigit" : "pmm 11/20/2008 22:00", - "testFromStringName" : "pmm 8/25/2016 10:59", - "testFromStringSixDigit" : "pmm 11/20/2008 22:01", - "testFromStringThreeDigit" : "pmm 8/25/2016 11:00" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoColorTest.class/properties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoColorTest.class/properties.json deleted file mode 100644 index 02ca98fe..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoColorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoColorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st deleted file mode 100644 index 28ee8c57..00000000 --- a/repository/Grease-Tests-Pharo20-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-Pharo20-Core.package/GRPharoGenericCodecTest.class/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/methodProperties.json deleted file mode 100644 index a58c2b7c..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testNoAmbiguities" : "pmm 8/16/2010 00:47" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/properties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/properties.json deleted file mode 100644 index 3f5933ce..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoGenericCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoGenericCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 112d896b..00000000 --- a/repository/Grease-Tests-Pharo20-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 removeSelector: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st deleted file mode 100644 index d2d7a808..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,35 +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. - self assert: send fixCallbackTemps == send. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1. - self assert: send fixCallbackTemps == send \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st deleted file mode 100644 index c12a405b..00000000 --- a/repository/Grease-Tests-Pharo20-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-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st deleted file mode 100644 index ee0eadd5..00000000 --- a/repository/Grease-Tests-Pharo20-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-Pharo20-Core.package/GRPharoPlatformTest.class/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/methodProperties.json deleted file mode 100644 index 726a319e..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "runCase" : "pmm 9/12/2013 18:03", - "testCompileIntoClassified" : "JohanBrichau 4/19/2014 17:14", - "testFullName" : "jf 10/6/2008 14:37", - "testGreaseIntegerOnCharacter" : "pmm 12/26/2010 21:44", - "testMessageSendValueWithPossibleArguments" : "jf 12/18/2009 12:29", - "testReadWriteToFileInFolderBinary" : "pmm 8/25/2016 10:59", - "testReadWriteToFileInFolderText" : "pmm 8/25/2016 10:59", - "writeToFile:withFileNameDo:" : "JohanBrichau 11/8/2014 10:33" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/properties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/properties.json deleted file mode 100644 index f617c1f5..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Pharo20-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoPlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Pharo20-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st deleted file mode 100644 index 52c3ecdb..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-pharo20-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-Pharo20-Core.package/GRPlatformTest.extension/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPlatformTest.extension/methodProperties.json deleted file mode 100644 index 6c231457..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPlatformTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalGreaseString" : "pmm 9/15/2013 12:27" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st b/repository/Grease-Tests-Pharo20-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st deleted file mode 100644 index d653584c..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st +++ /dev/null @@ -1,19 +0,0 @@ -*grease-tests-pharo20-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-Pharo20-Core.package/GRPrinterTest.extension/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPrinterTest.extension/methodProperties.json deleted file mode 100644 index b40f2df1..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRPrinterTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalPrinter" : "pmm 9/15/2013 12:27" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 62dbec7c..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-tests-pharo20-core -expectedFailures - ^ #(testCodecUtf8ShortestForm) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/methodProperties.json deleted file mode 100644 index 7fac0a00..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "JohanBrichau 8/22/2013 19:54" } } diff --git a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/categories.st deleted file mode 100644 index eabdc49f..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-Pharo20-Core'! diff --git a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/package b/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/package deleted file mode 100644 index c837c0c1..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Pharo20-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/version b/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/version deleted file mode 100644 index eeb816e5..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Pharo20-Core-pmm.13' message '- lint fixes' id 'af62c7cc-c575-402a-96c0-4d460c8199e6' date '25 August 2016' time '11:04:17.926889 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.12' message 'Added tests for file reading' id '6b2eb7ec-5ea0-4109-b85f-940c6156b6d4' date '8 November 2014' time '10:39:38.553637 am' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.11' message 'Issue 792: Issue encoding a non-ascii character preceded by an xml-unsafe one - https://code.google.com/p/seaside/issues/detail?id=792' id '3247b811-bdef-473a-aa2d-473a532ec629' date '21 May 2014' time '9:32:12.009306 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.10' message 'Issue 789: Running WAFilelibraryTest on Pharo3 leaves Seaside-Tests-Core package in a dirty state https://code.google.com/p/seaside/issues/detail?id=789' id 'e3e4c2eb-cef7-4168-aeae-7a57490aa2b1' date '19 April 2014' time '5:31:18.877112 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.9' message 'move GRCountingStream from Pharo-only package to Core' id 'b89fed14-cf86-4d07-829c-cbdcea6da4f4' date '16 February 2014' time '9:30:04.97327 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.8' message 'Issue 770: ScaledDecimal rendering support http://code.google.com/p/seaside/issues/detail?id=770' id '6e6bd71a-439c-4902-a68d-e1af63451f40' date '15 September 2013' time '12:28:07.009 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.7' message '- bring #doSilently: back' id '906ba423-0a76-410e-8e76-1f9df06cf8cc' date '12 September 2013' time '6:04:53.713 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.6' message '- fix URLs' id 'ff0b9dc6-d275-4f59-8a5b-a01e9cff4ec6' date '12 September 2013' time '4:01:56.23633 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.5' message '- fix compilation' id 'd299e09d-7488-4996-801a-ba125ebef913' date '12 September 2013' time '11:26:02.540867 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.4' message 'GRUtf8CodecTest.testCodecUtf8ShortestForm is an expected failure' id '8f5f9382-81d9-41d4-92b7-69628deaab25' date '22 August 2013' time '8:00:55.046 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.3' message '- ???' id 'e4ea84af-efd3-48cb-83b5-cacb0a234bf7' date '19 August 2012' time '10:13:51.278 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.2' message '- change package name' id 'fadba33c-472e-4ea1-a210-fc25fee25c8e' date '4 August 2012' time '1:10:10.314 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.1' message '- bump' id '4feb168a-ce43-4b92-bdf2-d83c8c5d2405' date '4 August 2012' time '1:06:42.944 pm' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo20-Core.package/properties.json b/repository/Grease-Tests-Pharo20-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-Pharo20-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } 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/methodProperties.json b/repository/Grease-Tests-Slime.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index b56d20f5..00000000 --- a/repository/Grease-Tests-Slime.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsSlime" : "lr 2/17/2010 15:22" }, - "instance" : { - } } 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/methodProperties.json b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/methodProperties.json deleted file mode 100644 index 00a8f6c3..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/methodProperties.json +++ /dev/null @@ -1,45 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "canParse:" : "lr 1/25/2010 22:07", - "category" : "lr 1/25/2010 22:07", - "compile:in:" : "lr 1/25/2010 22:07", - "defineClass:superclass:" : "lr 1/24/2010 18:19", - "rules" : "jok 1/26/2010 14:36", - "run:do:" : "lr 9/8/2011 23:13", - "run:ignoring:do:" : "pmm 9/1/2012 12:14", - "runCase" : "JohanBrichau 9/10/2013 11:29", - "runRule:selectors:" : "pmm 9/1/2012 12:10", - "runRule:selectors:ignoring:" : "pmm 9/1/2012 12:16", - "runTransformation:changes:" : "pmm 9/1/2012 12:15", - "setUp" : "lr 9/8/2011 23:13", - "tearDown" : "pmm 9/13/2013 11:14", - "testAnsiBooleansRule" : "jok 1/26/2010 15:10", - "testAnsiCharacterRule" : "jok 1/26/2010 15:10", - "testAnsiCollectionsRule" : "lr 7/25/2011 17:32", - "testAnsiConditionalsRule" : "jok 1/26/2010 15:11", - "testAnsiConvertorRule" : "jok 1/26/2010 15:12", - "testAnsiExceptionsRule" : "jok 1/26/2010 15:12", - "testAnsiStreamsRule" : "jok 1/26/2010 15:13", - "testAnsiStringsRule" : "pmm 9/13/2013 09:52", - "testBasicNewInitializeMissing" : "jok 1/26/2010 15:02", - "testBlockFormatting" : "pmm 9/14/2013 15:30", - "testDeprecatedApiProtocol" : "jok 1/26/2010 15:22", - "testEmptyStatements" : "pmm 9/1/2012 12:16", - "testInvalidObjectInitialization" : "jok 1/26/2010 15:05", - "testNonPortableMessageRule" : "AvO 9/13/2013 15:00", - "testNonPortableSourceFormat" : "pmm 2/12/2011 09:51", - "testNotPortableCollectionsRule" : "jok 3/24/2010 14:28", - "testObjectIn" : "jok 1/26/2010 15:14", - "testParensFormatting" : "lr 7/25/2011 16:41", - "testReturnFormatting" : "lr 7/25/2011 16:33", - "testTempsFormatting" : "lr 7/25/2011 16:35", - "testTestCaseFailRule" : "pmm 8/17/2014 11:55", - "testUnnecessaryLastPeriodRule" : "pmm 9/1/2012 12:24", - "testUsesCanPerformOrUnderstand" : "JohanBrichau 9/14/2013 12:00", - "testUsesClassForHash" : "lr 10/14/2010 09:11", - "testUsesCurlyBraceArrays" : "jok 1/26/2010 15:15", - "testUsesLiteralByteArrays" : "jok 1/26/2010 15:15", - "testUsesMethodAnnotations" : "jok 1/26/2010 15:06", - "testUsesNotPortableClass" : "jok 1/26/2010 15:06" } } 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/monticello.meta/version b/repository/Grease-Tests-Slime.package/monticello.meta/version deleted file mode 100644 index f48bc199..00000000 --- a/repository/Grease-Tests-Slime.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Slime-pmm.19' message 'Issue 777: Make TestCase >> #fail SLime rule' id '856126e0-dc81-4d67-bee9-a663ac85fec5' date '17 August 2014' time '12:30 pm' author 'pmm' ancestors ((name 'Grease-Tests-Slime-pmm.18' message '- should be block arguments, not symbols' id '5de41290-e828-481b-ac6b-2cc34caafe23' date '14 September 2013' time '3:31 pm' author 'pmm' ancestors ((name 'Grease-Tests-Slime-JohanBrichau.17' message 'Fix failing tests (invalid code being compiled)' id '08c2ea8c-1cdf-43eb-96b1-52a53d0705af' date '14 September 2013' time '12:27:14.577 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Slime-pmm.16' message '- merge commit' id '890c4ea1-ec49-43cf-8961-450d1e4cb9bb' date '14 September 2013' time '8:48:38 am' author 'pmm' ancestors ((name 'Grease-Tests-Slime-pmm.15' message 'Issue 741: #includesSubString: deprecated in Pharo 2.0 http://code.google.com/p/seaside/issues/detail?id=741' id 'd952f571-ea60-4080-84fe-1976473d8088' date '13 September 2013' time '9:53:33 am' author 'pmm' ancestors ((name 'Grease-Tests-Slime-JohanBrichau.14' message 'deal with #doSilently: change from Pharo2.0 onward' id '1f3ff547-4809-4ef1-845f-6dd850f9b606' date '10 September 2013' time '11:36:27.806 am' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Slime-JohanBrichau.13' message 'From Pharo1.4 (at least), removing a class category raises an error when it''s not empty. Therefore empty the category first (in the #teardown: method of GRSlimeTest)' id 'e5e10a29-8a58-438e-94d8-45ff7470eb97' date '10 September 2013' time '11:07:45.21 am' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Slime-pmm.12' message '- add rule to detect unnecessary last period' id '8982414c-a781-48c8-bc4c-d73c18c7cc2d' date '1 September 2012' time '12:30:29 pm' author 'pmm' ancestors ((name 'Grease-Tests-Slime-pmm.11' message '- add rule for #canPerform: or #canUnderstand:' id '0ee0b478-63b8-4801-88c8-0ac8d47891af' date '29 March 2012' time '8:01:04 pm' author 'pmm' ancestors ((name 'Grease-Tests-Slime-lr.10' message '- update code to work with latest RB' id '93786627-5673-485e-908a-c5399db67694' date '8 September 2011' time '11:24:30 pm' author 'lr' ancestors ((name 'Grease-Tests-Slime-lr.9' message '- fixed spacing in blocks' id 'b6bd1a4c-d47c-4c09-b530-7a5ee35eac75' date '25 July 2011' time '7:20:49 pm' author 'lr' ancestors ((name 'Grease-Tests-Slime-lr.8' message '- added some tests for spacing (in parenthesis, return statements, blocks and temps)' id 'a44abf88-4aa8-4832-b7b6-d779fd8cb3c0' date '25 July 2011' time '5:33:18 pm' author 'lr' ancestors ((name 'Grease-Tests-Slime-pmm.7' message '- tests for WideStrings' id '522fa730-4eea-4899-8688-74017ba09202' date '12 February 2011' time '10:09:33 am' author 'pmm' ancestors ((name 'Grease-Tests-Slime-lr.6' message '- added a rule decting the use of "self class hash", which does not work in GemStone - fixed findTokens: rule' id '836bcafd-68f8-46fb-be85-98ae408f3b0e' date '14 October 2010' time '9:45:16 am' author 'lr' ancestors ((name 'Grease-Tests-Slime-jok.5' message 'Use #reverse (ANSI) rather than #reversed' id '44e1610a-1b8c-d44c-adfb-cee34c8c3c80' date '23 April 2010' time '8:45:52 am' author 'jok' ancestors ((name 'Grease-Tests-Slime-lr.4' message '- renamed all #testing protocols in TestCase classes with test methods to #tests or #tests-*, as discussed in the mailing list: #testing is for predicate methods, not unit tests. I''ve been moving them to #tests or #tests-* gradually but it might be good to do a sweeping change if others agree with me.' id '2581055b-0f07-414c-bee3-e3658d112d9b' date '30 March 2010' time '9:02:08 am' author 'lr' ancestors ((name 'Grease-Tests-Slime-jok.3' message '- http://code.google.com/p/seaside/issues/detail?id=555 - add #beginsWithSubCollection: and #endsWithSubCollection:' id 'b9c633c0-f351-0c4c-9924-bc8ad11ff7be' date '25 March 2010' time '8:27:08 am' author 'jok' ancestors ((name 'Grease-Tests-Slime-lr.2' message '- added explicit repository url' id '2b36bc75-0edc-4dc3-8c3d-89628e98c2a2' date '17 February 2010' time '4:05:39 pm' author 'lr' ancestors ((name 'Grease-Tests-Slime-jok.1' message 'Unit tests for Grease Slime rules' id 'bf7be05a-12ca-514c-9a24-a481078028b2' date '26 January 2010' time '4:06:21 pm' author 'jok' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Grease-Tests-Slime-AvO.13' message 'Tests for GRNonPortableMessageRule.' id '9927d2b0-0401-a64d-a4c3-d9261e45b1e7' date '13 September 2013' time '9:14:59 pm' author 'AvO' ancestors ((id '8982414c-a781-48c8-bc4c-d73c18c7cc2d')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ 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/testFullName.st b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st deleted file mode 100644 index 18bfc31b..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.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-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st deleted file mode 100644 index b62275e7..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.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-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st deleted file mode 100644 index d2d7a808..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,35 +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. - self assert: send fixCallbackTemps == send. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1. - self assert: send fixCallbackTemps == send \ No newline at end of file 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/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st deleted file mode 100644 index 0d513815..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.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-Squeak-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st deleted file mode 100644 index f773658a..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.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-Squeak-Core.package/GRSqueakPlatformTest.class/methodProperties.json b/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/methodProperties.json deleted file mode 100644 index c7e7d4cc..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/GRSqueakPlatformTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCompileIntoClassified" : "JohnMcKeon 11/30/2014 22:53", - "testFullName" : "JohnMcKeon 11/30/2014 22:53", - "testGreaseIntegerOnCharacter" : "JohnMcKeon 11/30/2014 22:53", - "testMessageSendValueWithPossibleArguments" : "JohnMcKeon 11/30/2014 22:53", - "testWriteToFileInFolderBinary" : "JohnMcKeon 11/30/2014 22:53", - "testWriteToFileInFolderText" : "JohnMcKeon 11/30/2014 22:53", - "writeToFile:" : "JohnMcKeon 11/30/2014 22:53" } } 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/monticello.meta/version b/repository/Grease-Tests-Squeak-Core.package/monticello.meta/version deleted file mode 100644 index f97d66cc..00000000 --- a/repository/Grease-Tests-Squeak-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Squeak-Core-JohnMcKeon.1' message '-grease for squeak' id '223fb7dc-44fc-e640-86a7-d32b4e831a37' date '16 March 2015' time '9:25:01.808 pm' author 'JohnMcKeon' ancestors () stepChildren ()) \ 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/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index d751fc6a..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsSqueak5Core" : "JB 2/27/2016 13:28" }, - "instance" : { - } } 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/assert.next.startingAt.gives..st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st deleted file mode 100644 index 8ff0ff41..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st deleted file mode 100644 index 622b446b..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st deleted file mode 100644 index 8f85d506..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st deleted file mode 100644 index 3922305f..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st deleted file mode 100644 index dba72236..00000000 --- a/repository/Grease-Tests-Squeak5-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-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/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/methodProperties.json deleted file mode 100644 index f6f5a240..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoCodecTest.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "assert:next:startingAt:gives:" : "pmm 4/21/2012 20:54", - "assertEncodingIgnoresLanguageTat:" : "pmm 12/26/2010 22:24", - "stripLeadingCharFrom:" : "pmm 12/26/2010 22:13", - "testAllCodesIncludesIso88591" : "pmm 8/16/2010 00:24", - "testGreaseNextPutAllStartingAt" : "pmm 5/21/2014 21:09", - "testLanguageTag" : "pmm 12/26/2010 22:25" } } 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/instance/expectedFailures.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/expectedFailures.st deleted file mode 100644 index 197de855..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/instance/testAllColors.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testAllColors.st deleted file mode 100644 index b483e1a5..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st deleted file mode 100644 index fcb5dcbb..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st deleted file mode 100644 index 639a183a..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringName.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringName.st deleted file mode 100644 index 821c945e..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st deleted file mode 100644 index e9b720fc..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st deleted file mode 100644 index 3ae0aeac..00000000 --- a/repository/Grease-Tests-Squeak5-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-Squeak5-Core.package/GRPharoColorTest.class/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/methodProperties.json deleted file mode 100644 index 04f10d1b..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoColorTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "lr 7/25/2011 19:51", - "testAllColors" : "lr 7/25/2011 18:34", - "testColorAsHtmlColor" : "MAD 8/29/2008 15:36", - "testFromSixDigit" : "pmm 11/20/2008 22:00", - "testFromStringName" : "pmm 9/1/2012 15:32", - "testFromStringSixDigit" : "pmm 11/20/2008 22:01", - "testFromStringThreeDigit" : "pmm 9/1/2012 15:32" } } 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/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/methodProperties.json deleted file mode 100644 index a58c2b7c..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoGenericCodecTest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testNoAmbiguities" : "pmm 8/16/2010 00:47" } } 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 d2d7a808..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,35 +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. - self assert: send fixCallbackTemps == send. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1. - self assert: send fixCallbackTemps == send \ No newline at end of file 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/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/methodProperties.json deleted file mode 100644 index 77ca0b72..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testCompileIntoClassified" : "jf 9/30/2009 00:19", - "testFullName" : "jf 10/6/2008 14:37", - "testGreaseIntegerOnCharacter" : "pmm 12/26/2010 21:44", - "testMessageSendValueWithPossibleArguments" : "jf 12/18/2009 12:29", - "testWriteToFileInFolderBinary" : "pmm 1/22/2012 16:09", - "testWriteToFileInFolderText" : "pmm 1/22/2012 15:54", - "writeToFile:" : "pmm 1/22/2012 15:57" } } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/properties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/properties.json deleted file mode 100644 index 3ceb357c..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPharoPlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak5-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRPharoPlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st deleted file mode 100644 index 569e9ce3..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-squeak5-core -testScaledDecimalGreaseString - self assert: 123.4s1 greaseString = '123.4'. - self assert: 123.4s2 greaseString = '123.40'. - self assert: 123s0 greaseString = '123' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/methodProperties.json deleted file mode 100644 index 09cf1de3..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPlatformTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalGreaseString" : "pmm 9/15/2013 12:00" } } 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/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/methodProperties.json deleted file mode 100644 index 4738d7db..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRPrinterTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalPrinter" : "pmm 9/15/2013 11:35" } } 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/methodProperties.json b/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/methodProperties.json deleted file mode 100644 index e948a56d..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/GRUtf8CodecTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : "lr 7/25/2011 19:52" } } 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/monticello.meta/version b/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/version deleted file mode 100644 index 2394de1b..00000000 --- a/repository/Grease-Tests-Squeak5-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Squeak5-Core-JohanBrichau.1' message 'Fork from Grease-Tests-Pharo-Core' id '94394a2e-404c-42c5-a4fb-9ed8241da254' date '27 February 2016' time '1:33:07.959 pm' author 'JB' ancestors () stepChildren ()) \ 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-Pharo30-Core.package/.filetree b/repository/Grease-Tests-Squeak6-Core.package/.filetree similarity index 100% rename from repository/Grease-Pharo30-Core.package/.filetree rename to repository/Grease-Tests-Squeak6-Core.package/.filetree diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st new file mode 100644 index 00000000..5dcab405 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st @@ -0,0 +1,9 @@ +*grease-tests-squeak6-core +greaseTestsSqueak6Core + ^ self new + name: 'Grease-Tests-Squeak6-Core'; + description: 'Unit tests for the package Grease-Squeak6-Core.'; + addDependency: 'Grease-Squeak6-Core'; + addDependency: 'Grease-Tests-Core'; + url: #seasideUrl; + yourself \ No newline at end of file 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-Pharo11-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/properties.json similarity index 100% rename from repository/Grease-Pharo11-Core.package/GRPackage.extension/properties.json rename to repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/properties.json diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st new file mode 100644 index 00000000..5b48fa46 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st @@ -0,0 +1,5 @@ +*grease-tests-squeak6-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-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/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/properties.json new file mode 100644 index 00000000..ab3f269a --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "GRPlatformTest" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st new file mode 100644 index 00000000..b6da31a0 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st @@ -0,0 +1,19 @@ +*grease-tests-squeak6-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-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-Pharo20-Core.package/GRPrinterTest.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/properties.json similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/GRPrinterTest.extension/properties.json rename to repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/properties.json 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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-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-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testFullName.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st new file mode 100644 index 00000000..1f1bb911 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st @@ -0,0 +1,33 @@ +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/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-Pharo-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st similarity index 100% rename from repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st rename to repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st similarity index 100% rename from repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.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/instance/expectedFailures.st b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st new file mode 100644 index 00000000..1b447631 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st @@ -0,0 +1,3 @@ +*grease-tests-squeak6-core +expectedFailures + ^ #(testCodecUtf8ShortestForm) \ No newline at end of file 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-Pharo20-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/properties.json similarity index 100% rename from repository/Grease-Tests-Pharo20-Core.package/GRUtf8CodecTest.extension/properties.json rename to repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/properties.json diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..9698a9dc --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Grease-Tests-Squeak6-Core'! diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package new file mode 100644 index 00000000..b93761df --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Grease-Tests-Squeak6-Core') \ No newline at end of file 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 diff --git a/repository/Grease-Squeak-Core.package/properties.json b/repository/Grease-Tests-Squeak6-Core.package/properties.json similarity index 100% rename from repository/Grease-Squeak-Core.package/properties.json rename to repository/Grease-Tests-Squeak6-Core.package/properties.json