'From etoys2.2 of 25 September 2007 [latest update: #1665] on 26 September 2007 at 5:38:15 pm'!
"Change Set:		GetTextNormCR-KR
Date:			26 September 2007
Author:			Korakurider

adjust msgstr to work around strict format checking by msgfmt tool :
   - append first(last) cr to msgstr if msgid starts(ends) with cr
   - split first(last) cr from msgstr if msgid starts(ends) without cr
"!


!GetTextExporter2 methodsFor: 'private' stamp: 'KR 9/26/2007 17:32'!
exportPhrase: phraseString translation: translationString 
	| normalizedTrans tmp transStartsWithCR transEndsWithCR|
	phraseString isEmpty
		ifTrue: [^ self].
	self exportTag: 'msgid' msg: phraseString.
	translationString size = 0 ifTrue: [
		normalizedTrans _ ''
	] ifFalse: [
		transEndsWithCR _ translationString last = (Character cr).
		phraseString last = (Character cr) ifTrue: [
			transEndsWithCR ifTrue: [
				normalizedTrans _ translationString
			] ifFalse: [
				normalizedTrans _  translationString , (Character cr)
			]
		] ifFalse: [
			transEndsWithCR ifTrue: [
				normalizedTrans _ translationString allButLast
			] ifFalse: [
				normalizedTrans _ translationString
			]
		].
		transStartsWithCR _ normalizedTrans first = (Character cr).
		phraseString first = (Character cr) ifTrue: [
			transStartsWithCR ifFalse: [
				tmp _ (Character cr asString) , normalizedTrans.
				normalizedTrans _ tmp.
			]
		] ifFalse: [
			transStartsWithCR ifTrue: [
				normalizedTrans _ normalizedTrans allButFirst
			]
		]
	].
	self exportTag: 'msgstr' msg: normalizedTrans.
	stream cr! !