'From etoys2.3 of 28 November 2007 [latest update: #1829] on 11 December 2007 at 11:13:05 pm'!
"Change Set:		AddRussian-yo
Date:			11 December 2007
Author:			Yoshiki Ohshima

Add partial Russian support."!

TextConverter subclass: #KOI8RTextConverter
	instanceVariableNames: ''
	classVariableNames: 'FromTable'
	poolDictionaries: ''
	category: 'Multilingual-TextConversion'!
LanguageEnvironment subclass: #RussianEnvironment
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Multilingual-Languages'!

!EFontBDFFontReaderForRanges class methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 11:19'!
rangesForRussian

	^ {
		Array with: 16r1 with: 16rFF.
		Array with: 16r400 with: 16r513.
		Array with: 16r2219 with: 16r2219.
		Array with: 16r221A with: 16r221A.
		Array with: 16r2248 with: 16r2248.
		Array with: 16r2264 with: 16r2265.
		Array with: 16r2320 with: 16r2321.
		Array with: 16r2500 with: 16r25A0.
	}.
! !


!EncodedCharSet class methodsFor: 'class methods' stamp: 'yo 12/11/2007 16:50'!
initialize
"
	self initialize
"
	self allSubclassesDo: [:each | each initialize].

	EncodedCharSets _ Array new: 256.

	EncodedCharSets at: 0+1 put: Latin1Environment.
	EncodedCharSets at: 1+1 put: JISX0208.
	EncodedCharSets at: 2+1 put: GB2312.
	EncodedCharSets at: 3+1 put: KSX1001.
	EncodedCharSets at: 4+1 put: JISX0208.
	EncodedCharSets at: 5+1 put: JapaneseEnvironment.
	EncodedCharSets at: 6+1 put: SimplifiedChineseEnvironment.
	EncodedCharSets at: 7+1 put: KoreanEnvironment.
	EncodedCharSets at: 8+1 put: GB2312.
	"EncodedCharSets at: 9+1 put: UnicodeTraditionalChinese."
	"EncodedCharSets at: 10+1 put: UnicodeVietnamese."
	EncodedCharSets at: 12+1 put: KSX1001.
	EncodedCharSets at: 13+1 put: GreekEnvironment.
	EncodedCharSets at: 14+1 put: Latin2Environment.
	EncodedCharSets at: 15+1 put: RussianEnvironment.
	EncodedCharSets at: 256 put: Unicode.
! !


!KOI8RTextConverter methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 10:59'!
fromSqueak: char

	^ Character value: (FromTable at: char charCode ifAbsent: [char asciiValue])! !

!KOI8RTextConverter methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 10:59'!
nextFromStream: aStream

	| character1 |
	aStream isBinary ifTrue: [^ aStream basicNext].
	character1 _ aStream basicNext.
	character1 isNil ifTrue: [^ nil].
	^ self toSqueak: character1.
! !

!KOI8RTextConverter methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 11:00'!
nextPut: aCharacter toStream: aStream

	aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream].
	aCharacter charCode < 128 ifTrue: [
		aStream basicNextPut: aCharacter.
	] ifFalse: [
		aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)).
	].
! !

!KOI8RTextConverter methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 11:10'!
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)).
! !


!KOI8RTextConverter class methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 10:59'!
encodingNames 

	^ #('koi8-r') copy
! !

!KOI8RTextConverter class methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 11:07'!
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.
! !


!RussianEnvironment class methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 11:21'!
leadingChar

	^ 15.
! !

!RussianEnvironment class methodsFor: 'as yet unclassified' stamp: 'yo 12/11/2007 11:22'!
supportedLanguages
	"Return the languages that this class supports. 
	Any translations for those languages will use this class as their environment."
	
	^#('ru' )! !

RussianEnvironment removeSelector: #leadingChar!
RussianEnvironment removeSelector: #supportedLanguages!
KOI8RTextConverter initialize!
EncodedCharSet initialize!
EFontBDFFontReaderForRanges removeSelector: #rangesForGreek!