Packages March 2022

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: Kernel-nice.1447.mcz
by commits＠source.squeak.org 10 Mar '22

10 Mar '22

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1447.mcz ==================== Summary ==================== Name: Kernel-nice.1447 Author: nice Time: 10 March 2022, 10:17:27.088899 am UUID: 2d34a5d9-c171-c04b-8e95-8f97913fdeef Ancestors: Kernel-mt.1446 Fix interpretation of push character literal bytecode (233) See https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/618. Since character have unsigned values, the extend B bytecode (225) value must be interpreted unsigned. We do this with bitAnd: 16rFF because it restores unsignedness of a single byte: (0 to: 255) allSatisfy: [:extB | ((extB > 127 ifTrue: [extB - 256] ifFalse: [extB]) bitAnd: 16rFF) = extB]. and because we assume that extB is a single byte. This would be untrue if we would use multiple consecutive extend B bytecode to encode character value > 16rFFFF, but until now we don't - see EncoderForSistaV1>>#genPushCharacter: =============== Diff against Kernel-mt.1446 =============== Item was changed: ----- Method: InstructionStream>>interpretNext2ByteSistaV1Instruction:for:extA:extB:startPC: (in category 'decoding - private - sista v1') ----- interpretNext2ByteSistaV1Instruction: bytecode for: client extA: extA extB: extB startPC: startPC "Send to the argument, client, a message that specifies the next instruction. This method handles the two-byte codes. For a table of the bytecode set, see EncoderForV1's class comment." | byte method | method := self method. byte := self method at: pc. pc := pc + 1. "We do an inline quasi-binary search on bytecode" bytecode < 234 ifTrue: "pushes" [bytecode < 231 ifTrue: [bytecode < 229 ifTrue: [| literal | bytecode = 226 ifTrue: [^client pushReceiverVariable: (extA bitShift: 8) + byte]. literal := method literalAt: (extA bitShift: 8) + byte + 1. bytecode = 227 ifTrue: [^client pushLiteralVariable: literal]. ^client pushConstant: literal]. bytecode = 229 ifTrue: [^client pushTemporaryVariable: byte]. ^self unusedBytecode: client at: startPC]. bytecode = 231 ifTrue: [^byte < 128 ifTrue: [client pushNewArrayOfSize: byte] ifFalse: [client pushConsArrayWithElements: byte - 128]]. bytecode = 232 ifTrue: [^client pushSpecialConstant: ((extB < 128 ifTrue: [extB] ifFalse: [extB - 256]) bitShift: 8) + byte]. + ^client pushSpecialConstant: (Character value: ((extB bitAnd: 16rFF) bitShift: 8) + byte)]. - ^client pushSpecialConstant: (Character value: (extB bitShift: 8) + byte)]. bytecode < 240 ifTrue: "sends, trap and jump" [bytecode < 236 ifTrue: "sends" [(bytecode = 235 and: [extB >= 64]) ifTrue: [^client directedSuperSend: (method literalAt: (extA bitShift: 5) + (byte // 8) + 1) numArgs: (extB - 64 bitShift: 3) + (byte \\ 8)]. ^client send: (method literalAt: (extA bitShift: 5) + (byte // 8) + 1) super: bytecode = 235 numArgs: (extB bitShift: 3) + (byte \\ 8)]. bytecode = 236 ifTrue: [^client callMappedInlinedPrimitive: byte]. bytecode = 237 ifTrue: [^client jump: (extB bitShift: 8) + byte]. ^client jump: (extB bitShift: 8) + byte if: bytecode = 238]. bytecode < 243 ifTrue: [bytecode = 240 ifTrue: [^client popIntoReceiverVariable: (extA bitShift: 8) + byte]. bytecode = 241 ifTrue: [^client popIntoLiteralVariable: (method literalAt: (extA bitShift: 8) + byte + 1)]. ^client popIntoTemporaryVariable: byte]. bytecode = 243 ifTrue: [^client storeIntoReceiverVariable: (extA bitShift: 8) + byte]. bytecode = 244 ifTrue: [^client storeIntoLiteralVariable: (method literalAt: (extA bitShift: 8) + byte + 1)]. bytecode = 245 ifTrue: [^client storeIntoTemporaryVariable: byte]. "246-247 1111011 i xxxxxxxx UNASSIGNED" ^self unusedBytecode: client at: startPC!

1 0

The Trunk: Compiler-nice.471.mcz
by commits＠source.squeak.org 10 Mar '22

10 Mar '22

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.471.mcz ==================== Summary ==================== Name: Compiler-nice.471 Author: nice Time: 10 March 2022, 10:06:12.445899 am UUID: ebc43c86-7bbc-764d-9bbb-6c9ecfb21a10 Ancestors: Compiler-mt.470 Workaround VM bug https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/618 We avoid using extend B bytecode (225) + push character bytecode (233) when character value > 16r7FFF. In this case, the character literal will be accessed thru traditional genPushLiteral: bytecode. =============== Diff against Compiler-mt.470 =============== Item was changed: ----- Method: EncoderForSistaV1>>genPushCharacter: (in category 'bytecode generation') ----- genPushCharacter: aCharacterOrCode "233 11101001 i i i i i i i i Push Character #iiiiiiii (+ Extend B * 256)" "Why restrict the range to 16 bits when we could encode arbitrarily 32-bit Characters? Well, 16 bits requires 4 bytes (extB + byte, 78 + byte) and so beyond this range we lose space verses a single-byte pushLiteral and a 4 byte Character literal on 32-bits. And generating the same bytecode on 64-bit and 32-bit is important if we want to be able to load binary code from one to the other (e.g. via Fuel)." | code | code := aCharacterOrCode isInteger ifTrue: [aCharacterOrCode] ifFalse: [aCharacterOrCode asInteger]. + "Note: due to a bug at VM side, Character above 16r8000 are reconstructed with a negative value. + This is because extend B is interpreted as signed integer. + See https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/618 + For compatibility with old VM, we restrict usage of push character bytecode to safe cases extB < 16r80." + (code < 0 or: [code > 16r7FFF]) ifTrue: + [^self outOfRangeError: 'character' index: code range: 0 to: 16r7FFF]. - (code < 0 or: [code > 65535]) ifTrue: - [^self outOfRangeError: 'character' index: code range: 0 to: 65535]. (code > 255) ifTrue: [self genUnsignedSingleExtendB: (code bitShift: -8)]. stream nextPut: 233; nextPut: (code bitAnd: 255)! Item was changed: ----- Method: EncoderForSistaV1>>isSpecialLiteralForPush: (in category 'special literal encodings') ----- isSpecialLiteralForPush: literal ^literal isInteger ifFalse: [literal isCharacter ifFalse: [false == literal or: [true == literal or: [nil == literal]]] ifTrue: + ["Restrict character range due to VM bug at character value reconstruction + See https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/618" + literal asInteger between: 0 and: 16r7FFF]] - [literal asInteger between: 0 and: 65535]] ifTrue: [literal between: -32768 and: 32767]!

1 0

The Trunk: Tools-mt.1140.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1140.mcz ==================== Summary ==================== Name: Tools-mt.1140 Author: mt Time: 9 March 2022, 12:47:29.695769 pm UUID: bfe6316b-34ad-e74f-8ade-996dda16ffc1 Ancestors: Tools-mt.1139 Minor fix in DependencyBrowser to match implementation in PackagePaneBrowser. =============== Diff against Tools-mt.1139 =============== Item was changed: ----- Method: DependencyBrowser>>selectedPackageName (in category 'package list') ----- selectedPackageName + ^ self hasPackageSelected + ifFalse: [nil] + ifTrue: [self packageList at: packageListIndex]! - ^ self packageList at: self packageListIndex!

1 0

The Trunk: Multilingual-mt.267.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.267.mcz ==================== Summary ==================== Name: Multilingual-mt.267 Author: mt Time: 9 March 2022, 11:26:54.12999 am UUID: 57708974-d740-2747-a900-f8c2a981c1f2 Ancestors: Multilingual-mt.266 Fixes latin-1 tables for EUC converters. Makes the CNGBTextConverter available under the more consistent name EUCCNTextConverter. =============== Diff against Multilingual-mt.266 =============== Item was changed: + EUCCNTextConverter subclass: #CNGBTextConverter - EUCTextConverter subclass: #CNGBTextConverter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! - - !CNGBTextConverter commentStamp: '<historical>' prior: 0! - Text converter for Simplified Chinese variation of EUC. (Even though the name doesn't look so, it is what it is.)! Item was removed: - ----- Method: CNGBTextConverter class>>encodingNames (in category 'utilities') ----- - encodingNames - - ^ #('gb2312' ) copy - ! Item was removed: - ----- Method: CNGBTextConverter>>languageEnvironment (in category 'private') ----- - languageEnvironment - - ^ SimplifiedChineseEnvironment. - ! Item was removed: - ----- Method: CNGBTextConverter>>leadingChar (in category 'private') ----- - leadingChar - - ^ GB2312 leadingChar - ! Item was added: + EUCTextConverter subclass: #EUCCNTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! + + !EUCCNTextConverter commentStamp: 'mt 3/9/2022 11:14' prior: 0! + Text converter for Simplified Chinese variation of EUC. ! Item was added: + ----- Method: EUCCNTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('gb2312' 'euc-cn') copy! Item was added: + ----- Method: EUCCNTextConverter>>languageEnvironment (in category 'private') ----- + languageEnvironment + + ^ SimplifiedChineseEnvironment. + ! Item was added: + ----- Method: EUCCNTextConverter>>leadingChar (in category 'private') ----- + leadingChar + + ^ GB2312 leadingChar + ! Item was added: + ----- Method: EUCTextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- + initializeLatin1MapAndEncodings + + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := Array new: 256 withAll: nil. + 0 to: 127 do: [:i | latin1Map at: i+1 put: 0].! Item was changed: ----- Method: EUCTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream | charCode leadingChar nonUnicodeChar | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. charCode := aCharacter charCode. leadingChar := aCharacter leadingChar. (leadingChar = 0 and: [ charCode < 256 ]) ifTrue: [ (latin1Encodings at: charCode + 1) + ifNil: [ (latin1Map at: charCode + 1) = 0 "Really no translation needed." + ifTrue: [ aStream basicNextPut: aCharacter ] + ifFalse: [ UndefinedConversion signalFor: charCode toEncoding: self ] ] - ifNil: [ aStream basicNextPut: aCharacter ] ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. ^aCharacter ]. aCharacter isTraditionalDomestic ifFalse: [ nonUnicodeChar := self nonUnicodeClass charFromUnicode: charCode ] ifTrue: [ nonUnicodeChar := Character value: charCode ]. nonUnicodeChar ifNotNil: [ charCode := nonUnicodeChar charCode. aStream basicNextPut: (Character value: charCode // 94 + 161); basicNextPut: (Character value: charCode \\ 94 + 161) ]. ^aCharacter ! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'EUCTextConverter withAllSubclassesDo: [:ea | ea initializeTables].'! - (PackageInfo named: 'Multilingual') postscript: 'KOI8TextConverter withAllSubclassesDo: [:ea | ea initializeTables].'!

1 0

The Trunk: Multilingual-mt.266.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.266.mcz ==================== Summary ==================== Name: Multilingual-mt.266 Author: mt Time: 9 March 2022, 11:01:38.89217 am UUID: 1df9d92a-f722-f147-b3d7-00872089abad Ancestors: Multilingual-mt.265 Clean up and extend KOI-8 converters. =============== Diff against Multilingual-mt.265 =============== Item was added: + KOI8TextConverter subclass: #KOI8BTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8BTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-b') copy + ! Item was added: + ----- Method: KOI8BTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable at: 16rA3 + 1 put: 16r0451. + decodeTable at: 16rB3 + 1 put: 16r0401. + decodeTable at: 16rFF + 1 put: 16r042A. + self setCurrencySignToDollar.! Item was added: + KOI8TextConverter subclass: #KOI8ETextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8ETextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-e' 'iso-ir-111') copy + ! Item was added: + ----- Method: KOI8ETextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 16r00+1 to: 16r9F+1) , #( + 16r00A0 16r0452 16r0453 16r0451 16r0454 16r0455 16r0456 16r0457 + 16r0458 16r0459 16r045A 16r045B 16r045C 16r00AD 16r045E 16r045F + 16r2116 16r0402 16r0403 16r0401 16r0404 16r0405 16r0406 16r0407 + 16r0408 16r0409 16r040A 16r040B 16r040C 16r00A4 16r040E 16r040F), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was added: + KOI8TextConverter subclass: #KOI8FTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8FTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-f') copy + ! Item was added: + ----- Method: KOI8FTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2018 16r2019 16r201C 16r201D 16r2219 16r2013 16r2014 + 16r00A9 16r2122 16r00A0 16r00BB 16r00AE 16r00AB 16r00B7 16r00A4 + 16r00A0 16r0452 16r0453 16r0451 16r0454 16r0455 16r0456 16r0457 + 16r0458 16r0459 16r045A 16r045B 16r045C 16r0491 16r045E 16r045F + 16r2116 16r0402 16r0403 16r0401 16r0404 16r0405 16r0406 16r0407 + 16r0408 16r0409 16r040A 16r040B 16r040C 16r0490 16r040E 16r040F), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was changed: + KOI8TextConverter subclass: #KOI8RTextConverter - TextConverter subclass: #KOI8RTextConverter instanceVariableNames: '' + classVariableNames: '' - classVariableNames: 'FromTable' poolDictionaries: '' category: 'Multilingual-TextConversion'! Item was changed: + ----- Method: KOI8RTextConverter class>>encodingNames (in category 'utilities') ----- - ----- Method: KOI8RTextConverter class>>encodingNames (in category 'as yet unclassified') ----- encodingNames ^ #('koi8-r') copy ! Item was removed: - ----- Method: KOI8RTextConverter class>>initialize (in category 'as yet unclassified') ----- - initialize - " - KOI8RTextConverter initialize - " - FromTable := Dictionary new. - FromTable at: 16r2500 put: 16r80. - FromTable at: 16r2502 put: 16r81. - FromTable at: 16r250C put: 16r82. - FromTable at: 16r2510 put: 16r83. - FromTable at: 16r2514 put: 16r84. - FromTable at: 16r2518 put: 16r85. - FromTable at: 16r251C put: 16r86. - FromTable at: 16r2524 put: 16r87. - FromTable at: 16r252C put: 16r88. - FromTable at: 16r2534 put: 16r89. - FromTable at: 16r253C put: 16r8A. - FromTable at: 16r2580 put: 16r8B. - FromTable at: 16r2584 put: 16r8C. - FromTable at: 16r2588 put: 16r8D. - FromTable at: 16r258C put: 16r8E. - FromTable at: 16r2590 put: 16r8F. - FromTable at: 16r2591 put: 16r90. - FromTable at: 16r2592 put: 16r91. - FromTable at: 16r2593 put: 16r92. - FromTable at: 16r2320 put: 16r93. - FromTable at: 16r25A0 put: 16r94. - FromTable at: 16r2219 put: 16r95. - FromTable at: 16r221A put: 16r96. - FromTable at: 16r2248 put: 16r97. - FromTable at: 16r2264 put: 16r98. - FromTable at: 16r2265 put: 16r99. - FromTable at: 16r00A0 put: 16r9A. - FromTable at: 16r2321 put: 16r9B. - FromTable at: 16r00B0 put: 16r9C. - FromTable at: 16r00B2 put: 16r9D. - FromTable at: 16r00B7 put: 16r9E. - FromTable at: 16r00F7 put: 16r9F. - FromTable at: 16r2550 put: 16rA0. - FromTable at: 16r2551 put: 16rA1. - FromTable at: 16r2552 put: 16rA2. - FromTable at: 16r0451 put: 16rA3. - FromTable at: 16r2553 put: 16rA4. - FromTable at: 16r2554 put: 16rA5. - FromTable at: 16r2555 put: 16rA6. - FromTable at: 16r2556 put: 16rA7. - FromTable at: 16r2557 put: 16rA8. - FromTable at: 16r2558 put: 16rA9. - FromTable at: 16r2559 put: 16rAA. - FromTable at: 16r255A put: 16rAB. - FromTable at: 16r255B put: 16rAC. - FromTable at: 16r255C put: 16rAD. - FromTable at: 16r255D put: 16rAE. - FromTable at: 16r255E put: 16rAF. - FromTable at: 16r255F put: 16rB0. - FromTable at: 16r2560 put: 16rB1. - FromTable at: 16r2561 put: 16rB2. - FromTable at: 16r0401 put: 16rB3. - FromTable at: 16r2562 put: 16rB4. - FromTable at: 16r2563 put: 16rB5. - FromTable at: 16r2564 put: 16rB6. - FromTable at: 16r2565 put: 16rB7. - FromTable at: 16r2566 put: 16rB8. - FromTable at: 16r2567 put: 16rB9. - FromTable at: 16r2568 put: 16rBA. - FromTable at: 16r2569 put: 16rBB. - FromTable at: 16r256A put: 16rBC. - FromTable at: 16r256B put: 16rBD. - FromTable at: 16r256C put: 16rBE. - FromTable at: 16r00A9 put: 16rBF. - FromTable at: 16r044E put: 16rC0. - FromTable at: 16r0430 put: 16rC1. - FromTable at: 16r0431 put: 16rC2. - FromTable at: 16r0446 put: 16rC3. - FromTable at: 16r0434 put: 16rC4. - FromTable at: 16r0435 put: 16rC5. - FromTable at: 16r0444 put: 16rC6. - FromTable at: 16r0433 put: 16rC7. - FromTable at: 16r0445 put: 16rC8. - FromTable at: 16r0438 put: 16rC9. - FromTable at: 16r0439 put: 16rCA. - FromTable at: 16r043A put: 16rCB. - FromTable at: 16r043B put: 16rCC. - FromTable at: 16r043C put: 16rCD. - FromTable at: 16r043D put: 16rCE. - FromTable at: 16r043E put: 16rCF. - FromTable at: 16r043F put: 16rD0. - FromTable at: 16r044F put: 16rD1. - FromTable at: 16r0440 put: 16rD2. - FromTable at: 16r0441 put: 16rD3. - FromTable at: 16r0442 put: 16rD4. - FromTable at: 16r0443 put: 16rD5. - FromTable at: 16r0436 put: 16rD6. - FromTable at: 16r0432 put: 16rD7. - FromTable at: 16r044C put: 16rD8. - FromTable at: 16r044B put: 16rD9. - FromTable at: 16r0437 put: 16rDA. - FromTable at: 16r0448 put: 16rDB. - FromTable at: 16r044D put: 16rDC. - FromTable at: 16r0449 put: 16rDD. - FromTable at: 16r0447 put: 16rDE. - FromTable at: 16r044A put: 16rDF. - FromTable at: 16r042E put: 16rE0. - FromTable at: 16r0410 put: 16rE1. - FromTable at: 16r0411 put: 16rE2. - FromTable at: 16r0426 put: 16rE3. - FromTable at: 16r0414 put: 16rE4. - FromTable at: 16r0415 put: 16rE5. - FromTable at: 16r0424 put: 16rE6. - FromTable at: 16r0413 put: 16rE7. - FromTable at: 16r0425 put: 16rE8. - FromTable at: 16r0418 put: 16rE9. - FromTable at: 16r0419 put: 16rEA. - FromTable at: 16r041A put: 16rEB. - FromTable at: 16r041B put: 16rEC. - FromTable at: 16r041C put: 16rED. - FromTable at: 16r041D put: 16rEE. - FromTable at: 16r041E put: 16rEF. - FromTable at: 16r041F put: 16rF0. - FromTable at: 16r042F put: 16rF1. - FromTable at: 16r0420 put: 16rF2. - FromTable at: 16r0421 put: 16rF3. - FromTable at: 16r0422 put: 16rF4. - FromTable at: 16r0423 put: 16rF5. - FromTable at: 16r0416 put: 16rF6. - FromTable at: 16r0412 put: 16rF7. - FromTable at: 16r042C put: 16rF8. - FromTable at: 16r042B put: 16rF9. - FromTable at: 16r0417 put: 16rFA. - FromTable at: 16r0428 put: 16rFB. - FromTable at: 16r042D put: 16rFC. - FromTable at: 16r0429 put: 16rFD. - FromTable at: 16r0427 put: 16rFE. - FromTable at: 16r042A put: 16rFF. - ! Item was added: + ----- Method: KOI8RTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 + 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 + 16r2550 16r2551 16r2552 16r0451 16r2553 16r2554 16r2555 16r2556 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r255C 16r255D 16r255E + 16r255F 16r2560 16r2561 16r0401 16r2562 16r2563 16r2564 16r2565 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r256B 16r256C 16r00A9), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was removed: - ----- Method: KOI8RTextConverter>>fromSqueak: (in category 'as yet unclassified') ----- - fromSqueak: char - - ^ Character value: (FromTable at: char charCode ifAbsent: [char asciiValue])! Item was removed: - ----- Method: KOI8RTextConverter>>nextFromStream: (in category 'as yet unclassified') ----- - nextFromStream: aStream - - | character1 | - aStream isBinary ifTrue: [^ aStream basicNext]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - ^ self toSqueak: character1. - ! Item was removed: - ----- Method: KOI8RTextConverter>>nextPut:toStream: (in category 'as yet unclassified') ----- - nextPut: aCharacter toStream: aStream - - | charCode | - aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. - (charCode := aCharacter charCode) < 256 - ifFalse: [ aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)) ] - ifTrue: [ - (latin1Encodings at: charCode + 1) - ifNil: [ aStream basicNextPut: aCharacter ] - ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]. - ^aCharacter - ! Item was removed: - ----- Method: KOI8RTextConverter>>toSqueak: (in category 'as yet unclassified') ----- - toSqueak: char - - | value | - value := char charCode. - - value < 128 ifTrue: [^ char]. - value > 255 ifTrue: [^ char]. - ^ Character leadingChar: RussianEnvironment leadingChar code: (#( - 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 - 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 - 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 - 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 - 16r2550 16r2551 16r2552 16r0451 16r2553 16r2554 16r2555 16r2556 - 16r2557 16r2558 16r2559 16r255A 16r255B 16r255C 16r255D 16r255E - 16r255F 16r2560 16r2561 16r0401 16r2562 16r2563 16r2564 16r2565 - 16r2566 16r2567 16r2568 16r2569 16r256A 16r256B 16r256C 16r00A9 - 16r044E 16r0430 16r0431 16r0446 16r0434 16r0435 16r0444 16r0433 - 16r0445 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E - 16r043F 16r044F 16r0440 16r0441 16r0442 16r0443 16r0436 16r0432 - 16r044C 16r044B 16r0437 16r0448 16r044D 16r0449 16r0447 16r044A - 16r042E 16r0410 16r0411 16r0426 16r0414 16r0415 16r0424 16r0413 - 16r0425 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E - 16r041F 16r042F 16r0420 16r0421 16r0422 16r0423 16r0416 16r0412 - 16r042C 16r042B 16r0417 16r0428 16r042D 16r0429 16r0427 16r042A - ) at: (value - 128 + 1)). - ! Item was added: + KOI8TextConverter subclass: #KOI8RUTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8RUTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-ru') copy + ! Item was added: + ----- Method: KOI8RUTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r201C 16r25A0 16r2219 16r201D 16r2014 + 16r2116 16r2122 16r00A0 16r00BB 16r00AE 16r00AB 16r00B7 16r00A4 + 16r2550 16r2551 16r2552 16r0451 16r0454 16r2554 16r0456 16r0457 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r0491 16r045E 16r255E + 16r255F 16r2560 16r2561 16r0401 16r0404 16r2563 16r0406 16r0407 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r0490 16r040E 16r00A9), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was added: + ByteTextConverter subclass: #KOI8TextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8TextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi-8') copy! Item was added: + ----- Method: KOI8TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + decodeTable := (0 to: 255) asArray. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + 16r044E 16r0430 16r0431 16r0446 16r0434 16r0435 16r0444 16r0433 + 16r0445 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E + 16r043F 16r044F 16r0440 16r0441 16r0442 16r0443 16r0436 16r0432 + 16r044C 16r044B 16r0437 16r0448 16r044D 16r0449 16r0447 16r044A + 16r042E 16r0410 16r0411 16r0426 16r0414 16r0415 16r0424 16r0413 + 16r0425 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E + 16r041F 16r042F 16r0420 16r0421 16r0422 16r0423 16r0416 16r0412 + 16r042C 16r042B 16r0417 16r0428 16r042D 16r0429 16r0427 -16r001)). + + self setCurrencySignToUniversal.! Item was added: + ----- Method: KOI8TextConverter class>>setCurrencySignToDollar (in category 'class initialization') ----- + setCurrencySignToDollar + + decodeTable at: 16r24 + 1 put: 16r24.! Item was added: + ----- Method: KOI8TextConverter class>>setCurrencySignToUniversal (in category 'class initialization') ----- + setCurrencySignToUniversal + + decodeTable at: 16r24 + 1 put: 16rA4.! Item was added: + KOI8TextConverter subclass: #KOI8UTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8UTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-u') copy + ! Item was added: + ----- Method: KOI8UTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 + 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 + 16r2550 16r2551 16r2552 16r0451 16r0454 16r2554 16r0456 16r0457 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r0491 16r255D 16r255E + 16r255F 16r2560 16r2561 16r0401 16r0404 16r2563 16r0406 16r0407 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r0490 16r256C 16r00A9), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'KOI8TextConverter withAllSubclassesDo: [:ea | ea initializeTables].'! - (PackageInfo named: 'Multilingual') postscript: 'ShiftJISTextConverter initializeLatin1MapAndEncodings.'!

1 0

The Trunk: Morphic-mt.1929.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1929.mcz ==================== Summary ==================== Name: Morphic-mt.1929 Author: mt Time: 9 March 2022, 9:16:45.47146 am UUID: 8e8fb7b8-28a2-ac44-b147-92e037eb4742 Ancestors: Morphic-mt.1928 Complements Graphics-mt.494. =============== Diff against Morphic-mt.1928 =============== Item was changed: ----- Method: GrafPort>>installTTCFont: (in category 'private') ----- installTTCFont: aTTCFont + aTTCFont foregroundColor: (lastFontForegroundColor ifNil: [Color black]). + + ^ self installTTCFont: aTTCFont foregroundColor: aTTCFont foregroundColor backgroundColor: (lastFontBackgroundColor ifNil: [Color transparent]). - ^ self installTTCFont: aTTCFont foregroundColor: (lastFontForegroundColor ifNil: [Color black]) backgroundColor: (lastFontBackgroundColor ifNil: [Color transparent]). !

1 0

The Trunk: TrueType-mt.86.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.86.mcz ==================== Summary ==================== Name: TrueType-mt.86 Author: mt Time: 9 March 2022, 9:15:34.52246 am UUID: f92f4d82-8235-3f4c-aa15-b2456dc2c14a Ancestors: TrueType-mt.85 Complements Graphics-mt.494 =============== Diff against TrueType-mt.85 =============== Item was added: + ----- Method: TTCFont>>displayString:on:from:to:at:kern:from:baselineY: (in category 'displaying') ----- + displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta from: fromFont baselineY: baselineY + "I am used as a fallback for fromFont, which is most likely a StrikeFont." + + aBitBlt installTTCFont: self. + ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! Item was changed: ----- Method: TTCFont>>formOf: (in category 'character shapes') ----- formOf: char | code form | + cache ifNil: [self foregroundColor: Color black]. "make sure we have a cache" - char charCode > self maxAscii - ifTrue: [^ self fallbackFont formOf: char]. - cache ifNil:[self foregroundColor: Color black]. "make sure we have a cache" - code := char charCode. form := cache at: (code + 1). + + form ifNil: [ - "form class == Association ifTrue:[^self computeForm: code]. ""in midst of loading" - form ifNil:[ form := self computeForm: code. form ifNil:[^nil]. cache at: code+1 put: form. GlyphCacheData at: (GlyphCacheIndex := GlyphCacheIndex \\ GlyphCacheSize + 1) put: form. ]. ^form ! Item was changed: ----- Method: TTCFont>>glyphInfoOf:into: (in category 'displaying') ----- glyphInfoOf: aCharacter into: glyphInfoArray "return the glyph info for aCharacter; if I don't have such a character, try my fallback font" | form | (self hasGlyphOf: aCharacter) ifFalse: [ + ^ self fallbackFont + foregroundColor: self foregroundColor; + glyphInfoOf: aCharacter into: glyphInfoArray]. + - ^ self fallbackFont glyphInfoOf: aCharacter into: glyphInfoArray. - ]. form := self formOf: aCharacter. glyphInfoArray at: 1 put: form; at: 2 put: 0; "hereX -- relative, unlike StrikeFont" at: 3 put: form advanceWidth; "nextX -- relative, unlike StrikeFont" at: 4 put: self ascent "(self ascentOf: aCharacter)"; at: 5 put: self. ^ glyphInfoArray. !

1 0

The Trunk: Graphics-mt.494.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.494.mcz ==================== Summary ==================== Name: Graphics-mt.494 Author: mt Time: 9 March 2022, 9:14:55.14746 am UUID: 2d79f751-96ed-6c4f-9a7c-6f61717bd265 Ancestors: Graphics-mt.493 Fixes color in glyphs when font is used as a fallback font. =============== Diff against Graphics-mt.493 =============== Item was added: + ----- Method: AbstractFont>>displayString:on:from:to:at:kern:from:baselineY: (in category 'displaying') ----- + displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta from: fromFont baselineY: baselineY + "I am used as a fallback for fromFont. I should install myself on aBitBlt. The default implementation does not do that but directly uses my usual displaying method." + + self flag: #subclassResponsibility. "mt: Something like #installStrikeFont: or #installTTCFont:." + ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! Item was added: + ----- Method: AbstractFont>>foregroundColor (in category 'displaying') ----- + foregroundColor + + ^ Color black! Item was added: + ----- Method: AbstractFont>>foregroundColor: (in category 'displaying') ----- + foregroundColor: fgColor + "Install the given foreground color. This does nothing for other than TrueType fonts. In StrikeFonts, color installation is bound to BitBlt."! Item was added: + ----- Method: BitBlt>>installStrikeFont: (in category 'private') ----- + installStrikeFont: aStrikeFont + + ^ self installStrikeFont: aStrikeFont foregroundColor: Color black backgroundColor: Color transparent! Item was added: + ----- Method: BitBlt>>installTTCFont: (in category 'private') ----- + installTTCFont: aTTCFont + + ^ self installTTCFont: aTTCFont foregroundColor: Color black backgroundColor: Color transparent! Item was added: + ----- Method: FixedFaceFont>>foregroundColor (in category 'displaying') ----- + foregroundColor + + ^ baseFont foregroundColor! Item was added: + ----- Method: FixedFaceFont>>foregroundColor: (in category 'displaying') ----- + foregroundColor: fgColor + + baseFont foregroundColor: fgColor.! Item was added: + ----- Method: StrikeFont>>displayString:on:from:to:at:kern:from:baselineY: (in category 'displaying') ----- + displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta from: fromFont baselineY: baselineY + "I am used as a fallback for fromFont, which is most likely a StrikeFont." + + aBitBlt installStrikeFont: self. + ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY!

1 0

The Trunk: Multilingual-mt.265.mcz
by commits＠source.squeak.org 08 Mar '22

08 Mar '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.265.mcz ==================== Summary ==================== Name: Multilingual-mt.265 Author: mt Time: 8 March 2022, 4:46:32.314437 pm UUID: 73f40056-c2a2-3e4b-8d3a-9a1d7595945d Ancestors: Multilingual-mt.263 Fixes Latin-1 ByteString encoding for ShiftJISTextConverter. =============== Diff against Multilingual-mt.263 =============== Item was added: + ----- Method: ShiftJISTextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." + + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := Array new: 256 withAll: nil. + + 0 to: 127 do: [:i | latin1Map at: i+1 put: 0]. + latin1Map at: 16r5C + 1 put: 1. "$\ ... cannot be encoded" + latin1Map at: 16r7E + 1 put: 1. "$~ ... cannot be encoded" + + latin1Encodings at: 16rA5 "YEN SIGN" + 1 put: { 16r5C } asByteArray asString.! Item was changed: ----- Method: ShiftJISTextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 value1 value2 char1Value result | aStream isBinary ifTrue: [^ aStream basicNext]. character1 := aStream basicNext. character1 isNil ifTrue: [^ nil]. char1Value := character1 asciiValue. + (char1Value < 16r81) ifTrue: [ + char1Value = 16r5C "$\" ifTrue: [^ 16rA5 "YEN SIGN"]. + char1Value = 16r7E "$~" ifTrue: [^ Character leadingChar: self leadingChar code: 16r203E "OVERLINE"]. + ^ character1]. - (char1Value < 16r81) ifTrue: [^ character1]. (char1Value > 16rA0 and: [char1Value < 16rE0]) ifTrue: [^ self katakanaValue: char1Value]. character2 := aStream basicNext. character2 = nil ifTrue: [^ nil "self errorMalformedInput"]. value1 := character1 asciiValue. character1 asciiValue >= 224 ifTrue: [value1 := value1 - 64]. value1 := value1 - 129 bitShift: 1. value2 := character2 asciiValue. character2 asciiValue >= 128 ifTrue: [value2 := value2 - 1]. character2 asciiValue >= 158 ifTrue: [ value1 := value1 + 1. value2 := value2 - 158 ] ifFalse: [value2 := value2 - 64]. result := Character leadingChar: self leadingChar code: value1 * 94 + value2. ^ self toUnicode: result ! Item was changed: ----- Method: ShiftJISTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream | charCode leadingChar aChar | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. aChar := aCharacter. charCode := aCharacter charCode. aChar isTraditionalDomestic ifFalse: [ (16rFF61 <= charCode and: [charCode <= 16rFF9F]) ifTrue: [ ^aStream basicNextPut: (self sjisKatakanaFor: charCode) ]. + aChar := (JISX0208 charFromUnicode: charCode) ifNil: [ - aChar := (JISX0208 charFromUnicode: charCode) ifNil: [ ^aCharacter "an error or nil may be better" ]. charCode := aChar charCode ]. + charCode = 16r203E "OVERLINE" ifTrue: [ + aStream basicNextPut: $~. "16r7E" + ^ aChar]. (leadingChar := aChar leadingChar) = 0 ifTrue: [ charCode < 256 ifTrue: [ (latin1Encodings at: charCode + 1) + ifNil: [ (latin1Map at: charCode + 1) = 0 "Really no translation needed." + ifTrue: [ aStream basicNextPut: aChar ] + ifFalse: [ UndefinedConversion signalFor: charCode toEncoding: self ] ] - ifNil: [ aStream basicNextPut: aChar ] ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. ^aChar ]. ^aStream basicNextPut: aChar ]. leadingChar = self leadingChar ifTrue: [ | upper lower | upper := charCode // 94 + 33. lower := charCode \\ 94 + 33. upper \\ 2 = 1 ifTrue: [ upper := upper + 1 / 2 + 112. lower := lower + 31 ] ifFalse: [ upper := upper / 2 + 112. lower := lower + 125 ]. upper >= 160 ifTrue: [upper := upper + 64]. lower >= 127 ifTrue: [lower := lower + 1]. aStream basicNextPut: (Character value: upper); basicNextPut: (Character value: lower) ]. ^aChar ! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'ShiftJISTextConverter initializeLatin1MapAndEncodings.'! - (PackageInfo named: 'Multilingual') postscript: 'LanguageEnvironment clearDefault. - HandMorph clearInterpreters.'!

1 0

The Trunk: Morphic-mt.1928.mcz
by commits＠source.squeak.org 07 Mar '22

07 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1928.mcz ==================== Summary ==================== Name: Morphic-mt.1928 Author: mt Time: 7 March 2022, 11:32:59.261569 am UUID: b744f763-6518-bf43-8ffb-3324ea8141c3 Ancestors: Morphic-mt.1927 In the font chooser, inform the user why a custom point size is not available for pre-rendered fonts. Thanks to Lauren (lrnp) for the tip! =============== Diff against Morphic-mt.1927 =============== Item was changed: ----- Method: FontChooserTool>>selectedFont (in category 'font list') ----- selectedFont "Generate missing pointSIze only if TrueType font." | style | ^ (style := self selectedTextStyle) isTTCStyle ifTrue: [ style fontArray size = 1 "Font not yet installed..." ifTrue: [style defaultFont] ifFalse: [TTCFont familyName: self selectedFontFamily pointSize: pointSize emphasized: emphasis]] ifFalse: [ | font | font := (style fontOfPointSize: pointSize) emphasized: emphasis. + pointSize ~= font pointSize ifTrue: [ + self inform: ('The point size you requested is not available for this pre-rendered font. Please choose a TrueType font, where you can add custom point sizes.' translated withNoLineLongerThan: 45). + pointSize := font pointSize]. - pointSize := font pointSize. "Can be different for StrikeFont." self changed: #selectedPointSizeIndex. font]!

1 0

← Newer
1
...
11
12
13
14
15
16
17
18
19
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2022