The Trunk: Multilingual-nice.65.mcz

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-nice.65.mcz

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

Name: Multilingual-nice.65
Author: nice
Time: 27 November 2009, 10:29:13 am
UUID: 5e7b3a9a-9718-4731-8e0c-a3f5515fd607
Ancestors: Multilingual-nice.64

http://bugs.squeak.org/view.php?id=6086
In the process of #detectLineEndConvention a primitive fails trying to obtain the position of '/dev/stdout'.

Re-Install fix from Kph compatible with latests changes.

=============== Diff against Multilingual-nice.64 ===============

Item was changed:
  Object subclass: #LanguageEnvironment
  instanceVariableNames: 'id'
  classVariableNames: 'ClipboardInterpreterClass Current FileNameConverterClass InputInterpreterClass KnownEnvironments SystemConverterClass'
  poolDictionaries: ''
  category: 'Multilingual-Languages'!
 
  !LanguageEnvironment commentStamp: 'bf 8/16/2009 16:52' prior: 0!
  The name multilingualized Squeak suggests that you can use multiple language at one time.  This is true, of course, but the system still how to manage the primary language; that provides the interpretation of data going out or coming in from outside world. It also provides how to render strings, as there rendering rule could be different in one language to another, even if the code points in a string is the same.
 
    Originally, LanguageEnvironment and its subclasses only has class side methods.  After merged with Diego's Babel work, it now has instance side methods.  Since this historical reason, the class side and instance side are not related well.
 
+   When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename.  On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings.  So we need to manage them separately.  Note that the encoding in a file can be anything.  While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical.
-   When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename.  On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings.  So we need to manage them separately.  Note that the encoding in a file can be anything.  While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical.
 
    Rendering support is limited basic L-to-R rendering so far.  But you can provide different line-wrap rule, at least.
  !

Item was changed:
+ ----- Method: MultiByteFileStream>>wantsLineEndConversion: (in category 'remnant') -----
- ----- Method: MultiByteFileStream>>wantsLineEndConversion: (in category 'accessing') -----
  wantsLineEndConversion: aBoolean
+
+ wantsLineEndConversion :=  aBoolean.
 
+ lineEndConvention ifNil: [ self detectLineEndConvention ]. !
- wantsLineEndConversion := aBoolean.
- self detectLineEndConvention.!

Item was changed:
  ----- Method: MultiByteFileStream class>>guessDefaultLineEndConvention (in category 'class initialization') -----
  guessDefaultLineEndConvention
  "Lets try to guess the line end convention from what we know about the
  path name delimiter from FileDirectory."
  FileDirectory pathNameDelimiter = $:
  ifTrue: [^ self defaultToCR].
  FileDirectory pathNameDelimiter = $/
+ ifTrue: [((SmalltalkImage current osVersion)
- ifTrue: [((SmalltalkImage current getSystemAttribute: 1002)
  beginsWith: 'darwin')
  ifTrue: [^ self defaultToCR]
  ifFalse: [^ self defaultToLF]].
  FileDirectory pathNameDelimiter = $\
  ifTrue: [^ self defaultToCRLF].
  "in case we don't know"
  ^ self defaultToCR!

Item was changed:
  ----- Method: MultiByteFileStream>>open:forWrite: (in category 'open/close') -----
  open: fileName forWrite: writeMode
  | result |
  result := super open: fileName forWrite: writeMode.
  result ifNotNil: [
+ converter ifNil: [self converter: UTF8TextConverter new].
+ lineEndConvention ifNil: [ self detectLineEndConvention ]
+ ].
- converter ifNil: [converter := UTF8TextConverter new].
- self detectLineEndConvention].
  ^result!