The Trunk: EToys-mt.434.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: EToys-mt.434.mcz

commits-2
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.434.mcz

==================== Summary ====================

Name: EToys-mt.434
Author: mt
Time: 17 March 2021, 9:42:26.74561 am
UUID: ea5e558c-a97f-5248-934a-3e61edede972
Ancestors: EToys-mt.433

Moves KOI8-R text converter to "Multilingual" package to avoid EToys dependency in tests.

=============== Diff against EToys-mt.433 ===============

Item was removed:
- TextConverter subclass: #KOI8RTextConverter
- instanceVariableNames: ''
- classVariableNames: 'FromTable'
- poolDictionaries: ''
- category: 'Etoys-Squeakland-Multilingual-TextConversion'!

Item was removed:
- ----- 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 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)).
- !