X Tutup
Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
43 commits
Select commit Hold shift + click to select a range
d8b8221
Prepare for removal of TextConverter in Pharo: pull out the GRPharoZn…
Nov 11, 2021
44bda62
include pharo10
Nov 11, 2021
81d4903
include Pharo10 in the CI actions
Nov 11, 2021
4dbda18
typo...
Nov 11, 2021
8f5255d
update gemstone version (mostly to trigger build again)
Dec 27, 2021
2c53cdd
- Rename GRPharoUtf8CodecStream to GRPharoDeprecatedUtf8CodecStream
Jan 16, 2022
b06d7ff
Merge 8f5255d8483bb08408d4f3c84f31fa87309108bd
Jan 16, 2022
c75170b
Use the Zn-based utf8 codec in Pharo by default
Jan 16, 2022
1e872b6
Added Grease-Pharo10-Core as a copy of Grease-Pharo90-Core and remove…
Jan 16, 2022
6b9ff20
Merge pull request #130 from SeasideSt/pharo-utf8-encoding
Jan 16, 2022
deed35e
remove unused class inst vars on GRGemStoneRandomProvider
Jan 16, 2022
2ba142c
pharo10:
Jan 24, 2022
7a35c98
ping the CI for PR#134
Mar 19, 2022
4a8e347
Fix test for GRPharoGenericCodec to be skipped in Pharo10
Mar 19, 2022
db79fe7
Merge pull request #134 from SeasideSt/pharo10
Mar 19, 2022
94f262d
rename package Pharo10 to Pharo100 to avoid confusion with Pharo1
Mar 19, 2022
fec1cf4
Merge pull request #135 from SeasideSt/pharo100
Mar 19, 2022
9c769b6
Seems like the package named Pharo10 was not removed previously... ic…
Mar 20, 2022
a97cf61
Merge fec1cf49e3977d1d8e3ec83487281a45976654b5
Mar 20, 2022
9cfcb6a
remove package Pharo10 still did not work?
Mar 20, 2022
9167782
remove obsolete Pharo packages
Mar 20, 2022
1604506
Added GsContext>>tempNamed: (for compatibility with the test in Pharo…
Mar 20, 2022
3fc0427
version 1.8.1
Mar 20, 2022
3898940
fix grpackage methods for pharo100 (useless?)
Mar 26, 2022
27f6852
Set an expected failure for testReadWriteEmptyFileInFolderBinary unti…
Apr 3, 2022
b2fcc52
fix expectedFailures...
Apr 3, 2022
9c3b895
increase version number to v1.8.2
Apr 3, 2022
c753fef
Merge pull request #136 from SeasideSt/grpackage-pharo100
Apr 3, 2022
74f54ab
move pharo 10 out of the 'experimental' list for the CI build, move a…
Apr 3, 2022
3c4fa03
Move all codecs in Pharo10 to use Zinc
Apr 9, 2022
1d8daee
make thisContext test work for Squeak
Apr 9, 2022
aa57cee
Merge pull request #137 from SeasideSt/grpackage-pharo100
Apr 9, 2022
269986e
CI updates: move Squeak back
Apr 9, 2022
fd607d1
Added #binaryWriteStreamFor:do: and #newTemporaryFileReference to GRP…
theseion May 20, 2020
4a73973
Add methods used for streaming to Pharo 100 platform
theseion Jun 4, 2022
8b34088
Add methods for streaming to Pharo 9 platform
theseion Jun 4, 2022
47808cb
Remove #binaryWriteStreamFor:do:
theseion Jun 5, 2022
c5c7167
Removed #binaryWriteStreamFor:do: from Pharo 10
theseion Jun 5, 2022
3899a41
Removed #binaryWriteStreamFor:do: from Pharo 7
theseion Jun 5, 2022
a248d08
Removed #binaryWriteStreamFor:do: from Squeak
theseion Jun 5, 2022
ce61d53
Removing expected failure since https://github.com/svenvc/zinc/issues…
Jun 6, 2022
5ad8d0b
Merge pull request #138 from theseion/file-utilities-for-streaming-up…
Jun 6, 2022
23414e5
Add BaselineOfGreaseForGToolkit
chisandrei Jun 30, 2022
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion .github/workflows/ci.yml
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ jobs:
strategy:
fail-fast: false
matrix:
smalltalk: [ Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.1, GemStone64-3.5.6, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6, Squeak64-5.3, Squeak64-5.2, Squeak64-5.1 ]
smalltalk: [ Pharo64-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.3, GemStone64-3.5.7, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6, Squeak64-5.3, Squeak64-5.2, Squeak64-5.1 ]
experimental: [ false ]
include:
- smalltalk: Squeak64-trunk
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ baselinePharo: spec
group: 'Slime Tests' with: #('Grease-Tests-Slime') ].

spec
for: #'pharo9.x'
for: #(#'pharo9.x')
do: [
spec
package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ];
Expand All @@ -58,6 +58,24 @@ baselinePharo: spec
package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ];
package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ].

spec
group: 'Slime' with: #('Grease-Pharo90-Slime');
group: 'Slime Tests' with: #('Grease-Tests-Slime') ].

spec
for: #(#'pharo10.x')
do: [
spec
package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo100-Core') ];
package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ];
package: 'Grease-Tests-Core'
with: [ spec
requires: #('Grease-Pharo100-Core');
includes: #('Grease-Tests-Pharo-Core') ];
package: 'Grease-Pharo100-Core' with: [ spec requires: #('Grease-Core') ];
package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ];
package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ].

spec
group: 'Slime' with: #('Grease-Pharo90-Slime');
group: 'Slime Tests' with: #('Grease-Tests-Slime') ].
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
baselines
baseline: spec
<baseline>

spec
for: #common
do: [
spec blessing: #baseline.

spec
package: 'Grease-Core';
package: 'Grease-Tests-Pharo-Core' with: [
spec requires: #('Grease-Tests-Core') ];
package: 'Grease-Tests-Core' with: [
spec requires: #('Grease-Pharo90-Core') ];
package: 'Grease-Pharo90-Core' with: [ spec requires: #('Grease-Core') ];
package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ];
package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ] ]
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
projectClass
Smalltalk at: #'MetacelloCypressBaselineProject' ifPresent: [ :cl | ^ cl ].
^ super projectClass
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
{
"commentStamp" : "",
"super" : "BaselineOf",
"category" : "BaselineOfGreaseForGToolkit",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
"instvars" : [ ],
"name" : "BaselineOfGreaseForGToolkit",
"type" : "normal"
}
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
SystemOrganization addCategory: #BaselineOfGreaseForGToolkit!
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'BaselineOfGreaseForGToolkit')
Original file line number Diff line number Diff line change
Expand Up @@ -14,13 +14,15 @@ resolveWith: aDictionary
"try -Pharo70-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') ifAbsent: [
"try -Pharo90-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [
"try -Squeak-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [
"try -Squeak5-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [
"try -Squeak6-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [
"specific for Grease-Slime"
aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [
self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ]
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [
"try -Pharo100-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo100-') ifAbsent: [
"try -Squeak-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [
"try -Squeak5-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [
"try -Squeak6-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [
"specific for Grease-Slime"
aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [
self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ]
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
file library
newTemporaryFileReference
"Create a new temporary file in the systems temp directory
and answer a reference to it.
It is the users responsibility to delete or move the file,
it will not be cleaned up automatically (unless the host system
has a policy for it)."
^ self subclassResponsibility
Original file line number Diff line number Diff line change
Expand Up @@ -2,5 +2,5 @@ version info
version
"Answer the Grease version"

^ (GRVersion major: 1 minor: 7 revision: 5)
^ (GRVersion major: 1 minor: 9 revision: 0)
yourself
Original file line number Diff line number Diff line change
@@ -1,8 +1,7 @@
{
"category" : "Grease-GemStone-Core",
"classinstvars" : [
"mutex",
"generator" ],
],
"classvars" : [
],
"commentStamp" : "",
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
accessing
tempNamed: aString
| index |
index := self tempNames indexOf: aString asSymbol.
index = 0
ifTrue: [ Error raiseSignal: 'No such temp: ' , aString ].
^ self tempAt: index
5 changes: 5 additions & 0 deletions repository/Grease-Pharo100-Core.package/.filetree
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
{
"separateMethodMetaAndSource" : false,
"noMethodMetaData" : true,
"useCypressPropertiesFile" : true
}
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
fullName
"In VW, will include the namespace"

Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
{
"name" : "Behavior"
}
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
valueWithPossibleArguments: anArray
| args |
(anArray size == self numArgs)
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
greaseString
"ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this."
^ self printString
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
greaseInteger
"Answer an unicode code point of the receiver."
^ self charCode
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
*Grease-Pharo100-Core
any
^ self anyOne
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
*Grease-Pharo100-Core
asHTMLColor
^'#', self asHexString
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
{
"name" : "Color"
}
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
milliseconds: anInteger
^ self milliSeconds: anInteger
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
asMilliseconds
^ self asMilliSeconds
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
milliseconds
^ nanos quo: NanosInMillisecond
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
*Grease-Pharo30-Core
*Grease-Pharo100-Core
greaseNext: anInteger putAll: aCollection startingAt: startIndex
stream greaseNext: anInteger putAll: aCollection startingAt: startIndex
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
accessing
defaults
defaultValue
^ nil
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
{
"commentStamp" : "MaxLeske 5/16/2017 22:05",
"commentStamp" : "",
"super" : "DynamicVariable",
"category" : "Grease-Pharo30-Core",
"category" : "Grease-Pharo100-Core",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
Expand Down
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
*Grease-Pharo30-Core
greasePharo30Core
*Grease-Pharo100-Core
greasePharo100Core
^ self new
name: 'Grease-Pharo30-Core';
name: 'Grease-Pharo100-Core';
addDependency: 'Grease-Core';
url: #greaseUrl;
yourself
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
{
"commentStamp" : "<historical>",
"super" : "GRNullCodec",
"category" : "Grease-Pharo30-Core",
"category" : "Grease-Pharo100-Core",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
Expand Down
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
{
"commentStamp" : "<historical>",
"super" : "GRNullCodecStream",
"category" : "Grease-Pharo30-Core",
"category" : "Grease-Pharo100-Core",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
startup
addToStartUpList: anObject
addToStartUpList: aClass
"Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject."

Smalltalk addToStartUpList: anObject
SessionManager default registerUserClassNamed: aClass name.
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
encoding
base64Decode: aString
^ aString base64Decoded asString
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
file library
contentsOfFile: aString binary: aBoolean
^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
file library
newTemporaryFileReference
"Create a new temporary file in the systems temp directory
and answer a reference to it.
It is the users responsibility to delete or move the file,
it will not be cleaned up automatically (unless the host system
has a policy for it)."
^ FileLocator temp / UUID new asString
Original file line number Diff line number Diff line change
Expand Up @@ -11,8 +11,8 @@ openDebuggerOn: anError
UnhandledError signalForException: anError ]
ifFalse: [
WorldState addDeferredUIMessage: [
process
debug: anError signalerContext
title: anError description
full: true ].
UIManager default
requestDebuggerOpeningForProcess: process
named: anError description
inContext: anError signalerContext ].
process suspend ]
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
file library
readFileStreamOn: aString do: aBlock binary: aBoolean

^ aBoolean
ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ]
ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ]
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@ factory
readWriteByteStream
"ByteArray based read write stream"

^ RWBinaryOrTextStream on: (ByteArray new: 4096)
^ ReadWriteStream on: (ByteArray new: 4096)
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
startup
removeFromShutDownList: aClass
"Remove aClass from the shutdown list in the system."

SessionManager default unregisterClassNamed: aClass name
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
startup
removeFromStartUpList: aClass
"Remove aClass from the startup list in the system."

SessionManager default unregisterClassNamed: aClass name
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
file library
write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
^ self
writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString
do: [ :stream | stream nextPutAll: aStringOrByteArray ]
binary: aStringOrByteArray isString not
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
file library
writeFileStreamOn: aString do: aBlock binary: aBoolean
^ aBoolean
ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]
ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ]
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
{
"commentStamp" : "pmm 6/1/2008 01:03",
"super" : "GRPlatform",
"category" : "Grease-Pharo30-Core",
"category" : "Grease-Pharo100-Core",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,6 @@
public
nextInt: anInteger

"Answer a random integer in the interval [1, anInteger]"

^ mutex critical: [ generator nextInt: anInteger ]
^ mutex critical: [ generator nextInteger: anInteger ]
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
{
"commentStamp" : "",
"super" : "GRObject",
"category" : "Grease-Pharo30-Core",
"category" : "Grease-Pharo100-Core",
"classinstvars" : [
"mutex",
"generator"
Expand Down
Empty file.
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
codecs
^ self supportedEncodingNames
collect: [ :each | self basicForEncoding: each greaseString ]
Loading
X Tutup