[squeak-dev] The Trunk: Multilingual-pre.287.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 9 12:49:25 UTC 2022


Patrick Rein uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-pre.287.mcz

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

Name: Multilingual-pre.287
Author: pre
Time: 9 December 2022, 1:49:23.701273 pm
UUID: 52810dd8-26fa-fe4a-a84e-693b3f019364
Ancestors: Multilingual-mt.286

Categorizes some previously uncategorized methods.

=============== Diff against Multilingual-mt.286 ===============

Item was changed:
+ ----- Method: CP1253ClipboardInterpreter>>fromSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: CP1253ClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') -----
  fromSystemClipboard: aString
  
  	| result converter |
  	result := WriteStream on: (String new: aString size).
  	converter := CP1253TextConverter new.
  	aString do: [:each |
  		result nextPut: (converter toSqueak: each macToSqueak) asCharacter.
  	].
  	^ result contents.
  !

Item was changed:
+ ----- Method: CP1253ClipboardInterpreter>>toSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: CP1253ClipboardInterpreter>>toSystemClipboard: (in category 'as yet unclassified') -----
  toSystemClipboard: aString
  
  	| result converter r |
  	aString isAsciiString ifTrue: [^ aString asOctetString]. "optimization"
  
  	result := WriteStream on: (String new: aString size).
  	converter := CP1253TextConverter new.
  	aString do: [:each |
  		r := converter fromSqueak: each.
  		r charCode < 255 ifTrue: [
  		result nextPut: r squeakToMac]].
  	^ result contents.
  !

Item was changed:
+ ----- Method: CP1253InputInterpreter>>initialize (in category 'initialize-release') -----
- ----- Method: CP1253InputInterpreter>>initialize (in category 'as yet unclassified') -----
  initialize
  
  	converter := CP1253TextConverter new.
  !

Item was changed:
+ ----- Method: CP1253InputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: CP1253InputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') -----
  nextCharFrom: sensor firstEvt: evtBuf
  
  	| keyValue |
  	keyValue := evtBuf third.
  	^ converter toSqueak: keyValue asCharacter.
  !

Item was changed:
+ ----- Method: ISO88597ClipboardInterpreter>>fromSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: ISO88597ClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') -----
  fromSystemClipboard: aString
  
  	^ aString convertFromWithConverter: ISO88597TextConverter new.
  !

Item was changed:
+ ----- Method: ISO88597ClipboardInterpreter>>toSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: ISO88597ClipboardInterpreter>>toSystemClipboard: (in category 'as yet unclassified') -----
  toSystemClipboard: aString
  
  	| result converter |
  
  	aString isAsciiString ifTrue: [^ aString asOctetString]. "optimization"
  
  	result := WriteStream on: (String new: aString size).
  	converter := ISO88597TextConverter new.
  	aString do: [:each |
  		result nextPut: (converter fromSqueak: each).].
  	^ result contents.
  !

Item was changed:
+ ----- Method: ISO88597InputInterpreter>>initialize (in category 'initialize-release') -----
- ----- Method: ISO88597InputInterpreter>>initialize (in category 'as yet unclassified') -----
  initialize
  
  	converter := ISO88597TextConverter new.
  !

Item was changed:
+ ----- Method: ISO88597InputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: ISO88597InputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') -----
  nextCharFrom: sensor firstEvt: evtBuf
  
  	| keyValue |
  	keyValue := evtBuf third.
  	^ converter toSqueak: keyValue asCharacter.
  !

Item was changed:
+ ----- Method: M17nInputInterpreter>>initialize (in category 'initialize-release') -----
- ----- Method: M17nInputInterpreter>>initialize (in category 'as yet unclassified') -----
  initialize
  
  	converter := UTF8TextConverter new.!

Item was changed:
+ ----- Method: M17nInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: M17nInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') -----
  nextCharFrom: sensor firstEvt: evtBuf 
  	| keyValue |
  	keyValue := evtBuf at: 6.
  	0 = keyValue ifTrue: [ ^self nextUtf8Char: sensor firstEvt: evtBuf ].
  	256 > keyValue ifTrue: [ ^keyValue asCharacter ].
  	^ Character leadingChar: Locale currentPlatform leadingChar code: keyValue!

Item was changed:
+ ----- Method: M17nInputInterpreter>>nextUtf8Char:firstEvt: (in category 'private') -----
- ----- Method: M17nInputInterpreter>>nextUtf8Char:firstEvt: (in category 'as yet unclassified') -----
  nextUtf8Char: sensor firstEvt: evtBuf
  	"this code should really go into InputSensor>>fullKey"
  	| aCollection bytes peekEvent keyValue type stream multiChar evt |
  	self flag: #fixthis.
  	keyValue := evtBuf third.
  	evtBuf fourth = EventKeyChar ifTrue: [type := #keystroke].
  	peekEvent := sensor peekEvent.
  	(peekEvent notNil and: [peekEvent fourth = EventKeyDown]) ifTrue: [
  		sensor nextEvent.
  		peekEvent := sensor peekEvent].
  
  	(type == #keystroke
  	and: [peekEvent notNil 
  	and: [peekEvent first = EventTypeKeyboard
  	and: [peekEvent fourth = EventKeyChar]]]) ifTrue: [
  		aCollection := OrderedCollection with: keyValue asCharacter.
  		bytes := (keyValue <= 127)
  			ifTrue: [ 0 ]
  			ifFalse: [ (keyValue bitAnd: 16rE0) = 192
  				ifTrue: [ 1 ]
  				ifFalse: [ (keyValue bitAnd: 16rF0) = 224
  					ifTrue: [ 2 ]
  					ifFalse: [ 3 ]
  				]
  			].
  		[bytes > 0] whileTrue: [
  			(evt :=  sensor nextEvent) fourth = EventKeyChar ifTrue: [
  				bytes := bytes - 1.
  				aCollection add: (Character value: evt third)]].
  		"aCollection do: [ :each | Transcript show: (each asciiValue hex , ' ')].
  		Transcript show: Character cr."
  		stream := ReadStream on: (String withAll: aCollection).
  		multiChar := converter nextFromStream: stream.
  		multiChar isOctetCharacter ifFalse: [ sensor nextEvent ].
  		^ multiChar].
  
  	^ keyValue asCharacter!

Item was changed:
+ ----- Method: MacUTF8ClipboardInterpreter>>fromSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: MacUTF8ClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') -----
  fromSystemClipboard: aString
  	^ aString convertFromWithConverter: UTF8TextConverter new!

Item was changed:
+ ----- Method: MacUTF8ClipboardInterpreter>>toSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: MacUTF8ClipboardInterpreter>>toSystemClipboard: (in category 'as yet unclassified') -----
  toSystemClipboard: text
  
  	| string |
  	string := text asString.
  	string isAsciiString ifTrue: [^ string asOctetString].
  	string isOctetString ifTrue: [^ string ].
  	^ string convertToWithConverter: UTF8TextConverter new .
  !

Item was changed:
+ ----- Method: UTF32CNInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: UTF32CNInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') -----
  nextCharFrom: sensor firstEvt: evtBuf 
  	| keyValue |
  	keyValue := evtBuf at: 6.
  	keyValue = 0 ifTrue: [keyValue := evtBuf at: 3].
  	keyValue < 256
  		ifTrue: [^Character value: keyValue].
  	^ Character leadingChar: SimplifiedChineseEnvironment leadingChar code: keyValue!

Item was changed:
+ ----- Method: UTF32GreekInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: UTF32GreekInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') -----
  nextCharFrom: sensor firstEvt: evtBuf 
  	| keyValue |
  	keyValue := evtBuf at: 6.
  	keyValue = 0 ifTrue: [keyValue := evtBuf at: 3].
  	keyValue < 256
  		ifTrue: [^Character value: keyValue].
  	^ Character leadingChar: GreekEnvironment leadingChar code: keyValue!

Item was changed:
+ ----- Method: UTF32JPInputInterpreter>>japaneseSpecialMark: (in category 'private') -----
- ----- Method: UTF32JPInputInterpreter>>japaneseSpecialMark: (in category 'as yet unclassified') -----
  japaneseSpecialMark: anInteger 
  	"For japanese special marks.
  	This method converts 'YEN SIGN' (16rA5) to 'REVERSE SOLIDUS' (16r5C)
  	and use Japanese leading characters instead of Unicode for below
  	characters.
  	'CENT SIGN' (16rA2)
  	'POUND SIGN' (16rA3)
  	'SECTION SIGN' (16rA7)
  	'DIAERESIS' (16rA8)
  	'NOT SIGN' (16rAC)
  	'DEGREE SIGN' (16rB0)
  	'PLUS-MINUS SIGN (16rB1)
  	'ACUTE ACCENT' (16rB4)
  	'PILCROW SIGN' (16rB6)
  	'MULTIPLICATION SIGN' (16rD7)
  	'DIVISION SIGN' (16rF7)
  	"
  	Project current localeID
  			= (LocaleID isoLanguage: 'ja')
  		ifTrue: [anInteger = 16rA5
  				ifTrue: [^ Character value: 16r5C].
  			(#(16rA2 16rA3 16rA7 16rA8 16rAC 16rB0 16rB1 16rB4 16rB6 16rD7 16rF7) includes: anInteger)
  				ifTrue: [^ Character leadingChar: JapaneseEnvironment leadingChar code: anInteger]].
  	^ nil!

Item was changed:
+ ----- Method: UTF32NPInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: UTF32NPInputInterpreter>>nextCharFrom:firstEvt: (in category 'all') -----
  nextCharFrom: sensor firstEvt: evtBuf 
  	| keyValue |
  	keyValue := evtBuf at: 6.
  	keyValue = 0 ifTrue: [keyValue := evtBuf at: 3].
  	keyValue < 256
  		ifTrue: [^Character value: keyValue].
  	^ Character leadingChar: NepaleseEnvironment leadingChar code: keyValue!

Item was changed:
+ ----- Method: UTF8CNClipboardInterpreter>>fromSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: UTF8CNClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') -----
  fromSystemClipboard: aString
  	^aString convertFromWithConverter: UTF8TextConverter new.!

Item was changed:
+ ----- Method: UTF8GreekClipboardInterpreter>>fromSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: UTF8GreekClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') -----
  fromSystemClipboard: aString
  	| str |
  	str := aString convertFromWithConverter: UTF8TextConverter new.
  	^ str collect: [:c |
  		(#(
  		16r20AC 16rFFFD 16r201A 16r0192 16r201E 16r2026 16r2020 16r2021
  		16rFFFD 16r2030 16rFFFD 16r2039 16rFFFD 16rFFFD 16rFFFD 16rFFFD
  		16rFFFD 16r2018 16r2019 16r201C 16r201D 16r2022 16r2013 16r2014
  		16rFFFD 16r2122 16rFFFD 16r203A 16rFFFD 16rFFFD 16rFFFD 16rFFFD
  		16r00A0 16r0385 16r0386 16r00A3 16r00A4 16r00A5 16r00A6 16r00A7
  		16r00A8 16r00A9 16rFFFD 16r00AB 16r00AC 16r00AD 16r00AE 16r2015
  		16r00B0 16r00B1 16r00B2 16r00B3 16r0384 16r00B5 16r00B6 16r00B7
  		16r0388 16r0389 16r038A 16r00BB 16r038C 16r00BD 16r038E 16r038F
  		16r0390 16r0391 16r0392 16r0393 16r0394 16r0395 16r0396 16r0397
  		16r0398 16r0399 16r039A 16r039B 16r039C 16r039D 16r039E 16r039F
  		16r03A0 16r03A1 16rFFFD 16r03A3 16r03A4 16r03A5 16r03A6 16r03A7
  		16r03A8 16r03A9 16r03AA 16r03AB 16r03AC 16r03AD 16r03AE 16r03AF
  		16r03B0 16r03B1 16r03B2 16r03B3 16r03B4 16r03B5 16r03B6 16r03B7
  		16r03B8 16r03B9 16r03BA 16r03BB 16r03BC 16r03BD 16r03BE 16r03BF
  		16r03C0 16r03C1 16r03C2 16r03C3 16r03C4 16r03C5 16r03C6 16r03C7
  		16r03C8 16r03C9 16r03CA 16r03CB 16r03CC 16r03CD 16r03CE 16rFFFD
  		) includes: c charCode) ifTrue: [Character leadingChar: GreekEnvironment leadingChar code: c charCode] ifFalse: [c]].
  	!

Item was changed:
+ ----- Method: UTF8JPClipboardInterpreter>>fromSystemClipboard: (in category 'conversion-clipboard') -----
- ----- Method: UTF8JPClipboardInterpreter>>fromSystemClipboard: (in category 'as yet unclassified') -----
  fromSystemClipboard: aString
  	^aString convertFromWithConverter: UTF8TextConverter new.
  !

Item was changed:
+ ----- Method: UnixEUCKRInputInterpreter>>initialize (in category 'initialize-release') -----
- ----- Method: UnixEUCKRInputInterpreter>>initialize (in category 'as yet unclassified') -----
  initialize
  
  	converter := EUCKRTextConverter new.
  !

Item was changed:
+ ----- Method: UnixEUCKRInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') -----
- ----- Method: UnixEUCKRInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') -----
  nextCharFrom: sensor firstEvt: evtBuf
  
  	| firstChar secondChar peekEvent keyValue type stream multiChar |
  	keyValue := evtBuf third.
  	evtBuf fourth = EventKeyChar ifTrue: [type := #keystroke].
  	peekEvent := sensor peekEvent.
  	(peekEvent notNil and: [peekEvent fourth = EventKeyDown]) ifTrue: [
  		sensor nextEvent.
  		peekEvent := sensor peekEvent].
  
  	(type == #keystroke
  	and: [peekEvent notNil 
  	and: [peekEvent first = EventTypeKeyboard
  	and: [peekEvent fourth = EventKeyChar]]]) ifTrue: [
  		firstChar := keyValue asCharacter.
  		secondChar := (peekEvent third) asCharacter.
  		stream := ReadStream on: (String with: firstChar with: secondChar).
  		multiChar := converter nextFromStream: stream.
  		multiChar isOctetCharacter ifFalse: [sensor nextEvent].
  		^ multiChar].
  
  	^ keyValue asCharacter!



More information about the Squeak-dev mailing list