"
--------------------------------------------------------------------
1995 Copyright(C) Masashi Umezawa all rights reserved

このクラスはDSTに日本語を通すためにつくられたものです。
CORBA2.0のIDLの仕様では String はISO8859L1 と定められているので、
そのままでは日本語を取り扱うことはできません。日本語の文字列は
いったんコードの配列に変換し、IDLでの sequence<long> などに対応させて
やる必要があります。MockString は String -> WordArray(UTF)、
WordArray(UTF) -> String の変換を自動的に行います。
MockString は VisualWorksのコンポーネント群などの外部のViewに対しては
StringのValueHolder のように振る舞いますが、実際にはStringをコード変換
してWordArrayの形で保持しています。
Modelの側で頻繁に利用する場合のために、MockStringはあたかも普通の
Stringであるかのように取り扱うこともできるようになっています。

This class is made by VisualWorks 2.0 and DST 4.0 but it should work 
in VisualWorks 2.5 and DST 5.*

Enjoy!
--------------------------------------------------------------------
以下はUTFです。

"


ValueModel subclass: #MockString
	instanceVariableNames: 'code newValue converter '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'DST-MultiByteSupport'!
MockString comment:
'Copyright(C) 1995 Masashi Umezawa All Rights Reserved
縺薙�ｮ繧ｯ繝ｩ繧ｹ縺ｯDST縺ｫ譌･譛ｬ隱槭ｒ騾壹☆縺溘ａ縺ｫ縺､縺上ｉ繧後◆繧ゅ�ｮ縺ｧ縺吶��
CORBA2.0縺ｮIDL縺ｮ莉墓ｧ倥〒縺ｯ String 縺ｯISO8859L1 縺ｨ螳壹ａ繧峨ｌ縺ｦ縺�繧九�ｮ縺ｧ縲√◎縺ｮ縺ｾ縺ｾ縺ｧ縺ｯ譌･譛ｬ隱槭ｒ蜿悶ｊ謇ｱ縺�縺薙→縺ｯ縺ｧ縺阪∪縺帙ｓ縲よ律譛ｬ隱槭�ｮ譁�蟄怜�励�ｯ縺�縺｣縺溘ｓ繧ｳ繝ｼ繝峨�ｮ驟榊�励↓螟画鋤縺励�！DL縺ｧ縺ｮ sequence<long> 縺ｪ縺ｩ縺ｫ蟇ｾ蠢懊＆縺帙※繧�繧句ｿ�隕√′縺ゅｊ縺ｾ縺吶��MockString 縺ｯ String -> WordArray(UTF)縲仝ordArray(UTF) -> String 縺ｮ螟画鋤繧定�ｪ蜍慕噪縺ｫ陦後＞縺ｾ縺吶��
MockString 縺ｯ VisualWorks縺ｮ繧ｳ繝ｳ繝昴�ｼ繝阪Φ繝育ｾ､縺ｪ縺ｩ縺ｮ螟夜Κ縺ｮView縺ｫ蟇ｾ縺励※縺ｯString縺ｮValueHolder 縺ｮ繧医≧縺ｫ謖ｯ繧玖�槭＞縺ｾ縺吶′縲∝ｮ滄圀縺ｫ縺ｯString繧偵さ繝ｼ繝牙､画鋤縺励※WordArray縺ｮ蠖｢縺ｧ菫晄戟縺励※縺�縺ｾ縺吶��
Model縺ｮ蛛ｴ縺ｧ鬆ｻ郢√↓蛻ｩ逕ｨ縺吶ｋ蝣ｴ蜷医�ｮ縺溘ａ縺ｫ縲｀ockString縺ｯ縺ゅ◆縺九ｂ譎ｮ騾壹�ｮString縺ｧ縺ゅｋ縺九�ｮ繧医≧縺ｫ蜿悶ｊ謇ｱ縺�縺薙→繧ゅ〒縺阪ｋ繧医≧縺ｫ縺ｪ縺｣縺ｦ縺�縺ｾ縺吶��
'!


!MockString methodsFor: 'initialize-release'!

initialize
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	converter := PluggableAdaptor new.
	converter
		getBlock: [:m | String fromIntegerArray: code]
		putBlock: [:m :v | code := v asWordArray]
		updateBlock: [:m :a :p | true]! !

!MockString methodsFor: 'accessing'!

code
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^code!

code: aWordArray 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	code := aWordArray!

setValue: newString 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	newValue := self class privateOn: newString!

value
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^newValue!

value: newString 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	converter value: newString.
	self setValue: newString.
	self changed: #value! !

!MockString methodsFor: 'printing'!

printOn: aStream 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	aStream nextPutAll: converter value! !

!MockString methodsFor: 'converting'!

asString
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^converter value!

asValue
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^self! !

!MockString methodsFor: 'string mocking'!

, aString 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^self value: self asString , aString!

asText
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^Text fromString: self asString!

asWordArray
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^self asString asWordArray!

do: aBlock 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	self asString do: aBlock! !

!MockString methodsFor: 'private'!

converterValue: aValue 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	converter value: aValue! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

MockString class
	instanceVariableNames: ''!


!MockString class methodsFor: 'instance creation'!

fromCode: aWordArray 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^(super new) initialize; code: aWordArray!

new
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^super new initialize!

on: aString 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^(super new) initialize; value: aString! !

!MockString class methodsFor: 'examples'!

example1
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	"繧ｳ繝ｼ繝牙､画鋤縺ｮ萓�"
	"MockString example1"

	| ms co |
	ms := self on: '譌･譛ｬ隱槭�ｮ譁�蟄怜��'.
	Transcript cr; show: ms.
	Transcript cr; show: ms code printString.
	co := ms code.
	ms := self fromCode: co.
	Transcript cr; show: ms.
	Transcript cr; show: ms code printString.
	ms inspect!

example2
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	"ValueHolder縺ｮ縺ｾ縺ｭ"
	"MockString example2"

	| ms |
	ms := self new asValue.
	ms value: '譌･譛ｬ隱槭�ｮ譁�蟄怜��'.
	Transcript cr; show: ms value.
	Transcript cr; show: ms code printString.
	ms value: 'abcdefg'.
	Transcript cr; show: ms value.
	Transcript cr; show: ms code printString.
	ms inspect!

example3
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	"String 縺ｮ縺ｾ縺ｭ"
	"MockString example3"

	| ms |
	ms := MockString new.
	ms := ms , '譌･譛ｬ隱槭�ｮ譁�蟄怜��'.
	Transcript cr; show: ms.
	Transcript cr; show: ms code printString.
	ms := ms , 'abcdefg'.
	Transcript cr; show: ms.
	Transcript cr; show: ms code printString.
	ms inspect! !

!MockString class methodsFor: 'private'!

privateOn: aString 
	"Copyright(C) 1995 Masashi Umezawa All Rights Reserved"
	^(super new) initialize; converterValue: aString! !