'From etoys2.1 of 30 August 2007 [latest update: #1636] on 14 September 2007 at 8:18:22 pm'!
"Change Set:		gettextSpace-bf
Date:			14 September 2007
Author:			Bert Freudenberg

Track #3452: replace space with underscore in .po filenames"!


!GetTextExporter2 methodsFor: 'exporting' stamp: 'bf 9/14/2007 19:30'!
dirNameCategory: category translator: translator 
	"Answer a file name for the category. Make one if it is not exist yet.
	Make template file name if translator is nil"
	"self new dirNameCategory: 'Morphic-Scripting Support' translator:
	NaturalLanguageTranslator current"
	"self new dirNameCategory: 'Morphic-Scripting Support' translator: nil"
	| safeCategory fileName dirName pathName |
	safeCategory := category copyReplaceAll: ' ' with: '_'.
	fileName := translator
				ifNil: [safeCategory , '.pot']
				ifNotNil: [translator localeID posixName , '.po'].
	dirName := (safeCategory findTokens: '-')
				inject: 'po'
				into: [:aString :next | aString , FileDirectory slash , next].
	pathName := dirName , FileDirectory slash , fileName.
	(FileDirectory default directoryNamed: dirName) assureExistence.
	^ pathName! !