diff --git a/.smalltalk.ston b/.smalltalk.ston index c1f350e4..2a01693a 100644 --- a/.smalltalk.ston +++ b/.smalltalk.ston @@ -4,13 +4,21 @@ 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', #directory : 'repository', #onWarningLog : true, #load : [ 'Tests' ], + #useLatestMetacello : true, #platforms : [ #gemstone ] } ] diff --git a/.travis.yml b/.travis.yml index 1f8a2af7..fe2fb759 100644 --- a/.travis.yml +++ b/.travis.yml @@ -1,10 +1,6 @@ language: smalltalk sudo: false -os: - - linux - - osx - smalltalk: - Pharo-alpha - Pharo-6.1 @@ -14,12 +10,16 @@ smalltalk: - Pharo-3.0 - Squeak-trunk - Squeak-5.1 - matrix: allow_failures: - smalltalk: Pharo-alpha - smalltalk: Squeak-trunk + - smalltalk: Squeak-5.1 + os: linux + include: + - smalltalk: Squeak-5.1 + os: osx - smalltalk: GemStone-2.4.8 cache: directories: diff --git a/repository/BaselineOfGrease.package/.filetree b/repository/BaselineOfGrease.package/.filetree index 8998102c..57a67973 100644 --- a/repository/BaselineOfGrease.package/.filetree +++ b/repository/BaselineOfGrease.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/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st index 85d1e925..57f301d6 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st @@ -104,6 +104,27 @@ baseline: spec spec group: 'Slime' with: #('Grease-Pharo40-Slime'); group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. + + spec + for: #(#'pharo7.x') + do: [ + spec + package: 'Grease-Core' + with: [ spec includes: #('Grease-Pharo70-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec requires: #('Grease-Pharo70-Core'); includes: #('Grease-Tests-Pharo20-Core') ]; + package: 'Grease-Pharo70-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: [ diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json b/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json index bf12b606..169a0568 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/methodProperties.json @@ -1,7 +1,8 @@ { - "class" : { - }, "instance" : { - "baseline:" : "topa 11/15/2017 17:33", "initializeLatin1ToUtf8Encodings" : "JohanBrichau 10/19/2014 10:00", - "slimeForSqueakPharo1xPharo2x:" : "JohanBrichau 02/16/2014 03:49" } } + "slimeForSqueakPharo1xPharo2x:" : "JohanBrichau 02/16/2014 03:49", + "baseline:" : "JohanBrichau 11/18/2017 16:17" + }, + "class" : { } +} \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json b/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json index 8a39c621..0260395f 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json @@ -1,14 +1,11 @@ { - "category" : "BaselineOfGrease", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", - "instvars" : [ - ], - "name" : "BaselineOfGrease", - "pools" : [ - ], "super" : "BaselineOf", - "type" : "normal" } + "category" : "BaselineOfGrease", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "BaselineOfGrease", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/monticello.meta/version b/repository/BaselineOfGrease.package/monticello.meta/version index e5118db6..9bd7b457 100644 --- a/repository/BaselineOfGrease.package/monticello.meta/version +++ b/repository/BaselineOfGrease.package/monticello.meta/version @@ -1,2 +1,2 @@ -(name 'BaselineOfGrease-topa.1496564074' message 'Splice out Squeak6' id '1f990177-0195-46d7-b815-43ff320f8900' date '15 November 2017' time '5:36:47.836067 pm' author 'topa' ancestors ((name 'BaselineOfGrease-topa.1496564073' message 'Add Squeak6 (current trunk)' id 'c284dcef-9b71-4069-94b7-a2e8c42b6c0a' date '8 November 2017' time '11:59:28.059517 am' author 'topa' ancestors ((name 'BaselineOfGrease-dkh.1496564072' message 'merged by GitFileTree-MergeDriver' id 'a721b096-25cd-455c-a419-2fac8a9331c7' date '23 July 2017' time '11:33:54.267473 am' author 'dkh' ancestors ((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 ())(name 'BaselineOfGrease-JohanBrichau.1496564071' message 'Fixed dependency of Grease-Tests-Core on the platform packages for GRDynamicVariableTest' id '6dd3612c-6111-0d00-8806-761908c307d1' date '23 July 2017' time '7:29:11.347398 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.1496564070' message '- Removed pharo1.x and 2.x from the baseline since no longer supported. - Fixed dependency of Grease-Tests-Core on the platform packages for GRDynamicVariableTest' id 'd3220dff-6011-0d00-8805-b8f708c307d1' date '23 July 2017' time '7:16:30.82261 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.1496564069' message 'Updated load snippets [ci skip] -' id '26eaf907-cb05-504d-b251-ce1bcf3132ec' date '4 June 2017' time '10:14:29 am' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file +(name 'BaselineOfGrease-JohanBrichau.1496564075' message 'Pharo7 support' id 'a8370418-a51a-0d00-a9b9-68b104322501' date '18 November 2017' time '4:17:52.094479 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-topa.1496564074' message 'Splice out Squeak6' id '1f990177-0195-46d7-b815-43ff320f8900' date '15 November 2017' time '5:36:47.836067 pm' author 'topa' ancestors ((name 'BaselineOfGrease-topa.1496564073' message 'Add Squeak6 (current trunk)' id 'c284dcef-9b71-4069-94b7-a2e8c42b6c0a' date '8 November 2017' time '11:59:28.059517 am' author 'topa' ancestors ((name 'BaselineOfGrease-dkh.1496564072' message 'merged by GitFileTree-MergeDriver' id 'a721b096-25cd-455c-a419-2fac8a9331c7' date '23 July 2017' time '11:33:54.267473 am' author 'dkh' ancestors ((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 ())(name 'BaselineOfGrease-JohanBrichau.1496564071' message 'Fixed dependency of Grease-Tests-Core on the platform packages for GRDynamicVariableTest' id '6dd3612c-6111-0d00-8806-761908c307d1' date '23 July 2017' time '7:29:11.347398 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.1496564070' message '- Removed pharo1.x and 2.x from the baseline since no longer supported. - Fixed dependency of Grease-Tests-Core on the platform packages for GRDynamicVariableTest' id 'd3220dff-6011-0d00-8805-b8f708c307d1' date '23 July 2017' time '7:16:30.82261 pm' author 'JohanBrichau' ancestors ((name 'BaselineOfGrease-JohanBrichau.1496564069' message 'Updated load snippets [ci skip] +' id '26eaf907-cb05-504d-b251-ce1bcf3132ec' date '4 June 2017' time '10:14:29 am' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/properties.json b/repository/BaselineOfGrease.package/properties.json index f037444a..6f31cf5a 100644 --- a/repository/BaselineOfGrease.package/properties.json +++ b/repository/BaselineOfGrease.package/properties.json @@ -1,2 +1 @@ -{ - } +{ } \ 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/BlockClosure.extension/instance/fixCallbackTemps.st b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st new file mode 100644 index 00000000..2fcbf89e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/fixCallbackTemps.st @@ -0,0 +1,2 @@ +*Grease-Pharo70-Core +fixCallbackTemps \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/methodProperties.json new file mode 100644 index 00000000..32997637 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/methodProperties.json @@ -0,0 +1,7 @@ +{ + "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-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/methodProperties.json b/repository/Grease-Pharo70-Core.package/ByteArray.extension/methodProperties.json new file mode 100644 index 00000000..74afa640 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ByteArray.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseString" : "jf 9/30/2009 01:10" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Character.extension/methodProperties.json new file mode 100644 index 00000000..65a91aa5 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Character.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseInteger" : "jf 9/30/2009 01:04" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Collection.extension/methodProperties.json new file mode 100644 index 00000000..e1a71262 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Collection.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "any" : "jf 2/6/2010 00:41" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Color.extension/methodProperties.json new file mode 100644 index 00000000..76299b05 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Color.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "asHTMLColor" : "JohanBrichau 5/25/2017 11:54" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Duration.extension/methodProperties.json new file mode 100644 index 00000000..90cd5df9 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Duration.extension/methodProperties.json @@ -0,0 +1,9 @@ +{ + "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-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/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/methodProperties.json new file mode 100644 index 00000000..17581cee --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseNext:putAll:startingAt:" : "pmm 12/28/2010 22:13" + }, + "class" : { } +} \ 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-Pharo70-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/README.md new file mode 100644 index 00000000..e69de29b 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-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st new file mode 100644 index 00000000..1e03f82f --- /dev/null +++ b/repository/Grease-Pharo70-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-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/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/methodProperties.json new file mode 100644 index 00000000..e69c682f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/methodProperties.json @@ -0,0 +1,9 @@ +{ + "instance" : { + "default" : "JohanBrichau 7/23/2017 17:45" + }, + "class" : { + "defaultValue" : "JohanBrichau 7/23/2017 17:45", + "use:during:" : "MaxLeske 5/16/2017 21:54" + } +} \ 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/greasePharo60Core.st b/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo60Core.st new file mode 100644 index 00000000..4fb21f6a --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo60Core.st @@ -0,0 +1,7 @@ +*Grease-Pharo70-Core +greasePharo60Core + ^ self new + name: 'Grease-Pharo60-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPackage.extension/methodProperties.json new file mode 100644 index 00000000..fb511c6f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPackage.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { }, + "class" : { + "greasePharo60Core" : "JohanBrichau 5/25/2017 15:26" + } +} \ 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-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md new file mode 100644 index 00000000..7620280e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md @@ -0,0 +1,7 @@ +A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st new file mode 100644 index 00000000..de8cd791 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st @@ -0,0 +1,3 @@ +instance creation +on: aStream converter: aConverter + ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..8321e299 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,3 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st new file mode 100644 index 00000000..c380485d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aStream converter: aConverter + self initializeOn: aStream. + converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st new file mode 100644 index 00000000..ef51837b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st @@ -0,0 +1,8 @@ +streaming +next: anInteger + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st new file mode 100644 index 00000000..eee99a1a --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st @@ -0,0 +1,6 @@ +streaming +next + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..e65f56c4 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st @@ -0,0 +1,3 @@ +streaming +nextPut: aCharacter + converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..a30c4507 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st @@ -0,0 +1,3 @@ +streaming +nextPutAll: aString + aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/methodProperties.json new file mode 100644 index 00000000..6455039d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/methodProperties.json @@ -0,0 +1,13 @@ +{ + "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-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-Pharo70-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st new file mode 100644 index 00000000..f6b18bd4 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st @@ -0,0 +1,5 @@ +private +basicForEncoding: aString + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st new file mode 100644 index 00000000..f1293d05 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st @@ -0,0 +1,8 @@ +accessing +codecs + ^ (TextConverter allEncodingNames + select: [ :each | + "exclude UFT-8 which is handeled by WAUtf8Codec" + self supportsEncoding: each ]) + collect: [ :each | + self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-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..e6a8ceb0 --- /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 allEncodingNames + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st new file mode 100644 index 00000000..43a27325 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st @@ -0,0 +1,4 @@ +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-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st new file mode 100644 index 00000000..02b8754b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st @@ -0,0 +1,3 @@ +private +converter + ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st new file mode 100644 index 00000000..be53dfea --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st @@ -0,0 +1,3 @@ +conversion +decoderFor: aStream + ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st new file mode 100644 index 00000000..94f2fc13 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRPharoConverterCodecStream + on: aStream + converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st new file mode 100644 index 00000000..fe95783c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st @@ -0,0 +1,7 @@ +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-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st new file mode 100644 index 00000000..22077c20 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st new file mode 100644 index 00000000..232ad239 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st @@ -0,0 +1,5 @@ +accessing +url + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/methodProperties.json new file mode 100644 index 00000000..561fbf1e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/methodProperties.json @@ -0,0 +1,16 @@ +{ + "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-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-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md new file mode 100644 index 00000000..3f437d62 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md @@ -0,0 +1 @@ +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..f6b18bd4 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st @@ -0,0 +1,5 @@ +private +basicForEncoding: aString + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st new file mode 100644 index 00000000..7a96b703 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st new file mode 100644 index 00000000..e5dca068 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st @@ -0,0 +1,3 @@ +private +supportedEncodingNames + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..bc591573 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st new file mode 100644 index 00000000..5f73b526 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..256dbac4 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..20102849 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st new file mode 100644 index 00000000..b0256973 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st new file mode 100644 index 00000000..22077c20 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/methodProperties.json new file mode 100644 index 00000000..1bd8105c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/methodProperties.json @@ -0,0 +1,15 @@ +{ + "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-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-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md new file mode 100644 index 00000000..e1c2471b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md @@ -0,0 +1 @@ +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st new file mode 100644 index 00000000..a734bc76 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st @@ -0,0 +1,3 @@ +streaming +next: anInteger + ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st new file mode 100644 index 00000000..bf70df58 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json new file mode 100644 index 00000000..eaf30bc6 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/methodProperties.json @@ -0,0 +1,7 @@ +{ + "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-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-Pharo70-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md new file mode 100644 index 00000000..f0375aac --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md @@ -0,0 +1 @@ +A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st new file mode 100644 index 00000000..0c86564c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st @@ -0,0 +1,5 @@ +class initialization +initialize + self initializeXmlTable. + self initializeUrlTable. + self select \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st new file mode 100644 index 00000000..9abf56b7 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st @@ -0,0 +1,7 @@ +class initialization +initializeUrlTable + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st new file mode 100644 index 00000000..830a5595 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st @@ -0,0 +1,7 @@ +class initialization +initializeXmlTable + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st new file mode 100644 index 00000000..4c8dd650 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st @@ -0,0 +1,3 @@ +class initialization +unload + self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st new file mode 100644 index 00000000..f8d3ad5f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st @@ -0,0 +1,5 @@ +startup +addToShutDownList: anObject + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-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-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st new file mode 100644 index 00000000..ba4a0727 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st @@ -0,0 +1,6 @@ +file library +asMethodReturningByteArray: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st new file mode 100644 index 00000000..90bb405c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st @@ -0,0 +1,10 @@ +private-file library +asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st new file mode 100644 index 00000000..a1f9fe07 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st @@ -0,0 +1,10 @@ +private-file library +asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-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..382a7f83 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st @@ -0,0 +1,3 @@ +encoding +base64Decode: aString + ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st new file mode 100644 index 00000000..e878c01b --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st new file mode 100644 index 00000000..45c37a45 --- /dev/null +++ b/repository/Grease-Pharo70-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-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..119ba39b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -0,0 +1,3 @@ +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-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st new file mode 100644 index 00000000..c5beee09 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st @@ -0,0 +1,8 @@ +file library +directoriesIn: aPathString + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st new file mode 100644 index 00000000..9ea296ff --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st new file mode 100644 index 00000000..907e0168 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -0,0 +1,4 @@ +file library +ensureExistenceOfFolder: aString + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st new file mode 100644 index 00000000..2a02cc3f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -0,0 +1,3 @@ +file library +fileExists: aString + ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st new file mode 100644 index 00000000..2fd81137 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st @@ -0,0 +1,13 @@ +file library +fileStreamOn: aString do: aBlock binary: aBoolean + ^ aBoolean + ifTrue: [ + FileStream fileNamed: aString do: [ :stream | + stream binary. + aBlock value: stream ] ] + ifFalse: [ + MultiByteFileStream fileNamed: aString do: [ :stream | + stream + ascii; + wantsLineEndConversion: true. + aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st new file mode 100644 index 00000000..e3b9a6b0 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st @@ -0,0 +1,8 @@ +file library +filesIn: aPathString + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st new file mode 100644 index 00000000..03b50778 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st @@ -0,0 +1,4 @@ +processes +isProcessTerminated: aProcess + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st new file mode 100644 index 00000000..f3b036e2 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st @@ -0,0 +1,3 @@ +version info +label + ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st new file mode 100644 index 00000000..8f4efb85 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -0,0 +1,3 @@ +file library +localNameOf: aFilename + ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st new file mode 100644 index 00000000..9d90824d --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st new file mode 100644 index 00000000..1219045d --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st new file mode 100644 index 00000000..b98446f9 --- /dev/null +++ b/repository/Grease-Pharo70-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: [ + process + debug: anError signalerContext + title: anError description + full: true ]. + process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st new file mode 100644 index 00000000..10f88300 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -0,0 +1,3 @@ +file library +pathSeparator + ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st new file mode 100644 index 00000000..35251d7b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st @@ -0,0 +1,5 @@ +factory +readWriteByteStream + "ByteArray based read write stream" + + ^ RWBinaryOrTextStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st new file mode 100644 index 00000000..3f94c5af --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st @@ -0,0 +1,5 @@ +factory +readWriteCharacterStream + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-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-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st new file mode 100644 index 00000000..46b9e2d2 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st new file mode 100644 index 00000000..ceccf9e3 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st @@ -0,0 +1,4 @@ +factory +semaphoreClass + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-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..d7e6feab --- /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-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st new file mode 100644 index 00000000..a09b96e1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st @@ -0,0 +1,4 @@ +processes +terminateProcess: aProcess + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st new file mode 100644 index 00000000..71b0f2cf --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st new file mode 100644 index 00000000..b0ca3d82 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st @@ -0,0 +1,3 @@ +factory +weakDictionaryOfSize: aNumber + ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-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..e77ae8c1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st @@ -0,0 +1,15 @@ +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-Pharo70-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st new file mode 100644 index 00000000..d69ff426 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeCharacterStreamOn..st @@ -0,0 +1,4 @@ +factory +writeCharacterStreamOn: aString + + ^ GRWorkingWriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/methodProperties.json new file mode 100644 index 00000000..4e14201e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/methodProperties.json @@ -0,0 +1,45 @@ +{ + "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-Pharo70-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json new file mode 100644 index 00000000..6c67d70a --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "pmm 6/1/2008 01:03", + "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-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st new file mode 100644 index 00000000..04ca54c3 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st @@ -0,0 +1,4 @@ +private +initialize + Smalltalk addToStartUpList: self. + self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st new file mode 100644 index 00000000..593aee36 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st @@ -0,0 +1,5 @@ +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-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st new file mode 100644 index 00000000..85a2db91 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st @@ -0,0 +1,3 @@ +private +randomClass + ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st new file mode 100644 index 00000000..a5fe470c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st @@ -0,0 +1,11 @@ +public +randomFrom: aCollection + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st new file mode 100644 index 00000000..663a5243 --- /dev/null +++ b/repository/Grease-Pharo70-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-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st new file mode 100644 index 00000000..fd4cb930 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st @@ -0,0 +1,3 @@ +private +unload + GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/methodProperties.json new file mode 100644 index 00000000..e9905923 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/methodProperties.json @@ -0,0 +1,11 @@ +{ + "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-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-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md new file mode 100644 index 00000000..c6047951 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md @@ -0,0 +1 @@ +A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st new file mode 100644 index 00000000..d4c4a74b --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st @@ -0,0 +1,3 @@ +private +basicForEncoding: aString + ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st new file mode 100644 index 00000000..632b84fb --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st @@ -0,0 +1,3 @@ +accessing +codecs + ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st new file mode 100644 index 00000000..dc3a8ade --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st @@ -0,0 +1,3 @@ +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-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st new file mode 100644 index 00000000..b625727d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st @@ -0,0 +1,36 @@ +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-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st new file mode 100644 index 00000000..203b901f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st @@ -0,0 +1,5 @@ +conversion +decoderFor: aStream + ^ GRPharoUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st new file mode 100644 index 00000000..d77ab435 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st @@ -0,0 +1,5 @@ +conversion +encoderFor: aStream + ^ GRPharoUtf8CodecStream + on: aStream + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st new file mode 100644 index 00000000..e4481c22 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st @@ -0,0 +1,3 @@ +private +invalidUtf8 + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st new file mode 100644 index 00000000..7886c830 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st new file mode 100644 index 00000000..4696d714 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st @@ -0,0 +1,3 @@ +accessing +url + ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/methodProperties.json new file mode 100644 index 00000000..ab426978 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/methodProperties.json @@ -0,0 +1,15 @@ +{ + "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-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-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md new file mode 100644 index 00000000..08323f18 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md @@ -0,0 +1 @@ +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st new file mode 100644 index 00000000..b8d03990 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st @@ -0,0 +1,17 @@ +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-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st new file mode 100644 index 00000000..ba607092 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st @@ -0,0 +1,4 @@ +streaming +crlf + stream nextPut: Character cr. + stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st new file mode 100644 index 00000000..cdd58a41 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st @@ -0,0 +1,5 @@ +private +encodeDefault: aString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st new file mode 100644 index 00000000..9a8a0dc3 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st @@ -0,0 +1,14 @@ +private +encodeFast: aByteString + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st new file mode 100644 index 00000000..cd78fbe0 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st @@ -0,0 +1,5 @@ +streaming +greaseNext: anInteger putAll: aCollection startingAt: startIndex + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st new file mode 100644 index 00000000..a4c114cb --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st @@ -0,0 +1,17 @@ +private +greaseNext: anInteger putAllFast: aByteString startingAt: startIndex + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st new file mode 100644 index 00000000..e4481c22 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.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-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st new file mode 100644 index 00000000..116f524d --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st @@ -0,0 +1,46 @@ +streaming +next: anInteger + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st new file mode 100644 index 00000000..4363f086 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st @@ -0,0 +1,3 @@ +streaming +next + ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st new file mode 100644 index 00000000..ad2d94ab --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st @@ -0,0 +1,11 @@ +streaming +nextPut: aCharacter + | codePoint shouldEncode | + codePoint := aCharacter codePoint. + codePoint > 255 + ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] + \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st new file mode 100644 index 00000000..b9136110 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st @@ -0,0 +1,5 @@ +streaming +nextPutAll: aString + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json new file mode 100644 index 00000000..f7520d19 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/methodProperties.json @@ -0,0 +1,17 @@ +{ + "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-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-Pharo70-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/methodProperties.json new file mode 100644 index 00000000..780f7a2a --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/methodProperties.json @@ -0,0 +1,8 @@ +{ + "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-Pharo70-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json new file mode 100644 index 00000000..0d78b749 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRSmallDictionary" +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/README.md new file mode 100644 index 00000000..3f2ed8e8 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/README.md @@ -0,0 +1 @@ +I'm a work around for bugs in the Pharo stream classes. \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/instance/reset.st b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/instance/reset.st new file mode 100644 index 00000000..8232867f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/instance/reset.st @@ -0,0 +1,3 @@ +positioning +reset + self resetToStart \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/methodProperties.json b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/methodProperties.json new file mode 100644 index 00000000..ef5029dc --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "reset" : "pmm 8/26/2011 09:39" + }, + "class" : { } +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/properties.json new file mode 100644 index 00000000..af27bdb7 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRWorkingWriteStream.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "pmm 8/25/2011 18:30", + "super" : "WriteStream", + "category" : "Grease-Pharo70-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRWorkingWriteStream", + "type" : "normal" +} \ No newline at end of file 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Interval.extension/methodProperties.json new file mode 100644 index 00000000..15fc20f1 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Interval.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "any" : "jf 2/6/2010 03:25" + }, + "class" : { } +} \ 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/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/fixCallbackTemps.st b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/fixCallbackTemps.st new file mode 100644 index 00000000..2c0b14e8 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/fixCallbackTemps.st @@ -0,0 +1,3 @@ +*Grease-Pharo70-Core +fixCallbackTemps + "for polymorphism with BlockContext >> #fixCallbackTemps" \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/MessageSend.extension/methodProperties.json new file mode 100644 index 00000000..e8c80c34 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/MessageSend.extension/methodProperties.json @@ -0,0 +1,8 @@ +{ + "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-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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Number.extension/methodProperties.json new file mode 100644 index 00000000..4fa9352e --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Number.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "milliseconds" : "jf 2/6/2010 00:12" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Object.extension/methodProperties.json new file mode 100644 index 00000000..74afa640 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Object.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseString" : "jf 9/30/2009 01:10" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/Point.extension/methodProperties.json new file mode 100644 index 00000000..0404714c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/Point.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseString" : "pmm 8/25/2016 10:59" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/methodProperties.json new file mode 100644 index 00000000..c3b569c5 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseUpToAll:" : "jf 9/30/2009 01:06" + }, + "class" : { } +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/methodProperties.json new file mode 100644 index 00000000..49427152 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/methodProperties.json @@ -0,0 +1,7 @@ +{ + "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-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/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/methodProperties.json b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/methodProperties.json new file mode 100644 index 00000000..6601bb05 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/methodProperties.json @@ -0,0 +1,8 @@ +{ + "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-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/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/methodProperties.json b/repository/Grease-Pharo70-Core.package/SocketStream.extension/methodProperties.json new file mode 100644 index 00000000..4ae249e5 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/SocketStream.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseNext:putAll:startingAt:" : "pmm 5/23/2010 08:17" + }, + "class" : { } +} \ 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/TBehavior.extension/instance/fullName.st b/repository/Grease-Pharo70-Core.package/TBehavior.extension/instance/fullName.st new file mode 100644 index 00000000..806a660c --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/TBehavior.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/TBehavior.extension/methodProperties.json b/repository/Grease-Pharo70-Core.package/TBehavior.extension/methodProperties.json new file mode 100644 index 00000000..683abe21 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/TBehavior.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "fullName" : "PavelKrivanek 4/21/2017 11:40" + }, + "class" : { } +} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/TBehavior.extension/properties.json b/repository/Grease-Pharo70-Core.package/TBehavior.extension/properties.json new file mode 100644 index 00000000..f94cdffb --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/TBehavior.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "TBehavior" +} \ 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/methodProperties.json b/repository/Grease-Pharo70-Core.package/WriteStream.extension/methodProperties.json new file mode 100644 index 00000000..8ae2fa45 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/WriteStream.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "instance" : { + "greaseNext:putAll:startingAt:" : "jf 5/22/2010 20:26" + }, + "class" : { } +} \ 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/monticello.meta/version b/repository/Grease-Pharo70-Core.package/monticello.meta/version new file mode 100644 index 00000000..8864bb06 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/monticello.meta/version @@ -0,0 +1 @@ +(name 'Grease-Pharo70-Core-JohanBrichau.1' message 'branch from Grease-Pharo60-Core-JohanBrichau.4 to start supporting Pharo7 specifics' id '6aaa3511-a51a-0d00-a9b8-5e8804322501' date '18 November 2017' time '4:15:57.894626 pm' author 'JohanBrichau' ancestors () stepChildren ()) \ 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