X Tutup
Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

Empty file.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

This file was deleted.

Original file line number Diff line number Diff line change
Expand Up @@ -8,9 +8,7 @@
"UrlTable",
"XmlTable"
],
"instvars" : [
"utf8DeprecatedCodecFlag"
],
"instvars" : [ ],
"name" : "GRPharoPlatform",
"type" : "normal"
}
Original file line number Diff line number Diff line change
@@ -1,5 +1,3 @@
accessing
codecs
^ GRPlatform current utf8CodecClass == self
ifTrue:[ Array with: self new ]
ifFalse: [ Array new ]
^ Array with: self new
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
private
supportsEncoding: aString
^ GRPlatform current utf8CodecClass == self and: [ (#('utf-8' 'UTF-8' 'utf8') includes: aString) ]
^ (#('utf-8' 'UTF-8' 'utf8') includes: aString)
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
accessing
nextPut: aCharacter
encoder nextPut: aCharacter asCharacter toStream: stream
encoder nextPut: aCharacter asCharacter toStream: stream
Original file line number Diff line number Diff line change
Expand Up @@ -10,9 +10,9 @@ testThisContext
ifTrue: [ self assert: blockContext receiver = block ]
ifFalse: [
self assert: blockContext receiver = self.
self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ].
self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ].
self assert: (blockContext tempNamed: 'blockContext') == blockContext ].
self assert: (blockContext tempNamed: 'methodContext') == methodContext ].
block value.
self assert: self returnSender = methodContext.
self assert: methodContext receiver = self.
self assert: (self platform thisContext namedTempAt: (self platform thisContext tempNames indexOf: #block)) == block
self assert: (self platform thisContext tempNamed: 'block') == block

This file was deleted.

Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
tests
testNoAmbiguities
#('utf-8' 'UTF-8' 'utf8') do: [ :each |
self deny: (GRPharoGenericCodec supportsEncoding: each) ].
GRPharoLatin1Codec supportedEncodingNames do: [ :each |
self deny: (GRPharoGenericCodec supportsEncoding: each) ]
(Smalltalk includesKey: #GRPharoGenericCodec) ifTrue:[
#('utf-8' 'UTF-8' 'utf8') do: [ :each |
self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ].
GRPharoLatin1Codec supportedEncodingNames do: [ :each |
self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ] ]
Original file line number Diff line number Diff line change
Expand Up @@ -4,11 +4,4 @@ testGreaseIntegerOnCharacter
character := Character codePoint: 19982.
self assert: character greaseInteger = 19982.
character := Unicode value: 19982.
self assert: character greaseInteger = 19982.
LanguageEnvironment allSubclassesDo: [ :each |
(each class selectors includes: #leadingChar) ifTrue: [
"fuck me gently with a chainsaw"
character := Character
leadingChar: each leadingChar
code: 19982.
self assert: character greaseInteger = 19982 ] ]
self assert: character greaseInteger = 19982
X Tutup