The Trunk: GetText-tfel.40.mcz

Tim Felgentreff uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-tfel.40.mcz

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

Name: GetText-tfel.40
Author: tfel
Time: 5 August 2016, 3:52:12.522259 pm
UUID: 7a16aac5-9583-3b49-8c90-2d5b6eed882e
Ancestors: GetText-tfel.39

update the exporter to also catch dynamic translations

=============== Diff against GetText-ul.38 ===============

Item was changed:
  Object subclass: #GetTextExporter
  instanceVariableNames: 'stream'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'GetText-Editor'!
 
+ !GetTextExporter commentStamp: 'tfel 8/4/2016 16:18' prior: 0!
- !GetTextExporter commentStamp: '<historical>' prior: 0!
  Export translations to gettext format divided into categories.
 
  "Export gettext template files"
  GetTextExporter new exportTemplate.
 
  "Export translation files for current locale"
+ GetTextExporter new exportTranslator: (NaturalLanguageTranslator current).
- GetTextExporter new exportTranslator: (InternalTranslator newLocaleID: LocaleID current).
 
  "Export all gettext template and po files."
  GetTextExporter exportAll.
 
  !

Item was added:
+ ----- Method: GetTextExporter>>appendTranslationsAlreadyIn:to: (in category 'exporting') -----
+ appendTranslationsAlreadyIn: translator to: domains
+ | d |
+ translator moFiles keysAndValuesDo: [:domain :mo |
+ mo ifNotNil: [
+ d := domains at: domain ifAbsentPut: [Dictionary new].
+ mo translations keysAndValuesDo: [:key :translation |
+ d at: key asString ifAbsentPut: [{MethodReference class: Object selector: #yourself}]]]]!

Item was changed:
  ----- Method: GetTextExporter>>createExtraInformation (in category 'private') -----
  createExtraInformation
  | extras |
  extras := OrderedCollection new.
  #(
+ 'ATTENTION TRANSLATORS!! This should be the name of your language as you would like it to appear in the Languages menu, e.g. "Español" or "English"' 'Language-Name'
+ 'ATTENTION TRANSLATORS!! Put in the directionality of your language, that is "LTR" for left-to-right or "RTL" for right-to-left' 'Language-Direction'
- 'Language name as you''d like it to appear in the Languages menu' 'Language-Name'
- 'Directionality of language' 'Language-Direction'
  ) pairsDo: [:first :second |
  extras add: (Array with: '' with: first with: second).
  ].
  ^ extras!

Item was changed:
  ----- Method: GetTextExporter>>exportTag:msg: (in category 'private') -----
  exportTag: tag msg: aString
  stream nextPutAll: tag.
  stream space.
+ aString ifEmpty: [stream nextPutAll: '""'; cr. ^ self].
  aString lineIndicesDo: [:start :endWithoutDelimiters :end |
  | line |
  line := (end = endWithoutDelimiters)
  ifTrue: [aString copyFrom: start to: endWithoutDelimiters]
  ifFalse: [(aString at: endWithoutDelimiters + 1) = Character cr
  ifTrue: [aString copyFrom: start to: endWithoutDelimiters + 1]
  ifFalse: [(aString copyFrom: start to: endWithoutDelimiters) copyWith: Character cr]].
  stream
  nextPut: $";
  nextPutAll: (self formatString: line);
  nextPut: $";
  cr].!

Item was changed:
  ----- Method: GetTextExporter>>exportTranslator: (in category 'exporting') -----
  exportTranslator: translator
  "Export translation files. the file extention is 'po', or 'pot' if translator is nil "
  "GetTextExporter2 new exportTranslator: NaturalLanguageTranslator current "
  | domains |
  domains := Dictionary new.
  self appendTranslations: domains.
+ self appendTranslationsAlreadyIn: translator to: domains.
  domains
  keysAndValuesDo: [:domainName :value |
  self
  export: value
  translator: translator
  domain: domainName]!

Item was changed:
  ----- Method: GetTextExporter>>translationFor:in: (in category 'private') -----
  translationFor: aKey in: translator
  | translation |
  translator ifNil: [^ ''].
  TextDomainManager allKnownDomains do: [:domain |
  translation := translator translate: aKey inDomain: domain.
  aKey = translation ifFalse: [^translation]
  ].
+ ^ ''!
- ^ aKey!