tweaks

CoreUpdates/5309-StandardFileStream-convertToByteStringIfNeeded-JuanVuletich-2022Jun23-16h37m-jmv.001.cs.st

@@ -0,0 +1,15 @@
+'From Cuis 6.0 [latest update: #5308] on 23 June 2022 at 4:41:00 pm'!
+
+!StandardFileStream methodsFor: 'read, write, position' stamp: 'jmv 6/23/2022 16:39:16'!
+nextPutAll: aString
+	"Write all the characters of the given string to this file."
+
+	| byteString |
+	rwmode ifFalse: [^ self error: 'Cannot write a read-only file'].
+	collection ifNotNil: [ 
+		position < readLimit ifTrue: [ self flushReadBuffer ] ].
+	byteString _ aString isString ifTrue: [ aString asByteString ] ifFalse: [ aString ].
+	self primWrite: fileID from: byteString startingAt: 1 count: byteString basicSize.
+	^ aString
+! !
+

CoreUpdates/5310-CodePoint-CompatibilityWithCharacter-JuanVuletich-2022Jun23-16h41m-jmv.001.cs.st

@@ -0,0 +1,95 @@
+'From Cuis 6.0 [latest update: #5308] on 23 June 2022 at 5:04:24 pm'!
+
+!Character methodsFor: 'converting' stamp: 'jmv 6/23/2022 17:01:52'!
+asUnicodeCodePoint
+	^UnicodeCodePoint codePoint: self codePoint! !
+
+
+!UnicodeCodePoint methodsFor: 'testing' stamp: 'jmv 6/23/2022 16:49:59'!
+isUnaccented
+	"Answer whether the receiver is an unaccented letter."
+self flag: #unicodeNeedsImprovement.
+	self asCharacter ifNotNil: [ :ch | ^ch isUnaccented ].
+	^false! !
+
+!UnicodeCodePoint methodsFor: 'copying' stamp: 'jmv 6/23/2022 16:54:34'!
+shallowCopy
+	"Answer with me, because we are immutable."! !
+
+!UnicodeCodePoint methodsFor: 'converting' stamp: 'jmv 6/23/2022 16:43:47'!
+asString
+	^Utf8String with: self! !
+
+!UnicodeCodePoint methodsFor: 'converting' stamp: 'jmv 6/23/2022 17:02:06'!
+to: other
+	"Answer with a collection in ascii order
+	$a asUnicodeCodePoint to: $z asUnicodeCodePoint
+	"
+	^ (self codePoint to: other codePoint) collect:
+				[ :codePoint | UnicodeCodePoint codePoint: codePoint ]! !
+
+!UnicodeCodePoint methodsFor: 'converting' stamp: 'jmv 6/23/2022 17:04:07'!
+withDiacriticalMark: anUnicodeCodePoint
+self flag: #unicodeNeedsImprovement.
+	self asCharacter ifNotNil: [ :ch |
+		^UnicodeCodePoint codePoint: (ch withDiacriticalMark: anUnicodeCodePoint) codePoint ].
+	^self! !
+
+!UnicodeCodePoint methodsFor: 'printing' stamp: 'jmv 6/23/2022 16:47:17'!
+hex
+	^value printStringBase: 16 length: 6 padded: true! !
+
+!UnicodeCodePoint methodsFor: 'printing' stamp: 'jmv 6/23/2022 16:49:08'!
+isLiteral
+self flag: #unicodeNeedsImprovement.
+	^super isLiteral! !
+
+!UnicodeCodePoint methodsFor: 'printing' stamp: 'jmv 6/23/2022 16:51:57'!
+printOn: aStream 
+	aStream nextPut: $$; nextPut: $(.
+	aStream nextPutAll: self hex.
+	aStream nextPut: $).! !
+
+!UnicodeCodePoint methodsFor: 'printing' stamp: 'jmv 6/23/2022 16:59:07'!
+storeOn: aStream
+
+	aStream nextPutAll: '(UnicodeCodePoint codePoint: '.
+	aStream print: value.
+	aStream nextPut: $).! !
+
+!UnicodeCodePoint methodsFor: 'private' stamp: 'jmv 6/23/2022 16:55:56'!
+privateValue: aNumericCodePoint
+	value _ aNumericCodePoint! !
+
+
+!Utf8String methodsFor: 'copying' stamp: 'jmv 6/23/2022 16:53:55'!
+shallowCopy
+	"Answer with me, because we are immutable."! !
+
+
+!UnicodeCodePoint methodsFor: 'converting' stamp: 'jmv 6/23/2022 16:44:03'!
+asSymbol
+	^self asString asSymbol! !
+
+
+!UnicodeCodePoint class methodsFor: 'instance creation' stamp: 'jmv 6/23/2022 16:56:24'!
+codePoint: aNumber
+	^self new privateValue: aNumber! !
+
+!methodRemoval: UnicodeCodePoint #codePoint: stamp: 'jmv 6/23/2022 16:56:40'!
+UnicodeCodePoint removeSelector: #codePoint:!
+!methodRemoval: Character #leadingChar stamp: 'jmv 6/23/2022 16:50:18'!
+Character removeSelector: #leadingChar!
+
+!UnicodeCodePoint reorganize!
+('accessing' asciiValue codePoint digitValue numericValue)
+('testing' canBeGlobalVarInitial is: isAccented isAlphaNumeric isCharacter isDigit isLetter isLineSeparator isLowercase isSeparator isUnaccented isUnicodeCodePoint isUppercase isValidInBinarySelectors isValidInIdentifiers isValidStartOfIdentifiers isVowel iso8859s15Code tokenish)
+('copying' shallowCopy)
+('as yet unclassified' doesNotUnderstand:)
+('comparing' < <= = > >= hash)
+('converting' asCharacter asLowercase asString asSymbol asText asUnaccented asUppercase to: withDiacriticalMark:)
+('printing' hex isLiteral printOn: storeOn:)
+('private' privateValue:)
+('fileman-testing' isDriveLetter isDriveSeparator isPathSeparator)
+!
+

CoreUpdates/5311-Cleanup-JuanVuletich-2022Jun23-17h04m-jmv.001.cs.st

@@ -0,0 +1,37 @@
+'From Cuis 6.0 [latest update: #5308] on 23 June 2022 at 5:06:59 pm'!
+!methodRemoval: Utf8String #doesNotUnderstand: stamp: 'jmv 6/23/2022 17:05:06'!
+Utf8String removeSelector: #doesNotUnderstand:!
+!methodRemoval: Utf8String #is: stamp: 'jmv 6/23/2022 17:06:37'!
+Utf8String removeSelector: #is:!
+!methodRemoval: Utf32String #doesNotUnderstand: stamp: 'jmv 6/23/2022 17:05:04'!
+Utf32String removeSelector: #doesNotUnderstand:!
+!methodRemoval: Utf32String #is: stamp: 'jmv 6/23/2022 17:06:19'!
+Utf32String removeSelector: #is:!
+!methodRemoval: UnicodeCodePoint #doesNotUnderstand: stamp: 'jmv 6/23/2022 17:05:02'!
+UnicodeCodePoint removeSelector: #doesNotUnderstand:!
+!methodRemoval: UnicodeCodePoint #is: stamp: 'jmv 6/23/2022 17:05:39'!
+UnicodeCodePoint removeSelector: #is:!
+
+!UnicodeCodePoint reorganize!
+('accessing' asciiValue codePoint digitValue numericValue)
+('testing' canBeGlobalVarInitial isAccented isAlphaNumeric isCharacter isDigit isLetter isLineSeparator isLowercase isSeparator isUnaccented isUnicodeCodePoint isUppercase isValidInBinarySelectors isValidInIdentifiers isValidStartOfIdentifiers isVowel iso8859s15Code tokenish)
+('copying' shallowCopy)
+('comparing' < <= = > >= hash)
+('converting' asCharacter asLowercase asString asSymbol asText asUnaccented asUppercase to: withDiacriticalMark:)
+('printing' hex isLiteral printOn: storeOn:)
+('private' privateValue:)
+('fileman-testing' isDriveLetter isDriveSeparator isPathSeparator)
+!
+
+
+!Utf32String reorganize!
+('accessing' at: isLastLineSeparator isLastSeparator size words words:)
+('copying' , appendToString: copyFrom:to: copyReplaceFrom:to:with:)
+('comparing' = hash sameAs:)
+('converting' asUtf32String asUtf32Words asUtf8Bytes)
+('testing' isAscii isEmpty isUtf32String)
+('paragraph support' encompassLine: encompassParagraph:)
+('character scanner support' scanCharactersFrom:to:with:rightX:stopConditions:)
+('initialization' initialize)
+!
+