'From etoys2.1 of 26 July 2007 [latest update: #1555] on 16 August 2007 at 10:47:02 am'!
"Change Set:		gettextUtils-tak
Date:			16 August 2007
Author:			Takashi Yamamiya

Verify and export all gettext files.

GetTextExporter2 exportAll. 'Export all .po and .pot files'
GetTextExporter2 verifyExport. 'Verify the exporter'
GetTextExporter2 verifyMsgID: (LocaleID isoString: 'test-US'. 'Same without file I/O'
"!


!GetTextExporter2 class methodsFor: 'utilities' stamp: 'tak 8/14/2007 15:22'!
exportAll
	"GetTextExporter2 exportAll"
	self new exportTemplate.
	NaturalLanguageTranslator availableLanguageLocaleIDs
		do: [:each | self new exportTranslator: each translator]! !

!GetTextExporter2 class methodsFor: 'utilities' stamp: 'tak 8/16/2007 10:23'!
verifyExport
	"Same as #verifyMsgID: but it writes / reads .po files actually"
	"GetTextExporter2 verifyExport"
	"NaturalLanguageTranslator removeLocaleID: (LocaleID isoString: 'test-US')"
	| src dst localeID |
	localeID := LocaleID isoString: 'test-US'.
	self verifyMsgID: localeID.
	src := localeID translator.
	GetTextExporter2 new exportTranslator: src.
	NaturalLanguageTranslator removeLocaleID: localeID.
	dst := localeID translator.
	GetTextImporter import: dst allDirectory: FileDirectory default! !

!GetTextExporter2 class methodsFor: 'utilities' stamp: 'tak 8/16/2007 10:23'!
verifyMsgID: localeID 
	"GetTextExporter2 verifyMsgID: (LocaleID isoString: 'test-US')"
	"NaturalLanguageTranslator removeLocaleID: (LocaleID isoString: 'test-US')"
	"Test gettext keyword extract function without file I/O.
	A language named <langName> will be made. And
	all possible translated words are shown with extra X charactor like
	'XwordX' in the language."
	| src |
	NaturalLanguageTranslator removeLocaleID: localeID.
	src := localeID translator.
	self keys
		do: [:key | src generics at: key put: 'X' , key , 'X']! !