[squeak-dev] The Trunk: Multilingual-ul.82.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 11 08:16:22 UTC 2010
Levente Uzonyi uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-ul.82.mcz
==================== Summary ====================
Name: Multilingual-ul.82
Author: ul
Time: 11 January 2010, 8:26:16.483 am
UUID: bd49ca40-653d-a744-838c-44df4a8b9387
Ancestors: Multilingual-nice.81
- code critics
=============== Diff against Multilingual-nice.81 ===============
Item was changed:
----- Method: EFontBDFFontReaderForRanges>>override:with:ranges:transcodingTable:additionalRange: (in category 'as yet unclassified') -----
override: chars with: otherFileName ranges: pairArray transcodingTable: table additionalRange: additionalRange
| other rangeStream newChars currentRange |
+ other := BDFFontReader openFileNamed: otherFileName.
- other := BDFFontReader readOnlyFileNamed: otherFileName.
rangeStream := ReadStream on: pairArray.
currentRange := rangeStream next.
newChars := PluggableSet new.
newChars hashBlock: [:elem | (elem at: 2) hash].
newChars equalBlock: [:a :b | (a at: 2) = (b at: 2)].
other readChars do: [:array | | code u j form |
code := array at: 2.
"code printStringHex printString displayAt: 0 at 0."
code > currentRange last ifTrue: [
[rangeStream atEnd not and: [currentRange := rangeStream next. currentRange last < code]] whileTrue.
rangeStream atEnd ifTrue: [
newChars addAll: chars.
^ newChars.
].
].
(code between: currentRange first and: currentRange last) ifTrue: [
form := array at: 1.
form ifNotNil: [
j := array at: 2.
u := table at: (((j // 256) - 33 * 94 + ((j \\ 256) - 33)) + 1).
u ~= -1 ifTrue: [
array at: 2 put: u.
newChars add: array.
additionalRange do: [:e | | newArray |
e first = (array at: 2) ifTrue: [
newArray := array clone.
newArray at: 2 put: e second.
newChars add: newArray
].
]
].
].
].
].
self error: 'should not reach here'.
!
Item was changed:
----- Method: JapaneseEnvironment class>>systemConverterClass (in category 'subclass responsibilities') -----
systemConverterClass
| platformName osVersion encoding |
platformName := SmalltalkImage current platformName.
osVersion := SmalltalkImage current osVersion.
(platformName = 'Win32' and: [osVersion = 'CE'])
ifTrue: [^UTF8TextConverter].
(#('Win32' 'ZaurusOS') includes: platformName)
ifTrue: [^ShiftJISTextConverter].
platformName = 'Mac OS'
ifTrue:
[^('10*' match: osVersion)
ifTrue: [UTF8TextConverter]
ifFalse: [ShiftJISTextConverter]].
platformName = 'unix'
ifTrue:
[encoding := X11Encoding encoding.
encoding ifNil: [^EUCJPTextConverter].
(encoding = 'utf-8')
ifTrue: [^UTF8TextConverter].
+ (encoding = 'shiftjis' or: [ encoding = 'sjis' ])
- (encoding = 'shiftjis' | encoding = 'sjis')
ifTrue: [^ShiftJISTextConverter].
^EUCJPTextConverter].
^MacRomanTextConverter!
Item was changed:
----- Method: LanguageEditor class>>initCheckMethods (in category 'initialize-release') -----
initCheckMethods
"LanguageEditor initCheckMethods"
| registry |
+ registry := Dictionary new
- registry := Dictionary new.
- registry
at: 'es' put: #checkSpanishPhrase:translation:;
yourself.
^registry!
More information about the Squeak-dev
mailing list
|